PR150 (125K) Reader RS232
PR150硬體設備架設 RS232 VB + MSCOMM
VB讀取PR150資料 Step1：加入MSCOMM元件 Microsoft Comm Control 6.0
VB讀取PR150資料 Step2：使用MSCOMM元件 同時加入其他元件
VB讀取PR150資料 Step3：設定MSCOMM元件 MSCOMM的Rthreshold屬性設定成1
VB讀取PR150資料 Step4：撰寫抓取資料程式 Form_Load：尋找可以使用的com port連線 Command1_Click：啟動連線 MSComm1_OnComm：擷取資料
Dim Tampon As String Private Sub Form_Load() Combo1.Clear Combo2.Clear s(1) = "2400,n,8,1" s(2) = "4800,n,8,1" s(3) = "9600,n,8,1" s(4) = "19200,n,8,1" For I = 1 To 4 Combo2.AddItem s(I) ‘設定連線速度 Next I For I = 1 To 100 MSComm1.Settings = s(3) MSComm1.CommPort = I MSComm1.PortOpen = True If MSComm1.PortOpen Then Combo1.AddItem CStr(I) ‘設定連線位置 End If MSComm1.PortOpen = False Next End Sub
Private Sub Command1_Click() If Combo1.ListIndex = -1 Or Combo2.ListIndex = -1 Then MsgBox "請選擇讀卡機設定項!", 16, "錯誤" Exit Sub Else If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If On Error GoTo errormsg MSComm1.Settings = Combo2.Text ‘設定連線速度 MSComm1.CommPort = Combo1.Text ‘設定連線位置 MSComm1.PortOpen = True MsgBox "連線成功，請刷卡作最後確認動作!" & vbCrLf & “ _ 如無顯示卡號請選擇其它Port測式" errormsg: MsgBox "讀卡機設定錯誤，請重新設定", 16, "錯誤" End Sub
Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive: Tampon = Tampon & MSComm1.Input '抓取卡號 Text1.Text = Mid(Trim(Tampon), 2, 10) Case comEventFrame: MsgBox "讀卡機設定錯誤!", 16, "錯誤" End Select End Sub
PR150測試項目 測試項目如下，量測其讀取距離(cm)： 讀取方向：前後左右上下 卡片完全重疊讀取 卡片重疊但離開一段距離讀取 卡片錯開讀取 隔著玻璃讀取，看讀取距離的變化 隔著水讀取，看讀取距離的變化 隔著鐵讀取，看讀取距離的變化 貼在人身上讀取，看讀取距離的變化 旁邊使用大哥大，看是否影響讀取 旁邊再放一台PR150，看是否影響讀取