dari status mimpi jadi knyataan

Advertisements

TUGAS 3

DDDDDD

Private Sub cmdBersih_Click()
‘Mengosongkan isi TextBox
txtBil1.Text = “”
txtBil2.Text = “”
txtHasil.Text = “”
End Sub

Private Sub cmdHitung_Click()
‘Deklarasi Variabel Lokal
Dim a As Single
Dim b As Single
Hasil As Single

a = txtBil1.Text
b = txtBil2.Text
Hasil = a * b
txtHasil.Text = Hasil
End Sub

Private Sub cmdKeluar_Click()
‘Mengakhiri Program
End
End Sub

End Sub