VB串口和单片机读IC卡上位机源程序

通过串口和单片机通讯的ic卡读卡程序VB源码.rar (55.17 KB, 售价: 1 E币)

2020-5-3 18:02 上传

点击文件名下载附件

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）指出，本站将立即改正。