Komputer

contoh sedehana visual basis

Private Sub Command1_Click()
Dim b1, b2 As Integer
b1 = Val(harga.Text)
b2 = Val(jumlah.Text)
c1 = b1 * b2
proses.Text = c1
End Sub

Private Sub Command2_Click()
End
End Sub


Private Sub Label1_Click()
Dim Label1 As String
nama = "hanphone"
nama.Text = "handphone"
harga.Text = 1200000
jumlah.Text = 10
End Sub

Private Sub Label2_Click()
Dim Label2 As Integer
harga = 1200000
nama.Text = ""
harga.Text = 1200000
jumlah.Text = ""
End Sub

Private Sub Label3_Click()
Dim Label3 As Integer
jumlah = 10
nama.Text = ""
harga.Text = ""
jumlah.Text = 10
End Sub