[VB.NET] Kode nomor kendaraan bermotor

Asal usulnya ternyata tanda kendaraan bermotor adalah dari peninggalan zaman Belanda, yang didasarkan pada Karesidenan (wikipedia). Seperti didaerah Jakarta diberi dengan kode B, Yogyakarta  AB, Semarang H, dll. Saya sering melihat hampir semua kode plat nomor kendaraan bermotor itu ada yang dari sumatera, kalimantan, sumbawa, dan itu juga  tidak sedikit yang dari luar pulau jawa  ketika saya mengamatinya,, Jogajakarta adalah tempatnya para pelajar, jadi maklum banyak penduduk terutama anak anak kuliahan yang berasal dari luar Jogja maupun dari luar pulau jawa. Teman saya juga banyak yang berasal dari berbagai daerah, jadi karena kebiasaan sering mengamatinya ternyata asyik juga untuk memeperhatikan plat nomer kendaraan dijalan.

Dengan mengetahui kode nomor kendaraan bermotor berarti kita juga bisa mengetahui dari mana daerah sipengendara  tersebut berasal.  Bagi agan semua yang ingin menghafal atau hanya sekedar ingin mengetahuinya  ,

tanda nomor kendaraan bermotor

Membuat desain antarmuka  / bebas terserah agan

tanda nomor kendaraan bermotor

Komponen yang dibutuhkan

• Label
• TextBox
• ComboBox
• GroupBox //jika diperlukan

Untuk code program bisa dilihat dibawah ini

——————————————————————————————————–

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add(“A”)

ComboBox1.Items.Add(“B”)

ComboBox1.Items.Add(“D”)

ComboBox1.Items.Add(“E”)

ComboBox1.Items.Add(“F”)

ComboBox1.Items.Add(“G”)

ComboBox1.Items.Add(“H”)

ComboBox1.Items.Add(“K”)

ComboBox1.Items.Add(“L”)

ComboBox1.Items.Add(“M”)

ComboBox1.Items.Add(“N”)

ComboBox1.Items.Add(“P”)

ComboBox1.Items.Add(“R”)

ComboBox1.Items.Add(“S”)

ComboBox1.Items.Add(“T”)

ComboBox1.Items.Add(“AA”)

ComboBox1.Items.Add(“AB”)

ComboBox1.Items.Add(“AD”)

ComboBox1.Items.Add(“AE”)

ComboBox1.Items.Add(“AG”)

ComboBox1.Items.Add(“BA”)

ComboBox1.Items.Add(“BB”)

ComboBox1.Items.Add(“BD”)

ComboBox1.Items.Add(“BE”)

ComboBox1.Items.Add(“BG”)

ComboBox1.Items.Add(“BH”)

ComboBox1.Items.Add(“BK”)

ComboBox1.Items.Add(“BL”)

ComboBox1.Items.Add(“BM”)

ComboBox1.Items.Add(“BN”)

ComboBox1.Items.Add(“CC”)

ComboBox1.Items.Add(“CD”)

ComboBox1.Items.Add(“DA”)

ComboBox1.Items.Add(“DB”)

ComboBox1.Items.Add(“DD”)

ComboBox1.Items.Add(“DE”)

ComboBox1.Items.Add(“DG”)

ComboBox1.Items.Add(“DH”)

ComboBox1.Items.Add(“DK”)

ComboBox1.Items.Add(“DL”)

ComboBox1.Items.Add(“DM”)

ComboBox1.Items.Add(“DN”)

ComboBox1.Items.Add(“DR”)

ComboBox1.Items.Add(“DS”)

ComboBox1.Items.Add(“EA”)

ComboBox1.Items.Add(“EB”)

ComboBox1.Items.Add(“ED”)

ComboBox1.Items.Add(“KB”)

ComboBox1.Items.Add(“KT”)

ComboBox1.Items.Add(“KH”)

ComboBox1.Items.Add(“W”)

ComboBox1.Items.Add(“Z”)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Try

Select Case ComboBox1.SelectedIndex

Case 0

TextBox1.Text = “Daerah/Wilayah Banten”

Case 1

TextBox1.Text = “Daerah/Wilayah DKI Jakarta”

Case 2

TextBox1.Text = “Daerah/Wilayah Bandung”

Case 3

TextBox1.Text = “Daerah/Wilayah Cirebon”

Case 4

TextBox1.Text = “Daerah/Wilayah Bogor”

Case 5

TextBox1.Text = “Daerah/Wilayah Pekalongan”

Case 6

TextBox1.Text = “Daerah/Wilayah Semarang”

Case 7

TextBox1.Text = “Daerah/Wilayah Pati”

Case 8

TextBox1.Text = “Daerah/Wilayah Surabaya”

Case 9

TextBox1.Text = “Daerah/Wilayah Madura”

Case 10

TextBox1.Text = “Daerah/Wilayah Malang”

Case 11

TextBox1.Text = “Daerah/Wilayah Besuki”

Case 12

TextBox1.Text = “Daerah/Wilayah Banyumas”

Case 13

TextBox1.Text = “Daerah/Wilayah Bojonegoro”

Case 14

TextBox1.Text = “Daerah/Wilayah Kerawang”

Case 15

TextBox1.Text = “Daerah/Wilayah Kedu”

Case 16

TextBox1.Text = “Daerah/Wilayah DI Yogyakarta”

Case 17

TextBox1.Text = “Daerah/Wilayah Surakarta”

Case 18

TextBox1.Text = “Untuk Daerah/Wilayah Madiun”

Case 19

TextBox1.Text = “Daerah/Wilayah Kediri”

Case 20

TextBox1.Text = “Daerah/Wilayah Sumatra Barat”

Case 21

TextBox1.Text = “Daerah/Wilayah Sumatra Utara”

Case 22

TextBox1.Text = “Daerah/Wilayah Bengkulu”

Case 23

TextBox1.Text = “Daerah/Wilayah Lampung”

Case 24

TextBox1.Text = “Daerah/Wilayah Sumatra Selatan”

Case 25

TextBox1.Text = “Daerah/Wilayah Jambi”

Case 26

TextBox1.Text = “Daerah/Wilayah Sumatra Timur”

Case 27

TextBox1.Text = “Daerah/Wilayah DI Aceh”

Case 28

TextBox1.Text = “Daerah/Wilayah Riau”

Case 29

TextBox1.Text = “Daerah/Wilayah Bangka”

Case 30

TextBox1.Text = “Daerah/Wilayah Korps Konsul”

Case 31

TextBox1.Text = “Daerah/Wilayah Korps Diplomatik”

Case 32

TextBox1.Text = “Daerah/Wilayah Kalimantan Selatan”

Case 33

TextBox1.Text = “Daerah/Wilayah Minahasa”

Case 34

TextBox1.Text = “Daerah/Wilayah Sulawesi Selatan”

Case 35

TextBox1.Text = “Daerah/Wilayah Maluku Selatan”

Case 36

TextBox1.Text = “Daerah/Wilayah Maluku Utara”

Case 37

TextBox1.Text = “Daerah/Wilayah Maluku Timur”

Case 38

TextBox1.Text = “Daerah/Wilayah Bali”

Case 39

TextBox1.Text = “Daerah/Wilayah Sangihe/Talaud”

Case 40

TextBox1.Text = “Daerah/Wilayah Sulawesi Utara”

Case 41

TextBox1.Text = “Daerah/Wilayah Sulawesi Tengah”

Case 42

TextBox1.Text = “Daerah/Wilayah Lombok”

Case 43

TextBox1.Text = “Daerah/Wilayah Papua”

Case 44

TextBox1.Text = “Daerah/Wilayah Sumbawa”

Case 45

TextBox1.Text = “Daerah/Wilayah Flores”

Case 46

TextBox1.Text = “Daerah/Wilayah Sumba”

Case 47

TextBox1.Text = “Daerah/Wilayah Kalimantan Barat”

Case 48

TextBox1.Text = “Daerah/Wilayah Kalimantan Timur”

Case 49

TextBox1.Text = “Daerah/Wilayah Kalimantan Tengah”

Case 50

TextBox1.Text = “Daerah/Wilayah Sidoarjo (Jatim)”

Case 51

TextBox1.Text = “Daerah/Wilayah Sumedang (Jabar)”

End Select

Catch ex As Exception

End Try

End Sub

End Class

Keterangan

Inilah contoh sederhana penggunaan ComboBox dan TextBox dengan menggunakan beberapa case  untuk melihat kode nomor kendaraan bermotor, semoga bermanfaat dengan adanya contoh aplikasi sederhana ini, semoga menambah wawasan idea dan juga semangat untuk belajar lebih giat lagi