Belajar visual basic 6.0 If Then

untuk membuat program seperi gambar disamping berikut ini adalah langkah-langkahnya:

1. Buka program vb sobat, setelah itu klik dua kali kotak form lalu rubah "LOAD"menjadi "ACTIVATE" dan tuliskan program sederhana dibawah ini:


Private Sub Form_Activate()
FontSize = 10
ForeColor = vbRed
Alignment = 2
FontBold = True
Print Tab(10); "DAFTAR NILAI MAHAISWA"
End Sub


2. Untuk membuat "nama mahasiswa, nilai uts, CEK, HAPUS dsb seperti gambar disamping yang harus dilakukan adalah sebagai berikut

(a). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "Nama Mahasiswa" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya. Setelah itu klik dua kali "TEXT" dan hapus tulisan "Text1" pada kotak properties yang terdapat disebelah kanan cari menu "Text" dan hapus tulisan "Text1" lalu atur posisinya tepat disamping "Nama Mahasiswa"

(b). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "Nilai UTS", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "Nilai UTS" setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "TEXT2"

Private Sub Text2_Change()
Text4 = (Val(Text2) + (Val(Text3))) / 2
If Val(Text4) >= 60 Then
Text5 = "Lulus"
Else
Text5 = "Ngulang"
End If
End Sub

(c). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "Nilai UAS", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "Nilai UAS" setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "TEXT3"

Private Sub Text2_Change()
Text4 = (Val(Text2) + (Val(Text3))) / 2
If Val(Text4) >= 60 Then
Text5 = "Lulus"
Else
Text5 = "Ngulang"
End If
End Sub

(d). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "TOTAL Nilai", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping ""TOTAL Nilai"

(E). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "KETERANGAN", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "KETERANGAN".

3. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "CEK", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "CEK"

Private Sub Command2_Click()
MsgBox "Nama mahasiswa = " & (Text1) & " , " & (Text5), vbOKOnly, "Nilai Ujian"
End Sub

4. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "HAPUS", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "HAPUS",

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

5. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "SELESAI", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "SELESAI",

Private Sub Command1_Click()
End
End Sub

Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas, selamat mencooba semoga bermanfaat

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya