données port com vers fichier txt

Version imprimable

26/02/2010, 14h40
ryaxx

données port com vers fichier txt

Bonjour,

Je débute dans l'univer de windev et je me suis fixé l'objectif de créer une petite application qui communiquerais avec le port com via un denso BHT.

pour le moment tout ce passe pour le mieux grâce aux différentes ressources que je trouve sur le web et via la soucoupe j'ai bien une fenêtre qui m'indique que des données sont envoyés, mais je n'arrive pas à enregistrer en format txt ces données sur un répertoire de l'ordinateur, quelqu'un pourrais t'il m'éclairer ?

bonne journée
26/02/2010, 14h48
mail.spam

Bonjour,

Si ton problème est d'écrire dans un fichier texte, tu devrais renommer ton post.

Et puis il y a plusieurs exemples dans le forum et dans l'aide de windev.

En voici un pour exemple

http://www.dev...indev/wd12-fichier-texte/

Puis regarde dans l'aide du coté de fOuvre(), fEcrit(), fEcritLigne(), fCrée()

Merci d'avoir répondu si rapidement :ccool:, je vais regarder du coté de fOuvre(), fEcrit(), fEcritLigne(), fCrée() :roll:, mais au cas ou je vous post le code de la procédure de réception :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
wtaille est un entier
buffer est une chaîne
FlagOK est un booléen
wtaille2 est un entier
wtaille2=0
flagun est un booléen
FinTimer(1)
wtaille=sDansFileEntrée(Port)
FlagOK=Faux
flagun=Faux
 
// Lecture des informations sur le port série en fonction de la condition d'arrêt
SI wtaille<>0 ALORS 
      TANTQUE PAS FlagOK
            wtaille=sDansFileEntrée(Port)
            SI wtaille>wtaille2 ALORS
                  wtaille2=wtaille
                  flagun=Faux
            SINON
                  SI flagun ALORS
                        FlagOK=Vrai
                  SINON
                        flagun=Vrai
                        Multitâche(50)
                  FIN
            FIN
      FIN
      buffer=sLit(Port,wtaille)
FIN
 
// Traitement des informations lues sur le port série
SI FlagOK ALORS
      Info(buffer)
FIN
 
Timer("sReception",50,1)

Après plusieurs tests je reviens vers vous, car je galère pour intégrer au code actuelle stocké dans le buffer vers un fichier text.

quelqu'un pourrais t'il m'éclarer

27/02/2010, 10h49
mail.spam

Indique nous le code que tu test pour qu'on t'aide.

Dis nous si tu veux créer un fichier à chaque scan ou si ajoute le buffer en fin de ton fichier.

Ok merci mail.spam

tout d'abord je détecte le lecteur denso soit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
GLOBAL
	Port est un entier
 
LOCAL
	Taux est un entier
	Parite est un entier
	BitDonnee est un entier
	BitStop est un entier
	Port=1
	Taux=19200
	Parite=1
	BitDonnee=8
	BitStop=1
 
SI sOuvre(Port,5000,5000)=Faux ALORS
	Erreur("Erreur lors de l'ouverture du port "+Port)
	Ferme()
FIN
sFixeParamètre(Port,Taux,Parite,BitDonnee,BitStop)
Timer("sReception",50,1)
sFerme(Port)

Ensuite j'essaie de récupérer les informations stocké sur le denso, et oui j'aimerais faire un fichier pour chaques scan avec une fenêtre indiquant traitement en cour (par exemple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
FONCTION SRECEPTION()
 
wtaille est un entier
buffer est une chaîne
FlagOK est un booléen
wtaille2 est un entier
wtaille2=0
flagun est un booléen
FinTimer(1)
wtaille=sDansFileEntrée(Port)
FlagOK=Faux
flagun=Faux
 
// Lecture des informations sur le port série en fonction de la condition d'arrêt
SI wtaille<>0 ALORS 
      TANTQUE PAS FlagOK
            wtaille=sDansFileEntrée(Port)
            SI wtaille>wtaille2 ALORS
                  wtaille2=wtaille
                  flagun=Faux
            SINON
                  SI flagun ALORS
                        FlagOK=Vrai
                  SINON
                        flagun=Vrai
                        Multitâche(50)
                  FIN
            FIN
      FIN
      buffer=sLit(Port,wtaille)
FIN
 
 
// Traitement des informations lues sur le port série
SI FlagOK ALORS
      Info(buffer)
      buffer = fCrée("C:\Documents and Settings\User\Bureau\test\Fichier.txt")
FIN
 
Timer("sReception",50,1)

comme j'y connais trop rien (pour le moment) étant donnée que le buffer ne peut être une valeur de type entier je ne sais pas vraiment comment faire.

01/03/2010, 15h56
patou38

bonjour,
je n ai jamais utilise une variable buffer,
mais dans le forum - contribuer - il y a un exemple de recuperation dans un buffer et de manipulation de fichiers
a voir si cela peut t aider
bon dev
a+
01/03/2010, 16h43
mail.spam

Bonjour,

Tu as du regarder beaucoup l'aide pour écrire un truc du genre

Code:

buffer = fCrée("C:\Documents and Settings\User\Bureau\test\Fichier.txt")

Donc quand tu scan tu efface la valeur de "buffer" avec le résultat de la création de ton fichier texte.

Il faut que tu ouvre ton fichier texte avec la fonction fOuvre et les options suivante "foCréationSiInexistant+foAjout"
Ce qui permet d'ouvrir ton fichier en ajout ou de le créer s'il n'existe pas.

Ensuite tu utilise fEcritLigne pour écrire ton Buffer dans ton fichier texte

Ensuite tu ferme le fichier avec fFerme.

Je veux bien t'aider mais pas faire à ta place.

Y a du mieux, je commence à capter comment ça fonctionne:oops:, par contre je n'arrive toujours pas à avoir le résultat du buffer dans le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
FONCTION SRECEPTION()
 
wtaille est un entier
buffer est une chaîne
FlagOK est un booléen
wtaille2 est un entier
wtaille2=0
flagun est un booléen
FinTimer(1)
wtaille=sDansFileEntrée(Port)
FlagOK=Faux
flagun=Faux
nIdFic est un entier
 
// Lecture des informations sur le port série en fonction de la condition d'arrêt
SI wtaille<>0 ALORS 
      TANTQUE PAS FlagOK
            wtaille=sDansFileEntrée(Port)
            SI wtaille>wtaille2 ALORS
                  wtaille2=wtaille
                  flagun=Faux
            SINON
                  SI flagun ALORS
                        FlagOK=Vrai
                  SINON
                        flagun=Vrai
                        Multitâche(50)
                  FIN
            FIN
      FIN
      buffer=sLit(Port,wtaille)
FIN
 
 
// Traitement des informations lues sur le port série
SI FlagOK ALORS
      Info(buffer)
 
 
// Ouverture du fichier
nIdFic = fOuvre("C:\Documents and Settings\User\Bureau\test\Fichier.txt", foCréationSiInexistant+foAjout)
SI nIdFic=-1 ALORS
	Erreur("L'ouverture du fichier a échoué", ErreurInfo())
SINON
	// Ecriture du bloc
	fEcrit(nIdFic, buffer)
 
	// Fermeture du fichier
	fFerme(nIdFic)
FIN
 
 
FIN
 
Timer("sReception",50,1)

01/03/2010, 17h48
patou38
re bonjour
une chose m inquiete dans ton code
tu defini buffer en tant que chaine
alors qu il faudrai le definir en tant que buffer
Code:

1 2 buffer est un buffer
voir dans l aide " buffer"
a+
01/03/2010, 20h08
patou38

Bonsoir,
oups !!!
j'ai dis une betise, dans le cas d un port serie s'est effectivement

Code:

buffer est une chaine

je n'avais pas windev et son aide lors de ma precedente reponse.

as-tu essaye en mode debug pas a pas ?

ton fichier est il bien creer?

as tu essaye avec l option lecture/ecriture?
A+
02/03/2010, 08h03
mail.spam

Bonjour,

Quand tu dis

Citation:

par contre je n'arrive toujours pas à avoir le résultat du buffer dans le fichier

Tu as quoi dans ton fichier?

As tu essayé de contrôler le résultat de fEcrit
Test aussi en mettant un texte dans fEcrit afin de savoir si l'erreur vient de ta variable "buffer". ex:

Code:

Resultat = fEcrit(nIdFic, "Texte à écrire dans le fichier")

Et j'utiliserai plus fEcritLigne qui permet de mettre RC à la fin de l'écriture dans le fichier mais bon ça c'est entièrement personnel.
02/03/2010, 09h39
ryaxx

Bonjour

patou38

Citation:

as-tu essaye en mode debug pas a pas ?

Non désolé non seulement je ne sais pas ou cela ce trouve,d'ailleur quand je désire effectuer une recherche sur déboguer (f1) cela me signale que la page n'est pas disponible.

Citation:

ton fichier est il bien creer?

oui il est bien créer

mail.spam

Citation:

Tu as quoi dans ton fichier?

Bonne question, "Texte à écrire dans le fichierTexte à écrire dans le fichierùùùùùùùùùùùùùùùùùù"

Citation:

As tu essayé de contrôler le résultat de fEcrit
Test aussi en mettant un texte dans fEcrit afin de savoir si l'erreur vient de ta variable "buffer"

Oui cela me renvoi : Texte à écrire dans le fichier

Par contre maintenant que j'y pense je ne vous ai pas expliqué le fonctionement de départ du denso, en fait j'ai une application en msdos qui me permet de réceptionner les informations sur le lecteur et qui les envois en format .txt directement vers le pc dans un répertoire de l'application exemple :
001.txt
002.txt
003.txt
etc...
ils contiennent un libéllé et un gen code. Ce qui pourrais bien vouloir expliquer mon problème, en fait je me demande si le lecteur n' essaie pas de m'envoyer ces donnée déjà en txt, qu'est-ce-que vous en pensé ?

Merci
02/03/2010, 10h12
mail.spam

Le mode Débug Pas à Pas est le mode de windev qui permet d'exécuter le programme Windev, ligne de code par ligne de code.

Qu'obtient tu dans ta fenêtre "Info(buffer)" ?
02/03/2010, 10h48
ryaxx

dans la fenêtre j'obtient un: ù
02/03/2010, 11h26
mail.spam

Donc dans ton fichier texte il y a bien ce que tu as dans ta variable buffer.

Ton problème n'est pas l'écriture dans le fichier texte mais bien la réception du code lu par le code barre
02/03/2010, 13h04
ryaxx

Et d'après toi y a t'il une solution ?
03/03/2010, 14h30
patou38

Bonjour,
tu peux regarder sur le site de ton fournisseur, il se peut que tu y trouve quelques informations qui pourait te servir
http://www.denso-wave.co.jp/en/adcd/...4_0/index.html
A+
05/03/2010, 19h45
ryaxx

Bonjour,
Etant donnée que le buffer essaie de m'envoyer des données en format txt, y à t'il un moyen de simplement copier celle-ci dasn un répertoire grace à windev ?
du genre buffer=fcopie c:\.....

sinon j'ai envoyé un mail au constructeur et j'attend leurs retour concernant un logiciel qui me permettrais d'éditer directement l'interface du denso

bonne soirée

Récupérer les données d'un port RS232

Bonjour,

J'ai donc bien avancé sur mon problème (le fait de pouvoir me connecter à un port com et de communiquer avec), j'ai pris contact avec le revendeur et récupérer les sources du logiciel qui envoi les données du denso vers le pc.

mais (car forcément il y en à un), j'aimerais faire une interface en windev qui récupérais ces infos pour les enregistrer dans un répértoire).

sauf que voilà la j'y connais rien en basic, et le code source du denso et dev avec
ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 open "COM:19200,N,8,1" AS #3 trans gosub cadre locate 3,2: print "TRANSMISSION" locate 5,3: print "EN COURS" plante$="N" for ej=1 to 500 : next ej locate 5,3: print " Lg"; locate 5,3 xfile "inv"+identite$,"mps" if plante$="O" then gosub cadre locate 2,2: screen ,1:print " TRANSMISSION " locate 2,3: print " ABANDONNEE ! ";:screen ,0 beep:beep close while(inkey$="") wend return endif
Je pense que je dois me concentrer sur le xfile "inv"+identites$,"mps" non ?
et surtout comment windev peut récupérer ces infos.

Merci