Operasi Aritmatika
- ..
Berikut adalah contoh program menggunakan subprogram SUB dan FUNCTION. Program ini dibuat untuk menjalankan operasi aritmatika. Selain menggunakan subprogram SUB dan FUNCTION, program ini juga akan menggunakan fungsi percabangan (SELECT CASE). Langkah-langkah membuat program ini adalah sebagai berikut :
Pertama, bukalah terlebih dahulu program Visual Basic 2008 untuk membuat program ini. Buatlah proyek baru dan beri nama pada proyek tersebut. (Gambar 1.1)
Gambar 1.1
Kedua, buatlah design Form Anda menyerupai Gambar 2.1.
Gambar 2.1
Ketiga, click ComboBox Anda agar kotak Properties ComboBox Anda muncul. Pada bagian Items, klik tombol 
untuk menambahkan Items ke dalam ComboBox Anda. Ketikkan operasi-operasi artimatikanya, seperti : Penambahan, Pengurangan, Pengalian, Pembagian, Pemangkatan, dan Perbandingan. (Gambar 3.1)
Keempat, double-click pada ComboBox Anda. Maka akan muncul subprogram untuk ComboBox1_SelectedIndexChanged. Pada subprogram tersebut ketikkan kode program seperti berikut :
Setelah itu, Anda telah selesai membuat program ini. Anda dapat menekan F5 pada keyboard Anda atau Anda juga dapat menekan tombol 
(Debug). Maka akan terlihat contoh hasil proses programnya seperti berikut :
untuk menambahkan Items ke dalam ComboBox Anda. Ketikkan operasi-operasi artimatikanya, seperti : Penambahan, Pengurangan, Pengalian, Pembagian, Pemangkatan, dan Perbandingan. (Gambar 3.1)
Gambar 3.1
Keempat, double-click pada ComboBox Anda. Maka akan muncul subprogram untuk ComboBox1_SelectedIndexChanged. Pada subprogram tersebut ketikkan kode program seperti berikut :
Kelima, ketikkan subprogram untuk menjalankan operasi-operasi aritmatika di atas. Subprogram ini dapat menggunakan subprogram SUB maupun FUNCTION. Contoh :
Keenam, double-click pada Button "Proses" sehingga akan muncul kode program untuk tombol Button "Proses". Pada subprogram Button tersebut ketikkan kode programnya, seperti berikut :
(Klik gambar untuk memperjelas)
Pada subprogram ini, Anda juga dapat menambahkan penanganan kesalahan (error handling) dengan mengetikkan perintah "Try" di awal kode program.
Ketujuh, pada Button "New", ketikkan kode program untuk menjalankan fungsi mengisikan data baru pada program. Contoh :
Kedelapan, double-click pada Form Anda. Ketikkan kode seperti berikut :
(Debug). Maka akan terlihat contoh hasil proses programnya seperti berikut :
