Scribd
Upload
58 views

Object Property Nilai

This document provides instructions for creating a program to store and calculate student grades. It includes: 1. Setting properties for form controls and labels. 2. Listing the program code, including declaring variables, loading combo box options, setting fields based on selections, calculating grades and determining letter grades. 3. Descriptions of what each button click should do, such as processing grades and printing results for the "Cetak" button, clearing the list for "Hapus", and refreshing fields for "Refresh".

Uploaded by

Maria Becker
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
58 views

Object Property Nilai

This document provides instructions for creating a program to store and calculate student grades. It includes: 1. Setting properties for form controls and labels. 2. Listing the program code, including declaring variables, loading combo box options, setting fields based on selections, calculating grades and determining letter grades. 3. Descriptions of what each button click should do, such as processing grades and printing results for the "Cetak" button, clearing the list for "Hapus", and refreshing fields for "Refresh".

Uploaded by

Maria Becker
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 7

Lilia Amarwani

13.02.8494
D3 MI 02

Program Form Mahasiswa dan Nilai

Langkah pembuatan program


1. Atur properti
Object
Form
Frame1
Frame2
lblNim
lblNama
lblKode
lblJenjang
lblPres
lblMid
lblTugas
lblUas

Property
Name
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption

Nilai
Form1
Form1
Data Mahasiswa
Nilai Mahasiswa
NIM
NAMA
KODE
JURUSAN
Presensi
MID
Tugas
UAS

lblTotal
lblTot
lblHuruf
lblHur
lblKet
lblKe
txtNim
txtNama
txtJenjang
txtJurusan
txtPres
txtMid
TxtTugas
txtUas
btnCetak
btnHapus
btnProses
btnRefresh
btnKeluar
List1

Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Caption

TOTAL
Kosongkan
HURUF
Kosongkan
Keterangan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Kosongkan
Cetak
Hapus
PROSES
REFRESH
KELUAR
Kosongkan

2. Listing Program
a. Pendeklarasian variabel, letakkan pada general
Dim jenjang As String
Dim jurusan As String
Dim presensi As Integer
Dim uas As Integer
Dim mid As Integer
Dim tugas As Integer
Dim total As Double
Dim huruf As String
Dim ket As String
Dim tot As Double
b. Private Sub txtNama_Change()
'jawaban no 1 "agar combo box tidak aktif sebelum nim dan nama diisi"
Private Sub txtNama_Change()
If txtNim.Visible = True And txtNama.Visible = True Then
cmbKode.Visible = True
Else
cmbKode.Visible = False
End If
End Sub

c. Private Sub Form_Load()


Private Sub Form_Load()
cmbKode.AddItem "D3 MI"
cmbKode.AddItem "S1 SI"
cmbKode.AddItem "D3 TI"
cmbKode.AddItem "S1 TI"
cmbKode.AddItem "S2 TI"
End Sub
d. Private Sub cmbKode_Click()
Private Sub cmbKode_Click()
'jenjang dan jurusan
Select Case cmbKode.Text
Case "D3 MI"
jenjang = "Diploma 3"
jurusan = "Managemen Informatika"
Case "S1 SI"
jenjang = "Strata 1"
jurusan = "Sistem Informasi"
Case "D3 TI"
jenjang = "Diploma 3"
jurusan = "Teknik Informatika"
Case "S1 TI"
jenjang = "Strata 1"
jurusan = "Teknik Informatika"
Case "S2 TI"
jenjang = "Strata 2"
jurusan = "Teknik Informatika"
End Select
txtJenjang.Text = jenjang
txtJurusan.Text = jurusan
End Sub
e. Private Sub cmdProses_Click()
'jawaban no 3
Private Sub cmdProses_Click()
tugas = txtTugas.Text
uas = txtUas.Text
mid = txtMid.Text
bonus = 10

total = (0.2 * tugas) + (0.5 * uas) + (0.3 * mid)


If total >= 50 And txtPres > 10 Then
tot = total + bonus
Else
tot = total
End If
If tot >= 100 Then
hasilakhir = 100
Else
hasilakhir = tot
End If
If hasilakhir > 80 Then
huruf = "A"
ket = "Sangat Memuaskan"
ElseIf hasilakhir > 60 Then
huruf = "B"
ket = "Memuaskan"
ElseIf hasilakhir > 40 Then
huruf = "C"
ket = "Cukup"
ElseIf hasilakhir > 20 Then
huruf = "D"
ket = "Kurang"
Else
huruf = "E"
ket = "Sangat Kurang"
End If
lblHur.Caption = huruf
lblKe.Caption = ket
lblTtl = hasilakhir
End Sub
f. Private Sub cmdCetak_Click()
'jawaban no 4 cetak
Private Sub cmdCetak_Click()
List1.Clear
List1.AddItem "Nim : " + txtNim
List1.AddItem "Nama : " + txtNama
List1.AddItem "Kode : " + cmbKode

List1.AddItem "Jenjang : " + txtJenjang


List1.AddItem "Jurusan : " + txtJur
End Sub
g. Private Sub cmdHapus_Click()
'jawaban no 5
Private Sub cmdHapus_Click()
List1.Clear
End Sub
h. Private Sub cmdRefresh_Click()
Private Sub cmdRefresh_Click()
txtNim.Text = ""
txtNama.Text = ""
cmbKode.Text = ""
txtJenjang.Text = ""
txtJurusan.Text = ""
txtPres.Text = ""
txtMid.Text = ""
txtTugas.Text = ""
txtUas.Text = ""
lblTtl.Caption = ""
lblHur.Caption = ""
lblKet.Caption = ""
List1.Clear
cmbKode.Visible = False
i. End SubPrivate Sub cmdKeluar_Click()
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Jika tombol proses dan cetak di klik

Jika tombol hapus di klik

Jika tombol refresh di klik

You might also like