BERIKUT INI LANGKAH-LANGKAH MEMBUAT PROGRAM MENGHITUNG GRADE NILAI SISWA.
PROGRAM MENGHITUNG GRADE NILAI SISWA
Langkah 1 :
Buat gambaran Desain Akhir Program, misalnya seperti gambar berikut :
Langkah-2 :
Masukkan obyek-obyek yang diperlukan dalam form, seperti berikut :
Langkah-3 :
Atur Properti dari obyek-obyek yang dipergunakan, dengan pengaturan sebagai berikut :
|
NO |
FORM/OBYEK |
PROPERTY |
SETTING |
|
1 |
FORM | Name | fgrade |
| Caption | MENGHITUNG GRADE NILAI SISWA | ||
|
2 |
Label1 | Caption | NILAI GRADE SISWA |
| Font | Algerian, 16, Bold | ||
| ForeColor | Pallet-Blue | ||
|
3 |
Label2 | Caption | ABSENSI : |
| Font | Times New Roman, 12, Bold | ||
| ForeColor | Pallet-Black | ||
|
4 |
Label3 | Caption | NILAI TUGAS : |
| Font | Times New Roman, 12, Bold | ||
| ForeColor | Pallet-Black | ||
|
5 |
Label4 | Caption | NILAI UTS : |
| Font | Times New Roman, 12, Bold | ||
| ForeColor | Pallet-Black | ||
|
6 |
Label5 | Caption | NILAI UAS : |
| Font | Times New Roman, 12, Bold | ||
| ForeColor | Pallet-Black | ||
|
7 |
Label6 | Caption | % |
| Font | Times New Roman, 12, Bold | ||
| ForeColor | Pallet-Black | ||
|
8 |
Label7 | Caption | NILAI SISWA : |
| Font | Ravie, 10, Reguler | ||
| ForeColor | Pallet-Blue | ||
|
9 |
Label8 | Caption | GRADE NILAI : |
| Font | Sylfaen, 12, Bold | ||
| ForeColor | Pallet-Blue | ||
|
10 |
Text1 | Name | Txtabsen |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
11 |
Text2 | Name | Txttugas |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
12 |
Text3 | Name | Txtuts |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
13 |
Text4 | Name | Txtuas |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
14 |
Text5 | Name | txttotnilai |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
15 |
Text6 | Name | txtgrade |
| Font | MS Sans Serif, 8, Reguler | ||
| Text | <kosongkan> | ||
|
16 |
Command1 | Name | btnproses |
| Caption | PROSES | ||
| Font | MS Sans Serif, 8, Reguler | ||
|
17 |
Command2 | Name | btnhapus |
| Caption | BARU | ||
| Font | MS Sans Serif, 8, Reguler | ||
|
18 |
Command3 | Name | btnexit |
| Caption | HAPUS | ||
| Font | MS Sans Serif, 8, Reguler |
Langkah-4 :
Buat kode program untuk masing-masing command obyek yang diperlukan, sebagai berikut :
1. Buat code program atau prosedur btnproses_Click() dengan double klik pada tombol PROSES dan ketik listing Programnya sebagai berikut :
Dim absen, tugas, uts, uas As Integer
Dim nilai As Double
absen = Val(Txtabsen.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
nilai = (absen * 0.1 + tugas * 0.1 + uts * 0.3 + uas * 0.5)
txttotnilai.Text = nilai
If (nilai >= 80) Then
txtgrade.Text = “A”
ElseIf (nilai >= 70) Then
txtgrade.Text = “B”
ElseIf (nilai >= 60) Then
txtgrade.Text = “C”
ElseIf (nilai >= 50) Then
txtgrade.Text = “D”
Else: txtgrade.Text = “E”
End If
End Sub
2. Buat code program atau prosedur btnhapus_Click() dengan double klik pada tombol HAPUS dan ketik listing Programnya sebagai berikut :
Txtabsen.Text = “”
txttugas.Text = “”
txtuts.Text = “”
txtuas.Text = “”
txttotnilai.Text = “”
txtgrade.Text = “”
Txtabsen.SetFocus
3. Buat code program atau prosedur btnexit_Click() dengan double klik pada tombol KELUAR dan ketik listing Programnya sebagai berikut :
Private Sub btnexit_Click()
End
End Sub
4. Buat sebuah MODULE untuk text yang hanya bisa diisi dengan angka saja, pilih pada menu Project lalu pilih Add Module dan ketik perintah sebagai berikut :
Public Sub Angka(ByRef KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub
5. Pada Txtabsen, Txttugas, Txtuts dan Txtuas isikan module pada saat prosedur KEYPRESS dengan mengetikkan module, yaitu sebagai berikut -:
Private Sub Txtabsen_KeyPress(KeyAscii As Integer)
Angka KeyAscii
End Sub
Untuk melihat hasil programnya silahkan download di SINI
Lovemathematic 