modpcdshared.bas

an example of programming philips pegoda reader

Attribute VB_Name = "modPcdShared"
'
'    Copyright  lib "MfRc500.dll"c), Philips Semiconductors Gratkorn
'
'                      lib "MfRc500.dll"C)PHILIPS Electronics N.V. 2000
'                        All rights are reserved.
'  Philips reserves the right to make changes without notice at any time.
' Philips makes no warranty, expressed, implied or statutory, including but
' not limited to any implied warranty of merchantibility or fitness for any
'particular purpose, or that the use will not infringe any third party patent,
' copyright or trademark. Philips must not be liable for any loss or damage
'                          arising from its use.
'

' General Include File for serveral defines concerning conditional library
' compilation and microcontroller usage

' Set RF communication timeout
Declare Function PcdSetTmo Lib "MfRc500.dll" Alias "#67" (ByVal numberOfEtus As Long) As Integer

' Read Serial Number from Reader IC
Declare Function PcdGetSnr Lib "MfRc500.dll" Alias "#63" (snr) As Integer

' Get Firmware Version
'Declare Function PcdGetFwVersion Lib "MfRc500.dll" _
'     (version, versionLen) As Integer

' Get Reader IC Version
'Declare Function PcdGetRicVersion Lib "MfRc500.dll" (version) As Integer

' Read EEPROM Memory Block
Declare Function PcdReadE2 Lib "MfRc500.dll" Alias "#64" _
    (ByVal startaddr As Integer, ByVal length As Byte, data) As Integer

' Writes data to the reader IC's EEPROM blocks.
Declare Function PcdWriteE2 Lib "MfRc500.dll" Alias "#68" _
    (ByVal startaddr%, ByVal length As Byte, data) As Integer

' Turns ON'OFF RF field
Declare Function PcdRfReset Lib "MfRc500.dll" Alias "_PcdRfReset@4" (ByVal ms As Integer) As Integer

' Start Transaction Timer
Declare Function HostTransTmrStart Lib "MfRc500.dll" Alias "#31" () As Integer

' Stop Transaction Timer
Declare Function HostTransTmrStop Lib "MfRc500.dll" Alias "#32" (ms) As Integer

' Get Execution Time of previous Command
Declare Function HostGetExecutionTime Lib "MfRc500.dll" Alias "#30" (us) As Integer

' Switch LED
'Declare Function SwitchLED Lib "MfRc500.dll" Alias "#76" (ByVal on_off As Byte) As Integer

' Enable debug trigger
'Declare Function DbgTrigger Lib "MfRc500.dll" (ByVal enableTrigger As Byte) As Integer

' Enter Idle Mode
'Declare Function PcdSetIdleMode Lib "MfRc500.dll" () As Integer

' Enter Idle Mode
'Declare Function PcdClearIdleMode Lib "MfRc500.dll" () As Integer

' Enter download mode
'Declare Function StartDownload Lib "MfRc500.dll" () As Integer

' Get information about the connection status of the device.
Declare Function GetOnlineStatus Lib "MfRc500.dll" Alias "#29" () As Integer

' Transparent Write to Reader IC register
Declare Function WriteRIC Lib "MfRc500.dll" Alias "#78" _
    (ByVal addr As Byte, ByVal value As Byte) As Integer

' Transparent Read to Reader IC register
Declare Function ReadRIC Lib "MfRc500.dll" Alias "#70" _
    (ByVal addr As Byte, value) As Integer

' Transparent Write of multiple register values
Declare Function WriteMultiple Lib "MfRc500.dll" Alias "#77" _
    (addr_value, ByVal length As Integer) As Integer

' Transparent Read of multiple register values
Declare Function ReadMultiple Lib "MfRc500.dll" Alias "#69" _
    (addr_value, ByVal length As Integer) As Integer

' Reset the reader ic
Declare Function PcdReset Lib "MfRc500.dll" Alias "#65" () As Integer

' Exchange Data Stream PCD --> PICC --> PCD
Declare Function ExchangeByteStream Lib "MfRc500.dll" Alias "#28" _
    (ByVal Cmd As Byte, send_data, ByVal send_bytelen As Integer, _
     rec_data, rec_bytelen) As Integer