Rwm600 13 56mhz
Download
1 / 11

RWM600 (13.56MHz) - PowerPoint PPT Presentation


  • 81 Views
  • Uploaded on

Reader. Antenna. RWM600 (13.56MHz). PCR300 硬體設備架設. RS232. VB + MSCOMM. USB. Step1 :安裝 RWM600X.OCX 元件. VB 讀取 RWM600 資料. Command1 & command2. RWM600x. label1. listbox. Step2 :設計介面. VB 讀取 RWM600 資料. VB 讀取 RWM600 資料. Step3 : 撰寫抓取資料程式 Form_Load :清空 listbox Command1_Click :啟動連線

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' RWM600 (13.56MHz)' - fordon


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Rwm600 13 56mhz

Reader

Antenna

RWM600 (13.56MHz)


Pcr300

PCR300硬體設備架設

RS232

VB

+

MSCOMM

USB


Vb rwm600

Step1:安裝RWM600X.OCX元件

VB讀取RWM600資料


Vb rwm6001

Command1 & command2

RWM600x

label1

listbox

Step2:設計介面

VB讀取RWM600資料


Vb rwm6002

VB讀取RWM600資料

  • Step3:撰寫抓取資料程式

    • Form_Load:清空listbox

    • Command1_Click:啟動連線

    • Command2_Click:關閉連線

    • RWM600x_OnTagEvent:擷取資料

    • MODULE1:模組程式


變數與API函數宣告

Const LB_FINDSTRING = &H18F

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _

lParam As Any) As Long

  • Private Sub Form_Load()

    • List1.Clear

  • End Sub


Private Sub Command1_Click()

Dim port As String, I As Integer

Dim ver As String

For I = 0 To 255

port = RWM600x.EnumCommPort(I)

If port <> "" Then

RWM600x.CommPort = Val(Mid(port, 4))

RWM600x.PortOpen = True

If RWM600x.PortOpen Then

ver = RWM600x.gnetVersion

If InStr(ver, "PGM-T0562") > 0 Then

Me.Caption = "ISO15693 Demo " & demoVer & " (" & port & ":" & ver & ")"

RWM600x.EnableAutoMode = True

Exit Sub

End If

RWM600x.PortOpen = False

End If

Else

Exit For

End If

Next I

Command2.Enabled = 1

Command1.Enabled = 0

End Sub


Private Sub Command2_Click()

MsgBox "連線關閉"

RWM600x.PortOpen = False

Command1.Enabled = 1

Command2.Enabled = 0

Me.Caption = "RWM600SK系統"

End Sub


Private Sub RWM600x_OnTagEvent(ByVal nEvent As Integer, ByVal nDSFID As Integer)

Dim bUID(7) As Byte ' Byte Array for UID, Size 8 Bytes (0~7)

Dim szUID As String

Dim I As Long

Select Case nEvent

Case TAG_PRESENT

With RWM600x

.GetCurrentUID VarPtr(bUID(0))

szUID = BytesToHexRev(bUID) 'szUID卡號

List1.AddItem szUID

Label1.Caption = "卡片數:" + Str(List1.ListCount)

End With

Case TAG_REMOVED

With RWM600x

.GetCurrentUID VarPtr(bUID(0))

End With

szUID = BytesToHexRev(bUID)

List1.RemoveItem (SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(szUID)))

Label1.Caption = "卡片數:" + Str(List1.ListCount)

End Select

End Sub

抓到的是16進制資料,需要轉換成10進制


Public total_card As Integer ByVal nDSFID As Integer)

Public Function BytesToHexRev(ByRef bData() As Byte) As String

Dim I As Long, szData As String

On Error GoTo Err_Proc

For I = LBound(bData) To UBound(bData)

szData = Right$(Hex$(&H100 + bData(I)), 2) & szData

Next I

Err_Exit:

BytesToHexRev = szData

Exit Function

Err_Proc:

Debug.Print "ByteToHex - " & Err.Description & "(" & Err.Number & ")"

szData = vbNullString

Resume Err_Exit

End Function


Rwm600

  • 讀取方向:天線 ByVal nDSFID As Integer)(Antenna)前後左右上下(ㄧ次一片)

  • 卡片完全重疊讀取(兩張)

  • 卡片重疊但離開一段距離讀取(兩張)

  • 卡片錯開讀取(兩張)

  • 卡片與讀卡機垂直讀取(ㄧ張)

  • 直接丟卡片上去(三張)

  • 一張張放上去(三張)

  • 將卡片放在書裡面一本本放上去(三張)

  • 讀到三張卡片後,一張張拿走

  • 隔著壓克力讀取,看讀取距離的變化

  • 隔著水讀取,看讀取距離的變化

  • 隔著鐵讀取,看讀取距離的變化

  • 貼在人身上讀取,看讀取距離的變化

  • 隔著PVC讀取,看讀取距離的變化

  • 隔著木頭讀取,看讀取距離的變化

  • 旁邊使用大哥大,看是否影響讀取

  • RWM600測試項目