AIDEC SpaceX

軟體名稱:身分證產生器
軟體大小:23.5KB
開發軟件:VB2008
軟體介紹:隨機產生身分證號,適合用在開遊戲分身,或無聊手癢想亂按時,都可以使用喔^^
但請不要用在非法用途上,否則被抓到我可不管喔><

檔案下載:
• 身分證產生器(VB2008)下載頁面

以下為軟體的程式碼,適合給學VB2008的初學者參考學習,高手或對VB沒興趣者,請自動忽略以下內容喔!!

原始碼:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ID As String
Dim x = “10-11-12-13-14-15-16-17-18-19-20-21-22-23”
x = x & “24-25-26-27-28-29-30-31-32-33-35-34-35”
Dim alpha() = Split(x, “-“)
Dim r As New Random
Dim city As Integer = Integer.Parse(ComboBox1.SelectedIndex)
Dim sex As Integer = Integer.Parse(ComboBox2.SelectedIndex)
Dim b
ID = Chr(65 + city)
Dim strc As String = alpha(ComboBox1.SelectedIndex)
‘ ———————–
b = sex + 1
ID &= b.ToString : strc &= b.ToString
‘用亂數產生 7 個流水數字
For a As Integer = 1 To 7
b = r.Next(10)
ID &= b.ToString : strc &= b.ToString
Next
‘——————————
Dim chick = Val(Mid(strc, 1, 1))
For a As Integer = 2 To 10
chick += Val(Mid(strc, a, 1)) * (11 – a)
Next
chick = chick Mod 10
If chick <> 0 Then chick = 10 – chick
ID &= chick.ToString
TextBox1.Text = ID

End Sub

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

‘選擇縣市

ComboBox1.Items.Add(“臺北市(A)”) ’10

ComboBox1.Items.Add(“臺中市(B)”) ’11

ComboBox1.Items.Add(“基隆市(C)”) ’12

ComboBox1.Items.Add(“臺南市(D)”) ’13

ComboBox1.Items.Add(“高雄市(E)”) ’14

ComboBox1.Items.Add(“臺北縣(F)”) ’15

ComboBox1.Items.Add(“宜蘭縣(G)”) ’16

ComboBox1.Items.Add(“桃園縣(H)”) ’17

ComboBox1.Items.Add(“嘉義市(I)”) ’34

ComboBox1.Items.Add(“新竹縣(J)”) ’18

ComboBox1.Items.Add(“苗栗縣(K)”) ’19

ComboBox1.Items.Add(“臺中縣(L)”) ’20

ComboBox1.Items.Add(“南投縣(M)”) ’21

ComboBox1.Items.Add(“彰化縣(N)”) ’22

ComboBox1.Items.Add(“新竹市(O)”) ’35

ComboBox1.Items.Add(“雲林縣(P)”) ’23

ComboBox1.Items.Add(“嘉義縣(Q)”) ’24

ComboBox1.Items.Add(“臺南縣(R)”) ’25

ComboBox1.Items.Add(“高雄縣(S)”) ’26

ComboBox1.Items.Add(“屏東縣(T)”) ’27

ComboBox1.Items.Add(“花蓮縣(U)”) ’28

ComboBox1.Items.Add(“臺東縣(V)”) ’29

ComboBox1.Items.Add(“金門縣(W)”) ’32

ComboBox1.Items.Add(“澎湖縣(X)”) ’30

ComboBox1.Items.Add(“陽明山(Y)”) ’31

ComboBox1.Items.Add(“連江縣(Z)”) ’33

ComboBox1.SelectedItem = “臺北市(A)”

‘選擇性別

ComboBox2.Items.Add(“男”) ’35

ComboBox2.Items.Add(“女”) ’34

ComboBox2.SelectedItem = “男”

End Sub
End Class

原始碼結束

感謝您的閱讀，請用力地分享讓大家知道吧~~