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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ------------------------------------