Tugas 1.2 Membuat Perkalian Dua Bilangan Menggunakan Visual Basic 6.0

Tugas 1.2 Membuat Perkalian Dua Bilangan ( Hanya dengan menekan tombol hitung)

Gambar. Runtime aplikasi perkalian dua bilangan

Berikut adalah source code untuk aplikasi perkalian dua bilangan (dengan menekan tombol hitung untuk mendapatkan hasil) :

Private Sub Command1_Click()
    Text3 = Val(Text1) * Val(Text2)
End Sub

--------------------------------------------------------------------
Private Sub Command2_Click()
    Text1.SetFocus
    Text1 = ""
    Text2 = ""
    Text3 = ""
End Sub
--------------------------------------------------------------------
Private Sub Command3_Click()
    End
End Sub
--------------------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If

End Sub

Related Posts:

Tweet