code snippets, visual basic 2010

sepulnuar

benang ni aku bukak untuk rujukan aku sendiri dan juga untuk rujukan awak semua.
segala komen atau penambahbaikan script adalah dialu-alukan.
harap jangan berborak. berbual dengan script sahaja.
lain-lain benang berkaitan visual basic:
acExportDelim pipe
asynchronous programming
calculate the volume of a sphere
call stack, Err, On Error, Error-Handling, activeX, ralat
chained combobox
check db null value
connect to access 2003
create user form
crystal report fail on deployed
crystal report fail on deployed 2
disable tab key
interface with barcode scanner
kongsi ilmu vb
open file
pilih vb untuk develop sistem
print form
progress bar
read file.txt
save date kat access guna DTPicker
tukar projek menjadi Installer
vb.net & sql
view file name
view image from mysql
iklan:
mencari buku rujukan
mencari guru vb
mencari guru vb.net
mencari part-time programmer
mencari programmer vb
mencari programmer vb 2
mencari tutorial vb6

sepulnuar

tujuan : memastikan input yang dimasukkan ke dalam TextBox adalah nombor telefon rumah/bimbit di malaysia.
senarai komponen :
1. TextBox, untuk input nombor telefon.

method :-

1. 'memastikan kekunci yang ditekan oleh user adalah nombor sahaja
   
2. Public Sub number(ByRef keyedIn As KeyPressEventArgs)
   
3.    If keyedIn.KeyChar <> Chr(8) Then 'kekunci selain "backspace"
   
4.       If keyedIn.KeyChar < Chr(48) Or keyedIn.KeyChar > Chr(57) Then 'kekunci selain "0-9"
   
5.          keyedIn.KeyChar = Chr(0) 'tukar kekunci menjadi "null"
   
6.          Beep() 'kasi keluar bunyi sikit (ikut selera masing-masing)
   
7.       End If
   
8.    End If
   
9. End Sub
   
10. 'memastikan nombor yang dimasukkan adalah nombor telefon rumah/bimbit.
    
11. Public Sub phone(ByRef key As KeyPressEventArgs, ByRef textBoxName As TextBox)
    
12.    'letakkan kursor pada indeks terakhir
    
13.    textBoxName.Select(textBoxName.TextLength, 0)
    
14.    number(key)
    
15.    Select Case textBoxName.TextLength 'kira berapa panjang input yang telah dimasukkan
    
16.       Case 0
    
17.          If key.KeyChar <> Chr(48) Then 'pastikan nombor pertama adalah "0"
    
18.             key.KeyChar = Chr(0)
    
19.             Beep()
    
20.          End If
    
21.       Case 1
    
22.          If key.KeyChar < Chr(49) And key.KeyChar <> Chr(8) Then 'pastikan nombor ke-2 bukan "0"
    
23.             key.KeyChar = Chr(0)
    
24.             Beep()
    
25.          End If
    
26.       Case 2
    
27.          'jika nombor kedua adalah "3" atau "1" jadikan panjang maksimum textbox = 11,
    
28.          'selain itu jadikan panjang maksimum textbox = 10
    
29.          If textBoxName.Text.Substring(1) = 3 Or textBoxName.Text.Substring(1) = 1 Then
    
30.             textBoxName.MaxLength = 11
    
31.          Else
    
32.             textBoxName.MaxLength = 10
    
33.          End If
    
34.          'jika nombor ke-2 bukan "1" atau "8", tambahkan "-" pada indeks ke-3
    
35.          If textBoxName.Text.Substring(1) <> 8 And textBoxName.Text.Substring(1) <> 1 And key.KeyChar <> Chr(8) Then
    
36.             textBoxName.Text &= "-"
    
37.             textBoxName.Select(3, 0) 'letakkan kursor pada indeks terakhir(indeks ke-4) untuk input ke-3
    
38.          End If
    
39.          Case 3
    
40.          'jika nombor ke-2 adalah "1" atau "8", tambahkan "-" pada indeks ke-4
    
41.          If (textBoxName.Text.Substring(1, 1) = 8 Or textBoxName.Text.Substring(1, 1) = 1) And key.KeyChar <> Chr(8) Then
    
42.             textBoxName.Text &= "-"
    
43.             textBoxName.Select(4, 0) 'letakkan kursor pada indeks terakhir(indeks ke-5) untuk input ke-4
    
44.          End If
    
45.      End Select
    
46. End Sub

Copy the Code

snippet :-

1. <?xml version="1.0" encoding="utf-8"?>
   
2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
   
3.   <CodeSnippet Format="1.0.0">
   
4.     <Header>
   
5.       <Title />
   
6.       <Author />
   
7.       <Description />
   
8.       <HelpUrl />
   
9.       <SnippetTypes />
   
10.       <Keywords />
    
11.       <Shortcut />
    
12.     </Header>
    
13.     <Snippet>
    
14.       <References />
    
15.       <Imports />
    
16.       <Declarations>
    
17.         <Literal Editable="true">
    
18.           <ID>txtPhone</ID>
    
19.           <Type />
    
20.           <ToolTip />
    
21.           <Default>txtPhone</Default>
    
22.           <Function />
    
23.         </Literal>
    
24.       </Declarations>
    
25.       <Code Language="VB" Kind="" Delimiter="$"><![CDATA[Private Sub $txtPhone$_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles $txtPhone$.KeyPress
    
26. phone(e, $txtPhone$)
    
27. End Sub]]></Code>
    
28.     </Snippet>
    
29.   </CodeSnippet>
    
30. </CodeSnippets>

Copy the Code

rujukan :-
senarai Chr() :
http://msdn.microsoft.com/en-us/library/60ecse8t(v=VS.80).aspx
http://msdn.microsoft.com/en-us/library/9hxt0028(v=VS.80).aspx
maklumat nombor telefon di malaysia :
http://en.wikipedia.org/wiki/Telephone_numbers_in_Malaysia

sepulnuar

tujuan : masukkan senarai daerah ke dalam combobox berdasarkan negeri yang dipilih dalam malaysia.
senarai komponen:
1. ComboBox, untuk negeri. masukkan item-item negeri dalam malaysia ke dalam ComboBox negeri
   {"Johor","Kedah","Kelantan","Melaka","Negeri Sembilan","Pahang","Perak","Perlis","Pulau Pinang","Sabah","Sarawak","Selangor",Terengganu","WP Kuala Lumpur","WP Labuan","WP Putrajaya"}
2. ComboBox, untuk daerah.
method :-

1. Public Sub listCity(ByVal state As String, ByRef comboBoxName As ComboBox)
   
2.    comboBoxName .Items.Clear() 'kasi bersih combobox daerah dulu
   
3.    Select Case state
   
4.       Case "Johor"
   
5.          comboBoxName .Items.AddRange(New Object() _
   
6.           {"Ayer Baloi", "Ayer Hitam", "Ayer Tawar", "Bandar Penawar", "Bandar Tenggara",
   
7.           "Batu Anam", "Batu Pahat", "Bekok", "Benut", "Bukit Gambir", "Bukit Pasir",
   
8.           "Chaah", "Endau", "Gelang Patah", "Gerisek", "Gugusan Taib Andak", "Jementah",
   
9.           "Johor Bahru", "Kahang", "Kluang", "Kota Tinggi", "Kukup", "Kulai", "Labis",
   
10.           "Layang-Layang", "Masai", "Mersing", "Muar", "Nusajaya", "Pagoh", "Paloh",
    
11.           "Panchor", "Parit Jawa", "Parit Raja", "Parit Sulong", "Pasir Gudang",
    
12.           "Pekan Nenas", "Pengerang", "Pontian", "Renggam", "Rengit", "Segamat",
    
13.           "Semerah", "Senai", "Senggarang", "Seri Gading", "Seri Medan",
    
14.           "Simpang Renggam", "Sungai Mati", "Tangkak", "Ulu Tiram", "Yong Peng"})
    
15.       Case "Kedah"
    
16.          comboBoxName .Items.AddRange(New Object() _
    
17.           {"Alor Setar", "Baling", "Bandar Baharu", "Bedong", "Bukit Kayu Hitam", "Changloon",
    
18.           "Gurun", "Jeniang", "Jitra", "Karangan", "Kepala Batas", "Kodiang", "Kota Kuala Muda",
    
19.           "Kota Sarang Semut", "Kuala Kedah", "Kuala Ketil", "Kuala Nerang", "Kuala Pegang", "Kulim",
    
20.           "Kupang", "Langgar", "Langkawi", "Lunas", "Merbok", "Padang Serai", "Pendang", "Pokok Sena",
    
21.           "Serdang", "Sik", "Simpang Empat", "Sungai Petani", "Universiti Utara Malaysia", "Yan"})
    
22.       Case "Kelantan"
    
23.          comboBoxName .Items.AddRange(New Object() _
    
24.           {"Ayer Lanas", "Bachok", "Cherang Ruku", "Dabong", "Gua Musang", "Jeli", "Kem Desa Pahlawan",
    
25.           "Ketereh", "Kota Bharu", "Kuala Balah", "Kuala Krai", "Machang", "Melor", "Pasir Mas",
    
26.           "Pasir Puteh", "Pulai Condong", "Rantau Panjang", "Selising", "Tanah Merah", "Temangan",
    
27.           "Tumpat", "Wakaf Bharu"})
    
28.       Case "Melaka"
    
29.          comboBoxName .Items.AddRange(New Object() _
    
30.           {"Alor Gajah", "Asahan", "Ayer Keroh", "Bemban", "Durian Tunggal", "Jasin",
    
31.           "Masjid Tanah", "Melaka", "Merlimau", "Selandar", "Sungai Rambai", "Tanjong Kling"})
    
32.       Case "Negeri Sembilan"
    
33.          comboBoxName .Items.AddRange(New Object() _
    
34.           {"Bahau", "Bandar Baru Enstek", "Bandar Seri Jempol", "Batu Kikir", "Gemas", "Gemencheh",
    
35.           "Johol", "Kota", "Kuala Klawang", "Kuala Pilah", "Labu", "Linggi", "Mantin", "Nilai",
    
36.           "Port Dickson", "Pusat Bandar Palong", "Rantau", "Rembau", "Rompin", "Seremban",
    
37.           "Si Rusa", "Simpang Durian", "Simpang Pertang", "Tampin", "Tanjong Ipoh"})
    
38.       Case "Pahang"
    
39.          comboBoxName .Items.AddRange(New Object() _
    
40.           {"Balok", "Bandar Bera", "Bandar Pusat Jengka", "Bandar Tun Abdul Razak", "Benta",
    
41.           "Bentong", "Brinchang", "Bukit Fraser", "Bukit Goh", "Chenor", "Chini", "Damak",
    
42.           "Dong", "Gambang", "Jerantut", "Karak", "Kemayan", "Kuala Krau", "Kuala Lipis",
    
43.           "Kuala Rompin", "Kuantan", "Lanchang", "Lurah Bilut", "Maran", "Mentakab",
    
44.           "Muadzam Shah", "Padang Tengku", "Pekan", "Raub", "Ringlet", "Sega", "Sungai Koyan",
    
45.           "Sungai Lembing", "Sungai Ruan", "Tanah Rata", "Temerloh", "Triang"})
    
46.       Case "Perak"
    
47.          comboBoxName .Items.AddRange(New Object() _
    
48.           {"Ayer Tawar", "Bagan Datoh", "Bagan Serai", "Bandar Baharu", "Batu Gajah", "Batu Kurau",
    
49.           "Behrang Stesen", "Bidor", "Bota", "Brinchang", "Bruas", "Changkat Jering", "Changkat Keruing",
    
50.           "Chemor", "Chenderiang", "Chenderong Balai", "Chikus", "Enggor", "Gerik", "Gopeng",
    
51.           "Hutan Melingtang", "Ipoh", "Jeram", "Kampar", "Kampong Gajah", "Kampong Kepayang",
    
52.           "Kamunting", "Kuala Kangsar", "Kuala Kurau", "Kuala Sepetang", "Lambor Kanan", "Langkap",
    
53.           "Lenggong", "Lumut", "Malin Nawar", "Mambang Di Awan", "Manong", "Matang", "Padang Rengas",
    
54.           "Pangkor", "Pantai Remis", "Parit", "Parit Buntar", "Pengkalan Hulu", "Pusing", "Rantau Panjang",
    
55.           "Sauk", "Selama", "Selekoh", "Seri Manjung", "Simpang", "Simpang Ampat Semanggol", "Sitiawan",
    
56.           "Slim River", "Sungai Siput", "Sungai Sumun", "Sungkai", "Taiping", "Tanjong Malim", "Tanjong Piandang",
    
57.           "Tanjong Rambutan", "Tanjong Tualang", "Tapah", "Tapah Road", "Teluk Intan", "Temoh", "Trolak",
    
58.           "Trong", "Tronoh", "Ulu Bertam", "Ulu Kinta"})
    
59.       Case "Perlis"
    
60.          comboBoxName .Items.AddRange(New Object() _
    
61.           {"Arau", "Kaki Bukit", "Kangar", "Kuala Perlis", "Padang Besar", "Simpang Ampat"})
    
62.       Case "Pulau Pinang"
    
63.          comboBoxName .Items.AddRange(New Object() _
    
64.           {"Ayer Itam", "Balik Pulau", "Bandar Bahru", "Batu Feringgi", "Batu Maung", "Bayan Lepas",
    
65.           "Bukit Mertajam", "Butterworth", "Gelugor", "Jelutong", "Kepala Batas", "Kubang Semang",
    
66.           "Nibong Tebal", "Penaga", "Penang Hill", "Perai", "Permatang Pauh", "Pulau Pinang",
    
67.           "Simpang Ampat", "Sungai Jawi", "Tanjong Bungah", "Tanjung Bungah", "Tasek Gelugor"})
    
68.       Case "Sabah"
    
69.          comboBoxName .Items.AddRange(New Object() _
    
70.           {"Beufort", "Beluran", "Beverly", "Bongawan", "Keningau", "Kota Belud", "Kota Kinabalu",
    
71.           "Kota Kinabatangan", "Kota Marudu", "Kuala Penyu", "Kudat", "Kunak", "Lahad Datu",
    
72.           "Likas", "Membakut", "Menumbok", "Nabawan", "Pamol", "Papar", "Penampang", "Putatan",
    
73.           "Ranau", "Sandakan", "Semporna", "Sipitang", "Tambunan", "Tamparuli", "Tanjung Aru",
    
74.           "Tawau", "Tenghilan", "Tenom", "Tuaran"})
    
75.       Case "Sarawak"
    
76.          comboBoxName .Items.AddRange(New Object() _
    
77.           {"Asajaya", "Balingian", "Baram", "Bau", "Bekenu", "Belaga", "Belawai", "Betong", "Bintangor",
    
78.           "Bintulu", "Dalat", "Daro", "Debak", "Engkilili", "Julau", "Kabong", "Kanowit", "Kapit",
    
79.           "Kota Samarahan", "Kuching", "Lawas", "Limbang", "Lingga", "Long Lama", "Lubok Antu", "Lundu",
    
80.           "Lutong", "Matu", "Miri", "Mukah", "Nanga Medamint", "Niah", "Pusa", "Roban", "Saratok",
    
81.           "Sarikei", "Sebauh", "Sebuyau", "Serian", "Sibu", "Siburan", "Simunjan", "Song", "Spaoh",
    
82.           "Sri Aman", "Sundar", "Tatau"})
    
83.       Case "Selangor"
    
84.          comboBoxName .Items.AddRange(New Object() _
    
85.           {"Ampang", "Bandar Baru Bangi", "Bandar Puncak Alam", "Banting", "Batang Berjuntai", "Batang Kali",
    
86.           "Batu Arang", "Batu Caves", "Beranang", "Bukit Fraser", "Bukit Rotan", "Cheras", "Cyberjaya",
    
87.           "Dengkil", "Gombak", "Hulu Langat", "Jenjarom", "Jeram", "Kajang", "Kapar", "Kerling", "Klang",
    
88.           "Kuala Kubu Baru", "Kuala Selangor", "Pelabuhan Klang", "Petaling Jaya", "Puchong", "Pulau Carey",
    
89.           "Pulau Indah", "Rasa", "Rawang", "Sabak Bernam", "Sekinchan", "Semenyih", "Sepang", "Serendah",
    
90.           "Seri Kembangan", "Shah Alam", "Subang Jaya", "Sungai Ayer Tawar", "Sungai Besar", "Sungai Buloh",
    
91.           "Sungai Pelek", "Tanjong Karang", "Tanjong Sepat", "Telok Panglima Garang", " UKM Bangi", "UPM Serdang"})
    
92.       Case "Terengganu"
    
93.          comboBoxName .Items.AddRange(New Object() _
    
94.           {"Ajil", "Al Muktatfi Billah Shah", "Ayer Puteh", "Bukit Besi", "Bukit Payong", "Ceneh", "Chalok",
    
95.           "Cukai", "Dungun", "Jerteh", "Kampong Raja", "Kemasek", "Kerteh", "Ketengah Jaya", "Kijal",
    
96.           "Kuala Berang", "Kuala Besut", "Kuala Terengganu", "Marang", "Paka", "Permaisuri", "Sungai Tong"})
    
97.       Case "WP Kuala Lumpur"
    
98.          comboBoxName .Items.AddRange(New Object() {"Kuala Lumpur"})
    
99.       Case "WP Labuan"
    
100.          comboBoxName .Items.AddRange(New Object() {"Labuan"})
     
101.       Case "WP Putrajaya"
     
102.          comboBoxName .Items.AddRange(New Object() {"Putrajaya"})
     
103.    End Select
     
104. End Sub

Copy the Code

alien3d

buat la multi dimension array.

sepulnuar

Reply 3# sepulnuar
snippet :-

1. <?xml version="1.0" encoding="utf-8"?>
   
2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
   
3.   <CodeSnippet Format="1.0.0">
   
4.     <Header>
   
5.       <Title />
   
6.       <Author />
   
7.       <Description />
   
8.       <HelpUrl />
   
9.       <SnippetTypes />
   
10.       <Keywords />
    
11.       <Shortcut />
    
12.     </Header>
    
13.     <Snippet>
    
14.       <References />
    
15.       <Imports />
    
16.       <Declarations>
    
17.         <Literal Editable="true">
    
18.           <ID>cboState</ID>
    
19.           <Type />
    
20.           <ToolTip />
    
21.           <Default>cboState</Default>
    
22.           <Function />
    
23.         </Literal>
    
24.         <Literal Editable="true">
    
25.           <ID>cboCity</ID>
    
26.           <Type />
    
27.           <ToolTip />
    
28.           <Default>cboCity</Default>
    
29.           <Function />
    
30.         </Literal>
    
31.       </Declarations>
    
32.       <Code Language="VB" Kind="" Delimiter="$"><![CDATA[Private Sub $cboState$_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles $cboState$.SelectedIndexChanged
    
33. listCity($cboState$.Text, $cboCity$)
    
34. End Sub]]></Code>
    
35.     </Snippet>
    
36.   </CodeSnippet>
    
37. </CodeSnippets>

Copy the Code

maaf jika senarai daerah tidak lengkap.

sepulnuar

Reply 4# alien3d
tujuan : dynamic JADUAL VIGENERE using multi-dimension array
keperluan : console application
method :-

1. Function assignValue(ByRef v As Object, ByVal startChar As Char, ByVal endChar As Char) As Int16
   
2.   'validating startChar and endChar
   
3.   If 48 <= Asc(startChar) And Asc(startChar) <= 57 Then 'value from "0" to "9"
   
4.     If Asc(endChar) < Asc(startChar) Or 57 < Asc(endChar) Then
   
5.       MsgBox("invalid endChar parameter", MsgBoxStyle.Exclamation)
   
6.       Return -1
   
7.     End If
   
8.   ElseIf 65 <= Asc(startChar) And Asc(startChar) <= 90 Then 'value from "A" to "Z"
   
9.     If Asc(endChar) < Asc(startChar) Or 90 < Asc(endChar) Then
   
10.       MsgBox("invalid endChar parameter", MsgBoxStyle.Exclamation)
    
11.       Return -1
    
12.     End If
    
13.   ElseIf 97 <= Asc(startChar) And Asc(startChar) <= 122 Then 'value from "a" to "z"
    
14.     If Asc(endChar) < Asc(startChar) Or 122 < Asc(endChar) Then
    
15.       MsgBox("invalid endChar parameter", MsgBoxStyle.Exclamation)
    
16.       Return -1
    
17.     End If
    
18.   Else
    
19.     MsgBox("invalid startChar parameter", MsgBoxStyle.Exclamation)
    
20.     Return -1
    
21.   End If
    
22.   Dim length = Asc(endChar) - Asc(startChar), startNum = Asc(startChar)
    
23.   're-declare v to multidimension array based on endChar-startChar length
    
24.   ReDim v(length, length)
    
25.   For i = 0 To length
    
26.     For j = 0 To length
    
27.       If i + j <= length Then
    
28.         v(i, j) = Chr(i + j + startNum)
    
29.       Else
    
30.         v(i, j) = Chr(i + j + startNum - (length + 1))
    
31.       End If
    
32.     Next
    
33.   Next
    
34.   Return length
    
35. End Function

Copy the Code

snippet :-

1. <?xml version="1.0" encoding="utf-8"?>
   
2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
   
3.   <CodeSnippet Format="1.0.0">
   
4.     <Header>
   
5.       <Title>jadualVigenere</Title>
   
6.       <Author />
   
7.       <Description />
   
8.       <HelpUrl />
   
9.       <SnippetTypes />
   
10.       <Keywords />
    
11.       <Shortcut />
    
12.     </Header>
    
13.     <Snippet>
    
14.       <References />
    
15.       <Imports />
    
16.       <Declarations>
    
17.         <Literal Editable="true">
    
18.           <ID>length</ID>
    
19.           <Type />
    
20.           <ToolTip />
    
21.           <Default>length</Default>
    
22.           <Function />
    
23.         </Literal>
    
24.         <Literal Editable="true">
    
25.           <ID>vigenere</ID>
    
26.           <Type />
    
27.           <ToolTip />
    
28.           <Default>vigenere</Default>
    
29.           <Function />
    
30.         </Literal>
    
31.         <Literal Editable="true">
    
32.           <ID>startChar</ID>
    
33.           <Type />
    
34.           <ToolTip />
    
35.           <Default>startChar</Default>
    
36.           <Function />
    
37.         </Literal>
    
38.         <Literal Editable="true">
    
39.           <ID>endChar</ID>
    
40.           <Type />
    
41.           <ToolTip />
    
42.           <Default>endChar</Default>
    
43.           <Function />
    
44.         </Literal>
    
45.       </Declarations>
    
46.       <Code Language="VB" Kind="" Delimiter="$"><![CDATA[Dim $length$= assignValue($vigenere$, "$startChar$", "$endChar$")
    
47.         Console.WriteLine("JADUAL VIGENERE")
    
48.         Console.WriteLine()
    
49.         For i = 0 To $length$ * 2 + 8
    
50.             Console.Write("-")
    
51.         Next
    
52.         Console.WriteLine()
    
53.         Console.Write("| * | ")
    
54.         For i = 0 To $length$
    
55.             Console.Write($vigenere$(i, 0) & " ")
    
56.         Next
    
57.         Console.Write("|")
    
58.         Console.WriteLine()
    
59.         For i = 0 To $length$ * 2 + 8
    
60.             Console.Write("-")
    
61.         Next
    
62.         Console.WriteLine()
    
63.         For i = 0 To $length$
    
64.             Console.Write("| " & $vigenere$(i, 0) & " | ")
    
65.             For j = 0 To $length$
    
66.                 Console.Write($vigenere$(i, j) & " ")
    
67.             Next
    
68.             Console.Write("|")
    
69.             Console.WriteLine()
    
70.         Next
    
71.         For i = 0 To $length$ * 2 + 8
    
72.             Console.Write("-")
    
73.         Next]]></Code>
    
74.     </Snippet>
    
75.   </CodeSnippet>
    
76. </CodeSnippets>

Copy the Code

sepulnuar

tujuan : dapatkan tarikh lahir, tempat lahir dan jantina daripada nombor mykad
keperluan : pastikan short date format bagi local machine = dd/MM/yyyy
method :-

1. Public Sub mykad(ByVal number As Int64, ByRef dob As Date, ByRef pob() As String, ByRef sex As Boolean)
   
2.         If number < 100000000000 Then
   
3.             MsgBox("invalid number, not enough lenght", MsgBoxStyle.Exclamation)
   
4.             Exit Sub
   
5.         End If
   
6.         Dim year
   
7.         If number.ToString.Substring(0, 1) < Now.Year.ToString.Substring(2, 2) Then
   
8.             year = 20 & number.ToString.Substring(0, 2)
   
9.         Else
   
10.             year = 19 & number.ToString.Substring(0, 2)
    
11.         End If
    
12.         Dim month = number.ToString.Substring(2, 2)
    
13.         Dim day = number.ToString.Substring(4, 2)
    
14.         Try
    
15.             dob = day & "/" & month & "/" & year
    
16.         Catch
    
17.             MsgBox("invalid number, first 6-digits is wrong", MsgBoxStyle.Exclamation)
    
18.             Exit Sub
    
19.         End Try
    
20.         Select Case number.ToString.Substring(6, 2)
    
21.             Case "01", "21", "22", "23", "24"
    
22.                 pob = {"Johor"}
    
23.             Case "02", "25", "26", "27"
    
24.                 pob = {"Kedah"}
    
25.             Case "03", "28", "29"
    
26.                 pob = {"Kelantan"}
    
27.             Case "04", "30"
    
28.                 pob = {"Melaka"}
    
29.             Case "05", "31", "59"
    
30.                 pob = {"Negeri Sembilan"}
    
31.             Case "06", "32", "33"
    
32.                 pob = {"Pahang"}
    
33.             Case "07", "34", "35"
    
34.                 pob = {"Pulau Pinang"}
    
35.             Case "08", "36", "37", "38", "39"
    
36.                 pob = {"Perak"}
    
37.             Case "09", "40"
    
38.                 pob = {"Perlis"}
    
39.             Case "10", "41", "42", "43", "44"
    
40.                 pob = {"Selangor"}
    
41.             Case "11", "45", "46"
    
42.                 pob = {"Terengganu"}
    
43.             Case "12", "47", "48", "49"
    
44.                 pob = {"Sabah"}
    
45.             Case "13", "50", "51", "52", "53"
    
46.                 pob = {"Sarawak"}
    
47.             Case "14", "54", "55", "56", "57"
    
48.                 pob = {"WP Kuala Lumpur"}
    
49.             Case "15", "58"
    
50.                 pob = {"WP Labuan"}
    
51.             Case "16"
    
52.                 pob = {"WP Putrajaya"}
    
53.             Case "82"
    
54.                 pob = {"Unknown State"}
    
55.             Case "60"
    
56.                 pob = {"Brunei"}
    
57.             Case "61"
    
58.                 pob = {"Indonesia"}
    
59.             Case "62"
    
60.                 pob = {"Cambodia"}
    
61.             Case "63"
    
62.                 pob = {"Laos"}
    
63.             Case "64"
    
64.                 pob = {"Myanmar"}
    
65.             Case "65"
    
66.                 pob = {"Philipines"}
    
67.             Case "66"
    
68.                 pob = {"Singapore"}
    
69.             Case "67"
    
70.                 pob = {"Thailand"}
    
71.             Case "68"
    
72.                 pob = {"Vietnam"}
    
73.             Case "71"
    
74.                 pob = {"United Kingdom", "Indonesia"}
    
75.             Case "74"
    
76.                 pob = {"China"}
    
77.             Case "75"
    
78.                 pob = {"India"}
    
79.             Case "76"
    
80.                 pob = {"Pakistan"}
    
81.             Case "77"
    
82.                 pob = {"Saudi Arabia"}
    
83.             Case "78"
    
84.                 pob = {"Sri Lanka"}
    
85.             Case "79"
    
86.                 pob = {"Bangladesh"}
    
87.             Case "83"
    
88.                 pob = {"Australia", "American Samoa", "Fiji", "Macedonia", "New Caledonia", "New Zealand", "Papua New Guinea", "Timor Leste"}
    
89.             Case "84"
    
90.                 pob = {"Argentina", "Anguilla", "Aruba", "Bolivia", "Brazil", "Chile", "Colombia", "Ecuador", "Paraguay", "Peru", "Uruguay", "Venezuella"}
    
91.             Case "85"
    
92.                 pob = {"Algeria", "Angola", "Botswana", "Burundi", "Cameroon", "Chad", "Djibouti", "Egypt", "Ethiopia", "Eritria", "Gambia", "Ghana", "Kenya", "Liberia", "Malawi", "Mali", "Mauritania", "Morocco", "Mozambique", "Namibia", "Nigeria", "Rwanda", "Senegal", "Sierra Leone", "Somalia", "Sudan", "South Africa", "Swaziland", "Tanzania", "Tonga", "Tunisia", "Uganda", "Zaire", "Zambia", "Zimbabwe"}
    
93.             Case "86"
    
94.                 pob = {"Austria", "Armenia", "Belgium", "Cyprus", "Czech Republic", "Denmark", "France", "Finland", "Greece", "Germany", "Italy", "Luxembourg", "Malta", "Monaco", "Netherlands", "Norway", "Portugal", "Slovakia", "Slovenia", "Spain", "Sweedan", "Switzerland", "Togo"}
    
95.             Case "87"
    
96.                 pob = {"Ireland", "United Kingdom"}
    
97.             Case "88"
    
98.                 pob = {"Bahrain", "Iran", "Iraq", "Israel", "Jordan", "Kuwait", "Lebanon", "Oman", "Qatar", "Syria", "Turkey", "United Arab Emirates", "Yemen"}
    
99.             Case "89"
    
100.                 pob = {"Japan", "North Korea", "South Korea", "Taiwan"}
     
101.             Case "90"
     
102.                 pob = {"Bahamas", "Barbados", "Belize", "Costa Rica", "Cuba", "Dominica", "El Salvador", "Grenada", "Guatemala", "Haiti", "Honduras", "Jamaica", "Mexico", "Nicaragua", "Panama", "Puerto Rico", "Trinidad and Tobago"}
     
103.             Case "91"
     
104.                 pob = {"Canada", "Greenland", "United States"}
     
105.             Case "92"
     
106.                 pob = {"Albania", "Bulgaria", "Belarus", "Bosnia", "Crotia", "Czechoslovakia", "Estonia", "Georgia", "Hungary", "Latvia", "Lithuania", "Poland", "Romania", "Russia", "Serbia", "Ukraine", "Yugoslavia"}
     
107.             Case "93"
     
108.                 pob = {"Afghanistan", "Antigua and Barbuda", "Andorra", "Antarctica", "Azerbaijan", "Benin", "Bhutan", "Bermuda", "Burkina Faso", "Cape Verde", "Comoros", "Cote d'lvoire", "French Polynesia", "Gibraltar", "Guinea", "Hong Kong", "Kazakhstan", "Libya", "Macau", "Madagascar", "Maldives", "Mauritius", "Mongolia", "Nepal", "Palestine", "Samoa", "San Marino", "Seychelles", "Solomon Islands", "Tajikistan", "Turkmenistan", "Uzbekistan", "Vanuatu"}
     
109.             Case Else
     
110.                 MsgBox("unknown birth place code", MsgBoxStyle.Exclamation)
     
111.                 Exit Sub
     
112.         End Select
     
113.         If (number Mod 10) Mod 2 = 0 Then
     
114.             sex = False 'female
     
115.         Else
     
116.             sex = True 'male
     
117.         End If
     
118. End Sub

Copy the Code

snippet :-

1. <?xml version="1.0" encoding="utf-8"?>
   
2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
   
3.   <CodeSnippet Format="1.0.0">
   
4.     <Header>
   
5.       <Title>mykad</Title>
   
6.       <Author />
   
7.       <Description />
   
8.       <HelpUrl />
   
9.       <SnippetTypes />
   
10.       <Keywords />
    
11.       <Shortcut />
    
12.     </Header>
    
13.     <Snippet>
    
14.       <References />
    
15.       <Imports />
    
16.       <Declarations>
    
17.         <Literal Editable="true">
    
18.           <ID>dateOfBirth</ID>
    
19.           <Type />
    
20.           <ToolTip />
    
21.           <Default>dateOfBirth</Default>
    
22.           <Function />
    
23.         </Literal>
    
24.         <Literal Editable="true">
    
25.           <ID>placeOfBirth</ID>
    
26.           <Type />
    
27.           <ToolTip />
    
28.           <Default>placeOfBirth</Default>
    
29.           <Function />
    
30.         </Literal>
    
31.         <Literal Editable="true">
    
32.           <ID>gender</ID>
    
33.           <Type />
    
34.           <ToolTip>true = female, false = male</ToolTip>
    
35.           <Default>gender</Default>
    
36.           <Function />
    
37.         </Literal>
    
38.         <Literal Editable="true">
    
39.           <ID>############</ID>
    
40.           <Type />
    
41.           <ToolTip />
    
42.           <Default>############</Default>
    
43.           <Function />
    
44.         </Literal>
    
45.       </Declarations>
    
46.       <Code Language="VB" Kind="" Delimiter="$"><![CDATA[Dim $dateOfBirth$As Date
    
47. Dim $placeOfBirth$() As String
    
48. Dim $gender$As Boolean
    
49. mykad($############$, $dateOfBirth$, $placeOfBirth$, $gender$)]]></Code>
    
50.     </Snippet>
    
51.   </CodeSnippet>
    
52. </CodeSnippets>

Copy the Code

bowring

boleh terangkan dahulu x? apakah maksud code snippets?