Membuat Kalkulator Sederhana dengan Visual Basic 6.0

Membuat Calculator (Mesin Hitung) Sederhana dengan Visual Basic 6.0

Program computer yang sudah sering kita dengar adalah membuat kalkulator (mesin hitung elektronik). Berikut adalah tutorial untuk membuat aplikasi kalkulator sederhana dengan VB 6.0 :

Jalankan Aplikasi VB 6.0

Desain Form1 seperti berikut ini

Atur properti komponen form1 seperti dalam tabel dibawah ini :

No.	Kontrol	Properties
1.	Commandbutton1	Name : cmd_1 Caption : 1
2.	Commandbutton2	Name : cmd_2 Caption : 2
3.	Commandbutton3	Name : cmd_3 Caption : 3
4.	Commandbutton4	Name : cmd_4 Caption : 4
5.	Commandbutton5	Name : cmd_5 Caption : 5
6.	Commandbutton6	Name : cmd_6 Caption : 6
7.	Commandbutton7	Name : cmd_7 Caption : 7
8.	Commandbutton8	Name : cmd_8 Caption : 8
9.	Commandbutton9	Name : cmd_9 Caption : 9
10.	Commandbutton10	Name : cmd_0 Caption : 0
11.	Commandbutton11	Name : cmd_hasil Caption : =
12.	Commandbutton12	Name : cmd_tambah Caption : +
13.	Commandbutton13	Name : cmd_kurang Caption : -
14.	Commandbutton14	Name : cmd_kali Caption : x
15.	Commandbutton15	Name : cmd_bagi Caption : /
16.	Textbox	Name : txtNumber Text :
17.	Label 1	Name : Label1 Caption : Timoresse Kalkulator

Masukan script kode program berikut ini :

Dim mfirst As Single

Dim msecond As Single

Dim manswer As Single

Dim mbutton As Integer

Private Sub cmd_0_Click()

txtNumber = txtNumber + "0"

End Sub

Private Sub cmd_1_Click()

txtNumber = txtNumber + "1"

End Sub

Private Sub cmd_2_Click()

txtNumber = txtNumber + "2"

End Sub

Private Sub cmd_3_Click()

txtNumber = txtNumber + "3"

End Sub

Private Sub cmd_4_Click()

txtNumber = txtNumber + "4"

End Sub

Private Sub cmd_5_Click()

txtNumber = txtNumber + "5"

End Sub

Private Sub cmd_6_Click()

txtNumber = txtNumber + "6"

End Sub

Private Sub cmd_7_Click()

txtNumber = txtNumber + "7"

End Sub

Private Sub cmd_8_Click()

txtNumber = txtNumber + "8"

End Sub

Private Sub cmd_9_Click()

txtNumber = txtNumber + "9"

End Sub

Private Sub cmd_bagi_Click()

mbutton = 4

mfirst = Val(txtNumber)

txtNumber = ""

End Sub

Private Sub cmd_hasil_Click()

msecond = Val(txtNumber)

Select Case mbutton

Case Is = 1

manswer = mfirst + msecond

Case Is = 2

manswer = mfirst - msecond

Case Is = 3

manswer = mfirst * msecond

Case Is = 4

manswer = mfirst / msecond

End Select

txtNumber = manswer

End Sub

Private Sub cmd_kali_Click()

mbutton = 3

mfirst = Val(txtNumber)

txtNumber = ""

End Sub

Private Sub cmd_kurang_Click()

mbutton = 2

mfirst = Val(txtNumber)

txtNumber = ""

End Sub

Private Sub cmd_tambah_Click()

mbutton = 1

mfirst = Val(txtNumber)

txtNumber = ""

End Sub