Belajar vb 6. Perintah LIKE

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 = 4
FontBold = True
Print "NILAI UJIAN MAHASISWA"
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 Labeldan 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 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 "TEXT2"

Text4 = (Val(Text2) + (Val(Text3))) / 2
If Val(Text4) Like 100 Then Text5 = "BAGUS" Else Text5 = "CUKUP BAGUS".

(c). 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 UAS" setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "TEXT2"

Text4 = (Val(Text2) + (Val(Text3))) / 2
If Val(Text4) Like 100 Then Text5 = "BAGUS" Else Text5 = "CUKUP BAGUS".

(d). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "TOTAL", Setelah itu klik dua kali "TEXT NILAI" 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 Command1_Click()
Dim sResponse As String
sResponse$ = InputBox("Tuliskan nama di bawah ini")
MsgBox "NAMA= " & sResponse$ & " ,NILAI UJIAN= " & (Text5), vbOKOnly, "NILAI UJIAN MAHASISWA"
Unload Me
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