AN3224 datasheet(22/49 Pages) STMICROELECTRONICS

22 / 49 page

PR101-USB and MR101-USB reader detection

AN3224

22/49

Doc ID 17559 Rev 2

(Char = "-") Or (Char = ".") Or (Char = " ")) Then

strFamilyName(i) = strFamilyName(i) & Char

End If

Next Cnt

'--- decode strDeviceName(i) value

strDeviceName(i) = ""

For Cnt = 1 To 25

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

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

And (Char <= "Z")) Or (Char = "-") Or (Char = ".") Or _

(Char = " ")) Then

strDeviceName(i) = strDeviceName(i) & Char

End If

Next Cnt

'-- decode strDeviceID value

CharCnt = 0

lngDeviceId(i) = 0

For Cnt = 1 To 8

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

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

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

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

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

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

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

Next Cnt

'-- decode strPresent value

CharCnt = 0

lngPresent(i) = 0

For Cnt = 1 To 8

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

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

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

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

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

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

(16 ^ CharCnt)

CharCnt = CharCnt + 1

End If

Next Cnt

'--- summary of Detected Device parameters for One USB device

'- txtDeviceHandle.Text = "DeviceHnd : " & lngDeviceHnd(i)

'- txtFamilyName.Text = "FamilyName : " & strFamilyName(i)

'- txtDeviceName.Text = "DeviceName : " & strDeviceName(i)

'- txtPresent.Text = "Present : " & CLng("&h" & lngPresent(i))

AN3224 Datasheet(PDF) 22 Page - STMicroelectronics

AN3224 Datasheet(HTML) 22 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

Datasheet Download

Link URL