Tutorial 2 : Membuat Program Tambah dan Kali (Visual Basic)

Buatlah Sebuah form yang terdiri dari :

· 4 Label (Label1, Label2, Label3, Label4)

· 3 TextBox (Text1, Text2, Text3)

· 3 CommandButton (Command1, Command2, Command3)

Langkah-langkah berikutnya setelah membuat Form, lakukan pengeditan pada bagian label.

1. Click label1 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “ Program Tambah dan Kali”

2. Click label2 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “ Angka Pertama”

3. Click label3 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “ Angka Kedua”

4. Click label4 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “ Hasil ”

Kita teruskan dengan mengedit bagian TextBox

5. Click Text1 kemudian perhatikan bagian properties sebelah kanan, pada bagian Text ganti dengan angka nol

6. Click Text2 kemudian perhatikan bagian properties sebelah kanan, pada bagian Text ganti dengan angka nol

7. Click Text3 kemudian perhatikan bagian properties sebelah kanan, pada bagian Text ganti dengan angka nol

Mengedit bagian CommandButton

8. click pada Command1 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “Tambah”

9. click pada Command2 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “Kali”

10. click pada Command3 kemudian perhatikan bagian properties sebelah kanan, pada bagian Caption ganti dengan tulisan “Selesai”.

Maka tampilan form akan terlihat seperti dibawah ini

Mengetikan Program pada CommandButton

11. Double click pada Command 1 atau Tambah, setelah muncul jendela untuk pengetikan script kemudian ketikan program berikut.

Private Sub Command1_Click()

Text3.text = val ( Text1.text ) + val ( Text2.text )

End Sub

12. Double click pada Command2 atau Kali, setelah muncul jendela untuk pengetikan script kemudian ketikan program berikut.

Private Sub Command2_Click()

Text3.text = val ( Text1.text ) * val( Text2.text )

End Sub

13. Double click pada Command3 atau Selesai, setelah muncul jendela untuk pengetikan script kemudian ketikan program berikut.

Private Sub Command3_Click()

Unload Me

End Sub

Langkah terakhir jalankan program, Run -> Start atau cukup dengan menekan tombol F5.

Jangan lupa memyimpan program . Selamat Berlatih !!!

<< Tutorial 1                Tutorial 3 >>

Posted in: Pemrograman,Tutorial