problème de régulation d'eau

Question

bonjour &#224; tous voila je suis une merde en programmation et je dois r&#233;aliser un programme en VB pour r&#233;guler le niveau d'eau dans une cuve.
j'ai un palpeur qui me dit si il y a pr&#233;sence ou pas d'eau. il me d&#233;livre un courant lorsqu'il y a de l'eau et il ne d&#233;luivre rien quand il n'y a pas d'eau. mais voila je dois maintenant relier ce fil &#224; mon PC via une liaison s&#233;rie et je c'est pas comment faire.
De plus il faut que mon PC mette en route un crhonom&#233;tre et &#224; un temp donn&#233;, il faut qu'il envoiez un courant via le port s&#233;rie pour arr&#233;ter l'alimentation.
merci d'avance pour l'attention port&#233;e &#224; ce message.
Dijounite.

troxsa · Answer

Bonjour
Il existe pas des logiciel a cette effet ?
sinon en langage de programmation, je dirais simplement qu'il faut ecout&#233; le port de connexion sur le quel il est branch&#233;, maintenant de la a faire une tel application qui serait capable de faire une tel chose j'en serait incapable.
http://www.troxsa.info/Code VB.net

cs_Willi · Answer

Cela n'est pas trop compliqu&#233; dijounite.
Tu dois juste r&#233;cup&#233;rer ou envoyer des octets du port s&#233;rie auquel est connect&#233; ton palpeur ou un autre capteur je sais pas trop tout ce que tu utilises.
Pour cela il te faut la doc de ton palpeur et un controle MSComm dans ton appli vb
Voila sur le principe.

cs_DURANDO · Answer

Il faut cabler ton signal sur le port série pour la communication, un port série posséde les signaux suivant sur une SuB 9 broche : DTR -borne 4-> DSR <-Borne6- RTS -Borne7-> CTS <-Borne8- Pour commander ton chrono, tu peux utiliser DTR. Si mes souvenir sont bons, lorsque DTR = 1, la borne 4 vaut + 12v , la masse étant la borne 5. C'est pas parceque les c.. sont plus nombreux qu'ils ont forcément raison!(dixit Coluche) Une seule ligne de conduite, l'objectivité.

cs_DURANDO · Answer

Je rectifie pour les tensions +/-12volts. Et voici un programme exemple qui met en oeuvre un objet MScomm :

Dans une form, tu cr&#233;e 1 timer, 1MSComm, 4 bouton et un label.

Puis, copie le code ci-apr&#232;s. Avec &#231;a tu as ce qu'il faut pour traiter 4 signaux : 

  - 2 entr&#233;es DSR, CTS

  - 2 Sorties DTR, RTS



'****************le code***************

Private Sub Form_Load()

  Timer1.Interval = 200

  Timer1.Enabled = True





'Initialisation du port s&#233;rie

  With MSComm1

    .CommPort = 1    ' si tu n'emet ni recois de donn&#233;es c'est pas utile

    .Settings = "9600,N,8,1"  ' si tu n'emet ni recois de donn&#233;es c'est pas utile



    .PortOpen = True    ' Sans &#231;a, tu ne sais pas traiter les signaux

  End With

end sub





Private Sub Command1_Click()

MSComm1.DTREnable True ' Tension entre borne 5 (0v) et Borne 4 (DTR) +10volt CC

End Sub



Private Sub Command2_Click()

MSComm1.DTREnable FAlse ' Tension entre borne 5 (0v) et Borne 4 (DTR) -10volt CC

End Sub



Private Sub Command3_Click()

MSComm1.RTSEnable True ' Tension entre borne 7 (0v) et Borne 4 (DTR) +10volt CC

End Sub



Private Sub Command4_Click()

MSComm1.RTSEnable FAlse ' Tension entre borne 7 (0v) et Borne 4 (DTR) -10volt CC

End Sub







Private Sub Timer1_Timer()

Dim chaine As String

chaine = "RTS " & MSComm1.RTSEnable & "  DTR " & MSComm1.DTREnable & chr(13)

chaine = chaine & "CTS " & MSComm1.CTSHolding & "  DSR " & MSComm1.DSRHolding& chr(13)

Label1.Caption = chaine

end sub

' ***************fin de code**************



La, c'est plus du VB mais de l'automatisme.

Pour les signaux, je te conseille d'interfacer avec des modules OptoCoupleurs. 

Exemple : RSO 30-DV chez WEIDMULLER ou autre.



Bonne r&#233;gulation.

A+

C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

Problème de régulation d'eau

4 réponses

Discussions similaires