Discussion :

[francky42]

Bonjour à tous j'ai un gors problème pour faire une ligne de code pas très simple à visualisé.

Code :

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

ItemsDef(IndItem) = DeviceAddress & ("%MW" & Str(MotDepart) + ":20 ")

où ItemsDef(IndItem) est un string
où MotDepart est un long(mais je peux changer si cela est plus arrangeant à programmer)
où DeviceAddress est un string

En faite je veux lire dans un serveur opc les mots que je souhaite, dessous je recherche les mots 100..101...jusquà 119 et j'aimerais bien arriver à remplacer grâce à vous 100 et 20 par des variables.

Code :

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

ItemsDef(IndItem) = DeviceAddress & "!%MW100:20 "

Donc en résumé je cherche à convertir le long en string mais comme j'ai plusieurs je m'y perds facilement.

Merci d'avance

[littledoudou]

bonjour,

Code :

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

1
2
3
4
5
6
7
Dim lngValeur1 As Long
Dim lngValeur2 As Long
'...
lngValeur1 = 100
lngValeur2 = 20
'...
ItemsDef(IndItem) = DeviceAddress & "!%MW" & CStr(lngValeur1) & ":" & CStr(lngValeur2)

ensuite il faut faire une boucle pour ta variable de 100 à 119

Code :

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

1
2
3
For lngValeur1 = 100 To 119
'...
Next

cdlt,

[francky42]

Merci petitdoudou pour ta réponse mais le problème n'est pas résolu en effet je me suis surement mal expliqué mais 100 et 20 je ne vois les voir directement c'est à l'utilisateur de marqué à quel mot il veut commencer(ici 100 par exemple) et combien de mots veut-il lire (20 par exemple)

Avec ce que tu m'as dit j'ai essayé cela sans succès :

Code :

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

ItemsDef(IndItem) = DeviceAddress & "!%MW" & CStr(MotDepart) & ":" & CStr(NombreMot)

Mais j'ai toujours mon erreur 1040 qui survient car la syntaxe de cette n'est pas correcte.

Merci encore

[littledoudou]

re...
peux-tu nous montrer la partie du code concernant la déclaration de tes variables (ItemsDef, DeviceAddress, MotDepart, ...)?

[francky42]

Oui pas de soucis.

Code :

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

1
2
3
4
5
Dim ItemsDef(NBR_ITEMS)   As String
Dim DeviceAddress         As String
Dim IndItem               As Long
Dim MotDepart             As Long
Dim NombreMot             As Long

Merci

[littledoudou]

j'ai fait un test de mon coté sans problème. je remplis mon tableau avec "toto!%MW100:20", "toto!%MW101:20", "toto!%MW102:20", ...

• ton erreur survient lors de la compilation (CTRL+F5) ou lors de l'exécution?
• que vaut NBR_ITEMS?
• dans ItemsDef(IndItem), IndItem est-il supérieur ou inférieur à NBR_ITEMS?
• quel est le message d'erreur exact? (car il me semble que le numéro d'erreur 1040 corresponde à une erreur gérée par l'utilisateur)