Tugas 1.3 Membuat Perkalian Dua Bilangan Menggunakan Visual Basic 6.0

Tugas 1.3 Membuat perkalian dua bilangan ( untuk mendapatkan hasilnya, dapat menekan tombol enter atau dengan meng klik tombol hitung yang ada pada aplikasi )

Gambar. Runtime aplikasi perkalian dua bilangan

Berikut merupakan source code untuk aplikasi perkalian dua bilangan

Private Sub Batal_Click()

    Txtn1.SetFocus

    Txtn1 = ""

    Txtn2 = ""

    Txthasil = ""

End Sub

-----------------------------------------------------------------

Private Sub Hitung_Click()

    Txthasil = Val(Txtn1) * Val(Txtn2)

End Sub

-----------------------------------------------------------------

Private Sub Keluar_Click()

    End

End Sub

-----------------------------------------------------------------

Private Sub Txtn1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    Txtn2.SetFocus

    End If

End Sub

-----------------------------------------------------------------

Private Sub Txtn2_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    Hitung.SetFocus

    Txthasil = Val(Txtn1) * Val(Txtn2)

    End If

End Sub

Related Posts:

Tweet