Kini kita akan membuat program kalkulator / penghitung untuk memudahkan kita dalam menghitung sesuatu, baik dalam jbesar maupun kecil. Dalam dunia bisnis penghitungan adalah hal yang harus dipelajari karena untuk manghitung pendapatan, pengeluaran, laba, maupum rugi, dan lain-lainnya.
Dengan Visual Basic semuanya bisa mudah...!
Langsung aja yaaa buatnya...!
1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sesuai dengan tabel dibawah ini.
| Jenis kontrol | Nama Kontrol | Properties | Nilai |
|---|---|---|---|
| Form | Form1 | Caption | Kalkulator |
| Label | Label1 | Caption | Bilangan Pertama |
| Label2 | Operator | ||
| Label3 | Bilangan Kedua | ||
| Label4 | Hasil | ||
| CommandButton | Button1 | Caption | Hitung |
| Name | |||
| Button2 | Caption | Hapus | |
| Name | |||
| ComboBox | Combo1 | Name | Operator |
2. Susunlah kontrol-kontrol tersebut sehingga tampak pada gambar disamping.3.Ketikkan kode listing berikut pada kode editor.
Private Sub Form_Load()
Combo1.AddItem "+ (Tambah)"
Combo1.AddItem "- (Kurang)"
Combo1.AddItem "* (Kali)"
Combo1.AddItem "/ (Bagi)"
End Sub
Private Sub hapus_Click()
bil1=""
bil2=""
Combo1=""
hasil=""
End Sub
Private Sub hitung_Click()
If Combo1.Text="+ (Tambah)" then
hasil.Text=Val(bil1.Text) + Val(bil2.Text)
elseIf Combo1.Text="- (Kurang)" then
hasil.Text=Val(bil1.Text) - Val(bil2.Text)
elseIf Combo1.Text="* (Kali)" then
hasil.Text=Val(bil1.Text) * Val(bil2.Text)
elseIf Combo1.Text="/ (Bagi)" then
hasil.Text=Val(bil1.Text) / Val(bil2.Text)
End If
End Sub
4. Simpan Form dan Project tersebut
5. Jalankan program kalkulator tersebut. Kalkulator buatan sendiri siap digunakan untuk memudahkan penghitungan. Cara menjalankan program tersebut sama dengan menjalankan program-program lainnya. Cukup tekan F5 pada keyboard.
Selamat Mencoba.....!

Comments :
0 komentar to “Membuat Kalkulator Sendiri Dengan VB”
Posting Komentar