Home Automation eHouse .
Búa helsta (skipulag tafla skjár . Sett á helstu Form 24 Reitir TPanel spjöldum fyrir allar gerðir af stafrænum framleiðsla RM .
Þetta mun mynda takkana til að snúa út RoomManager (eða rafmagns) .
Auk , liturinn fer eftir stöðu og lesa .
Af þessum sökum sem við notuðum staðlaða hnappa eða svipaðri tegund TButton , vegna þess að þeir hafa ekki möguleika á að breyta lit .
Við köllum þá ” outputX ” þar sem X er fjöldi framleiðslu .
Ég þarf ekki að vera á vettvangi , vegna þess að það mun gera það sjálfkrafa , þetta forrit . Fyrir hvern hnappinn , framleiðsla verður úthlutað á sama atburð (onClick) – output1Click .
Sett á helstu Form 24 sviðum TPanel tegund spjöldum fyrir öll forrit til að keyra RM .
Þetta mun mynda á hnappana til að skipta núverandi RoomManager (þ.e. , á / burt raftækja í hóp með breytingu á mæla inntak á viðmiðunarfjárhæðum notuð til að stjórna svo . hitastig) .
Við köllum þá ” programX ” þar sem X er fjöldi af the hnappur .
Sama hátt , engin þörf á að dreifa , vegna þess að það mun gera það sjálfkrafa , þetta forrit .
Fyrir hvern hnappinn , Forritið ætti að vera úthlutað til sama atburðar (onClick) – program1Click .
Á helsta merki texta eru 16 tegundir TLabel að sýna allar niðurstöður mælinga á RoomManager (tölusett Label1 til Label16) .
Á sama hátt og í ofangreindum tilvikum þarf ekki að dreifa .
Skoða endanlega formi fyrir 
Frumstilling formi:
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
málsmeðferð TForm1 . FormCreate (Sendandi: TObject) ;
var alignx , buttonindex , róður , dálki , K , i: heiltala ;
byrja
GetComputerName ; / / Fá nafn tölvu eða spjaldið – les
slóð: = getcurrentdir () ; / / Fá núverandi staðbundnum slóð umsókn skrá – les möppuna sem forritið
slóð: = stringreplace (slóð , ‘ \ Bin ‘ , ‘ \ ‘ , [Rfignorecase]) ; / / Fá slóð eHouse umsókn
remotepath: = slóð ; / / Sama leið fyrir remoteaccess fyrir inicialization – í upphafi leið varpað fyrir sama fjarlægur aðgangur
loadnames_rm ; / / Load stjórnandi nöfn ehouse1
init_heat_temperature_names ; / / Init HeatManager nöfn
readethernetdevs ; / / Hlaða stýringar eter eHouse nöfn
i: = 1 ;
en i < ; = Paramcount til / / framkvæma stjórn lína rifrildi – aðferð the stjórn lína
byrja
Ef POS ( ‘ / X: ‘ , lágstafir (ParamStr (i))) = 1 þá / / Panel breidd – breidd hópsins
form1 . Width: = chk_int (stringreplace (ParamStr (i) , ‘ / X: ‘ , ‘ ‘ , [Rfignorecase])) ;
Ef POS ( ‘ / S: ‘ , lágstafir (ParamStr (i))) = 1 þá / / Panel hæð – hæð spjaldið
form1 . hæð: = chk_int (stringreplace (ParamStr (i) , ‘ / S: ‘ , ‘ ‘ , [Rfignorecase])) ;
Ef POS ( ‘ / R: ‘ , lágstafir (ParamStr (i))) = 1 þá / / tæki nafn (RoomManager) – RoomManger nafn
deviceindex: = RMDeviceIndexByName ((stringreplace (ParamStr (i) , ‘ / R: ‘ , ‘ ‘ , [Rfignorecase]))) ;
Ef POS ( ‘ / A: ‘ , lágstafir (ParamStr (i))) = 1 þá / / tæki heimilisfang (RoomManager) – RoomManager heimilisfang
deviceindex: = (get_index_rm (stringreplace (ParamStr (i) , ‘ / A: ‘ , ‘ ‘ , [Rfignorecase]))) ;
Ef POS ( ‘ / P: ‘ , lágstafir (ParamStr (i))) = 1 þá / / fjarlægur aðgangur slóð – fjarlægur aðgangur slóð
remotepath: = ((stringreplace (ParamStr (i) , ‘ / P: ‘ , ‘ ‘ , [Rfignorecase]))) ;
Inc (i) ;
enda ;
Ef form1 . breidd < ; 100 þá form1 . breidd: = 800 ; / / Ef rangt breytur fyrir stærð setur sjálfgefið – vanskil
Ef form1 . hæð < ; 100 þá form1 . hæð: = 600 ;
devicestoupdatestatus: = IntToStr (RM [deviceindex] . Adrha) + ‘ – ‘ + IntToStr (RM [deviceindex] . adrl) ;
/ / Limit leita að núverandi stöðu RoomManager / sía út önnur tæki
/ / Athuga hvort einn tæki pannel fyrir Nýting takmörkun
/ / Athuga aðeins stöðu völdum RoomManager sinnum minna CPU og miðlara eHouse
outputbuttonnames (deviceindex) ; / / Frumstilla hnappa og merki nöfn – stígvél , hnappar og texta merki
form1 . Caption: = ‘ eHouse Control Panel: ‘ + Rm [deviceindex] . devname ; / / Setja titil á helstu tegundum Nafn RoomManager – haus sýnir nafn formi RoomManager
timer1 . Interval: = 3000 ; / / Set hringlaga verkefni bil í millisekúndum
timer1 . Virkt: = true ; / / Byrja sjálfvirka verkefni (staða uppfærslu
k: = 1 ;
buttonindex: = 0 ; / / Núverandi hnappinn (sýnilegt) vísitölu – núverandi fjöldi af (ljós)
röð: = 0 ; / / Núverandi hnappinn í röð – númer núverandi takkann á núverandi línu
/ / Column: = 0 ;
alignx: = (form1 . clientWidth – (Línur) * (buttonwidth + Xspace)) div 2 ; / / Center hnappa á pallborð – centering blokkir hnappar
fyrir i: = 0 form1 . ComponentCount – 1 / / Output hnappinn Sjálfvirk skipulag – sjálfkrafa stilla Hætta hnappinn
byrja / / Fyrir hvern hlut á form1 – öllum þáttum Form1
if (form1 . Hluti [i] er TPanel) þá / / ef hluturinn er TPanel (hnappur okkar) – Ef tegund mótmæla TPanel (hnappur)
byrja
ef comparetext ((form1 . hluti [i] sem TPanel) . Nafn , ‘ framleiðsla ‘ + IntToStr (k)) = 0 þá / / ef samanstanda nafn (framleiðsla)
byrja
röð: = buttonindex unga fólkið (línur) ; / / Reikna raðir og dálka Vísitölur – reiknar hnit dálkinum og róa
dálkur: = buttonindex div (línur) ;
ef lengd (OutputNames [k – 1])> ; 0 þá / / Only sýnir ouput hnappa með nafni – aðeins sýnir hnappa með nafni
byrja
(Form1 . Hluti [i] sem TPanel) . vinstri: = alignx + róður * (buttonwidth + Xspace) ; / / Reikna X ás stellingu – reiknar stöðu sína á X ás
(Form1 . Hluti [i] sem TPanel) . TOP: = yoffsetouts + dálkur * (buttonheight + yspace) ; / / Reikna Y ás stellingu – reiknar stöðu sína á Y ás
(Form1 . Hluti [i] sem TPanel) . breidd: = buttonwidth ; / / Stilla breidd Buttons – Breidd á hnappa
(Form1 . Hluti [i] sem TPanel) . hæð: = buttonheight ; / / Set Buttons Hæð – Fjárhæð hnappa
(Form1 . hluti [i] sem TPanel) . Caption: = Outputnames [k – 1] ; / / Set Button Caption – stillir texta
(Form1 . hluti [i] sem TPanel) . Bevelinner: = bvRaised ;
(Form1 . hluti [i] sem TPanel) . BevelOuter: = bvRaised ;
(Form1 . hluti [i] sem TPanel) . letur . Stærð: = leturstærð ; / / Set Font Size Button – setur leturstærðina fyrir hnappinn
Inc (buttonindex) ; / / Næsti hnappur sýnileg – sjá næstu
enda
annað
byrja
(Form1 . hluti [i] sem TPanel) . sýnileg: = false ; / / No Name = sýna ekki hnappinn – fjarlægja lykla án heitis
enda ;
Inc (k) ; / / Next hnappinn – NEXT hnappur
enda ;
enda ;
enda ;
/ / / / / / / / / / / / Sömu hnappar fyrir áætlun – Á sama hátt á hnappa til að ræsa forrit
buttonindex: = 0 ;
k: = 1 ;
fyrir i: = 0 form1 . ComponentCount – 1 til
byrja
if (form1 . Hluti [i] er TPanel) þá
byrja
ef comparetext ((form1 . hluti [i] sem TPanel) . Nafn , ‘ program ‘ + IntToStr (k)) = 0 þá
byrja
röð: = buttonindex unga fólkið (línur) ;
dálkur: = buttonindex div (línur) ;
ef lengd (ProgramNames [k – 1])> ; 0 þá
byrja
(Form1 . Hluti [i] sem TPanel) . vinstri: = alignx + róður * (buttonwidth + Xspace) ;
(Form1 . Hluti [i] sem TPanel) . TOP: = yoffsetprograms + dálkur * (buttonheight + yspace) ;
(Form1 . Hluti [i] sem TPanel) . breidd: = buttonwidth ;
(Form1 . Hluti [i] sem TPanel) . hæð: = buttonheight ;
(Form1 . hluti [i] sem TPanel) . Caption: = Programnames [k – 1] ; / / Setja hnappur texta blöðrur hnappar fyrir áætlun – setur nafn forritsins hnappa
(Form1 . hluti [i] sem TPanel) . Bevelinner: = bvRaised ;
(Form1 . hluti [i] sem TPanel) . BevelOuter: = bvRaised ;
(Form1 . hluti [i] sem TPanel) . letur . Stærð: = leturstærð ;
Inc (buttonindex) ;
enda
annað
byrja
(Form1 . hluti [i] sem TPanel) . sýnileg: = false ;
enda ;
Inc (k) ;
enda ;
enda ;
enda ;
k: = 1 ;
buttonindex: = 0 ;
/ / Alignx: = (form1 . clientWidth – (Labelrows * (labelwidth + labelresultsize + Xspace))) div 2 ;
/ / / / / / / Analogicaly fyrir flokka – Sama hátt , merki
fyrir i: = 0 form1 . ComponentCount – 1 til
byrja
if (form1 . Hluti [i] er TLabel) þá
byrja
ef comparetext ((form1 . hluti [i] sem TLabel) . Nafn , ‘ merki ‘ + IntToStr (k)) = 0 þá
byrja
röð: = buttonindex unga fólkið (labelrows) ;
dálkur: = buttonindex div (labelrows) ;
ef lengd (LabelNames [k – 1])> ; 0 þá / / ef lengd texta merki> ; ; 0 – Ef lýsing er
byrja
(Form1 . Hluti [i] sem TLabel) . vinstri: = alignx + róður * (labelwidth + labelresultsize + Xspace) ; / / Reikna X staðsetning
(Form1 . Hluti [i] sem TLabel) . TOP: = yoffsetlabel + dálkur * (labelheight + yspace) ; / / Reikna Y staðsetningu
(Form1 . Hluti [i] sem TLabel) . breidd: = labelwidth ;
(Form1 . Hluti [i] sem TLabel) . hæð: = labelheight ;
(Form1 . hluti [i] sem TLabel) . Caption: = LabelNames [k – 1] ; / / / Velja merki yfirskrift – haus viðeigandi merki
(Form1 . hluti [i] sem TLabel) . letur . litur: = clwhite ; / / Stilla sjálfgefið lit merki – setur sjálfgefinn lit merki
Ef POS ( ‘ [ – % ] ‘ , LabelNames [k – 1])> ; 0 þá (form1 . hluti [i] sem TLabel) . letur . litur: = clyellow ; / / Stilla lit ljós mælingu – fyrir mælingar á lýsingu lita
Ef POS ( ‘ [ % ] ‘ , LabelNames [k – 1])> ; 0 þá (form1 . hluti [i] sem TLabel) . letur . litur: = Claque ; / / Stilla lit mælingu fyrir prósent – lit gildi vaxta
Ef POS ( ‘ [C] ‘ , LabelNames [k – 1])> ; 0 þá (form1 . hluti [i] sem TLabel) . letur . litur: = clwhite ; / / Stilla lit stjórnun hitastigs – fyrir lit hita gildi
(Form1 . hluti [i] sem TLabel) . letur . Stærð: = labelfontsize ; / / Stilla leturstærð fyrir flokkinn – setur leturstærðina fyrir texta merki
Inc (buttonindex) ; / / Next sýnileg merki – merki birtist næsta
enda
annað
byrja
(Form1 . hluti [i] sem TLabel) . sýnileg: = false ; / / Fela texta merki án – fela merki án textu
enda ;
Inc (k) ; / / Næsta merki – Næsta merki
enda ;
enda ;
enda ;
update_status ; / / Update spjaldið fyrir núverandi tæki stöðu frá logs – uppfærir stöðu ökumaður log skrár frá miðlara eHouse
enda ;
The endir afleiðing eftir farartæki – stillt og staðsetningu hnappa af forritinu og fjarlægja gífurlegur þætti (ef þú vilt ekki að hafa á spjaldið vegna takmarkana á réttindum aðgang eða notkun á framleiðsla) .
Lesa meira: Home Automation – Controllers eHouse
Home Automation eHouse Home Automation Framleiðandi