Acquisition , valeur dans le buffer

amineham1 · 2 Juin 2015

bonjour
voila je suis entrain de faire un programme qui fait l'acquisition d'un appareille de mesure , quand je fait l'éxécution pas a pas cela fonctionne correctement avec F8 , mais quand je le fait avec F5 le buffer est vide
valeur du buffer avec F8 = 01A+00000
dois je me servire d'une temporisation ?
si c'est le cas ,comment ?
merci de bien vouloir m'aider

Private Sub CommandButton1_Click()
' Utilise COM1
MSComm1.CommPort = 1
MsgBox "le port est active"
' 9600 bauds, pas de parité, 8 bits de données et 1 bit d'arrêt.
MSComm1.Settings = "9600,N,8,1"

MsgBox "la configuration est faite "
' Indique au contrôle qu'il doit lire la totalité
' du tampon si la propriété Input est utilisée.
MSComm1.RThreshold = 1

MsgBox "l'évenement est apeler"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
' Ouvre le port.

MSComm1.PortOpen = True
' Envoie la commande Attention a l'apareille.
MSComm1.Output = Chr$(49) & Chr$(13)
buffer$ = buffer$ & MSComm1.Input 'jarrive a lire le contenu du buffer pas a pas
Debug.Print "la valeur d'entree = " & buffer$
buffer$ = Right(buffer$, 6)

Range("A1").Value = buffer$
MsgBox "valeur mesurer=" & buffer$
MSComm1.PortOpen = False
End Sub

Dranreb · 2 Juin 2015

Re : Acquisition , valeur dans le buffer

Bonjour.

Essayez à tout hasard de mettre un DoEvents derrière les instructions qui pourraient nécessiter que le système ait la main pour pouvoir exécuter des tâche en attente d'exécution, externes à votre programmation. Derrière des commandes passées, donc.

amineham1 · 2 Juin 2015

Re : Acquisition , valeur dans le buffer

merci , je l'ai fait

Code:

Do
 DoEvents
 Buffer$ = Buffer$ & MSComm1.Input
 Loop Until InStr(Buffer$, chr&(43))

sa marche toujours pas il sort pas de la boucle en sachant que le mscomm.input recois 01A+00000,00 DONC le buffer ne recois rien sauf si je l'éxécute pa a pas, aprés a force de l’exécuter a plusieurs reprise le buffer ne reçois plus de valeur même pas a pas
bien cordialement

Roland_M · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

Bonjour,

effectivement il faut boucler sur la lecture du buffer avec doevents !
si tu veux t'inspirer du code de ce classeur que j'avais fait pour un gars du forum
qui m'avait confirmé que ça fonctionné !

amineham1 · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

Mercii Roland c'est gentille mais j'arrive pas a l’ouvrir sur EXCEL 2010, je sais pas si c'est possible de m'envoyer le code ,
et je pense aussi que je devrais mettre une boucle sur mscomm.output
bien cordialement

Roland_M · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

re

une boucle sur input et pas sur sur output !

voir en xlsm !?

amineham1 · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

Roland_M à dit:
re

une boucle sur input et pas sur sur output !

voir en xlsm !?

ok c'est bon je l'ai ouvert je vais le modifier parce que mon instrument de mesure utilise multiplixeur je dois envoyer un Chr$(49) & Chr$(13) pour l'ouvrire

Roland_M · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

RE

je connais bien ça car j'ai travaillé en contrôle dans une verrerie (aujourd'hui en retraite)
et j'avais créé pour mon service, à l'époque, un programme statistique, sous QuickBasic 4.5,
saisie multiplexeur balance, pied à coulisse, pied de profondeur ...
mais je ne l'ai jamais traduit en VBA sur excel et je ne peux pas l'essayer sur mon pc, j'aurai bien aimé !

amineham1 · 3 Juin 2015

Re : Acquisition , valeur dans le buffer

Roland_M à dit:
RE

je connais bien ça car j'ai travaillé en contrôle dans une verrerie (aujourd'hui en retraite)
et j'avais créé pour mon service, à l'époque, un programme statistique, sous QuickBasic 4.5,
saisie multiplexeur balance, pied à coulisse, pied de profondeur ...
mais je ne l'ai jamais traduit en VBA sur excel et je ne peux pas l'essayer sur mon pc, j'aurai bien aimé !

en tout cas je vous remercie de m'avoir aider j'utiliserais votre programme sur une balance que je vais avoir la fin de semaine , je pence que c'est une question de synchronisation je vous tiendrais au au courant si je trouve la solution
bien cordialement

Acquisition , valeur dans le buffer

amineham1

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

amineham1

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

Pièces jointes

amineham1

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

Pièces jointes

amineham1

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

amineham1

XLDnaute Nouveau

Discussions similaires