problème projet VB6

Question

recherche quelqu'un qui a des connaissances en VB6 pour échange de problèmes sur mon projet.

possibilités d'échange par e-mail?

merci a vous tous 

mon adresse est sk8mat69[a]hotmail.com si vous voulez m'aider.

cs_Jack · Answer

Salut
Les emails impliquent une identifcation personnelle dont tout le monde ne veut pas.
Si tu as des problèmes, exposent les ici, le forum est là pour cela.
Explique ton environnement, ce que tu veux faire, les erreurs rencontrées, les bouts de code impliqués = meilleures chances de trouver une solution.
Bien sûr, la première chose à faire, ce sont des recherches parmi les questions du forum ET parmi les codes présents sur le site.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

legrisbi · Answer

Ok je vais essayer mes moi ce n'est pas un programme du type fabrication d'une calculatrice. C'est pas facile a comprendre.... mais je vais essayer d'exposer mon problème

legrisbi · Answer

j'ai un fichier en .txt dans lequel je dois aller chercher une "adtrans" (adresse de transmission) .l'adtrans=020

 dans ce texte on a la position initiale du disjoncteur 1(le disjoncteur 1 est régi par l'adtrans 020 (codé en hexa))

                      on a étape1 => l'état initiale du disjoncteur1 s'il est "OUVERT - VALIDE) un bouton ok s'allume 


                              étape 2 => j'ai une phase commande fermeture 


si adtrans=020 y a marqué "FERME-VALIDE" alors bouton ok s'allume 

         étape 3 => si les deux boutons ok s'ont allumé alors le voyant valide s'allume sinon le voyant défaut s'allume

je n'arrive pas a faire l'automaintien des 2 boutons ok pour pouvoir afficher le valide 

merci de votre aide 

P.S: désolé si ce n'est pas assez clair j'ai simplifié au maximum.

Je me demande si je ne peux pas faire une boucle sur la commande ouiverture fermeture mais il faudrait voir le fichier text et je n'ai pas vu de "trombone" pour joindre le texte

Claiyah · Answer

cherche d'abord comment lire un fichier text et extraire les lignes dont t'as besoin puis pense aux bouttons

Les yeux montrent la force de l'âme

Claiyah · Answer

sinon met un modele de ton fichier text ici et ce que tu veut extraire et on va t'aider

Les yeux montrent la force de l'âme

legrisbi · Answer

si tu veux mon programme est fait, je l'ai fait avec (commondialog) quand je tape "adtrans=020" il me donne la ligne : "adtrans=020 absence ou ouvert - valide" donc jusque la ca va. 

Le soucis c'est que comment expliquer .....

j'ai trois fois adtrans=020 ... une fois en état initial (ouvert - valide)
puis il faut que j'arrive a voir son 2eme etat dans la commande de fermeture puis son 3eme état dans la  commande ouverture.

je met le fichier texte.

j'arrive pas a joindre un document.... 

si il n'y est pas dans 5 minutes quelqu'un pourra me guider??

legrisbi · Answer

Comme j'y arrive pas je vous met le gros du texte a étudié.. ADTRANS=020: PRESENCE OU OUVERT - VALIDE ADTRANS=021: ABSENCE OU FERME - VALIDE ADTRANS=022: ABSENCE OU FERME - VALIDE ADTRANS=023: ABSENCE OU FERME - VALIDE ADTRANS=024: ABSENCE OU FERME - VALIDE ADTRANS=025: PRESENCE OU OUVERT - VALIDE ADTRANS=026: ABSENCE OU FERME - VALIDE ADTRANS=027: ABSENCE OU FERME - VALIDE ADTRANS=028: ABSENCE OU FERME - VALIDE ADTRANS=029: PRESENCE OU OUVERT - VALIDE ADTRANS=02A: ABSENCE OU FERME - VALIDE ADTRANS=02B: ABSENCE OU FERME - VALIDE ADTRANS=02C: ABSENCE OU FERME - VALIDE ADTRANS=02D: ABSENCE OU FERME - VALIDE ADTRANS=02E: ABSENCE OU FERME - VALIDE ADTRANS=02F: ABSENCE OU FERME - VALIDE >>> ECHO ***** COMMANDE DE FERMETURE SUR TCD ADTR 20 ***** ><27/04/2009 - 11:00:00> Reception d'une indication de donnees emises pour le PA num 1 ><27/04/2009 - 11:00:02> Reception de donnees du PA num 1, len = 6 0A 04 01 E7 57 02 >TS sur changement d'etat avec cause associee : ADTRANS=0x20 TS Simple : Disparition TS Double : Fermeture - VALIDE CODE HORAIRE= 09:52 23' VRAISEMBLABLE-VALIDE-NON SYNCHRONE CAUSE=Sur telecommande ou distant ><27/04/2009 - 11:00:02> Reception de donnees du PA num 1, len = 3 09 04 01 >Acquit TC: ADTRANS=020 CR=POSITIF >>> ECHO ***** COMMANDE D'OUVERTURE SUR TCD ADTR 20***** ><27/04/2009 - 11:00:06> Reception d'une indication de donnees emises pour le PA num 1 ><27/04/2009 - 11:00:08> Reception de donnees du PA num 1, len = 6 0A 04 09 E9 67 02 >TS sur changement d'etat avec cause associee : ADTRANS=0x20 TS Simple : Apparition TS Double : Ouverture - VALIDE CODE HORAIRE= 09:57 51' VRAISEMBLABLE-VALIDE-NON SYNCHRONE CAUSE=Sur telecommande ou distant ><27/04/2009 - 11:00:08> Reception de donnees du PA num 1, len = 3 09 04 01 >Acquit TC: ADTRANS=020 CR=POSITIF

legrisbi · Answer

Je reprend tout sur le but du projet.

si vous voulez on commande des disjoncteurs à distance grâce aux adresses transmissions (adtrans).

dans ce cas le disjoncteur1 est l'adtrans=020 donc enfaite on regarde l'état initiale du disjoncteur avec le controle de CG.

après il faudrait que j'arrive a faire une boucle avec les 2 ECHOS commande d' "ouverture" / "fermeture" car en faite l'adtrans=XXX , il faudrait que XXX soit une variable qu'on peut changer car on a 400 disjoncteurs et chacun une adresse transmission différente. Et la je n'ai pas d'idée

Merci de votre aide

cs_Jack · Answer

En effet, dur à comprendre.
C'est en partie parce que tu n'utilises pas les bons termes.
Ainsi, ce que tu appelles des boutons, ne sont pas des boutons mais des "voyants" que tu dois activer en fonction de ce tu lis dans ton fichier.
Puisque toute la base de ce programme commence par l'analyse du fichier, oui, comme le dit Claiyah, commence par voir comment on ouvre un fichier et comment on lit, ligne à ligne un fichier.
Fais une recherche d'une source qui parle de lire un fichier et tu verras la technique à employer : elle est toujours la même :
Instructions : Open, Close, Do While-Loop, Line Input # --> Voir l'aide de ces fonctions
Pour chaque ligne lue, il te suffira de faire un test du genre 
   If monTexte Like "*OUVERT - VALIDE" Then ...
et ainsi de suite pour chaque position que tu veux tester.
En ce qui concerne tes "voyants", il n'existe pas de composant VB6 qui s'appelle comme ça, faudrait nous dire comment tu pratiques.
En général, on prend un Label sans texte et on joue avec la propriété Foreground Color

Tu dis que "tu n'arrives à pas assure l'auto-maintien du voyant" : S'il ne reste pas "allumé", c'est que ton porgamme doit l'éteindre - Lapalisse (1470-1525) - A toi de chercher où.
Ne connaissant pas ton programme, impossible de te dire d'où cela vient !
Utilise pour cela le mode Debug de VB6 avec les touches F9, F8 et F5 --> Voir l'aide

Donne le maximum de détails sur ton environnement, parce que là, c'est très vague.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

legrisbi · Answer

http://www.developpez.net/forums/d738001/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vb6-projet-facile-comprehension/



j'ai tout mis sur mon programme 

pour ceux qui voudront se donner la peine 

en vous remerciant

Problème projet VB6

10 réponses

Votre réponse

Discussions similaires