Membuat Kalkulator Sederhana Dengan VB 6.0

Unknown 21.49 Tips Trick , Tutorial , VB 6 1 komentar

Kalkulator merupakan salah satu aplikasi penunjang kebutuhan kerja kita. Aplikasi yang selama ini kita gunakan untuk membantu dalam hal menghitung angka-angka yang cukup rumit sehingga dapat memudahkan pekerjaan kita. Namun pernahkah terfikirkan untuk membuat aplikasi kalkulator?? Di kesempatan ini kita akan membahas secara lengkap cara membuat kalkulator sederhana menggunakan Visual Basic 6.0

1.Langkah pertama kita buka Microsoft Visual Basic 6.0 dan akan muncul jendela seperti berikut

gambar 1

2. Pilih Standar EXE kemudian klik Open dan akan muncul jendela seperti berikut

gambar 2

Di sini saya tidak akan menjelaskan Tools yang ada di VB 6 karena saya hanya akan membahas pembuatan kalkulator. Next ke step berikutnya.

3. Buat Kontrol atur properties seperti di bawah ini

Form 1 :

Caption : KALKULATOR

Label 1 :

Name : label1
Caption : Aplikasi Kalkulator Sederhana

Label 2 :

Name : lblHasil

Textbox 1 :

Name : txtData1

Textbox 2 :

Name : txtData2

Command Button 1 :

Name : cmdTambah
Caption : +

Command Button 2 :

Name : cmdKurang
Caption : -

Command Button 3 :

Name : cmdKali
Caption : *

Command Button 4 :

Name : cmdBagi
Caption : /

Command Button 5 :

Name : cmdHapus
Style : 1-Graphical
Picture : (Pilih Sesuai Selera)

Dan ketika disusun ke dalam desain form hasilnya kira-kira seperti ini

gambar 3

Anda juga bisa mengatur sesuai dengan desain yang anda inginkan
Sekarang kita mulai mengatur script agar sesuai dengan yang kita inginkan

5. Klik 2 kali pada button tambah dan isikan script ini :

Private Sub cmdTambah_Click()
lblHasil.Caption = Val(txtData1.Text) + Val(txtData2.Text)
End Sub

6. Klik 2 kali pada button kurang dan isikan script ini :

Private Sub cmdKurang_Click()
lblHasil.Caption = Val(txtData1.Text) - Val(txtData2.Text)
End Sub

7. Klik 2 kali pada button bagi dan isikan script ini :

Private Sub cmdBagi_Click()
lblHasil.Caption = Val(txtData1.Text) / Val(txtData2.Text)
End Sub

8. Klik 2 kali pada button kali dan isikan script ini :

Private Sub cmdKali_Click()
lblHasil.Caption = Val(txtData1.Text) * Val(txtData2.Text)
End Sub

9. Klik 2 kalik pada button hapus dan isikan script ini :

Private Sub cmdHapus_Click()
txtData1.Text = ""
txtData2.Text = ""
lblHasil.Caption = ""
End Sub

Ada 3 opsi untuk menguji aplikasi yang baru saja kita buat :
1. Tekan F5
2. Buka menu Run kemudian klik Start
3. Tekan tombol Start di bagian toolbar atas

Jika tidak ada masalah maka aplikasi akan berjalan seperti berikut

gamabar 4

Jangan lupa simpan project anda. Jumlah file yang akan di simpan ada dua, yaitu file Project dan file Form. Semakin banyak form yang kita buat dalam satu project maka akan semakin banyak pula file form yang akan kita simpan. Namun karena kita hanya membuat satu project dan satu form maka kita hanya menyimpan dua file.

File yang ada tadi masih berekstensi Visual Basic Project dan Visual Basic Form. Untuk membuat file executable atau file berekstensi .exe, ada beberapa langkah yang harus kita lakukan.

1. Buka menu File
2. Pilih Make project1.exe...
3. Tunggu proses dan Aplikasi kalkulator sudah berekstensi .exe dan bisa dibuka tanpa menggunakan software Visual Basic