Carte Relais

Bonjour,

Je réalise une application destinée à contrôler une carte Relais utilsant le port serie.
Cette carte a deux CMOS 4094 ou 74HC4094.
J'ai commencer à programmer avec la dll   PORT.DLL
Ma question comment contrôler les 8 sorties une par une par example avec un bouton On/Off ?

Merci de votre aide

Joel 

Salut,

je ne sais pas si ça va t'aider mais regarde quand même cette source a tous hasards

http://www.delphifr.com/codes/PILOTAGE-AXES-POUR-MOTEUR-PAS-PAS-SERVOS-MOTEURS_33674.aspx

 
@+
Cirec

---

Salut,

Pourquoi deux  4094 ? (ils ont chacun 8 sorties)
En supposant que les niveaux électriques de la RS232 sont adaptés ....
Où est raccordée l'entrée DATA sur le port série ? Et l'entrée CLOCK ? (Et le STROBE il sert ?)
Si ce sont les sorties DTR et RTS, tu peux les modifier en écrivant à l'adresse de Base de l'uart + 4
DTR correspond au bit 0
RTS correspond au bit 1

Pour la syntaxe exacte .... pouf, pouf, je passe mon tour !

Ken@vo

---

Code, Code, Codec !

Merci de vos réponses, Lorsque j'ai la solution , je vais la poster sur le Forum!

Bonjour a tous,
Salut Cirec,
Salut Kenavo ça fait plaisir de te revoir !

Wamo : La réponse de Kenavo est bonne mais sans lui donner d'autres détails ...

Je dépose un code qui je l'espère répondra a ta question il est ici :
http://www.delphifr.com/code.aspx?ID=40544

Si tu as d'autres questions c'est sans pbs...

A+
ryl...

Salut à tous

J'ai un peu réfléchi depuis mon post (si, si, ça m'arrive !), et je me suis dit qu'on pouvait piloter le strobe (pin 1) avec la sortie TXD.

Rylryl me le confirme puisque la procédure TXD(d:WORD) de PORT.DLL permet de controler cette sortie (c'est en fait la commande break sur la sortie de transmission).
C'est préférable pour éviter (bien que le temps de transfert soit bref pour des relais) la commutation des sorties pendant le décalage des bits.
Soit après de décalage des 8 bits les lignes suivantes (dans le code de Rylryl) juste avant le CloseCom

  DELAYUS (1);               // Delais validation CI
  TXD(1);                    // Cycle Horloge 4094
  DELAYUS (1);               // ...
  TXD(0);    

Il faut évidemment dupliquer l'adaptation de niveau (résistance + diode) entre la pin 1 du circuit et la broche TXD de la RS232 (la broche 3 je crois)

Merci à toi Rylryl et content de te retrouver aussi !

Ken@vo

---

Code, Code, Codec !

Houa ! J'ai réussi à écrire "pin" et "bit" sans être grossier !

Merci Kenavo, tu as encore une fois tout a fait raison les changements d'états pendant la transition sur les sorties peuvent être causes de problèmes,
surtout pour une utilisation 'logique'.
J'étais parti sur des relais, comme tu l'as compris les relais n'auront normalement pas le temps de réagir.
Mais.... tu as raison !

J'ai modifié le code suivant ton idée... et encore merci pour tes remarques judicieuses !

Pas mal ton dernier ptit mot en bas ARFF !
A+
ryl...

La solution est toruvée... Hourrrrrra!  
Elle sera bientôt en ligne!

A+
Wamo

Je suis un amateur dans la programmation en delphi et mon problèm c'est que qund je veux voir le fichier Project1
Sur delphi il me donne ce message  tit : error Reading form
 Class TServerSocket Not fond .Igbore the error and continues? NOTE: Ingoring the error may cause components to be delted or property values to be bst.


Et il me donne 3 choix Ignore Cancel Igore All apri qund je Clique Sur ingore le projrct ça RUN pas !!!
SVP SVP le programmateur de Delphi aidé moi SVP !!!
merci