demande d'explication de code
Bonjour,
Je voudrais traduire le morceau de code suivant en Windev.
LabId_Inventory est une fonction dans une dll incluse dans mon programme (LABIDkit.dll)
Pouvez-vous m'éclairer un peu en me décrivant ligne par ligne le code?
que signifie la ligne : uid = String(1024, "*")
et les lignes:
sn = Mid(uid, i * 8 - 7, 8)
Me.listUid.AddItem (toHexString(StrReverse(sn)))
Dim uid As String ça signifie que 'uid' est une chaine de caractères ou un tableau de chaines ?
Cordialement
F.Souchet
--------------------- début du code ------------------------------------
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub btInventory_Click()
Dim errcode As LabIdReturnValue
Dim uid As String
Dim nTag As Long
Dim i As Long
Dim sn As String
uid = String(1024, "*")
Me.listUid.Clear
errcode = LabId_Inventory(uid, nTag)
If errcode = LabIdReturnValue.OK Then
For i = 1 To nTag
sn = Mid(uid, i * 8 - 7, 8)
currentUid(i - 1) = sn
Me.listUid.AddItem (toHexString(StrReverse(sn)))
Next
nCurrentUid = nTag
End If
End Sub |
--------------------- fin du code ------------------------------------