Belajar vb 6.0 membuat Total nilai bergambar

Untuk membuatnya seperti gambar disamping ini ikuti langkahnya satu persatu:

1. Bukalah program visual basic 6.0 sobat, setelah itu klik dua kali "IMAGE" yang terletak disebelah kiri kotak form, aturlah posisi lebar dan tingginya sesuai keinginan sobat, lalu dalam kotak properties yang terletak disebelah kanan carilah "PICTURE" lalu klik dan pilih gambar yang tersedia di komputer sobat,

2. klik dua kali "LABEL" dan ubah namanya menjadi "NAMA MAHASISWA" untuk merubahnya yaitu dengan mencari "CAPTION' pada kotak properties yang berada disebelah kanan, lalu klik dua kali lagi "TEXBOX" dan ubah nama namanya menjadi "TULISKAN NAMA DISINI" untuk merubahnya caranya sama dengan diatas.

3. klik dua kali "LABEL" dan ubah namanya menjadi "NAMA MAHASISWA", setelah itu klik dua kali "COMBOBOX" pada kotak "PROPERTIES" carilah menu "CAPTION" dan tuliskan "pria" dimenu caption.

4. klik dua kali "LABEL" dan ubah namanya menjadi "NILAI PRAKTEK", lalu klik dua kali lagi "TEXBOX" dalam menu "CAPTION" di kotak poperties jangan ditulis apa-apa kosongkan saja".

5. klik dua kali "LABEL" dan ubah namanya menjadi "NILAI TEORI", lalu klik dua kali lagi "TEXBOX" dalam menu "CAPTION" di kotak poperties jangan ditulis apa-apa kosongkan saja.

6. klik dua kali "LABEL" dan ubah namanya menjadi "TOTAL NILAI", lalu klik dua kali lagi "TEXBOX" dalam menu "CAPTION" di kotak poperties jangan ditulis apa-apa kosongkan saja.

7. klik dua kali "COMMANDBUTTON" dan ubah namanya menjadi "OK", untuk merubahnya sama caranya dengan nomer 2.

8. Tuliskan program dibawah ini yaitu dengan mengklik pada bagian gambar yang terdapat pada kotak form lalu rubah "IMAGE1" menjadi "FORM" dan 'CLICK" menjadi "LOAD" yaitu dengan cara mengkliknya dan memindahkannya pada kotak "PROJECT FORM (CODE)" yang terdapat di bagian atas

Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "wanita"
End Sub

9. Tuliskan kembali program dibawah ini yaitu dengan mengklik dua kali "TEXT2"

Private Sub Text2_Change()
Text4 = (Val(Text2) + Val(Text3)) / 2
End Sub

10. Tuliskan kembali program dibawah ini yaitu dengan mengklik dua kali "TEXT3"

Private Sub Text2_Change()
Text4 = (Val(Text2) + Val(Text3)) / 2
End Sub

11. Tuliskan kembali program dibawah ini yaitu dengan mengklik dua kali "COMMANDBUTTON" yang dirubah namanya tadi menjadi "OK"

Private Sub Command1_Click()
End
End Sub


Selesai, sekarang jalankan programnya dan isikan angka-angka sesuai keinginan sobat pada kolom text2 dan text3, sobat juga bisa mengembangkan program sederhana ini sesuai kemampuan yang dimiliki selamat mencoba semoga bermanfaat.

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya