unit Unit1; interface uses Windows, Messages, Graphics, Controls, Forms, Dialogs, IdWinsock2, stdctrls, SysUtils, Classes, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, IdComponent, IdUDPBase, IdUDPClient, IdStack, IdUDPServer, IdSocketHandle, ExtCtrls, Buttons, ImgList, Gauges; type TForm1 = class(TForm) IdUDPClient1: TIdUDPClient; GroupBox1: TGroupBox; Label4: TLabel; Timer1: TTimer; GroupBox7: TGroupBox; GroupBox8: TGroupBox; GroupBox9: TGroupBox; GroupBox10: TGroupBox; GroupBox11: TGroupBox; GroupBox12: TGroupBox; Gauge1: TGauge; Label6: TLabel; Label7: TLabel; Gauge2: TGauge; Gauge3: TGauge; Gauge4: TGauge; Gauge5: TGauge; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; SpeedButton1: TSpeedButton; GroupBox2: TGroupBox; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; SpeedButton11: TSpeedButton; SpeedButton12: TSpeedButton; SpeedButton13: TSpeedButton; SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton; SpeedButton16: TSpeedButton; Label1: TLabel; Label2: TLabel; Label5: TLabel; Label11: TLabel; Label12: TLabel; GroupBox3: TGroupBox; SpeedButton17: TSpeedButton; SpeedButton18: TSpeedButton; SpeedButton19: TSpeedButton; SpeedButton20: TSpeedButton; SpeedButton21: TSpeedButton; SpeedButton22: TSpeedButton; SpeedButton23: TSpeedButton; SpeedButton24: TSpeedButton; SpeedButton25: TSpeedButton; SpeedButton26: TSpeedButton; SpeedButton27: TSpeedButton; SpeedButton28: TSpeedButton; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; GroupBox4: TGroupBox; GroupBox5: TGroupBox; GroupBox6: TGroupBox; GroupBox13: TGroupBox; GroupBox14: TGroupBox; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; GroupBox15: TGroupBox; GroupBox16: TGroupBox; SpeedButton29: TSpeedButton; SpeedButton30: TSpeedButton; Label27: TLabel; Label28: TLabel; SpeedButton31: TSpeedButton; SpeedButton32: TSpeedButton; Label29: TLabel; SpeedButton33: TSpeedButton; SpeedButton34: TSpeedButton; Label30: TLabel; SpeedButton35: TSpeedButton; SpeedButton36: TSpeedButton; Label31: TLabel; SpeedButton37: TSpeedButton; SpeedButton38: TSpeedButton; SpeedButton39: TSpeedButton; SpeedButton40: TSpeedButton; SpeedButton41: TSpeedButton; SpeedButton42: TSpeedButton; Label3: TLabel; Label32: TLabel; SpeedButton43: TSpeedButton; SpeedButton44: TSpeedButton; SpeedButton45: TSpeedButton; SpeedButton46: TSpeedButton; SpeedButton47: TSpeedButton; SpeedButton48: TSpeedButton; SpeedButton49: TSpeedButton; SpeedButton50: TSpeedButton; SpeedButton51: TSpeedButton; SpeedButton52: TSpeedButton; SpeedButton53: TSpeedButton; SpeedButton54: TSpeedButton; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; SpeedButton55: TSpeedButton; SpeedButton56: TSpeedButton; SpeedButton57: TSpeedButton; SpeedButton58: TSpeedButton; SpeedButton59: TSpeedButton; Label40: TLabel; Label41: TLabel; Label42: TLabel; Label43: TLabel; Label44: TLabel; SpeedButton60: TSpeedButton; SpeedButton61: TSpeedButton; SpeedButton62: TSpeedButton; SpeedButton63: TSpeedButton; SpeedButton64: TSpeedButton; SpeedButton65: TSpeedButton; SpeedButton66: TSpeedButton; SpeedButton67: TSpeedButton; SpeedButton68: TSpeedButton; SpeedButton69: TSpeedButton; SpeedButton70: TSpeedButton; SpeedButton71: TSpeedButton; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton6Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject); procedure SpeedButton9Click(Sender: TObject); procedure SpeedButton10Click(Sender: TObject); procedure SpeedButton11Click(Sender: TObject); procedure SpeedButton12Click(Sender: TObject); procedure SpeedButton13Click(Sender: TObject); procedure SpeedButton14Click(Sender: TObject); procedure SpeedButton15Click(Sender: TObject); procedure SpeedButton16Click(Sender: TObject); procedure SpeedButton17Click(Sender: TObject); procedure SpeedButton18Click(Sender: TObject); procedure SpeedButton19Click(Sender: TObject); procedure SpeedButton20Click(Sender: TObject); procedure SpeedButton21Click(Sender: TObject); procedure SpeedButton22Click(Sender: TObject); procedure SpeedButton23Click(Sender: TObject); procedure SpeedButton24Click(Sender: TObject); procedure SpeedButton25Click(Sender: TObject); procedure SpeedButton26Click(Sender: TObject); procedure SpeedButton27Click(Sender: TObject); procedure SpeedButton28Click(Sender: TObject); procedure SpeedButton29Click(Sender: TObject); procedure SpeedButton30Click(Sender: TObject); procedure SpeedButton31Click(Sender: TObject); procedure SpeedButton32Click(Sender: TObject); procedure SpeedButton33Click(Sender: TObject); procedure SpeedButton34Click(Sender: TObject); procedure SpeedButton35Click(Sender: TObject); procedure SpeedButton36Click(Sender: TObject); procedure SpeedButton37Click(Sender: TObject); procedure SpeedButton38Click(Sender: TObject); procedure SpeedButton55Click(Sender: TObject); procedure SpeedButton56Click(Sender: TObject); procedure SpeedButton39Click(Sender: TObject); procedure SpeedButton40Click(Sender: TObject); procedure SpeedButton41Click(Sender: TObject); procedure SpeedButton42Click(Sender: TObject); procedure SpeedButton43Click(Sender: TObject); procedure SpeedButton44Click(Sender: TObject); procedure SpeedButton45Click(Sender: TObject); procedure SpeedButton46Click(Sender: TObject); procedure SpeedButton47Click(Sender: TObject); procedure SpeedButton48Click(Sender: TObject); procedure SpeedButton49Click(Sender: TObject); procedure SpeedButton50Click(Sender: TObject); procedure SpeedButton51Click(Sender: TObject); procedure SpeedButton52Click(Sender: TObject); procedure SpeedButton53Click(Sender: TObject); procedure SpeedButton54Click(Sender: TObject); procedure SpeedButton57Click(Sender: TObject); procedure SpeedButton58Click(Sender: TObject); procedure SpeedButton59Click(Sender: TObject); procedure SpeedButton60Click(Sender: TObject); procedure SpeedButton61Click(Sender: TObject); procedure SpeedButton62Click(Sender: TObject); procedure SpeedButton63Click(Sender: TObject); procedure SpeedButton64Click(Sender: TObject); procedure SpeedButton65Click(Sender: TObject); procedure SpeedButton66Click(Sender: TObject); procedure SpeedButton67Click(Sender: TObject); procedure SpeedButton68Click(Sender: TObject); procedure SpeedButton69Click(Sender: TObject); procedure SpeedButton70Click(Sender: TObject); procedure SpeedButton71Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; MDP : String; ReceivedString: String; VALEUR : Integer; TEMPERATURE : Real; QUANTUM : Real; TENSION : Real; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); // Paramètres par défaut au lancement de l'application. begin IdUDPClient1.Port:=5030; // Port par défaut. IdUDPClient1.Host:='192.168.0.9'; // Adresse IP locale par défaut. MDP:='ABCDEFGHIJKLMNOP'; // Mot de passe par défaut toujours composé de 16 caractères !!! IdUDPClient1.ReceiveTimeout:=5000; // Délais maxi de 10 secondes pour que le périphérique à base d'ENC28J60 réponde. Timer1.Enabled:=False; // Désactivation du timer 1 au lancement du programme. Timer1.Interval:=500; // Intervalle de 500ms pour la Lecture des données présentes en entrées. if MessageDlg('Voulez-vous activer la communication Ethernet pour la lecture en boucle des données présentes sur les entrées de l''interface ?',mtInformation,[mbYes,mbNo],0)=mrYes then begin Timer1.Enabled:=True; // Active le timer 1 end else begin Timer1.Enabled:=False; // Desactive le timer 1 end; end; //************************************************************************************************************************* //** Timer1. Lecture en boucle de la chaine de caractères renvoyés par le PIC et contenant toutes les données en ENTREES ** //************************************************************************************************************************* procedure TForm1.Timer1Timer(Sender: TObject); // Lire l'octet présent sur les entrées E1 à E8. begin IdUDPClient1.Send(MDP+'INPUT'); // Envoie la commande au format ASCII 'IN' permettant de récupérer l'octet présent sur E1 à E8 ReceivedString := IdUDPClient1.ReceiveString(); if ReceivedString ='' then // Si l'interface ne répond pas, on arrête le programme. begin Timer1.Enabled:=False; // Arrêt du Timer 1 MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end else begin //** Mise en formes des valeurs analogiques présentent sur les 5 entrées INA0, INA1, INA2, INA3, INA4 ** QUANTUM:=5 / 1024; // Détermine le Quantum du CAN 10 bits intégré au PIC VALEUR:=(StrToInt(ReceivedString[1])*10000)+(StrToInt(ReceivedString[2])*1000)+(StrToInt(ReceivedString[3])*100)+(StrToInt(ReceivedString[4])*10)+StrToInt(ReceivedString[5]); Label6.Caption:='Valeur décimale: '+IntToStr(VALEUR); GAUGE1.Progress:=VALEUR; // Affecte à la gauge1 la valeur mesurée sur l'entrée INA0. TENSION:=QUANTUM * VALEUR; Label17.Caption:='Tension sur INA0= '+FloatToStrF(TENSION,TFloatFormat(ffFixed),10,3)+' Volts'; // Pour n'afficher que 3 chiffres après la virgule. 10= Précision et 3= 3 chiffres après la virgule. VALEUR:=(StrToInt(ReceivedString[7])*10000)+(StrToInt(ReceivedString[8])*1000)+(StrToInt(ReceivedString[9])*100)+(StrToInt(ReceivedString[10])*10)+StrToInt(ReceivedString[11]); Label7.Caption:='Valeur décimale: '+IntToStr(VALEUR); GAUGE2.Progress:=VALEUR; // Affecte à la gauge1 la valeur mesurée sur l'entrée INA1. TENSION:=QUANTUM * VALEUR; Label18.Caption:='Tension sur INA1= '+FloatToStrF(TENSION,TFloatFormat(ffFixed),10,3)+' Volts'; // Pour n'afficher que 3 chiffres après la virgule. 10= Précision et 3= 3 chiffres après la virgule. VALEUR:=(StrToInt(ReceivedString[13])*10000)+(StrToInt(ReceivedString[14])*1000)+(StrToInt(ReceivedString[15])*100)+(StrToInt(ReceivedString[16])*10)+StrToInt(ReceivedString[17]); Label8.Caption:='Valeur décimale: '+IntToStr(VALEUR); GAUGE3.Progress:=VALEUR; // Affecte à la gauge1 la valeur mesurée sur l'entrée INA2. TENSION:=QUANTUM * VALEUR; Label19.Caption:='Tension sur INA2= '+FloatToStrF(TENSION,TFloatFormat(ffFixed),10,3)+' Volts'; // Pour n'afficher que 3 chiffres après la virgule. 10= Précision et 3= 3 chiffres après la virgule. VALEUR:=(StrToInt(ReceivedString[19])*10000)+(StrToInt(ReceivedString[20])*1000)+(StrToInt(ReceivedString[21])*100)+(StrToInt(ReceivedString[22])*10)+StrToInt(ReceivedString[23]); Label9.Caption:='Valeur décimale: '+IntToStr(VALEUR); GAUGE4.Progress:=VALEUR; // Affecte à la gauge1 la valeur mesurée sur l'entrée INA3. TENSION:=QUANTUM * VALEUR; Label20.Caption:='Tension sur INA3= '+FloatToStrF(TENSION,TFloatFormat(ffFixed),10,3)+' Volts'; // Pour n'afficher que 3 chiffres après la virgule. 10= Précision et 3= 3 chiffres après la virgule. VALEUR:=(StrToInt(ReceivedString[25])*10000)+(StrToInt(ReceivedString[26])*1000)+(StrToInt(ReceivedString[27])*100)+(StrToInt(ReceivedString[28])*10)+StrToInt(ReceivedString[29]); Label10.Caption:='Valeur décimale: '+IntToStr(VALEUR); GAUGE5.Progress:=VALEUR; // Affecte à la gauge1 la valeur mesurée sur l'entrée INA4. TENSION:=QUANTUM * VALEUR; Label21.Caption:='Tension sur INA4= '+FloatToStrF(TENSION,TFloatFormat(ffFixed),10,3)+' Volts'; // Pour n'afficher que 3 chiffres après la virgule. 10= Précision et 3= 3 chiffres après la virgule. //** FIN: Mise en formes des valeurs analogiques présentent sur les 5 entrées INA0, INA1, INA2, INA3, INA4 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T1 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[31])*100000)+(StrToInt(ReceivedString[32])*10000)+(StrToInt(ReceivedString[33])*1000)+(StrToInt(ReceivedString[34])*100)+(StrToInt(ReceivedString[35])*10)+StrToInt(ReceivedString[36]); TEMPERATURE:=VALEUR / 10; if ReceivedString[30]='+' then begin Label4.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[30]='-' then begin Label4.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T1 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T2 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[38])*100000)+(StrToInt(ReceivedString[39])*10000)+(StrToInt(ReceivedString[40])*1000)+(StrToInt(ReceivedString[41])*100)+(StrToInt(ReceivedString[42])*10)+StrToInt(ReceivedString[43]); TEMPERATURE:=VALEUR / 10; if ReceivedString[37]='+' then begin Label22.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[37]='-' then begin Label22.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T2 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T3 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[45])*100000)+(StrToInt(ReceivedString[46])*10000)+(StrToInt(ReceivedString[47])*1000)+(StrToInt(ReceivedString[48])*100)+(StrToInt(ReceivedString[49])*10)+StrToInt(ReceivedString[50]); TEMPERATURE:=VALEUR / 10; if ReceivedString[44]='+' then begin Label23.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[44]='-' then begin Label23.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T3 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T4 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[52])*100000)+(StrToInt(ReceivedString[53])*10000)+(StrToInt(ReceivedString[54])*1000)+(StrToInt(ReceivedString[55])*100)+(StrToInt(ReceivedString[56])*10)+StrToInt(ReceivedString[57]); TEMPERATURE:=VALEUR / 10; if ReceivedString[51]='+' then begin Label24.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[51]='-' then begin Label24.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T4 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T5 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[59])*100000)+(StrToInt(ReceivedString[60])*10000)+(StrToInt(ReceivedString[61])*1000)+(StrToInt(ReceivedString[62])*100)+(StrToInt(ReceivedString[63])*10)+StrToInt(ReceivedString[64]); TEMPERATURE:=VALEUR / 10; if ReceivedString[58]='+' then begin Label25.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[58]='-' then begin Label25.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T5 ** //** Mise en forme de la chaine de caractères pour l'affichage de la température T6 ** //** Pour une valeur reçue = -000125 transcrire la température comme -12,5°C. //** Pour une valeur reçue = +000259 transcrire la température comme +25,9°C. VALEUR:=(StrToInt(ReceivedString[66])*100000)+(StrToInt(ReceivedString[67])*10000)+(StrToInt(ReceivedString[68])*1000)+(StrToInt(ReceivedString[69])*100)+(StrToInt(ReceivedString[70])*10)+StrToInt(ReceivedString[71]); TEMPERATURE:=VALEUR / 10; if ReceivedString[65]='+' then begin Label26.Caption:='+'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures positives end; if ReceivedString[65]='-' then begin Label26.Caption:='-'+FloatToStr(TEMPERATURE)+'°C'; // Pour les températures négatives end; //** FIN: Mise en forme de la chaine de caractères pour l'affichage de la température T6 ** end; end; //****************************************************************************************** //** FIN: Lecture en boucle de l'octet présent sur les entrées E1 à E4 et les temépratures** //****************************************************************************************** //** Bouton "Activation en boucle de la lecture des entrées de l'interface" ** procedure TForm1.SpeedButton1Click(Sender: TObject); begin Timer1.Enabled:=True; // Active le timer 1 end; //**************************************************************************** //********************** //**** TELIS 4 DUAL **** //********************** // //** Bouton "Volet 1 : OUVERTURE ** procedure TForm1.SpeedButton2Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 1 : STOP ** procedure TForm1.SpeedButton3Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 1 : FERMER ** procedure TForm1.SpeedButton4Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 2 : OUVERTURE ** procedure TForm1.SpeedButton5Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL02113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 2 : STOP ** procedure TForm1.SpeedButton6Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL02213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 2 : FERMER ** procedure TForm1.SpeedButton7Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL02313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 3 : OUVERTURE ** procedure TForm1.SpeedButton8Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 3 : STOP ** procedure TForm1.SpeedButton9Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 3 : FERMER ** procedure TForm1.SpeedButton10Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 4 : OUVERTURE ** procedure TForm1.SpeedButton11Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 4 : STOP ** procedure TForm1.SpeedButton12Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Volet 4 : FERMER ** procedure TForm1.SpeedButton13Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Volets : OUVERTURE ** procedure TForm1.SpeedButton14Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Volets : STOP ** procedure TForm1.SpeedButton15Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Volets : FERMER ** procedure TForm1.SpeedButton16Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //*************************** //**** FIN: TELIS 4 DUAL **** //*************************** //**************** //**** Stores **** //**************** // //** Bouton "Store 1 : Fermeture ** procedure TForm1.SpeedButton57Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01103$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 1 : Stop ** procedure TForm1.SpeedButton58Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01203$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 1 : Ouverture ** procedure TForm1.SpeedButton59Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL01303$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 2 : Ouverture ** procedure TForm1.SpeedButton60Click(Sender: TObject); Begin IdUDPClient1.Send(MDP+'COM'+'TEL02103$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 2 : Stop ** procedure TForm1.SpeedButton61Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL02203$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 2 : Ouverture ** procedure TForm1.SpeedButton62Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL02303$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 3 : Fermeture ** procedure TForm1.SpeedButton63Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03303$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 3 : Stop ** procedure TForm1.SpeedButton64Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03203$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 3 : Ouverture ** procedure TForm1.SpeedButton65Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL03103$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 4 : Fermeture ** procedure TForm1.SpeedButton66Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04103$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 4 : Stop ** procedure TForm1.SpeedButton67Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04203$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Store 4 : Ouverture ** procedure TForm1.SpeedButton68Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL04303$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Store : Fermeture ** procedure TForm1.SpeedButton69Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05103$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Store : Stop ** procedure TForm1.SpeedButton70Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05203$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Store : Ouverture ** procedure TForm1.SpeedButton71Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'TEL05303$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //********************* //**** FIN: Stores **** //********************* //******************** //**** VELUX TRIO **** //******************** // //** Bouton "Velux n°1 : OUVERTURE ** procedure TForm1.SpeedButton17Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0113$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°1 : STOP ** procedure TForm1.SpeedButton18Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0213$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°1 : FERMER ** procedure TForm1.SpeedButton19Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0313$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°2 : OUVERTURE ** procedure TForm1.SpeedButton20Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0123$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°2 : STOP ** procedure TForm1.SpeedButton21Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0223$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°2 : FERMER ** procedure TForm1.SpeedButton22Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0323$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°3 : OUVERTURE ** procedure TForm1.SpeedButton23Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0133$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°3 : STOP ** procedure TForm1.SpeedButton24Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0233$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Velux n°3 : FERMER ** procedure TForm1.SpeedButton25Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0333$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Velux : OUVERTURE ** procedure TForm1.SpeedButton26Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0143$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Velux : STOP ** procedure TForm1.SpeedButton27Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0243$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Bouton "Tous les Velux : FERMER ** procedure TForm1.SpeedButton28Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'VUX0343$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //************************* //**** FIN: VELUX TRIO **** //************************* //********************************* //**** Prises commandées Blyss **** //********************************* // //** Prise n°1 : Eteinte ** procedure TForm1.SpeedButton29Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352160$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°1 : Allumée procedure TForm1.SpeedButton30Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352161$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°2 : Eteinte ** procedure TForm1.SpeedButton31Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352120$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°2 : Allumée ** procedure TForm1.SpeedButton32Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352121$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°3 : Eteinte ** procedure TForm1.SpeedButton33Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352100$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°3 : Allumée procedure TForm1.SpeedButton34Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352101$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°4 : Eteinte procedure TForm1.SpeedButton35Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352190$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°4 : Allumée procedure TForm1.SpeedButton36Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352191$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°5 : Eteinte procedure TForm1.SpeedButton37Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352110$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Prise n°5 : Allumée procedure TForm1.SpeedButton38Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352111$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Toutes les prises Eteintes procedure TForm1.SpeedButton55Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352080$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** Toutes les prises allumées procedure TForm1.SpeedButton56Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'BLY040740352081$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //************************************** //**** FIN: Prises commandées Blyss **** //************************************** //********************************* //**** Recepteur HF à 8 relais **** //********************************* // //** OFF : Relais n°1 procedure TForm1.SpeedButton39Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000000$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°1 procedure TForm1.SpeedButton40Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000001$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°2 procedure TForm1.SpeedButton41Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000002$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°2 procedure TForm1.SpeedButton42Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000003$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°3 procedure TForm1.SpeedButton43Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000004$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°3 procedure TForm1.SpeedButton44Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000005$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°4 procedure TForm1.SpeedButton45Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000006$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°4 procedure TForm1.SpeedButton46Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000007$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°5 procedure TForm1.SpeedButton47Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000008$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°5 procedure TForm1.SpeedButton48Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000009$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°6 procedure TForm1.SpeedButton49Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000010$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°6 procedure TForm1.SpeedButton50Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000011$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°7 procedure TForm1.SpeedButton51Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000012$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°7 procedure TForm1.SpeedButton52Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000013$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** OFF : Relais n°8 procedure TForm1.SpeedButton53Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000014$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //** ON : Relais n°8 procedure TForm1.SpeedButton54Click(Sender: TObject); begin IdUDPClient1.Send(MDP+'COM'+'KUD05000015$'); ReceivedString := IdUDPClient1.ReceiveString(); // L'interface est-elle présente sur le réseau ? if ReceivedString = '' then begin MessageDlg ('L''interface ne répond pas. Le programme va s''arrêter...', mtInformation,[mbOk],0); Application.Terminate; // Si l'interface ne répond pas à la requête, on quitte le programme (interface déconnectée du réseau). end; end; //************************************** //**** FIN: Recepteur HF à 8 relais **** //************************************** end.