முகப்பு ஆட்டோமேஷன் eHouse .
முக்கிய வடிவம் (மாத்திரை திரையில் அமைப்பை உருவாக்க . RM டிஜிட்டல் வெளியீடுகளை அனைத்து விதமான முக்கிய படிவம் 24 துறைகளில் TPanel பேனல்கள் வைக்கப்பட்டு .
இந்த RoomManager (அல்லது மின்) அவுட் திரும்ப பொத்தான்கள் அமைக்கும் .
மேலும் , வண்ண படிக்க நிலையை சார்ந்திருக்கும் .
இந்த காரணத்திற்காக நாம் நிலையான பொத்தான்கள் அல்லது ஒத்த வகை TButton பயன்படுத்தப்படும் , அவர்கள் நிறம் மாற்ற வாய்ப்பு இல்லை, ஏனெனில் .
நாம் அவர்களை அழைக்க ” outputX ” எக்ஸ் வெளியீடு எண்ணிக்கை .
நான் பயன்படுத்த வேண்டிய அவசியம் இல்லை , அது தானாக செய்யும் ஏனெனில் , இந்த பயன்பாடு . ஒவ்வொரு பொத்தானை க்கான , வெளியீடு ஒரே நிகழ்வு (onClick) ஒதுக்கப்படும் – output1Click .
RM இயக்க அனைத்து திட்டங்கள் முக்கிய படிவம் 24 துறைகளில் TPanel வகை பேனல்கள் வைக்கப்பட்டு .
இந்த தற்போதைய RoomManager (அதாவது மாற்றுவதற்கான பொத்தான்கள் அமைக்கும் , நிலையை அளவிடுதல் உள்ளீடுகள் ஒரு மாற்றத்தை கொண்டு குழு மின் சாதனங்களை அணைத்து / போன்ற கட்டுப்படுத்தும் பயன்படுத்தப்படுகிறது . வெப்பநிலை) .
நாம் அவர்களை அழைக்க ” programX ” எக்ஸ் பொத்தானை எண்ணிக்கை .
இதேபோல் , வரிசைப்படுத்த தேவையில்லை , அது தானாக செய்யும் ஏனெனில் , இந்த பயன்பாடு .
ஒவ்வொரு பொத்தானை க்கான , நிரல் அதே நிகழ்வு (onClick) ஒதுக்கப்படும் – program1Click .
இவ்விருப்பம் முக்கிய வடிவம் மீது TLabel (Label16 செய்ய Label1 எண்) RoomManager அளவீடுகள் அனைத்து முடிவுகளை காண்பிக்க 16 வகைகள் உள்ளன .
இதேபோல் மேலே சந்தர்ப்பங்களில் என வரிசைப்படுத்த தேவையில்லை .
இறுதி வடிவம் பார்வையிட
படிவத்தை துவக்கும்:

/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
செயல்முறை TForm1 . FormCreate (அனுப்புநர்: TObject) ;
var alignx , buttonindex , வரிசை , பத்தி , கே , நான்: முழு எண் ;
ஆரம்பி
GetComputerName ; / / கணினி அல்லது குழுவின் பெயரை பெறவும் – படிக்கிறார்
பாதை: = getcurrentdir () ; / / தற்போதைய உள்ளூர் பாதை பயன்பாடு அடைவில் பெறுக – அடைவு கூறுகிறது இதில் திட்டம்
பாதை: = stringreplace (பாதை , ‘ \ பின் ‘ , ‘ \ ‘ , [Rfignorecase]) ; / / விண்ணப்ப eHouse பாதையை பெறவும்
remotepath: = பாதை ; Inicialization ஐந்து remoteaccess க்கான / / அதே பாதை – பாதை ஆரம்பத்தில் அதே தொலை அணுகலுக்கு ஒப்பிடப்படுகிறது
loadnames_rm ; / / ஏற்று கட்டுப்படுத்தி பெயர்கள் ehouse1
init_heat_temperature_names ; / / ஆரம்பம் heatmanager பெயர்கள்
readethernetdevs ; / / ஏற்று கட்டுப்பாட்டு ஈத்தர்நெட் eHouse பெயர்கள்
நான்: = 1 ;
அதே நேரத்தில் நான் < ; = / வேண்டும் Paramcount / கட்டளை வரி வாதம் செய்ய – கட்டளை வரி செயல்படுத்தி
ஆரம்பி
என்றால் பாஸ் ( ‘ / எக்ஸ்: ‘ , சிற்றெழுத்து (ParamStr (நான்))) = 1 பின்னர் / / குழு அகலம் – குழு அகலம்
ஃபார்ம் 1 . அகலம்: = chk_int (stringreplace (ParamStr (நான்) , ‘ / எக்ஸ்: ‘ , ‘ ‘ , [Rfignorecase])) ;
என்றால் பாஸ் ( ‘ / S: ‘ , (ParamStr (நான்)) சிற்றெழுத்து) = 1 பின்னர் / / குழு உயரம் – குழு உயரத்தை
ஃபார்ம் 1 . உயரம்: = chk_int (stringreplace (ParamStr (நான்) , ‘ / S: ‘ , ‘ ‘ , [Rfignorecase])) ;
என்றால் பாஸ் ( ‘ / ஆர்: ‘ , (ParamStr (நான்)) சிற்றெழுத்து) = 1 பின்னர் / / சாதன பெயர் (RoomManager) – RoomManger பெயர்
deviceindex: = RMDeviceIndexByName ((stringreplace (ParamStr (நான்) , ‘ / ஆர்: ‘ , ‘ ‘ , [Rfignorecase]))) ;
என்றால் பாஸ் ( ‘ / ஒரு: ‘ , சிற்றெழுத்து (ParamStr (நான்))) = 1 பின்னர் / / சாதன முகவரி (RoomManager) – RoomManager முகவரி
deviceindex: = (get_index_rm (stringreplace (ParamStr (நான்) , ‘ / ஒரு: ‘ , ‘ ‘ , [Rfignorecase]))) ;
என்றால் பாஸ் ( ‘ / பி: ‘ , சிற்றெழுத்து (ParamStr (நான்))) = 1 பின்னர் / / தொலைநிலை அணுகல் பாதை – தொலைநிலை அணுகல் பாதை
remotepath: = ((stringreplace (ParamStr (நான்) , ‘ / பி: ‘ , ‘ ‘ , [Rfignorecase]))) ;
INC (நான்) ;
இறுதியில் ;
ஃபார்ம் 1 என்றால் . அகலம் < ; 100 பின்னர் ஃபார்ம் 1 . அகலம்: = 800 ; / / அளவு தவறான அளவுருக்கள் முன்னிருப்பாக அமைக்கிறது இருந்தால் – இயல்புநிலைக்கு
ஃபார்ம் 1 என்றால் . உயரம் < ; 100 பின்னர் ஃபார்ம் 1 . உயரம்: = 600 ;
devicestoupdatestatus: = IntToStr (RM [deviceindex] . Adrha) + ‘ – ‘ + IntToStr (RM [deviceindex] . adrl) ;
தற்போதைய நிலை RoomManager தேட / / எல்லை / பிற சாதனங்களை வடிகட்டும்
/ / வரையறை பயன்பாட்டு ஒற்றை சாதனம் pannel சரிபார்க்கவும்
/ / தான் தேர்ந்தெடுக்கப்பட்ட RoomManager முறை குறைந்த CPU இன் நிலை மற்றும் சர்வர் eHouse சரிபார்க்கவும்
outputbuttonnames (deviceindex) ; / / பொத்தான்கள் மற்றும் அடையாளங்கள் பெயர்கள் ஆரம்பிக்கவும் – புதை மிதியடிமூடு காலணி , பொத்தான்கள் மற்றும் உரை லேபிள்களை
ஃபார்ம் 1 . தலைப்பு: = ‘ eHouse கண்ட்ரோல் பேனல்: ‘ + RM [deviceindex] . devname ; RoomManager பெயர் முக்கிய வடிவங்கள் / / அமை தலைப்பு – தலைப்பு வடிவம் RoomManager பெயர் காட்டுகிறது
timer1 . இடைவெளி: = 3000 ; மில்லி விநாடிகளில் / / அமை சுழற்சி பணி இடைவெளி
timer1 . செயல்படுத்தப்படும்: = உண்மை ; / / (நிலை மேம்படுத்தல் தானியங்கி பணிகள் தொடக்கம்
கே: = 1 ;
buttonindex: = 0 ; / / தற்போதைய பொத்தானை (புலப்படும்) குறியீட்டு – தற்போதைய எண் (வெளிப்படையாக)
வரிசை: = 0 ; வரிசையில் / / தற்போதைய பொத்தானை – தற்போதைய வரி தற்போதைய முக்கிய எண்ணிக்கை
/ / வரிசை: = 0 ;
alignx: = (ஃபார்ம் 1 . clientWidth – (வரிசைகளை) * (buttonwidth + Xspace)) div 2 ; / / மையம் பலகத்தில் பொத்தான்கள் – மையப்படுத்தும் தொகுதிகள் பொத்தான்கள்
நான்: = 0 ஃபார்ம் 1 . ComponentCount – 1 / / வெளியீடு பொத்தானை தானியங்கி அமைப்பு – தானாக வெளியேறு பொத்தானை கட்டமைக்க
ஃபார்ம் 1 ஒவ்வொரு பொருளின் / / தொடங்க – ஃபார்ம் 1 அனைத்து உறுப்புகளுக்கும்
(ஃபார்ம் 1 என்றால் . கூறுகள் [நான்]) TPanel என்பது பின்னர் / / பொருள் TPanel என்றால் (நம் பொத்தானை) – என்று பொருள் வகை TPanel (பொத்தானை)
ஆரம்பி
என்றால் comparetext ((ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . பெயர் , ‘ உற்பத்தி ‘ + IntToStr (கே)) = 0 பிறகு / / (வெளியீடு) பெயர் கொண்டது என்றால்
ஆரம்பி
வரிசை: = buttonindex மோட் (வரிசைகள்) ; / / வரிசை மற்றும் பத்தி சுட்டுகள் கணக்கிடுங்கள் – நெடு கூறுகள் கணக்கிட்டு
நிரல்: = buttonindex div (வரிசைகள்) ;
நீளம் (OutputNames [k என்றால் – 1])> ; 0 பின்னர் / / மட்டும் பெயர் ouput பொத்தான்கள் காட்டுகிறது – ஒரே பெயரில் பொத்தான்கள் காட்டுகிறது
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . இடது: = alignx + வரிசையில் * (buttonwidth + Xspace) ; / / கணிப்பது X அச்சு possition – X அச்சு நிலையை கணக்கிட்டு
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . மேலே: = yoffsetouts + நிரல் * (buttonheight + yspace) ; / / Y அச்சு possition கணக்கிடுங்கள் – Y அச்சு நிலையை கணக்கிட்டு
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . அகலம்: = buttonwidth ; / / அமை அகலம் பொத்தான்கள் – பொத்தான்கள் அகலம்
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . உயரம்: = buttonheight ; / / அமை பொத்தான்கள் உயரம் – பொத்தான்கள் அளவு
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . தலைப்பு: = Outputnames [k – 1] ; / / அமை பட்டன் தலைப்பு – பொத்தானை உரை அமைக்கிறது
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . Bevelinner: = bvRaised ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . BevelOuter: = bvRaised ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . எழுத்துரு . அளவு: = fontsize ; / / அமை எழுத்துரு அளவு பட்டன் – பொத்தானை ஒரு எழுத்துரு அளவு அமைக்கிறது
INC (buttonindex) ; / / அடுத்து பொத்தானை தெரியும் – அடுத்த பார்க்க
இறுதியில்
வேறு
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . தெரியும்: = பொய் ; / / இல்லை பெயர் = பொத்தானை காண்பிக்க வேண்டாம் – ஒரு பெயர் இல்லாமல் விசைகளை நீக்க
இறுதியில் ;
INC (கே) ; / / அடுத்து பொத்தானை – அடுத்த பொத்தானை
இறுதியில் ;
இறுதியில் ;
இறுதியில் ;
திட்டம் / / / / / / / / / / / / அதே பொத்தான்கள் – இதேபோல் பொத்தான்களை திட்டங்கள் தொடங்க
buttonindex: = 0 ;
கே: = 1 ;
நான்: = 0 ஃபார்ம் 1 . ComponentCount – 1
ஆரம்பி
(ஃபார்ம் 1 என்றால் . கூறுகள் [நான்] TPanel ஆகும்), பின்னர்
ஆரம்பி
என்றால் comparetext ((ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . பெயர் , ‘ திட்டம் ‘ = 0 பிறகு + IntToStr (கே))
ஆரம்பி

வரிசை: = buttonindex மோட் (வரிசைகள்) ;
நிரல்: = buttonindex div (வரிசைகள்) ;
நீளம் (ProgramNames [k என்றால் – 1])> ; பின்னர் 0
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . இடது: = alignx + வரிசையில் * (buttonwidth + Xspace) ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . மேலே: = yoffsetprograms + நிரல் * (buttonheight + yspace) ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . அகலம்: = buttonwidth ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . உயரம்: = buttonheight ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . தலைப்பு: = Programnames [k – 1] ; திட்டம் / / அமை பொத்தானை தலைப்பு பொத்தான்கள் – நிரல் பொத்தான்கள் பெயர் அமைக்கிறது
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . Bevelinner: = bvRaised ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . BevelOuter: = bvRaised ;
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . எழுத்துரு . அளவு: = fontsize ;
INC (buttonindex) ;
இறுதியில்
வேறு
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் [நான்] TPanel போன்ற) . தெரியும்: = பொய் ;
இறுதியில் ;

INC (கே) ;
இறுதியில் ;
இறுதியில் ;
இறுதியில் ;

கே: = 1 ;
buttonindex: = 0 ;
/ / Alignx: = (ஃபார்ம் 1 . clientWidth – (Labelrows * (labelwidth + labelresultsize + Xspace))) div 2 ;
/ / / / / / / Analogicaly லேபிள்களுக்கான – இதேபோல் , சிட்டை
நான்: = 0 ஃபார்ம் 1 . ComponentCount – 1
ஆரம்பி
(ஃபார்ம் 1 என்றால் . கூறுகள் [நான்] TLabel பின்னர்) இல்லை
ஆரம்பி
என்றால் comparetext ((ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . பெயர் , ‘ சிட்டை ‘ = 0 பிறகு + IntToStr (கே))
ஆரம்பி

வரிசை: = buttonindex மோட் (labelrows) ;
நிரல்: = buttonindex div (labelrows) ;
நீளம் (LabelNames [k என்றால் – 1])> ; 0 பின்னர் / / என்று முத்திரை உரை நீளம்> ; ; 0 – விளக்கம் என்றால்
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . இடது: = alignx + வரிசையில் * (labelwidth + labelresultsize + Xspace) ; / / கணிப்பது எக்ஸ் இடம்
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . மேலே: = yoffsetlabel + நிரல் * (labelheight + yspace) ; / / ஒய் இடம் கணக்கிடுங்கள்
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . அகலம்: = labelwidth ;
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . உயரம்: = labelheight ;
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . தலைப்பு: = LabelNames [k – 1] ; / / / லேபிள் தலைப்புகளை ஒதுக்கு – தலைப்புகள் பொருத்தமான அடையாளங்கள்
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . எழுத்துரு . வண்ண: = clwhite ; அடையாளத்திற்கு / / அமை இயல்பான நிறம் – லேபிள்கள் முன்னிருப்பு நிறம் அமைக்கிறது
என்றால் பாஸ் ( ‘ [ – % ] ‘ , LabelNames [k – 1])> ; பின்னர் 0 (ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . எழுத்துரு . வண்ண: = clyellow ; ஒளி அளவீட்டிற்கான / / நிறத்தை அமைக்கவும் – வண்ண விளக்குகள் அளவீட்டிற்கு
என்றால் பாஸ் ( ‘ [ % ] ‘ , LabelNames [k – 1])> ; பின்னர் 0 (ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . எழுத்துரு . வண்ண: = கூலிக்கு புகழ்ந்து கைதட்டும் கூட்டம் ; சதவீத / / அமை வண்ண அளவை – வட்டி மதிப்பு வண்ண
என்றால் பாஸ் ( ‘ [சி] ‘ , LabelNames [k – 1])> ; பின்னர் 0 (ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . எழுத்துரு . வண்ண: = clwhite ; வெப்பநிலை மேலாண்மை / / நிறத்தை அமைக்கவும் – வண்ண வெப்பநிலை மதிப்புகள்
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . எழுத்துரு . அளவு: = labelfontsize ; அடையாளத்திற்கு / / அமை எழுத்துரு அளவு – உரை அடையாளத்திற்கு எழுத்துரு அளவு அமைக்கிறது
INC (buttonindex) ; / / அடுத்து தெரியும் லேபிள் – லேபிள் அடுத்த தோன்றுகிறது
இறுதியில்
வேறு
ஆரம்பி
(ஃபார்ம் 1 . கூறுகள் TLabel என [நான்]) . தெரியும்: = பொய் ; / / இல்லாமல் உரை லேபிள்களை மறை – textu இல்லாமல் அடையாளங்கள் மறைக்க
இறுதியில் ;
INC (கே) ; / / அடுத்து லேபிள் – அடுத்த லேபிள்
இறுதியில் ;
இறுதியில் ;
இறுதியில் ;
update_status ; / / மேம்படுத்தல் பதிவுகள் தற்போதைய சாதனம் நிலையை குழு – சர்வர் eHouse இருந்து பதிவு கோப்புகளை இயக்கி மேம்படுத்தல்கள் நிலை
இறுதியில் ;
கார் பின்னர் முடிவு – கட்டமைக்கப்பட்ட மற்றும் பொத்தானை வேலைவாய்ப்பு திட்டம் மற்றும் (நீங்கள் அவர்களை ஏனெனில் அணுகல் உரிமைகளை கட்டுப்பாடுகளை பலகத்தில் அல்லது வெளியீடு பயன்படுத்த வேண்டும் என்றால்) சொல்லப்படாத கூறுகள் நீக்க .

மேலும் வாசிக்க: முகப்பு ஆட்டோமேஷன் – கட்டுப்படுத்திகள் eHouse
முகப்பு ஆட்டோமேஷன் eHouse முகப்பு ஆட்டோமேஷன் உற்பத்தியாளர்