Komputer

Contoh Sederhana Hasil dari Visual Basic

Private Sub Command1_Click()
Dim b1, b2, b33 As Integer
b1 = Val(buku.Text)
b2 = Val(pensil.Text)
b3 = Val(penghapus.Text)
h = b1 + b2 + b3
total.Text = h
End Sub

Private Sub Label1_Click()
Dim Label1 As Integer
buku = 1000
buku.Text = 1000
pensil.Text = 500
penghapus.Text = 1500
End Sub

Private Sub Label2_Click()
Dim Label2 As Integer
pensil = 500
buku.Text = 1000
pensil.Text = 500
penghapus.Text = 1500
End Sub

Private Sub Label3_Click()
Dim Label3 As Integer
penghapus = 1000000
buku.Text = ""
pensil.Text = ""
penghapus.Text = 20000
End Sub