LANGKAH-LANGKAH MEMBUAT PROGRAM MENGHITUNG GRADE NILAI SISWA

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: