设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 程序设计/上位机 › VB串口和单片机读IC卡上位机源程序
返回列表 发新帖
查看: 4231|回复: 4
打印 上一主题 下一主题
收起左侧

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

[复制链接]
跳转到指定楼层
楼主
ID:237723 发表于 2017-10-8 11:33 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
VB写的串口和单片机读卡程序 有需要的下


所有资料51hei提供下载:
自己写的通过串口和单片机通讯的ic卡读卡程序.rar (55.17 KB, 下载次数: 73)


vb源程序如下:
  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



  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("时间")

  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

  28. Private Sub Command3_Click()

  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

  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

  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

  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




  64. Private Sub Command6_Click()
  65. Timer2.Enabled = True
  66. Command9.Enabled = True
  67. Command6.Enabled = False
  68. End Sub

  70. Private Sub Command7_Click()

  72. Text1.Text = ""

  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

  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

  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")

  103. adsafdds = "ss" & Text1.Text & yuer1 & yuer2
  104. MSComm1.Output = adsafdds

  106. End Sub

  108. Private Sub Command9_Click()
  109. Timer2.Enabled = False
  110. Command6.Enabled = True
  111. Command9.Enabled = False
  112. End Sub

  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

  137. End Sub


  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

  167. End Sub

  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

  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 "写卡成功!!!!!"

  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


  201. ……………………

  203. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码




分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏3 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:130231 发表于 2017-10-8 22:25 | 只看该作者
请教一下用什么单片机好。
回复

使用道具 举报

板凳
ID:241242 发表于 2017-11-17 13:37 | 只看该作者
真是不错
回复

使用道具 举报

地板
ID:241242 发表于 2017-11-17 13:37 | 只看该作者
刷卡器和单片机连接，然后单片机再和VB通过串口连接吗？
回复

使用道具 举报

5#
ID:252862 发表于 2017-11-25 16:20 | 只看该作者
正在学习IC卡的单片机和上位机通信，多谢分享。
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表