acquisition de données et stockage dans excel

Question

Hello,
C'est la premi&#232;re fois que je programme et j'ai un peu de mal (c'est peu dire) &#224; faire une acquisition de donn&#233;es. 


En fait j'aimerais r&#233;cup&#233;rer des infos arrivant sur le port com1 du pc et les stocker dans excel.... Ces informations sont en fait issues de capteurs de poids, je travaille &#224; 9600 bauds et la chaine de charact&#232;res re&#231;ue contient : 1 bit de start, 1 bit de parit&#233;, 8 bits de donn&#233;es et 1 bit de stop...


Je n'ai peut etre pas &#233;t&#233; bien clair dans mon explication, en tout cas siquelqu'un a des astuces je suis preneuse. D'apr&#232;s ce que j'ai pu avoir comme infos il faut que j'utilise la fonction Mscomm, mais malgr&#233; des exemples trouv&#233;s sur des sites mon programme est vite bloqu&#233; et vu que je ne comprends pas grand chose &#231;a marche pas!!!
Merci d'avance...

macgyver49 · Answer

Bonjour, 

Que veux tu savoir sur la fonction MSComm ?
Pour l'utiliser, il faut:
   - d&#233;finir les param&#232;tres de la communication (Vitesse de transmission, le bit de parit&#233;, ...)
   - Ouvrir la communication sur le port s&#233;rie que tu veux (.connect)
   - Pour la lecture des infos sur le port, il faut utiliser la m&#233;thode .Input et pour ecrire la m&#233;thode .Output .
   - Enfin, il faut fermer le port de communication pour &#233;viter que &#231;a plante.

Pour plus de pr&#233;cisions ou un petit coup de pouce, nous nous tenons &#224; ta disposition.

Titi & Panpan

cs_ophe · Answer

En fait  mon programme a cette t&#234;te : 

Private Sub CommandButton1_Click()
Dim Instring As String


MSComm1.InBufferCount = 0


MSComm1.CommPort = 1


MSComm1.Settings = "9600,e,8,1"


MSComm1.PortOpen = True


MSComm1.Input = "MSV"


Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 11
 
Instring = MSComm1.Input


MSComm1.PortOpen = False


End Sub

En fait j'ai pondu ce petit morceau de programme mais vu que c'est la premi&#232;re fois que je touche &#224; la programmation (toutes confondues  ) je comprends pas vraiment tous ce que je fais...
Je pense que pour r&#233;cup&#233;rer les donn&#233;es il faut envoyer MSV mais je ne suis pas &#224; 100% car la notice des capteurs n'est pas vraiment explicite...
Quant au reste je ne sais pas comment faire intervenir dans le programme que j'ai 1 bit de start, et que je veux r&#233;cup&#233;rer mes donn&#233;es toutes les 5 secondes...
Que de questions sans r&#233;ponses... J'appr&#233;cierais vraiment votre aide.
Merci d'avance et bonne journ&#233;e

cs_nr · Answer

Salut,

Tout d'abord avec mscomm l'option settings te permet de fixer le nb de bit de start stop etc...
N'&#233;tant pas certain du fonctionnement de tes capteurs, je te propose d'utiliser l'hyperterminal windows en ouvrant une communication sur le port serie avec le format qu'il te faut. Tu tapes MSV au clavier et tu devrai avoir un retour. Quand tu aurras ca d&#233;ja cela sera bien.
Ensuite il param&#233;trer ton port serie une seul fois.

Dans 

form load
mscomm1.settings = "9600,e,8,1" 'verifie bien le format !
mscomm1.commport = 1
mscomm1.portopen = true

dans

Private Sub CommandButton1_Click()
mscomm1.output = "MSV" ' envois la data MSV en majuscule
Do
Loop Until MSComm1.InBufferCount >= 11
Instring = MSComm1.Input
end sub

dans 
form unload
mscomm1.portopen = false
end

@+

cs_ophe · Answer

Je suis un peu blonde sur les bords mais je fais comment pour ouvrir le port et l'interroger avec MSV?
Une autre petite chose : avec l'option setting je fais apparaitre o&#249; le fait que j'ai un bit de start? C'est pas la peine de lui pr&#233;ciser? C'est inclu dans ma boucle du fait que je lui demande de compter 11 charact&#232;res? 
Enfin comment lui faire comprendre que je veux recevoir et enregistrer dans Excel mes donn&#233;es toutes les 5 secondes? 
Que de questions... Je n'ai pas de pratique dans ce domaine et j'ai un peu de mal je l'avoue!!!
Merci &#224; tous pour votre participation...

cs_nr · Answer

Dans le menu demarrer programmes accessoires tu as l'hyperterminal. Au demarrage il te propose d'effectuer une nouvelle connexion tu mets un nom quelconque ensuite dans la fenetre suivante dans la rubrique "connecter en utilisant" tu choisit com1. ensuite tu mets tes param&#232;tres (le bit de start fait partie du protocole serie tu n'as pas &#224; le g&#233;rer) apr&#232;s avoir cliquer ok, tu tapes MSV et tu observe l'ecran pour voir si tu as une r&#233;ponse. Si ca n'est pas le cas cela veut dire que tes param&#232;tres de connections ne sont pas bon ou que tes capteurs s'interroge diff&#233;rement. 

Sinon en vb dans ta boucle il faut mettre autre chose que 11 (je n'est pas fait gaffe tout &#224; l'heure) car tu recoit que les datas tu n'as pas ni les bits de start stop parit&#233; qui apparaisent dans le buffer r&#233;ception (c'est g&#233;rer par l'ocx). Ensuite tu peut cr&#233;er un fichier txt avec tes valeurs et le lire avec excel.

@+

cs_ophe · Answer

Je ne parviens pas &#224; &#233;crire dans la fenetrede l'hyperterminal... Est-ce normal avec milennium?
Sinon en ce qui concerne &#224; boucle il faut que je lui demande d'avoir 8 characteres si j'ai bien compris... Et une fois cela regl&#233; je peux enregistrer dans excel pas besoin de passer parun fichier texte?
Merci @+

macgyver49 · Answer

Petite question:
   As tu d&#233;j&#224; r&#233;ussi &#224; recevoir des trames venant des capteurs?

Voila ce que l'on te propose comme code:

form load
mscomm1.settings =  "9600,e,8,1" 
mscomm1.commport = 1
mscomm1.portopen = true
'Le timer se declenchera toutes les 5secondes
Timer1.interval=5000   
end sub

Public Sub Timer1_Timer()
'Appel de la fonction Lecture
call lecture
 end sub 

'Fonction de lecture des valeurs sur les capteurs
Public Sub Lecture()
dim Instring as string
mscomm1.output  = "MSV"    'Envoie la data 'MSV' en majuscule
Do
   DoEvents
Loop Until MSComm1.InBufferCount >= 8
'Tu peux aussi surveiller les caract&#232;res de fin de chaine (souvent VbCrLf). 'Alors, tu pourra recevoir toute la trame

'Lecture de la trame sur le port s&#233;rie
Instring = MSComm1.Input

'Supprime les anciennes trames du port s&#233;rie
MSComm1.OutBufferCount=0

'Ecriture dans le fichier Excel
'Pour cela, soit tu cr&#233;&#233;s une application Excel via VB et tu ajoutes les 'informations cellules par cellules, ou alors, tu peux enregistrer les valeurs 'dans un fichier texte et ouvrir ensuite le fichier texte sous Excel.
end sub

form unload
mscomm1.portopen = false
end
end sub

Si tu as besoin de nous, tu sais o&#249; nous trouver.

Titi & Panpan

cs_ophe · Answer

Tout d'abord merci beaucoup pour votre aide. Je vais essayer de suivre votre programme en esperant sortir la tete de l'eau...  En fait mon seul probleme est que je ne suis pas encore arriv&#233;e &#224; communiquer avec mes capteurs. La notice est en anglais et deja en fran&#231;ais je n'aurais peut etre pas trouv&#233; du premier coup alors en anglais vous imaginez m&#234;me pas.... Finalement ce n'est surement pas la commande MSV... Je continue &#224; potasser et je vous donne de mes nouvelles.
Tchao

cs_ophe · Answer

Au secours, je veux bien utiliser le programme de titi&panpan mais je ne comprends pas &#224; quoi correspond form load,Public Sub Lecture()......
Je ne suis pas tres dou&#233;e... En plus je ne sais pas comment trouver la commande pour recevoir mes characteres.... L'hyperterminal ne fonctionne pas je ne peux toujours pas ecrire dans la fenetre....
Help....
Merci de votre aide..

macgyver49 · Answer

Titi & Panpan

macgyver49 · Answer

Titi & Panpan

Acquisition de données et stockage dans excel

11 réponses

Discussions similaires