Discussion :

[Deathmiwak]

Bonjour,

alors voila je travaille sur des compteuses (machine qui permets de compté des pièces qui passe dans le capteur en donnent différentes info)
dans c'est info il y a le nombre de pièce en plusieurs lignes, il est possible de les imprimés en relient l'automate a un ordinateur puis lancé le excel avec un programme en VB le ick c'est que je ne m'y connais pas du tout.
la seul chose que je sais, sait quand testent la communication entre le pc et l'automate il me dit qu'il y a une erreur, sûrement un souci d'écriture.

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
   Trame_lecture = "@" + "00RD" + MotDeb + MotFin          'Trame lecture 30 mots maxi
    q = 0                                                   'initialisation
    For boucle = 1 To Len(Trame_lecture)                    'Calcul_fin_de_Trame [FCS de (trame_lecture)]
        q = q Xor asc(Mid(Trame_lecture, boucle, 1))
    Next boucle
    fcs = Hex(q)                                            'Conversion en Hexa "fcs"
    Trame_lecture = Trame_lecture + fcs + "*"               'assemblage de la trame lecture
 
    Trame_reception = "@" + "00WD" + "9999" + "FFFF"        'Trame d'acusé reception : FFFF au dm3100
    q = 0 'initialisation
    For boucle = 1 To Len(Trame_reception)                  'Calcul_fin_de_Trame [FCS de (trame_lecture)]
        q = q Xor asc(Mid(Trame_reception, boucle, 1))
    Next boucle
    fcs = Hex(q)                                            'Conversion en Hexa "fcs"
    Trame_reception = Trame_reception + fcs + "*"           'assemblage de la trame reception
 
    Call Communication

la ligne qui bloque est la n°2
Cordialement death

[asmduty]

pense à mettre en forme avec les balise

Code :

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

Code

QUelle est le message d'erreur ?
Où est déclaré q ?

[Deathmiwak]

qu'es que tu entends par mettre en forme avec les balises?

le message d'erreur est

Erreur de compilation: Projet ou bibliothèque introuvable

et quand il y a le message d'erreur le q = est sélectionnait en bleu.

Il est dans *demande de lecture* et *Sub trame ()*

[Sankasssss]

qu'es que tu entends par mettre en forme avec les balises?

Faire comme ceci :



Voir Aide sur l'utilisation des boutons.

[asmduty]

le message d'erreur est
et quand il y a le message d'erreur le q = est sélectionnait en bleu.

Il est dans *demande de lecture* et *Sub trame ()*

Le q doit soit être déclaré dans la sub (ou function) où tu te trouve, soit être déclaré dans les variables globales de ta fenëtre/module/fichier de code

[Deathmiwak]

hum ... je suis désolé mais je vois pas comment faire, il y a possibilité d'avoir un screen ou un détail de comment faire svp