Implementasi Select Case “Service Motor Uya”

Pada aplikasi ini adalah aplikas tentang service motor dimana didalam aplikasi ini dibahas tentang select case, penggunaan komponen checkbox, listbox, dan combobox, penasaran langsung saja kita buat aplikasinya.
1. Buat Project baru dengan nama “ServiceMotor”
2. Desain Formnya seperti berikut;


3. Atur propertie-nya seperti tabel berikut

4. Untuk”CBMerek”isikan nilai melalui properties items(Yamaha, Honda,Suzuki, Kawasaki)
5. Untuk “CbOli” isikan nilai melalui properties items (Mesran,Yamalube,Top 1)
6. Untuk memasukkan Gambar dalam PictureBox, bisa melalu properties image, seperti gambar berikut;

7. Langkah selanjutnya tampil forn pengambilan gambar, lihat gambar berikut

8. Pilih lokasi gambar yang mau diambil, terakhir pilih ok
9. Agar Gambar mengikuti PictureBox lakukan perubahan seperti gambar berikut:
10. Sekarang kita memulai dengan kode program, tentu yang paling gampang adalah Tombol kosongkan, sebelum membuat program tombol kosongkan terlebih dahulu anda buat sub baru dengan nama sub kosongkan. lihat gambar berikut;
mungkin ada yang bertanya kenapa koc kita harus membuat sub kosongkan ? jawabannya adalah aga sub kosongkan bisa dipanggil kapan pun dibutuhkan, jadi tidak perlu lagi diketik dua kali cukup panggil sub yang sudah dibuat. Ok…broooooo..! Lanjut
11. Buat varibel Global, sudah taukan variabel golbal itu apa ? jangan sampai lupa lagi, okey. lihat gambar berikut:
Nah Variabel global itu selalu posisi paling atas atau dengan kata lain selalu dibawa”Public Class”
12. Selanjutnya anda klik dua kali pada komponen “tnopol”, kemudian rubah event-nya menjadi keypress. lalu ketikkan programnya seperti gambar dibawa ini:
12. Selanjutnya klik dua kali pada komponen”cgantioli”,kemudian ketikkan kode program seperti gambar berikut:
perintah program pada gambar diatas adalah menon-aktifkan komponen cboli abapila komponen cbgantioli berstatsu true.
13. Selanjutnya klik dua kali pada komponen cboli, kemudia buatkan kode program seperti gamba berikut:

program pada gambar diatas adalah program pengujian oli dimana oli ada tiga,apabila merek oli Mesran dipilih maka 45000 akan ditampung kedalam variabel global yaitu variabel by_oli
14. Selanjtunya klik dua kali pada komponen cbkarburator, kemudian buatkan kode program seperti gambar berikut:

program pada gambar diatas adalah program pengujian dimana komponen cbkarburator dicentang atau dijadikan True, maka nilai 5000 akan ditampung kedalam variabel global yaitu variabel by_karburator
15. Selanjutnya klik dua kali pada komponen cbtambahangin, kemudian ketikkan programmnya seperti gambar berikut:
16. Selanjutnya klik dua kali pada komponen btbayar, kemudian ketikkan kode programmnya sepetri gambar berikut:
program pada gambar diatas, yang pertama dilakukan adalah melakukan pengujian nilai variabel global yaitu service, jika nilai service 3 kebawa maka nilai label11 menampilkan Nnilai gratis, jika tidak maka  nilai variabel global by_angin,by_ol, by_karburator dijumlahkan kemudian ditampung kedalam variabel global total. kemudian label11. menampilkan nilai total. begitu pula dengan nilai komponen ttotal.
perintah lsttampilan.items.clear() sampai dengan lsttampilan.items.add (” Biaya Angin   =” & FromatCarrency(by_angin). adalah menampilkan hasil keseluruhan pengujian yang sudah dieksekusi sebelumnya.
17. Terakhir pada komponen tbayar klik dua kali kemudian ketikkan kode programmnya dengan menggunakan event keypress, seperti gambar berilkut:
18. Jalan kan program anda… dan lihat hasilnya…


 By Ansar Blog