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 :
Atribut
Caption
Name
Command1
&Hitung
Cmdhitung
Command2
&Hapus
Cmdhapus
Command2
&Keluar
Cmdkeluar
Label1
RUMUS PERKALIAN
Label1
Label2
Bilangan Pertama
Txtbil1
Label3
Bilangan Kedua
Txtbil2
Label1
Hasil
txtbilhasil

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

Postingan populer dari blog ini

MEMASUKAN PRESET KAMERA RAW KE ADOBE PHOTOSHOP CC

CARA MEMBUAT LOGO PLN DI COREL DRAW

MEMBUAT LOGO SCTV DI COREL DRAW