kalkulator sederhana

Contoh program kalkulator sederhana menggunakan Visual Basic

Aktifkan VB 6 melalui tombol Start. Tambahkan Form baru ke dalam Project. Pada Jendela Form buatlah UI seperti ini :

(Gunakan komponen TextBox dan CommandButton)

Pengaturan property setiap object-nya adalah sebagai berikut :

Object	Properties	Value
Form	BorderStyle Caption StartUpPosition	1 – Fixed Single Kalkulator 2 – Center Screen
Text1	Alignment Text	1 – Right Justify <kosong>
Command1	Name Caption Index	cmdAngka 1 0
Command2	Name Caption	cmdHapus C
Command3	Name Caption Index	cmdOperator + 0
Command4	Name Caption	cmdOperator =

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

Object	Caption
cmdAngka(1) cmdAngka(2) … cmdAngka(10)	2 3 … ,
cmdOperator(1) cmdOperator(2) cmdOperator(3)	- * /

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

Coba jalankan Project :

·        Klik salah satu tombol angka, misalnya 5

·        Klik salah satu tombol operator, misalnya *

·        Klik lagi salah satu tombol angka, misalnya 6

·        Klik tombol =

·        Akan muncul pada TextBox angka 30 (hasil penghitungan 5 * 6)

·        Klik tombol C untuk menghapus isi TextBox