Discussion :

[fox1976]

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 ------------------------------------

[Delbeke]

Uniquement parceque on est des gentils et pas chauvins


Dim errcode As LabIdReturnValue 'Definit errcode d'un type défini alleurs dans le programme, soit une classe, soit un UDT (user defined type)

Dim uid As String 'definit uid comme variable de type string

Dim nTag As Long 'definit nTag comme une variable de type long

uid = String(1024, "*") 'met une chaine de 1024 charateres blanc dans uid

sn = Mid(uid, i * 8 - 7, 8) 'met dans sn la souchaine contenue dans uid commencant au caractere i*8-7 et d'une longeur de 8

Me.listUid.AddItem (toHexString(StrReverse(sn)))
Me represente la feuille active
listuid represente un composant placé sur la fentre active dont le nom est lstuid, d'apres le nom donné par le programmeur, on pourrait supposer qu'ils'agit d'un listview ou d'une listbox, mais ce n'est pas sur
additem est une methode de listuid
toHexString doit être une fonction définie dans le programme (ce n'est pas un mot clef du language)
strReverse même chose


J'espere que çà aidera

[fox1976]

merci Delbeke d'avoir répondu à mon message !

J'ai un problème quand j'appelle ma dll avec windev.
en vb c'est la ligne errcode = LabId_Inventory(uid, nTag)

en windev je tape:
AppelDLL32("c:\rfid\LABIDKit.dll","LabId_Inventory",Uid,Ntag)
mais ça me met une erreur dans le passage des paramètres Uid et /ou Ntag

mon code windev:
--------------------- début du code ------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Uid,sn est un chaîne
i est un entier long
Ntag est un entier long
Errcod est un entier
 
pour i=1 a 1024
  uid[[i]]=" "
FIN
Errcod=AppelDLL32("c:\rfid\LABIDKit.dll","LabId_Inventory",Uid,Ntag)

---------------------- fin du code ------------------------------


as-tu une idée?
merci

[Delbeke]

Aucune idée,je ne pratique pas windew et en plus je ne connais pas ta dll