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 SubCommand1_Click()
End Sub
Masukan program penjumlahan dari b1 dan b2, yang kemudian hasilnya akan muncul pada b3 dengan coding seperti ini.
Private SubCommand1_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.
Ok, Selamat Mencoba.
Jangan Lupa Kritik dan Saran serta Komentar dari teman-teman.
No comments:
Post a Comment
Silahkan tinggalkan pesan, kritik, saran atau informasi link rusak pada kolom komentar