Membuat Kalkulator Sederhana
Kali ini kita akan membuat kalkulator yang sangat sederhana dengan menggunakan visual basic 6.0.Untuk mempersingkat waktu mari langsung saja kita lakukan.
1.Langkah Pertama
Bukalah sebuah proyek visual basic 6.0 dengan menggunakan standard exe.
2.Tampilan form
Setelah anda membuka visual basic 6.0 standard exe maka anda akan melihat tampilan form seperti ini.
3.Objek
Setelah membuat form maka tambahkanlah objek sebagai berikut:
1. 4 buah command button
2. 3 buah label
3. 3 buah text box
Dan atur properties nya sebagai berikut:
| 4 Buah command button | 1.Ganti masing-masing caption dengan + - * / satu command button 1 lambang 2.Ganti masing-masing name menjadi cmdtambah,cmdkurang,cmdkali,cmdbagi harus sesuai dengan caption. |
| 3 Buah label | 1.Untuk label jangan ganti namenya kita menggunakan name yang standard (tidak di rubah) 2.Ganti masing-masing caption menjadi nilai1=,nilai2=,hasil=. |
| 3.Buah textbox | 1.Ganti masing-masing name menjadi txtnilai1,txtnilai2,txthasil text box ini harus di letakkan sejajar dengan label yang sebelumnya,seperti label nilai1= harus sejajar dengan txtnilai1,dan begitu juga dengan ke dua textbox yang lain hal ini dilakukan agar kita mudah untuk mengingatnya. 2.kosongkan text di setiap textbox |
NB:Perhatikan dengan cermat properties di atas apabila anda salah memasukkan name atau caption maka project ini tidak akan berjalan.
4.menghias objek
1. 1. Jika anda ingin meletakkan gambar sebagai background form dengan cara klik properties picture dan browser lah gambar yang ingin anda masukkan pastikan yang anda seleksi adalah form.
2. 2. Mengganti warna pada command button yaitu dengan klik properties style ubah dari standard menjadi grapichal,setelah style diganti klik lagi properties backcolor sesuai dengan warna keinginan anda.
3. 3.Untuk mengganti background pada label & textbox klik properties backcolor dengan warna yang anda inginkan.
4
1. 4.Dan untuk mengganti jenis tulisan klik properties font dan silahkan ganti jenis tulisan dengan tulisan yang anda inginkan.
5.Koding proyek
Nah inilah bagian yang paling ditunggu-tunggu yaitu koding (listing) dari proyek ini.
Nah ini dia koding proyeknya.
Dim nilai1 As Integer, nilai2 As Integer, hasil As Single
Private Sub cmdbagi_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 / nilai2
txthasil.Text = hasil
End Sub
Private Sub cmdkali_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 * nilai2
txthasil.Text = hasil
End Sub
Private Sub cmdkurang_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 - nilai2
txthasil.Text = hasil
End Sub
Private Sub cmdtambah_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 + nilai2
txthasil.Text = hasil
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim answer As Integer
answer = MsgBox("apakah anda sudah selesai & ingin keluar?", vbQuestion + vbYesNo, "confirmation")
If answer = vbNo Then Cancel = -1
End Sub
Dan inilah Hasil dari proyek yang telah anda buat.
