dari status mimpi jadi knyataan

vb

tugas 5 vb

TUGAS 3

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

foto0993.jpg

Hello world!

Welcome to WordPress.com! This is your very first post. Click the Edit link to modify or delete it, or start a new post. If you like, use this post to tell readers why you started this blog and what you plan to do with it.

Happy blogging!