AN3224 datasheet(21/49 Pages) STMICROELECTRONICS

21 / 49 page

AN3224

PR101-USB and MR101-USB reader detection

Doc ID 17559 Rev 2

21/49

Dim strDeviceHnd(0 To 15) As String * 8

Dim strPresent(0 To 15) As String * 25

Dim strDeviceID(0 To 15) As String * 8

Dim dwHandle As Long

Dim iHandle As Long

'init display

‘txtDetectResult.Text = ""

oSearch.iMask = 0

'--- Clear Scan List (dll function)

FEUSB_ClearScanList ' should be called before every scan process

'--- scan and open in one process (dll function)

DeviceHnd = FEUSB_Scan(FEUSB_SCAN_ALL, oSearch)

If (DeviceHnd = FEUSB_ERR_NO_DEVICE_FOUND) Then

'--- txtScannedReaders.Text = "NO READER DETECTED"

Else

'---Number of USB device connected

lngReaderNumber = FEUSB_GetScanListSize

For i = 1 To lngReaderNumber

'--- Get System parameters of all detected USB devices

error = FEUSB_GetScanListPara(0, "DeviceHnd", strDeviceHnd(i))

error = FEUSB_GetScanListPara(0, "FamilyName",

strFamilyName(i))

error = FEUSB_GetScanListPara(0, "DeviceName",

strDeviceName(i))

error = FEUSB_GetScanListPara(0, "Present", strPresent(i))

error = FEUSB_GetScanListPara(0, "Device-ID", strDeviceID(i))

'--- decode lngDeviceHnd(i) value

CharCnt = 0

lngDeviceHnd(i) = 0

For Cnt = 1 To 8

Char = UCase(Mid(strDeviceHnd(i), 9 - Cnt, 1))

If ((Char >= "0") And (Char <= "9")) Then

lngDeviceHnd(i) = lngDeviceHnd(i) + (Asc(Char) - 48) * _

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

If ((Char >= "A") And (Char <= "F")) Then

lngDeviceHnd(i) = lngDeviceHnd(i) + (Asc(Char) - 55) * _

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

Next Cnt

'--- decode strFamilyName(i) value

strFamilyName(i) = ""

For Cnt = 1 To 25

Char = UCase(Mid(strFamilyName(i), Cnt, 1))

If (((Char >= "0") And (Char <= "9")) Or _

((Char >= "A") And (Char <= "Z")) Or _

AN3224 数据表(PDF) 21 Page - STMicroelectronics

AN3224 数据表(HTML) 21 Page - STMicroelectronics

Html Pages

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

数据表下载