Pages

Sabtu, 09 April 2011

Cara membuat calculator di visual basic 6.0

Untuk membuat sebuah aplikasi kalkulator sebenarnya tidak lah sulit,asalkan kita mau berusaha untuk mencoba membuat nya.
Chandra akan membagikan sedikit ilmu tentang bagaimana cara membuat kalkulator sederhana,berkut langkah langkahnya:
1.sobat buka software visual basic 6.0
2.Dalam tampilan visual basic 6.0 langkah awal sobat arahkan kursor pada kotak dialog toolbox dan pilih pada icon textbox


















3.masukan 3 buah textbox ke dalam form seperti gambar di bawah ini:


















4.setelah 3 box di masukan kemudian kembali ke toolbox lalu masukan 1 buah label seperti gambar di bawah:


















5.setelah 1 label di masukan,lalu letakan label tersebut diantara textbox1 dan text box2:


















6.kemudian sobat masukan 5 buah command bottom pada kotak dialog toolbox:


















7.setelah command 5 buah command bottom di masukan,berikut pengkodean sintaxnya:

Kalian rubah perintah berikut di dalam kotak dialog properties:
- Private Sub textbox1_Change()
(name):txt1
Text:kosongkan
- Private Sub textbox2_Change()
(name):txt2
Text:kosongkan
-Private Sub textbox3_Change()
(name):txt3
Text:kosongkan
-private sub command bottom1_change()
(name):cmd1
Caption:+
-private sub command bottom2_change()
(name):cmd2
Caption: -
-private sub command bottom3_change()
(name):cmd3
Caption: *
-private sub command bottom4_change()
(name):cmd4
Caption:/
-private sub command bottom1_change()
(name):cmd5
Caption:HAPUS


8.setelah sobat mengetikan perintah seperti di atas,lalu kalian ketikan sintax kode berikut:

-Untuk penjumlahan:
Private Sub cmd1_Click()
Txt3.text = val(txt1.text) + (txt2.text)
Label1.caption = “+”
End Sub
-untuk pengurangan:
Private Sub cmd2_Click()
Txt3.text = val(txt1.text) - (txt2.text)
Label1.caption = “-”
End Sub
-untuk pengkalian:
Private Sub cmd3_Click()
Txt3.text = val(txt1.text) * (txt2.text)
Label1.caption = “*”
End Sub
-untuk pembagian:
Private Sub cmd4_Click()
Txt3.text = val(txt1.text) / (txt2.text)
Label1.caption = “/”
End Sub
-untuk menghapus:
Private Sub cmd5_Click()
Txt1.text = “ “
Txt2.text = “ “
Txt3.text = “ “
End Sub

9.setelah semuanya sudah di lakukan coba sobat pilih icon running :




Kalau berhasil jangan lupa ucapkan Alhamdulillah.

1 komentar:

 
[tutup]