Commander un circuit électrique à partir d'un PC (encore!)

[Fustigator]

Lazarus et delphi sont ils full compatible ?

Programmation objet ça ressemble à VB...

Non, pas vraiment. Delphi c'est un Pascal objet.
-----

[freepicbasic]

On voit une fenêtre setup , où est est son programme ?

ComPort1: TComPort; il sort d'où TComPort ?

As tu un exemple de réception non bloquante ?

Si je met ce code sur Lazarus ça fonctionne ?

[adipie]

Je n'ai pas d'expérience avec Lazarus, mais voir ici: https://www.developpez.net/forums/d1...osants-delphi/

[adipie]

On voit une fenêtre setup , où est est son programme ?

ComPort1: TComPort; il sort d'où TComPort ?

As tu un exemple de réception non bloquante ?

Si je met ce code sur Lazarus ça fonctionne ?

Je vais réinstaller Lazarus pour faire l'essai et je te répondrai dans une nouvelle discussion.

[ilovir]

Merci adipie de continuer à vous intéresser à mon cas.
Votre proposition correspond semble-t'il strictement à ma demande initiale.
Comment est alimenté le relais ? par la prise USB ?
Comment serait l'interface (écrite en Delphi donc) de programmation des séquences sur l'écran de l'ordinateur ?

[adipie]

Merci adipie de continuer à vous intéresser à mon cas.
Votre proposition correspond semble-t'il strictement à ma demande initiale.
Comment est alimenté le relais ? par la prise USB ?
Comment serait l'interface (écrite en Delphi donc) de programmation des séquences sur l'écran de l'ordinateur ?

Bonjour,
Ce module est alimenté par le connecteur USB.
La commande se fait par un petit exécutable à développer suivant le besoin.
Je proposerai une solution d'ici peu.

[adipie]

On voit une fenêtre setup , où est est son programme ?

ComPort1: TComPort; il sort d'où TComPort ?

As tu un exemple de réception non bloquante ?

Si je met ce code sur Lazarus ça fonctionne ?

Bonjour,

Après quelques cheveux gris j'ai réussi à faire tourner ce module relais sur Lazarus.
Comport est remplacé par LazSerial, je n'ai pas réussi à installer le paquet Comport sur Lazarus.

AideLazSerial.pdf

[adipie]

Téléchargement du projet complet ici: Module_Relais.zip
Le fichier TestRelaisUsb.exe permet d'actionner un relais USB connecté sur un connecteur USB.
Testé avec Windows 10 64 bits.

[freepicbasic]

J ai installé Lazarus et recopier ton test.
Je n'ai pas le paquet sur le form1, pourtant j 'ai fait "paquet" "Ouvrir un paquet lpk"
Je lance il se plante sur le write et le setup ne vient pas !
Voir l image.

Comment faire ?

[adipie]

J ai installé Lazarus et recopier ton test.
Je n'ai pas le paquet sur le form1, pourtant j 'ai fait "paquet" "Ouvrir un paquet lpk"
Je lance il se plante sur le write et le setup ne vient pas !
Voir l image.

Comment faire ?

Bonjour,
Désolé, mon explication était un peu légère.
Je viens de faire un tuto qui devrait te sauver.
désinstalle tout et suis ce tuto.
Fait signe en cas de problème.
TutoRelaisUsbLazarus.pdf

[freepicbasic]

Merci pour le tuto

J'ai dù créer un bouton pour le setup pour que ça fonctionne.
En copiant les 2 lignes.

Mais pourquoi le FormActivate ne fonctionne pas ?
Tu dis sur le dernier tuto OnActivate qui ne figure pas dans la liste proposée.

Il m'avait créer un FormCreate qui n'était pas dans ton premier pdf, j ai merdé un peu en créant les boutons peut être ça ?
j ai tout enlevé le FormCreate...

procedure TForm1.FormActivate(Sender: TObject);
begin
 LazSerial1.ShowSetupDialog;
 LazSerial1.Open;
end;

[adipie]

Je ne vois pas où est l'astuce ?
Peux tu faire un copier collé du code dans un document texte et me l'envoyer en MP pour ne pas encombrer cette discussion.
Je t'envoie mon adresse par MP

[freepicbasic]

Je t ai envoyé un zip avec tout.

[adipie]

Bonjour,
Voici le cas pratique d'un programmateur journalier avec une appli Windows et un module relais USB.

ProgJour.zip