Desain dan Koding Program aplikasi kalkulator memakai VB 6.0

Private Sub cmdbagi_Click()

txthasil = Val(txtnilai1) / Val(txtnilai2)

End Sub

Private Sub cmdclear_Click()

txtnilai1.Text = ""

txtnilai2.Text = ""

txthasil.Text = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdkali_Click()

txthasil = Val(txtnilai1) * Val(txtnilai2)

End Sub

Private Sub cmdkurang_Click()

txthasil = Val(txtnilai1) - Val(txtnilai2)

End Sub

Private Sub cmdtambah_Click()

txthasil = Val(txtnilai1) + Val(txtnilai2)

End Sub