Belajar vb 6.0 Perintah OR

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 "NILAI KULIAH MAHASISWA SEMESTER 4"
End Sub


2. Untuk membuat "NILAI, MATA KULIAH, 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 "MATA KULIAH", Setelah itu klik dua kali "COMBOBOX" lalu atur posisinya tepat disamping "MATA KULIAH" setelah itu rubah tulisan "COMBO1" untuk merubahnya cari menu "CAPTION" pada kotak properties yang terletak di sebelah kanan dan rubah namanya menjadi "Basis Data" dan tuliskan program seperti dibawah ini dengan mengklik dua kali "COMBO1"

Text4 = (Val(Text2) * (Val(Text3)))
If Val(Text4) >= 500 And Val(Text3) >= 400 Then
Text5 = "Sedikit"
Else
Text5 = "Banyak"
End If

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

If UCase(Text2) = "A" Or UCase(Text2) = "B" Or UCase(Text2) = "C" Then
Text3 = "LULUS"
Else
Text3 = "NGULANG"
End If


d). 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= " & Text1 & ", Mata Kuliah = " & Combo1 & ", Nilai = " & Text2 & ", Keterangan = " & Text3, vbOKOnly, "NILAI KULIAH SEMESTER 4"
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 = ""
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