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 |
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)
