Membuat Program Visual Basic
Desain program untuk menentukan NEM, rata – rata, dan kelulusan siswa yang telah mengikuti ujian nasional dengan memasukan nilai Bahasa Indonesia, Bahasa inggris, dan matematika. dengan ketentuan bahwa:
1. Skor minimal 0 dan skor maksimal 10. 00
2. Penentuan penentuan NEM dengan menjumlahkan masing – masing nilai dari ketiga bidang studi tersebut.
3. Penentuan rata – rata dengan NEM dibagi 3
4. Untuk Keterangan, rata – rata >= 5.00 maka dinyatakan LULUS dan bila < 5.00 maka dinyatakan TIDAK LULUS
Penyelesaian :
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 Form1
Caption MENENTUKAN NEM, RATA – RATA, DAN KELULUSAN SISWA
FRAME1 Caption INPUT
Font Calibri, 12, Regular
FRAME2 Caption OUTPUT
Font Calibri, 12, Regular
2 Label 1 Caption MENENTUKAN NEM, RATA – RATA, DAN KELULUSAN SISWA SMP YANG MENGIKUTI UJIAN NASIONAL
Font Elephant, 16, Regular
BackColor Pallet-Biru
3 Label 2 Caption NILAI BAHASA INDONESIA
Font Engravers MT, 10, Expanded Bold Oblique
4 Label 3 Caption NILAI BAHASA INGGRIS
Font Engravers MT, 10, Expanded Bold Oblique
5 Label 4 Caption NILAI MATEMATIKA
Font Engravers MT, 10, Expanded Bold Oblique
6 Label 5 Caption NEM
Font Engravers MT, 10, Expanded Bold Oblique
7 Label 6 Caption RATAAN
Font Engravers MT, 10, Expanded Bold Oblique
8 Label 7 Caption KETERANGAN
Font Engravers MT, 10, Expanded Bold Oblique
9 Text1 Name Txt_nilaibahasaindonesia
Font Times New Roman, 14, Regular
Text
10 Text2 Name Txt_nilaibahasainggris
Font Times New Roman, 14, Regular
Text
11 Text3 Name Txt_nilaimatematika
Font Times New Roman, 14, Regular
Text
12 Text4 Name Txt_nem
Font Times New Roman, 14, Regular
Text
13 Text5 Name Txt_rataan
Font Times New Roman, 14, Regular
Text
14 Text6 Name Txt_keterangan
Font Times New Roman, 14, Regular
Text
15 Command1 Name cmd_proses
Caption PROSES
Font Stencil, 12, Bold
16 Command2 Name cmd_lagi
Caption LAGI
Font Stencil, 12, Bold
17 Command3 Name cmd_keluar
Caption KELUAR
Font Stencil, 12, Bold
18 Command4 Name cmd_info
Caption INFO
Font Stencil, 12, Bold
Langkah-4 :
Buat kode program untuk masing-masing command obyek yang diperlukan, sebagai berikut :
a. Buat code program atau prosedur CMD_PROSES_CLICK dengan double klik pada tombol PROSES dan ketik listing Programnya sebagai berikut :
Private Sub cmd_proses_Click()
Dim bahasa_indonesia, bahasa_inggris, matematika, nem, rata As Integer
Dim keterangan As String
If Txt_nilaibahasaindonesia.Text = “” Or Txt_nilaibahasainggris.Text = “” Or Txt_nilaimatematika.Text = “” Then
MsgBox (“MASUKAN DULU DATA NILAI BAHASA INDONESIA, BAHASA INGGRIS, DAN MATEMATIKA.”)
GoTo ULANG
Else
GoTo MULAI
End If
MULAI:
bahasa_indonesia = Val(Txt_nilaibahasaindonesia.Text)
bahasa_inggris = Val(Txt_nilaibahasainggris.Text)
matematika = Val(Txt_nilaimatematika.Text)
nem = (bahasa_indonesia + bahasa_inggris + matematika)
Txt_nem.Text = nem
rataan = (bahasa_indonesia + bahasa_inggris + matematika) / 3
Txt_rataan.Text = rataan
If rataan >= 5 Then
Txt_keterangan.Text = “LULUS”
Else
Txt_keterangan.Text = “TIDAK LULUS”
End If
ULANG:
End Sub
b. Buat code program atau prosedur CMD_ KEMBALI_CLICK dengan double klik pada tombol LAGI dan ketik listing Programnya sebagai berikut :
Private Sub cmd_kembali_Click()
Txt_nilaibahasaindonesia.Text = Empty
Txt_nilaibahasainggris.Text = Empty
Txt_nilaimatematika.Text = Empty
Txt_nem.Text = Empty
Txt_rataan.Text = Empty
Txt_keterangan = Empty
Txt_nilaibahasaindonesia.SetFocus
End Sub
c. Buat code program atau prosedur CMD_KELUAR_CLICK dengan double klik pada tombol KELUAR dan ketik listing Programnya sebagai berikut :
Private Sub cmd_keluar_Click()
End
End Sub
d. Buat code program atau prosedur CMD_INFO_CLICK dengan double klik pada tombol INFO dan ketik listing Programnya sebagai berikut :
Private Sub cmd_info_Click(Index As Integer)
MsgBox (“Program ini adalah program untuk menentukan NEM, rata – rata serta kelulusan siswa yang telah mengikuti Ujian Nasional. Silakan masukkan data dari nilai Bahasa Indonesia, Bahasa Inggris, dan Matematika, lalu klik PROSES”)
End Sub
Bila ingin tau lebih lanjut download disini