Program Kalkulator

Gambar Tampilan Program:

 

Pengaturan property setiap object-nya adalah sebagai berikut :

Buat kontrol array dari cmdAngka (sebanyak 10 buah) dan dari cmdOperator (sebanyak3 buah). Kemudian atur property caption masing-masing sebagai berikut :

Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :

Dim angka(1 To 2) As Single

Dim operator As String

Private Sub cmdAngka_Click(Index As Integer)

Text1.Text = Text1.Text & cmdAngka(Index).Caption

End Sub

Private Sub cmdOperator_Click(Index As Integer)

If Text1.Text = "" Then Exit Sub

angka(1) = CSng(Text1.Text)

operator = cmdOperator(Index).Caption

Text1.Text = ""

End Sub

Private Sub cmdHitung_Click()

Dim hasil As Single

If Text1.Text = "" Then Exit Sub

angka(2) = CSng(Text1.Text)

Select Case operator

Case "+"

hasil = angka(1) + angka(2)

Case "-"

hasil = angka(1) - angka(2)

Case "*"

hasil = angka(1) * angka(2)

Case "/"

hasil = angka(1) / angka(2)

End Select

Text1.Text = hasil

End Sub

Private Sub cmdHapus_Click()

Text1.Text = ""

End Sub