program perhitungan nilai sederhana dengan VB6.0

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