CARA MEMBUAT PROGRAM PERKALIAN SEDERHANA PADA VISUAL BASIC

Untuk cara-cara nya simak langkah- langkah sebagai berikut :

1. Masukkanlah 4 buah label, 3 buah teks box, dan 3 buah command..

2. Buatlah field – field sebagai berikut :

3. Klik 2x pada command hitung lalu tuliskan scrip sebagai berikut :

Private Sub cmdhitung_Click(Index As Integer)

Dim bil1, bil2, bilhasil

bil1 = Val(txtbil1.Text)

bil2 = Val(txtbil2.Text)

bilhasil = bil1 * bil2

txtbilhasil.Text = bilhasil

End Sub

4. Untuk command hapus tuliskan scrip sebagai berikut :

Private Sub cmdhapus_Click(Index As Integer)

txtbil1.Text = ""

txtbil2.Text = ""

txtbilhasil.Text = ""

txtbil1.SetFocus

End Sub

5. Kemudian untuk command keluar yaitu sbb :

Private Sub Cmdkeluar_Click()

End

End Sub

6. Jalankan program anda

Berbagi Pengetahuan