APLIKASI KODE PLAT NOMER KENDARAAN SEDERHANA MENGGUNAKAN FUNGSI CASE

Hai Teman semuanya
kali ini saya akan mencoba untuk berbagi sedikit mengenai pembuatan program sederhana menggunakan VB 2010
Program yang akan kita Buat kali ini adalah Program KODE PLAT NOMER KENDARAAN langsung aja yah kita menuju program nya
tentu nya agan harus install dulu progran VB 2010 nya di computer agan semuanya ^_^

 

 

2 buah textBox Dan 1 Buah Button

click 2x pada bagian form

masukan code :

 

Public Class Form1
Dim grade As String

End Select
End Sub

 

kemudian Click 2x bagian Button

Dan masukan Code sebagai berikut :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
grade = TextBox2.Text()
Select Case grade
Case “A”
TextBox1.Text = “Banten-Serang-Merak”
Case “B”
TextBox1.Text = ” DKI Jakarta-Depok-Tangerang-Bekasi”
Case “D”
TextBox1.Text = “Bandung”
Case “E”
TextBox1.Text = “Cirebon”
Case “F”
TextBox1.Text = “Bogor”
Case “G”
TextBox1.Text = “Pekalongan”
Case “H”
TextBox1.Text = “Semarang”
Case “K”
TextBox1.Text = “Pati”
Case “L”
TextBox1.Text = “Surabaya”
Case “M”
TextBox1.Text = “Madura”
Case “N”
TextBox1.Text = “Malang”
Case “p”
TextBox1.Text = “Besuki”
Case “R”
TextBox1.Text = “Banyumas”
Case “S”
TextBox1.Text = “Bojonegoro”
Case “T”
TextBox1.Text = “Karawang-Cikampek”
Case “AA”
TextBox1.Text = “Kedu”
Case “AB”
TextBox1.Text = “DI Yogyakarta-Magelang”
Case “AD”
TextBox1.Text = “Surakarta”
Case “AE”
TextBox1.Text = “Madiun”
Case “AG”
TextBox1.Text = “Kediri”
Case “W”
TextBox1.Text = “Sidoarjo (Jawa Timur)”
Case “Z”
TextBox1.Text = “Sumedang (Jawa Barat)”
Case “BA”
TextBox1.Text = “Sumatra Barat”
Case “BB”
TextBox1.Text = “Sumatra Utara”
Case “BD”
TextBox1.Text = “Bengkulu”
Case “BE”
TextBox1.Text = “Lampung”
Case “BG”
TextBox1.Text = “Sumatra Selatan”
Case “BH”
TextBox1.Text = “Jambi”
Case “BK”
TextBox1.Text = “Medan”
Case “BL”
TextBox1.Text = “DI Aceh”
Case “BM”
TextBox1.Text = “Riau”
Case “BP”
TextBox1.Text = ” Kepulauan Riau”
Case “BN”
TextBox1.Text = ” Bangka”
Case “CC”
TextBox1.Text = “Korps Konsul”
Case “CD”
TextBox1.Text = “Korps Diplomatik”
Case “DA”
TextBox1.Text = “Kalimantan Selatan”
Case “KB”
TextBox1.Text = “Kalimantan Barat”
Case “KT”
TextBox1.Text = “Kalimantan Timur”
Case “KH”
TextBox1.Text = “Kalimantan Tengah”
Case “DB”
TextBox1.Text = ” Minahasa”
Case “DD”
TextBox1.Text = “Sulawesi Selatan”
Case “DM”
TextBox1.Text = ” Sulawesi Utara”
Case “DN”
TextBox1.Text = ” Sulawesi Tengah”
Case “DT”
TextBox1.Text = “Sulawesi Tenggara”
Case “DL”
TextBox1.Text = “Sangihe/Talaud”
Case “DE”
TextBox1.Text = “Maluku Selatan”
Case “DG”
TextBox1.Text = “Maluku Utara”
Case “DH”
TextBox1.Text = “Maluku Timur”
Case “DK”
TextBox1.Text = “Bali”
Case “DR”
TextBox1.Text = “Pulau Lombok ”
Case “EA”
TextBox1.Text = “Pulau Sumbawa”
Case “DH”
TextBox1.Text = “Pulau Timor”
Case “EB”
TextBox1.Text = “Flores”
Case “ED”
TextBox1.Text = “Sumba”
Case “DS”
TextBox1.Text = “Papua”
Case Else
TextBox1.Text = “File Tidak Di temukan”
End Select
End Sub

 

Dan selesai Deh Gampang kan cara Buat nya
Nih Gambar hasil nya Dari program tadi