Membuat Kalkulator Sederhana Menggunakan MicrosoftVitual Basic 6.0

Hay teman-teman semuanya...

kali ini saya akan membagikan tips bagaimana cara membuat kalkulator yang sangat sederhana menggunakan MVB 6.0

oke kita mulai saja..

1. pertama kita buka dulu MVB 6.0

2. maka akan muncul tampilan sebagai berikut.

jangan lupa untuk memilih standart EXE

maka aka tampil halaman MVB 6.0

kemudian buat  tampilan seperti di bawah ini

kemudian atur komponen yang ada sesuai dengan di bawah ini.

cara untuk mengaturnya, klik kanan lalu pilih properties , maka akan tampil gambar seperti di bawah ini.

Atur properti komponen form1 seperti dalam tabel dibawah ini :

No.	Kontrol	Properties
1.	Commandbutton1	Name : cmd_1Caption : 1
2.	Commandbutton2	Name : cmd_2Caption : 2
3.	Commandbutton3	Name : cmd_3Caption : 3
4.	Commandbutton4	Name : cmd_4Caption : 4
5.	Commandbutton5	Name : cmd_5Caption : 5
6.	Commandbutton6	Name : cmd_6Caption : 6
7.	Commandbutton7	Name : cmd_7Caption : 7
8.	Commandbutton8	Name : cmd_8Caption : 8
9.	Commandbutton9	Name : cmd_9Caption : 9
10.	Commandbutton10	Name : cmd_0Caption : 0
11.	Commandbutton11	Name : cmd_hasilCaption : =
12.	Commandbutton12	Name : cmd_tambahCaption : +
13.	Commandbutton13	Name : cmd_kurangCaption : -
14.	Commandbutton14	Name : cmd_kaliCaption : x
15.	Commandbutton15	Name : cmd_bagiCaption : /
16.	Textbox	Name : txtNumberText :
17.	Label 1	Name : Label1Caption : KALKULATOR SEDERHANA TIKNO

untuk tambahan tombol clear / C cukup kita masukan kode

Private Sub cmd_clear_Click()

mbutton = C

mfirst = Val(txtNumber)

txtNumber = ""

selanjutnya, masukan scrip kode di bawah 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














































oke dech selesai.

selamat mencoba