Cara Membuat Aplikasi Kalkulator Dengan Menggunakan Visual Basic 6.0

Saya akan membahas tentang Cara Membuat Aplikasi Kalkulator Dengan Menggunakan Visual Basic 6.0 . Pertama-tama buka Microsoft Visual Basic 6.0. Buat Project baru , pilih Standard EXE.
Ini adalah Tampilan awal Microsoft Visual Basic 6.0

Kita Desain Tampilan Aplikasi Kalkulator nya seperti gambar dibawah ini :

Yang kita butuhkan yaitu;

• Label
• TextBox
• Command Button

Kemudian ubah  Name & Caption pada Label, Textbox dan CommandButton tersebut

Component	Name	Caption
Label1	Label1	Kalkulator
Textbox	txt_layar	(Text dikosongkan)
CommandButton1	cmb_1	1
CommandButton2	cmb_2	2
CommandButton3	cmb_3	3
CommandButton4	cmb_4	4
CommandButton5	cmb_5	5
CommandButton6	cmb_6	6
CommandButton7	cmb_7	7
CommandButton8	cmb_8	8
CommandButton9	cmb_9	9
CommandButton10	cmb_0	0
CommandButton11	cmb_titik	.
CommandButton12	cmb_hasil	=
CommandButton13	cmb_kali	*
CommandButton14	cmb_tambah	+
CommandButton15	cmb_kurang	-
CommandButton16	cmb_bagi	/
CommandButton17	cmb_ce	CE

CommandButton18

cmb_c

C

Kemudian masukan codingnya dengan cara pilih view -> code . Masukan codingnya seperti dibawah ini :

Coding	Keterangan
Dim mfirst As Single Dim msecond As Single Dim manswer As Single Dim mbutton As Integer	General
Private Sub cmb_0_Click() txt_layar = txt_layar + "0" End Sub	Coding pada CommandButton ( 0 )
Private Sub cmb_1_Click() txt_layar = txt_layar + "1" End Sub	Coding pada CommandButton ( 1 )
Private Sub cmb_2_Click() txt_layar = txt_layar + "2" End Sub	Coding pada CommandButton ( 2 )
Private Sub cmb_3_Click() txt_layar = txt_layar + "3" End Sub	Coding pada CommandButton ( 3 )
Private Sub cmb_4_Click() txt_layar = txt_layar + "4" End Sub	Coding pada CommandButton ( 4 )
Private Sub cmb_5_Click() txt_layar = txt_layar + "5" End Sub	Coding pada CommandButton ( 5 )
Private Sub cmb_6_Click() txt_layar = txt_layar + "6" End Sub	Coding pada CommandButton ( 6 )
Private Sub cmb_7_Click() txt_layar = txt_layar + "7" End Sub	Coding pada CommandButton ( 7 )
Private Sub cmb_8_Click() txt_layar = txt_layar + "8" End Sub	Coding pada CommandButton ( 8 )
Private Sub cmb_9_Click() txt_layar = txt_layar + "9" End Sub	Coding pada CommandButton ( 9 )
Private Sub cmb_bagi_Click() mbutton = 4 mfirst = Val(txt_layar) txt_layar = "" End Sub	Coding pada CommandButton ( / )
Private Sub cmb_c_Click() txt_layar.Text = Left(txt_layar.Text, Len(txt_layar.Text) - 1) End Sub	Coding pada CommandButton ( C )
Private Sub cmb_ce_Click() txt_layar.Text = "" End Sub	Coding pada CommandButton ( CE )
Private Sub cmb_hasil_Click() msecond = Val(txt_layar) 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 txt_layar = manswer End Sub	Coding pada CommandButton ( = )
Private Sub cmb_kali_Click() mbutton = 3 mfirst = Val(txt_layar) txt_layar = "" End Sub	Coding pada CommandButton ( * )
Private Sub cmb_kurang_Click() mbutton = 2 mfirst = Val(txt_layar) txt_layar = "" End Sub	Coding pada CommandButton ( - )
Private Sub cmb_tambah_Click() mbutton = 1 mfirst = Val(txt_layar) txt_layar = "" End Sub	Coding pada CommandButton ( + )
Private Sub cmb_titik_Click() txt_layar = txt_layar + "." End Sub	Coding pada CommandButton ( . )

Kemudian Running Program dengan cara Run -> Start , atau klik tombol F5.
Hasil nya akan seperti berikut ini,

Sekian pembahasan dari Saya tentang Cara Membuat Aplikasi Kalkulator Dengan Menggunakan Visual Basic 6.0 
Terima kasih :-)

Untuk Contoh Aplikasi nya bisa di unduh disini :
- Aplikasi Kalkulator (Via 4Shared)
- Aplikasi Kalkulator (Via Mediafire)