VB串口和單片機讀IC卡上位機源程序

通過串口和單片機通訊的ic卡讀卡程序VB源碼.rar (55.17 KB, 售價: 1 E幣)

2020-5-3 18:02 上傳

點擊文件名下載附件
售價: 1 E幣  [記錄]  [購買]

1. Attribute VB_Name = "IC卡管理自動記錄系統"
   
2. Attribute VB_GlobalNameSpace = False
   
3. Attribute VB_Creatable = False
   
4. Attribute VB_PredeclaredId = True
   
5. Attribute VB_Exposed = False
   
6. Option Explicit
   
7. Public inData As String '串口中斷時讀入的字符串
   
8. Dim TEXT_OK As Boolean
   
9. Dim text1_temp As String
   
10. Dim t7 As String
    
11. 
    
12. 
    
13. 
    
14. Private Sub Command2_Click()
    
15. data1.Recordset.MovePrevious
    
16. If data1.Recordset.BOF Then data1.Recordset.MoveFirst
    
17. Text1.Text = data1.Recordset("卡號")
    
18. Text2.Text = data1.Recordset("姓名")
    
19. Text3.Text = data1.Recordset("班級")
    
20. Text4.Text = data1.Recordset("余額")
    
21. Text5.Text = data1.Recordset("日期")
    
22. Text6.Text = data1.Recordset("時間")
    
23. 
    
24. Text9.Text = Format(CStr(CStr((CSng(Text4.Text) * 100) \ 60)), "#00") & "小時" & Format(CStr(CStr((CSng(Text4.Text) * 100) Mod 60)), "#00") & " 分鐘"
    
25. data1.UpdateRecord
    
26. End Sub
    
27. 
    
28. Private Sub Command3_Click()
    
29. 
    
30. If data1.Recordset.EOF = False Then data1.Recordset.MoveNext
    
31. If data1.Recordset.EOF Then data1.Recordset.MoveLast
    
32. Text1.Text = data1.Recordset("卡號")
    
33. Text2.Text = data1.Recordset("姓名")
    
34. Text3.Text = data1.Recordset("班級")
    
35. Text4.Text = data1.Recordset("余額")
    
36. Text5.Text = data1.Recordset("日期")
    
37. Text6.Text = data1.Recordset("時間")
    
38. data1.UpdateRecord
    
39. 
    
40. Text9.Text = Format(CStr(CStr((CSng(Text4.Text) * 100) \ 60)), "#00") & "小時" & Format(CStr(CStr((CSng(Text4.Text) * 100) Mod 60)), "#00") & " 分鐘"
    
41. End Sub
    
42. 
    
43. Sub 找卡號()
    
44. Dim n, m As Integer
    
45. data1.Refresh
    
46. data1.Recordset.MoveLast
    
47. m = data1.Recordset.RecordCount
    
48. data1.Refresh
    
49. data1.Recordset.MoveFirst
    
50. 
    
51. For n = 1 To m Step 1
    
52.     If Text1.Text = data1.Recordset("卡號") Then
    
53.         Text1.Text = data1.Recordset("卡號")
    
54.         'Text2.Text = data1.Recordset("姓名")
    
55.         'Text3.Text = data1.Recordset("班級")
    
56.     End If
    
57.     data1.Recordset.MoveNext
    
58. Next n
    
59. End Sub
    
60. 
    
61. 
    
62. 
    
63. 
    
64. Private Sub Command6_Click()
    
65. Timer2.Enabled = True
    
66. Command9.Enabled = True
    
67. Command6.Enabled = False
    
68. End Sub
    
69. 
    
70. Private Sub Command7_Click()
    
71. 
    
72. Text1.Text = ""
    
73. 
    
74. Text2.Text = ""
    
75. Text3.Text = ""
    
76. Text4.Text = ""
    
77. MSComm1.Output = "rr12345678" '把查詢命令發出到串口
    
78. End Sub
    
79. Private Sub Command8_Click()
    
80. Dim NUM, n, m As Integer
    
81. 
    
82. Call CACK_TEXT
    
83. If TEXT_OK = True Then
    
84.     NUM = Val(Text4.Text)
    
85.     n = NUM \ 256
    
86.     m = NUM - n * 256
    
87.     'Call 寫入單片機
    
88.    
    
89.     Call 寫入數據庫
    
90.     text1_temp = Text1.Text
    
91.     Text1.Text = ""
    
92. Else
    
93.     n = MsgBox("請正確輸入", 5 + vbExclamation, "錯誤")
    
94. End If
    
95. 
    
96. End Sub
    
97. Sub 寫入單片機()
    
98. Dim adsafdds As String
    
99. Dim yuer1, yuer2 As String
    
100. yuer1 = Format(CStr(CStr((CSng(Text4.Text) * 100) \ 60)), "#00")
     
101. yuer2 = Format(CStr(CStr((CSng(Text4.Text) * 100) Mod 60)), "#00")
     
102. 
     
103. adsafdds = "ss" & Text1.Text & yuer1 & yuer2
     
104. MSComm1.Output = adsafdds
     
105. 
     
106. End Sub
     
107. 
     
108. Private Sub Command9_Click()
     
109. Timer2.Enabled = False
     
110. Command6.Enabled = True
     
111. Command9.Enabled = False
     
112. End Sub
     
113. 
     
114. Private Sub Form_Load()
     
115. MSComm1.PortOpen = True
     
116. MSComm1.RThreshold = 1
     
117. Command8.Enabled = False
     
118. Command6.Enabled = True
     
119. Command9.Enabled = False
     
120. End Sub
     
121. Sub CACK_TEXT()
     
122. TEXT_OK = False
     
123. If (Len(Text1.Text) = 4 And Len(Text4.Text) < 6) Then TEXT_OK = True
     
124. End Sub
     
125. Sub 寫入數據庫()
     
126. data1.Refresh
     
127. data1.Recordset.MoveLast
     
128. data1.Recordset.AddNew
     
129. data1.Recordset("卡號") = Text1.Text
     
130. 'data1.Recordset("姓名") = Text2.Text
     
131. 'data1.Recordset("班級") = Text3.Text
     
132. data1.Recordset("余額") = Text4.Text
     
133. data1.Recordset("日期") = Date
     
134. data1.Recordset("時間") = Time()
     
135. data1.UpdateRecord
     
136. 
     
137. End Sub
     
138. 
     
139. 
     
140. Private Sub MSComm1_OnComm() '串口中斷
     
141. 'On Error Resume Next
     
142. Static bFlag As Boolean
     
143. Static Xbyte As Long
     
144. Select Case MSComm1.CommEvent '選擇事件
     
145. Case comEvReceive '接收到字符
     
146. Dim I As Integer
     
147.         Dim InByte() As Byte '定義一個二進制指針放接收到的數據
     
148.         InByte = MSComm1.Input '數據轉移到指針
     
149.         Dim j As Long
     
150.         For j = 0 To UBound(InByte) '循環到指針上標
     
151.             
     
152.             inData = inData & Chr(InByte(j)) '取出一個字節換為16進制顯示用
     
153.          
     
154.         Next j
     
155. DoEvents
     
156.     Text1.SelText = inData '將剛收到的字符串顯示出來
     
157.     inData = ""
     
158. Text1.SelStart = Len(Text1.Text) '光標置后
     
159.   If Len(Text1.Text) = 10 Then
     
160.     Call 計算
     
161.     'Call 找卡號
     
162.   End If
     
163. Case comEventRxOver '接收緩沖區滿的處理
     
164. MsgBox "接收緩沖區滿了！" '發出警告
     
165. End Select
     
166. 
     
167. End Sub
     
168. 
     
169. Sub 計算()
     
170. Dim temp As String
     
171. Dim 標志 As String
     
172. Dim k As Integer
     
173. Dim yuer1   As String
     
174. Dim 余額    As Integer
     
175. temp = Text1.Text
     
176. 
     
177. 標志 = Left(temp, 1)
     
178. temp = Right(temp, Len(temp) - 2)
     
179. Select Case 標志
     
180.     Case "s"
     
181.         Text1.Text = Left(temp, 4)
     
182.         
     
183.     Case "r"
     
184.         Text1.Text = ""
     
185.         MsgBox "寫卡成功!!!!!"
     
186. 
     
187.         GoTo 計算end
     
188.     Case Else
     
189.         Text1.Text = ""
     
190.         MsgBox "通訊有誤??????"
     
191.         GoTo 計算end
     
192. End Select
     
193.     temp = Right(temp, 4)
     
194.     Text9.Text = Left(temp, 2) & "小時" & Right(temp, 2) & "分鐘"
     
195.     Text4.Text = Format(CStr((CSng(Left(temp, 2) * 60 + CSng(Right(temp, 2)))) / 100), "#00.00")
     
196. 計算end:
     
197.    
     
198. End Sub
     
199. 
     
200. 
     
201. ……………………
     
202. 
     
203. …………限于本文篇幅 余下代碼請下載附件…………

復制代碼

【必讀】版權免責聲明

1、本主題所有言論和內容純屬會員個人意見，與本論壇立場無關。2、本站對所發內容真實性、客觀性、可用性不做任何保證也不負任何責任，網友之間僅出于學習目的進行交流。3、對提供的數字內容不擁有任何權利，其版權歸原著者擁有。請勿將該數字內容進行商業交易、轉載等行為，該內容只為學習所提供，使用后發生的一切問題與本站無關。 4、本網站不保證本站提供的下載資源的準確性、安全性和完整性;同時本網站也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的損失或傷害。 5、本網站所有軟件和資料均為網友推薦收集整理而來，僅供學習用途使用，請務必下載后兩小時內刪除，禁止商用。6、如有侵犯你版權的，請及時聯系我們（電子郵箱1370723259@qq.com）指出，本站將立即改正。