久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標(biāo)題: VB串口和單片機讀IC卡上位機源程序 [打印本頁]
作者: qyh123456    時間: 2017-10-8 11:33
標(biāo)題: VB串口和單片機讀IC卡上位機源程序
VB寫的串口和單片機讀卡程序 有需要的下


所有資料51hei提供下載:
自己寫的通過串口和單片機通訊的ic卡讀卡程序.rar (55.17 KB, 下載次數(shù): 73)


vb源程序如下:
  1. Attribute VB_Name = "IC卡管理自動記錄系統(tǒng)"
  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" '把查詢命令發(fā)出到串口
  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 寫入數(shù)據(jù)庫
  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 寫入數(shù)據(jù)庫()
  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 '定義一個二進(jìn)制指針放接收到的數(shù)據(jù)
  148.         InByte = MSComm1.Input '數(shù)據(jù)轉(zhuǎn)移到指針
  149.         Dim j As Long
  150.         For j = 0 To UBound(InByte) '循環(huán)到指針上標(biāo)
  151.             
  152.             inData = inData & Chr(InByte(j)) '取出一個字節(jié)換為16進(jìn)制顯示用
  153.          
  154.         Next j
  155. DoEvents
  156.     Text1.SelText = inData '將剛收到的字符串顯示出來
  157.     inData = ""
  158. Text1.SelStart = Len(Text1.Text) '光標(biāo)置后
  159.   If Len(Text1.Text) = 10 Then
  160.     Call 計算
  161.     'Call 找卡號
  162.   End If
  163. Case comEventRxOver '接收緩沖區(qū)滿的處理
  164. MsgBox "接收緩沖區(qū)滿了！" '發(fā)出警告
  165. End Select

  167. End Sub

  169. Sub 計算()
  170. Dim temp As String
  171. Dim 標(biāo)志 As String
  172. Dim k As Integer
  173. Dim yuer1   As String
  174. Dim 余額    As Integer
  175. temp = Text1.Text

  177. 標(biāo)志 = Left(temp, 1)
  178. temp = Right(temp, Len(temp) - 2)
  179. Select Case 標(biāo)志
  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黑下載附件…………
復(fù)制代碼




作者: zqy181818    時間: 2017-10-8 22:25
請教一下用什么單片機好。
作者: todaljy    時間: 2017-11-17 13:37
真是不錯
作者: todaljy    時間: 2017-11-17 13:37
刷卡器和單片機連接，然后單片機再和VB通過串口連接嗎？
作者: roger615    時間: 2017-11-25 16:20
正在學(xué)習(xí)IC卡的單片機和上位機通信，多謝分享。



歡迎光臨 (http://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 精品一区二区在线播放 | 久久久久久久97 | 免费av网站在线观看 | 狠狠躁日日躁夜夜躁2022麻豆 | 一级特黄色片 | 久久久久久中文字幕 | 国产麻豆视频 | 国 产 黄 色 大 片 | 天天干狠狠操 | 操小妹影院 | 韩日视频| 日韩精品成人免费观看视频 | 中文字幕二区 | 国产一区二区三区免费 | 91av免费在线观看 | 四虎wz| 中文字幕综合网 | 激情丁香 | 日韩精品一区二区三区中文在线 | 欧美理论在线观看 | 在线观看小视频 | 激情视频网址 | 少妇一级淫片免费观看 | 日韩毛片在线 | 久草视频在线播放 | 麻豆一区二区 | 国产免费一区二区 | 福利视频导航大全 | 亚洲男人在线 | 国产午夜免费视频 | 国产aⅴ爽av久久久久成人 | 伊人久久网站 | 一区二区三区四区av | 黄色av免费看| 91久久久久久久久 | 国产1级片 | 欧美午夜片 | 涩涩久久 | 国产999视频 | 亚洲综合区 | 日本一级大毛片a一 |