1 Membuat program perhitungan nilai
ujian.
Langkah pertama adalah membuat form dengan
ketentuan sebagai berikut.
lalu ubah property nya :
OBJECT PROPERTY VALUE
LABEL1 CAPTION PROGRAM
PERHITUNGAN NILAI
LABEL2 CAPTION NILAI
UTS
LABEL3 CAPTION NILAI
UAS
LABEL4 CAPTION RATA-RATA
LABEL5 CAPTION KETERANGAN
LABEL6 CAPTION GRADE
LABEL7 CAPTION -
LABEL8 CAPTION -
LABEL9 CAPTION -
TEXT1 TEXT -
TEXT2 TEXT -
COMMAND1 CAPTION PROSES
COMMAND2 CAPTION HAPUS
COMMAND3 CAPTION KELUAR
Setelah itu ketikan kode program pada
bagian kode editor
Command1(proses)
Private Sub Command1_Click()
Label7.Caption = (Val(Text1.Text) +
Val(Text2.Text)) / 2
If Label7 > 50 Then
Label8.Caption = "ANDA LULUS !!"
Else
Label8.Caption = "ANDA GAGAL !!"
End If
Select Case Label7.Caption
Case Is >= 90
Label9.Caption = "A"
Case Is >= 80
Label9.Caption = "B"
Case Is >= 70
Label9.Caption = "C"
Case Is >= 60
Label9.Caption = "D"
Case Else
Label9.Caption = "E"
End Select
End Sub
#pada command 1 ini adalah proses
perhitungan, dimana
label7(rata-rata)
adalah hasil dari jumlah bilangan yang ada di text1 dan text2 dengan rumus (val(text1.text)+val(text2.text))/2,
label8(keterangan)
diisi dengan mengunakan statement if dengan ketentuan bila nilai yang ada pada
label7 >= 50, maka label8(keterangan) akan menampilakan tulisan lulus, dan
jika nilai yang berada di label7 tidak lebih dari 50 maka di label8 akan
menampilkan tulisan gagal.
Label9
(grade) diisi dengan mengunakan statement select case dengan acuan nilai
yang ada pada label7(rata-rata) dengan ketentuan
Jika nilai pada label7(rata-rata) >=90
maka label9 akan menampilkan huruf A
Jika nilai pada label7(rata-rata) >=80
maka label9 akan menampilkan huruf B
Jika nilai pada label7(rata-rata) >=70
maka label9 akan menampilkan huruf C
Jika nilai pada label7(rata-rata) >=60
maka label9 akan menampilkan huruf D
Dan jika nilai pada label7(rata-rata) di
bawah 60 maka label9 akan menampilkan huruf E
Command2(hapus)
Private Sub Command2_Click()
Text1.Text = "" untuk
menghapus tulisan di text1
Text2.Text = "" untuk
menghapus tulisan di text2
Label7.Caption = "" untuk menghapus tulisan
di label7(rata-rata)
Label8.Caption = "" untuk menghapus tulisan
di label8(keterangan)
Label9.Caption = "" untuk menghapus tulisan
di label9(grade)
End Sub untuk
mengakhiri command
#comand2 di gunakan untuk menghapus semua
text yang di input user sehingga user bisa memasukan nilai dari awal tanpa
keluar dari program terlebih dahulu.
Command3(keluar)
Private Sub Command3_Click()
End
End Sub
#untuk mengakhiri program
Setelah itu klik icon run untuk menjalankan
program, berikut adalah tampilan ketika program di jalankan
Komentar
Posting Komentar