Berikut
ini saya akan membuat sebuah program perhitungan sederhana dengan visual basic
6.0. kali ini saya akan menggunakan Operator Aritmatika karena aplikasi yang
akan saya buat adalah untuk melakukan perhitungan.
Operator
Aritmatika digunakan untuk proses operasi aritmatika. Kali ini yang akan saya
gunakan adalah sebagai berikut :
|
Operator
|
Operasi
|
|
+
|
Penjumlahan
|
|
-
|
Negatif
/ Pengurangan
|
|
*
|
Perkalian
|
|
/
|
Pembagian
|
Langkah
pertama, kita buat New Project standard exe
Berikut
akan muncul tampilan seperti ini:
Tambahkan
komponen – komponen : 3 Komponen Label, 3 Komponen Textbox dan 6 Komponen
Button. Yang terdapat pada Toolbox General. Sehingga tampilannya menjadi
seperti ini:
Pada
komponen label 1, ganti properti [Caption] dengan Bilangan I, label 2 ganti
properti [Caption] dengan Bilangan II, lalu label 3 ganti properti [Caption]
dengan Jumlah
Pada
Komponen Textbox1, Isikan Property [Name] dengan B1 dan Property [Text]
dikosongkan. Pada Komponen Textbox2, Isikan Property [Name] dengan B2 dan
Property [Text] dikosongkan. Pada Komponen Textbox3, Isikan Property [Name]
dengan B3 dan Property [Text] dikosongkan.
Pada
Komponen Command1, ganti Property [Caption] dengan Tambah. Pada Komponen
Command2, ganti Property [Caption] dengan Kurang. Pada Komponen Command3, ganti
Property [Caption] dengan Kali, Pada Komponen Command4, ganti Property
[Caption] dengan Bagi. Pada Komponen Command5, ganti Property [Caption] dengan Pangkat
2. Pada Komponen Command 6, ganti Property [Caption] dengan Keluar. Sehingga
form akan menjadi seperti ini:
Klik
double pada command1 (Tambah), sampai muncul tampilan script event
command_click
Private Sub
Command1_Click()
End Sub
Masukan
program penjumlahan dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3
dengan coding seperti ini.
Private Sub
Command1_Click()
a = Val(b1)
b = Val(b2)
c = a + b
b3 = c
End Sub
"Val
merupakan fungsi yang digunakan untuk mengkonversi tipe data string atau
variant pada Textbox menjadi tipe data Numerik sehingga dapat dihiitung dengan
Operasi Aritmatika."
Selanjutnya
kita klik dobel lagi pada Command2 (Kurang) sehingga muncul tampilan script
peritah dari even command_click
Private
Sub Command2_Click()
End
Sub
Masukan
program pegurangan dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3
dengan coding seperti ini
Private
Sub Command2_Click()
a
= Val(b1)
b
= Val(b2)
c
= a - b
b3
= c
End
Sub
Selanjutnya
kita klik dobel lagi pada Command3 (Kali) sehingga muncul tampilan script
peritah dari even command_click
Private
Sub Command3_Click()
End
Sub
Masukan
program perkalian dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3
dengan coding seperti ini.
Private
Sub Command3_Click()
a
= Val(b1)
b
= Val(b2)
c
= a * b
b3
= c
End
Sub
Selanjutnya
kita klik dobel lagi pada Command2 (Kurang) sehingga muncul tampilan script
peritah dari even command_click
Private
Sub Command4_Click()
End
Sub
Masukan
program pembagian dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3
dengan coding seperti ini.
Private
Sub Command4_Click()
a
= Val(b1)
b
= Val(b2)
c
= a / b
b3
= c
End
Sub
Selanjutnya
kita klik dobel lagi pada Command5 (Pangkat 2) sehingga muncul tampilan script
peritah dari even command_click
Private
Sub Command5_Click()
End
Sub
Masukan
program pangkat 2 dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3
dengan coding seperti ini.
Private
Sub Command5_Click()
a
= Val(b1)
b
= Val(b2)
c
= a + b
b3
= c ^ 2
End
Sub
Selanjutnya
kita klik dobel lagi pada Command6 (Keluar) sehingga muncul tampilan script
peritah dari even command_click
Private
Sub Command6_Click()
End
Sub
Masukan
program Fungsi End, untuk menutup windows dari aplikasi yang kita buat sehingga
akan menjadi seperti ini
Private
Sub Command6_Click()
End
End
Sub
Nah
pada langkah ini maka project sudah selesai kita buat untuk mencoba project
ini, cukup dengan menekan F5 lalu cobalah mengisi bilangan I dan Bilangan II
lalu klik tombol tambah, kurang, kali, bagi dan pangkat dua. Bila hasilnya
benar maka project yang kita buat sudah sempurna.
Pada
langkah berikut, teman-teman dapat menyimpannya, untuk menyimpannya bisa
melalui menu File kemudian save Project.
Silahkan ganti nama project dan simpan difolder yang teman-teman inginkan.
