polski

English

 

 

 

 

 

 

 

 

 

OPROGRAMOWANIE -> TWÓJ PROGRAM -> PRZYKŁAD 3

 

 

 

 

  Opis

Jest to program monitorujący stan modułów systemu i umożliwiający sterowanie nimi. Zmiany stanów pracy urządzeń są natychmiast sygnalizowane. Kliknięcie na symbol modułu (ikonę) steruje urządzeniem.

W przykładzie zastosowano monitoring dwóch modułów: ściemniacza (UNIV 1.0.6.0 - ID (3,3)) i przekaźnika (UNIV 1.0.2.0 - ID (1,1)). Za sygnalizację stanów modułów odpowiadają funkcje StatusDimmer() i StatusRelay(). Sterować ściemniaczem można przesuwając suwak, lub klikając na ikonę żarówki. Kliknięcie na symbol K1 steruje przekaźnikiem.

 

  Wykorzystane funkcje

void __fastcall TForm1::Label1Click(TObject *Sender)

Po kliknięciu na napis "HAPCAN Home Automation" otwiera domyślną przeglądarkę internetową na stronie hapcan.com.


void __fastcall SendMessage(unsigned char a, unsigned char b, unsigned char c, unsigned char d, unsigned char e, unsigned char f,unsigned char g, unsigned char h, unsigned char i,unsigned char j, unsigned char k, unsigned char l)
Funkcja wysyła do gniazda TCP dane wprowadzone jako parametry funkcji.


void __fastcall TForm1::ConnectClick(TObject *Sender)
Po kliknięciu na przycisk CONNECT nawiązuje połączenie z interfejsem.


void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
Funkcja wykonuje się gdy nastąpi połączenie z interfejsem.


void __fastcall TForm1::DisconnectClick(TObject *Sender)
Po kliknięciu na przycisk DISCONNECT rozłącza interfejs


void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
Funkcja obsługuje błędy gniazda TCP.


void __fastcall StatusDimmer()
Funkcja dekoduje odebrane z bufora odbiorczego informacje o stanie ściemniacza.

void __fastcall StatusRelay()
Funkcja dekoduje odebrane z bufora odbiorczego informacje o stanie przekaźnika.

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
Odczytuje bufor odbiorczy gniazda TCP. Funkcja wywoływana jest automatycznie, gdy pojawi się bajt w buforze odbiorczym.


void __fastcall TForm1::ImageRelayONClick(TObject *Sender)
Wysyła wiadomość sterującą (zmień stan na przeciwny) do modułu przekaźnika.

void __fastcall TForm1::ImageDimmerONClick(TObject *Sender)
Wysyła wiadomość sterującą (zmień stan na przeciwny) do modułu ściemniacza.

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
Wysyła wiadomość sterującą do modułu ściemniacza. Wiadomość zawiera aktualną wartość wysterowania z komponentu TrackBar.
 

 

Kod źródłowy i program

przykład-3_(455kB)