TUGAS VISUAL BASIC 2: MEMBUAT PROGRAM 2 BILANGAN Part 2

TUGAS VISUAL BASIC 2: MEMBUAT PROGRAM 2 BILANGAN Part 2

Posted: 8 Januari 2013 in Visual Basic
Kaitkata:belajar visual basic, Visual Basic

0

Hay sob, klo tadi kita Cuma buat program perkalian aja, tapi sekarang ane mau nambahin lagi program nya menjadi pertambahan, perkalian, pengurangan dan pembagian. Oke gk usah berlama – lama mari kita mulai…

1. Seperti biasa buka dulu program visual basic nya
2. Buat lah form seperti berikut (sobat semua pasti dh tau caranya buatnya)…. 

 

3. Dobel klik pada text1, lalu masukkan Rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4. Dobel klik pada command1, lalu masukkan rumus berikut:

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

5. Dobel klik pada command2, lalu masukkan rumus berikut:

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

6. Dobel klik pada command3, lalu masukkan rumus berikut:

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

7. Dobel klik pada command4, lalu masukkan rumus berikut:

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

8. Dobel klik pada command5, lalu masukkan rumus berikut:

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

9. Dobel klik pada command6, lalu masukkan rumus berikut:

Private Sub Command6_Click()

End

End Sub

10. Selesai, kalian telah membuat kalkulator bilangan..

Hasilnya adalah sebagai berikut: