找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 4559|回復(fù): 4
打印 上一主題 下一主題
收起左側(cè)

VB串口和單片機(jī)讀IC卡上位機(jī)源程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
VB寫的串口和單片機(jī)讀卡程序 有需要的下


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


vb源程序如下:
  1. Attribute VB_Name = "IC卡管理自動(dòng)記錄系統(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 '串口中斷時(shí)讀入的字符串
  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("卡號(hào)")
  18. Text2.Text = data1.Recordset("姓名")
  19. Text3.Text = data1.Recordset("班級(jí)")
  20. Text4.Text = data1.Recordset("余額")
  21. Text5.Text = data1.Recordset("日期")
  22. Text6.Text = data1.Recordset("時(shí)間")

  24. Text9.Text = Format(CStr(CStr((CSng(Text4.Text) * 100) \ 60)), "#00") & "小時(shí)" & 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("卡號(hào)")
  33. Text2.Text = data1.Recordset("姓名")
  34. Text3.Text = data1.Recordset("班級(jí)")
  35. Text4.Text = data1.Recordset("余額")
  36. Text5.Text = data1.Recordset("日期")
  37. Text6.Text = data1.Recordset("時(shí)間")
  38. data1.UpdateRecord

  40. Text9.Text = Format(CStr(CStr((CSng(Text4.Text) * 100) \ 60)), "#00") & "小時(shí)" & Format(CStr(CStr((CSng(Text4.Text) * 100) Mod 60)), "#00") & " 分鐘"
  41. End Sub

  43. Sub 找卡號(hào)()
  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("卡號(hào)") Then
  53.         Text1.Text = data1.Recordset("卡號(hào)")
  54.         'Text2.Text = data1.Recordset("姓名")
  55.         'Text3.Text = data1.Recordset("班級(jí)")
  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 寫入單片機(jī)
  88.    
  89.     Call 寫入數(shù)據(jù)庫
  90.     text1_temp = Text1.Text
  91.     Text1.Text = ""
  92. Else
  93.     n = MsgBox("請(qǐng)正確輸入", 5 + vbExclamation, "錯(cuò)誤")
  94. End If

  96. End Sub
  97. Sub 寫入單片機(jī)()
  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("卡號(hào)") = Text1.Text
  130. 'data1.Recordset("姓名") = Text2.Text
  131. 'data1.Recordset("班級(jí)") = Text3.Text
  132. data1.Recordset("余額") = Text4.Text
  133. data1.Recordset("日期") = Date
  134. data1.Recordset("時(shí)間") = 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 '定義一個(gè)二進(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)) '取出一個(gè)字節(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 計(jì)算
  161.     'Call 找卡號(hào)
  162.   End If
  163. Case comEventRxOver '接收緩沖區(qū)滿的處理
  164. MsgBox "接收緩沖區(qū)滿了！" '發(fā)出警告
  165. End Select

  167. End Sub

  169. Sub 計(jì)算()
  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 計(jì)算end
  188.     Case Else
  189.         Text1.Text = ""
  190.         MsgBox "通訊有誤??????"
  191.         GoTo 計(jì)算end
  192. End Select
  193.     temp = Right(temp, 4)
  194.     Text9.Text = Left(temp, 2) & "小時(shí)" & Right(temp, 2) & "分鐘"
  195.     Text4.Text = Format(CStr((CSng(Left(temp, 2) * 60 + CSng(Right(temp, 2)))) / 100), "#00.00")
  196. 計(jì)算end:
  197.    
  198. End Sub


  201. ……………………

  203. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼




分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏3 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:130231 發(fā)表于 2017-10-8 22:25 | 只看該作者
請(qǐng)教一下用什么單片機(jī)好。
回復(fù)

使用道具 舉報(bào)

板凳
ID:241242 發(fā)表于 2017-11-17 13:37 | 只看該作者
真是不錯(cuò)
回復(fù)

使用道具 舉報(bào)

地板
ID:241242 發(fā)表于 2017-11-17 13:37 | 只看該作者
刷卡器和單片機(jī)連接，然后單片機(jī)再和VB通過串口連接嗎？
回復(fù)

使用道具 舉報(bào)

5#
ID:252862 發(fā)表于 2017-11-25 16:20 | 只看該作者
正在學(xué)習(xí)IC卡的單片機(jī)和上位機(jī)通信，多謝分享。
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表