Хоме Аутоматион еХоусе .
Направите главни образац (распоред таблета екрана . Смештен на главном обрасцу 24 поља ТПанел плоче за све врсте дигиталних излаза РМ .
Ово ће формирати дугмад да изађу РоомМанагер (или електричне) .
Додатно , боја ће зависити од стања прочитао .
Из тог разлога смо користили стандардне дугмад или сличног типа ТБуттон , јер они немају могућност да промените боју .
Ми их зовемо ” оутпутКс ” где је Кс број излаза .
Не треба да буду распоређени , јер ће то урадити аутоматски , ова апликација . За сваког дугмета , излаз мора бити додељена истом догађају (онЦлицк) – оутпут1Цлицк .
Смештен на главном обрасцу 24 поља ТПанел типа панела за све програме за покретање РМ .
Ово ће формирати дугмад за пребацивање тренутни РоомМанагер (тј. , он / офф електричним уређајима групе са променом мерних улаза на праговима користи за регулацију што . температура) .
Ми их зовемо ” програмКс ” где је Кс број тастера .
Слично , нема потребе да се распореди , јер ће то урадити аутоматски , ова апликација .
За сваког дугмета , Програм би требало да буде додељена истом догађају (онЦлицк) – програм1Цлицк .
На главном облику текстуалних ознака су 16 врсте ТЛабел да се прикажу све резултате мерења РоомМанагер (бројевима ЛАБЕЛ1 да Лабел16) .
Слично као у наведеним случајевима не треба да се распореди .
Погледајте коначну форму за 
Иницијализација у облику:
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
Поступак ТФорм1 . ФормЦреате (Сендер: ТОбјецт) ;
вар алигнк , буттониндек , ред , колона , к , и: интегер ;
почети
ГетЦомпутерНаме ; / / Гет име рачунара или већа – чита
путања: = гетцуррентдир () ; / / Гет тренутни локални директоријум путање апликације – чита директоријум у којем програм
путања: = стрингреплаце (путања , ‘ \ Бин ‘ , ‘ \ ‘ , [Рфигнорецасе]) ; / / Гет путању апликације еХоусе
ремотепатх: = путања ; / / Исти пут за ремотеаццесс за инициализатион – на почетку стазе мапиране за исти даљински приступ
лоаднамес_рм ; / / Лоад контролер имена ехоусе1
инит_хеат_температуре_намес ; / / Инит хеатманагер имена
реадетхернетдевс ; / / Лоад контролори етхернет еХоусе имена
и: = 1 ;
док је и < ; = Парамцоунт то / / изврши аргумент командне линије – обрађује командне линије
почети
ако је пос ( ‘ / Кс: ‘ , мала (ПарамСтр (и))) = 1, онда / / Ширина панела – Ширина панела
Форм1 . Ширина: = цхк_инт (стрингреплаце (ПарамСтр (и) , ‘ / Кс: ‘ , ‘ ‘ , [Рфигнорецасе])) ;
ако је пос ( ‘ / С: ‘ , мала (ПарамСтр (и))) = 1, онда / / панела висина – висина панела
Форм1 . висина: = цхк_инт (стрингреплаце (ПарамСтр (и) , ‘ / С: ‘ , ‘ ‘ , [Рфигнорецасе])) ;
ако је пос ( ‘ / Р: ‘ , мала (ПарамСтр (и))) = 1, онда / / назив уређаја (РоомМанагер) – РоомМангер име
девицеиндек: = РМДевицеИндекБиНаме ((стрингреплаце (ПарамСтр (и) , ‘ / Р: ‘ , ‘ ‘ , [Рфигнорецасе]))) ;
ако је пос ( ‘ /: ‘ , мала (ПарамСтр (и))) = 1, онда / / адресу уређаја (РоомМанагер) – РоомМанагер адреса
девицеиндек: = (гет_индек_рм (стрингреплаце (ПарамСтр (и) , ‘ /: ‘ , ‘ ‘ , [Рфигнорецасе]))) ;
ако је пос ( ‘ / П: ‘ , мала (ПарамСтр (и))) = 1, онда / / даљински прилазни пут – даљински прилазни пут
ремотепатх: = ((стрингреплаце (ПарамСтр (и) , ‘ / П: ‘ , ‘ ‘ , [Рфигнорецасе]))) ;
инц (и) ;
крај ;
ако Форм1 . Ширина < ; 100 онда Форм1 . ширина: = 800 ; / / Ако погрешни параметри за величину поставља подразумевану – подразумеване
ако Форм1 . Висина < ; 100 онда Форм1 . висина: 600 = ;
девицестоупдатестатус: = ИнтТоСтр (РМ [девицеиндек] . Адрха) + ‘ – ‘ + ИнтТоСтр (РМ [девицеиндек] . адрл) ;
/ / Лимит потрази за текућу статуса РоомМанагер / филтрира и друге уређаје
/ / Провера једне уређаја ПАННЕЛ за застарелости КОРИШЋЕЊА
/ / Проверите само статус изабраног РоомМанагер пута мање ЦПУ и сервер еХоусе
оутпутбуттоннамес (девицеиндек) ; / / Иницијализација дугмад и ознаке имена – чизме , дугмад и текст етикете
Форм1 . наслов: = ‘ еХоусе Контролна табла: ‘ + Рм [девицеиндек] . девнаме ; / / Сет натпис од главних облика РоомМанагер Име – заглављу приказује име обрасца РоомМанагер
тимер1 . Интервал: = 3000 ; / / Сет циклични задатак интервал у милисекундама
тимер1 . Омогућено: = труе ; / / Почетак аутоматске задатке (статус упдате
к = 1 ;
буттониндек: = 0 ; / / Тренутна дугме (видљиви) индекс – тренутни број (очигледно)
ред: = 0 ; / / Тренутна дугме у реду – Број текућег кључ у текућој линији
/ / Колона: = 0 ;
алигнк: = (Форм1 . цлиентВидтх – (Редови) * (буттонвидтх + Ксспаце)) див 2 ; / / Центар дугмад на табли – центрирање блокира дугмад
за и: = 0 то Форм1 . ЦомпонентЦоунт – 1 / / Излаз дугме аутоматско подешавање – аутоматски конфигурисати тастер Екит
бегин / / за сваки објекат на Форм1 – за све елементе Форм1
иф (Форм1 . Компоненте [и] је ТПанел) онда / / ако је објекат ТПанел (наш дугме) – ако објекат типа ТПанел (тастер)
почети
ако цомпаретект ((Форм1 . компоненте [и] као ТПанел) . име , ‘ излаз ‘ + ИнтТоСтр (к)) = 0 онда / / ако назив ПРИДОДАТИ (излаз)
почети
ред: = буттониндек мод (редова) ; / / Израчунајте редове и колоне индекса – израчунава координате колоне и реда
колона: = буттониндек див (редова) ;
Ако дужина (ОутпутНамес [к – 1])> ; 0 онда / / само показује излаз Дугмад са именом – само показује Дугмад са именом
почети
(Форм1 . Компоненте [и] као ТПанел) . лево: = алигнк + ред * (буттонвидтх + Ксспаце) ; / / Израчунати Кс оса посситион – израчунава своју позицију у Кс оси
(Форм1 . Компоненте [и] као ТПанел) . топ: = иоффсетоутс + колона * (буттонхеигхт + испаце) ; / / Израчунајте И оса посситион – израчунава своју позицију у И оси
(Форм1 . Компоненте [и] као ТПанел) . ширина: = буттонвидтх ; / / Сет Видтх дугмад – Ширина од дугмади
(Форм1 . Компоненте [и] као ТПанел) . висина: = буттонхеигхт ; / / Сет Тастери Висина – Износ тастера
(Форм1 . компоненте [и] као ТПанел) . наслов: = Оутпутнамес [к – 1] ; / / Сет дугме Натпис – поставља на дугме текст
(Форм1 . компоненте [и] као ТПанел) . Бевелиннер: = бвРаисед ;
(Форм1 . компоненте [и] као ТПанел) . БевелОутер: = бвРаисед ;
(Форм1 . компоненте [и] као ТПанел) . фонт . Величина: = фонтсизе ; / / Сет Фонт Сизе Буттон – поставља величину слова за дугме
инц (буттониндек) ; / / Дугме Нект видљив – погледајте следећи
крај
друго
почети
(Форм1 . компоненте [и] као ТПанел) . видљиви: = фалсе ; / / Но наме = не показују дугме – уклоните тастере без имена
крај ;
инц (к) ; / / Дугме Нект – Следећи тастер
крај ;
крај ;
крај ;
/ / / / / / / / / / / / Исти тастери за програм – Слично за дугмад за покретање програма
буттониндек: = 0 ;
к = 1 ;
за и: = 0 то Форм1 . ЦомпонентЦоунт – 1 до
почети
иф (Форм1 . Компоненте [и] је ТПанел) онда
почети
ако цомпаретект ((Форм1 . компоненте [и] као ТПанел) . име , ‘ програм ‘ + ИнтТоСтр (к)) = 0 тада
почети
ред: = буттониндек мод (редова) ;
колона: = буттониндек див (редова) ;
Ако дужина (ПрограмНамес [к – 1])> ; 0 онда
почети
(Форм1 . Компоненте [и] као ТПанел) . лево: = алигнк + ред * (буттонвидтх + Ксспаце) ;
(Форм1 . Компоненте [и] као ТПанел) . топ: = иоффсетпрограмс + колона * (буттонхеигхт + испаце) ;
(Форм1 . Компоненте [и] као ТПанел) . ширина: = буттонвидтх ;
(Форм1 . Компоненте [и] као ТПанел) . висина: = буттонхеигхт ;
(Форм1 . компоненте [и] као ТПанел) . наслов: = Програмнамес [к – 1] ; / / Сет дугме наслове дугмад за програм – поставља име програмских тастера
(Форм1 . компоненте [и] као ТПанел) . Бевелиннер: = бвРаисед ;
(Форм1 . компоненте [и] као ТПанел) . БевелОутер: = бвРаисед ;
(Форм1 . компоненте [и] као ТПанел) . фонт . Величина: = фонтсизе ;
инц (буттониндек) ;
крај
друго
почети
(Форм1 . компоненте [и] као ТПанел) . видљиви: = фалсе ;
крај ;
инц (к) ;
крај ;
крај ;
крај ;
к = 1 ;
буттониндек: = 0 ;
/ / Алигнк: = (Форм1 . цлиентВидтх – (Лабелровс * (лабелвидтх + + лабелресултсизе Ксспаце))) див 2 ;
/ / / / / / / Аналогицали за налепнице – Слично , етикета
за и: = 0 то Форм1 . ЦомпонентЦоунт – 1 до
почети
иф (Форм1 . Компоненте [и] је ТЛабел) онда
почети
ако цомпаретект ((Форм1 . компоненте [и] као ТЛабел) . име , ‘ налепница ‘ + ИнтТоСтр (к)) = 0 тада
почети
ред: = буттониндек мод (лабелровс) ;
колона: = буттониндек див (лабелровс) ;
Ако дужина (ЛабелНамес [к – 1])> ; 0 онда / / ако дужина налепнице текста> ; ; 0 – Ако опис
почети
(Форм1 . Компоненте [и] као ТЛабел) . лево: = алигнк + ред * (лабелвидтх + + лабелресултсизе Ксспаце) ; / / Израчунати Кс локација
(Форм1 . Компоненте [и] као ТЛабел) . топ: = иоффсетлабел + колона * (лабелхеигхт + испаце) ; / / Израчунајте И локацију
(Форм1 . Компоненте [и] као ТЛабел) . ширина: = лабелвидтх ;
(Форм1 . Компоненте [и] као ТЛабел) . висина: = лабелхеигхт ;
(Форм1 . компоненте [и] као ТЛабел) . наслов: = ЛабелНамес [к – 1] ; / / / Додељивање ознака натписе – заглавља погодни налепнице
(Форм1 . компоненте [и] као ТЛабел) . фонт . Боја: = цлвхите ; / / Сет дефаулт боје за ознаку – поставља подразумевану боју налепница
ако је пос ( ‘ [ – % ] ‘ , ЛабелНамес [к – 1])> ; 0 тада (Форм1 . компоненте [и] као ТЛабел) . фонт . Боја: = цлиеллов ; / / Сет боја за светло мерење – за мерење боја осветљења
ако је пос ( ‘ [ % ] ‘ , ЛабелНамес [к – 1])> ; 0 тада (Форм1 . компоненте [и] као ТЛабел) . фонт . Боја: = Цлакуе ; / / Сет боја за мерење процента – боје за вредност од интереса
ако је пос ( ‘ [Ц] ‘ , ЛабелНамес [к – 1])> ; 0 тада (Форм1 . компоненте [и] као ТЛабел) . фонт . Боја: = цлвхите ; / / Сет боја за температуре управљање – за вредности боја температуре
(Форм1 . компоненте [и] као ТЛабел) . фонт . Величина: = лабелфонтсизе ; / / Сет фонт за ознаку – поставља величину слова за текст етикете
инц (буттониндек) ; / / Следећи видљиво етикета – ознака се појављује поред
крај
друго
почети
(Форм1 . компоненте [и] као ТЛабел) . видљиви: = фалсе ; / / Сакриј текстуалне ознаке, без – скривање ознака без текту
крај ;
инц (к) ; / / Следећи етикета – Следећи ознака
крај ;
крај ;
крај ;
упдате_статус ; / / Упдате панел за тренутну статусу уређаја из дневника – ажурирања статуса возача лог фајлова са сервера еХоусе
крај ;
Крајњи резултат после ауто – конфигурисан и дугме пласман од програма и уклонили неизрециве елементе (ако не желите да имате на панелу због ограничења права на приступ или коришћење излаза) .
Прочитајте више: Хоме Аутоматион – Контролори еХоусе
Хоме Аутоматион еХоусе Хоме Аутоматион Произвођач