ಮುಖಪುಟ ಆಟೊಮೇಷನ್ ಪಿಸಿ ಸಾಫ್ಟ್ವೇರ್ eHouse ನೀವು ಕಟ್ಟಡದ ಯಾಂತ್ರೀಕೃತಗೊಂಡ ವ್ಯವಸ್ಥೆಯ ಮೇಲ್ಪದರಗಳು ರಚಿಸಲು ಅನುಮತಿಸುತ್ತದೆ .
ನೀವು ನಿಮ್ಮ ಸ್ವಂತ ರಚಿಸಲು ಅನುಮತಿಸುತ್ತದೆ , ಮಾಲಿಕ ಕ್ರಮಾವಳಿಗಳು , ಸರಣಿ ನಿಯಂತ್ರಿಸುವ ಫರ್ಮ್ವೇರ್ ಅಥವಾ ಚಾಲಕ ತಂತ್ರಾಂಶ ಅನುಷ್ಠಾನ ಇಲ್ಲ ಮುಖಪುಟ ಆಟೊಮೇಷನ್ eHouse .
ಈ ಕೊನೆಯ , ನಾವು (ಡೆಲ್ಫಿ 5) ತಂತ್ರಾಂಶ ಮೂಲ ಸಂಕೇತಗಳು ಬಳಕೆದಾರರಿಗೆ ಒದಗಿಸಲು . ಅವರು ಡೆಲ್ಫಿ ಹೊಸ ಆವೃತ್ತಿಯೊಂದಿಗೆ ಕಂಪೈಲ್ ಅಥವಾ ಇತರ ಪ್ರೋಗ್ರಾಮಿಂಗ್ ಭಾಷೆ ಬಳಸಬಹುದು .
ಅವರು ಹವ್ಯಾಸಿ ಪ್ರೋಗ್ರಾಂ ಉಚಿತ ಈಗಾಗಲೇ ಲಭ್ಯವಿದೆ ಎಂದು ನಾವು ಪ್ರಜ್ಞಾಪೂರ್ವಕವಾಗಿ ಈ ಪುರಾತನ ಆವೃತ್ತಿಗಳು ಆಯ್ಕೆ .
ಅವರು ವಿಂಡೋಸ್ XP ನಲ್ಲಿ ಕೇವಲ ನಂಬಿಕಾರ್ಹವಾಗಿ ಕೆಲಸ , ನೀಳನೋಟ , ವಿಂಡೋಸ್ 7 32 ಮತ್ತು 64 ಬಿಟ್ ಎರಡೂ .
ಈ ತಂತ್ರಾಂಶ eHouseLogAnalizer ಮತ್ತು ಸದ್ಯೋಚಿತವಾಗಿಲ್ಲ ಪಠ್ಯ ಕಡತಗಳನ್ನು ಓದಲು ಈ ದಾಖಲೆಗಳು ಟೆಂಪ್ಲೇಟ್ ಅನ್ವಯಗಳನ್ನು ಕರೆಯಲಾಗುತ್ತದೆ .
ಇದು ಅನ್ವಯಗಳನ್ನು KillWdt ನಿರ್ವಹಿಸುತ್ತದೆ ಮತ್ತು ಮೇಲ್ವಿಚಾರಣೆ ಮಾಡಬಹುದು . ಎಕ್ಸ್ .
ಅಪ್ಲಿಕೇಶನ್ ಮುಖ್ಯ ಲಕ್ಷಣಗಳು:

• ಎಲ್ಲಾ ಚಾಲಕರು ಸ್ಥಿತಿಯನ್ನು ಮತ್ತು ಹೆಸರುಗಳನ್ನು ಓದುವಿಕೆ
• ಸ್ಥಿತಿ ಓದಿ ಎಲ್ಲಾ ಚಾಲಕಗಳನ್ನು ಹೆಸರುಗಳನ್ನು ನಮೂದಿಸಿ
• ಒಳಹರಿವು ಅಳೆಯಲು ಎಲ್ಲಾ ಚಾಲಕಗಳನ್ನು ಮಾಪನಗಳು ಮತ್ತು ಹೆಸರುಗಳು ಓದಿ
• ಆಂತರಿಕ ಪ್ರೋಗ್ರಾಂ ಮೆಮೊರಿ ಎಲ್ಲಾ ಡೇಟಾವನ್ನು ಲೋಡ್ , ಮುಂದಿನ ಅಪ್ಲಿಕೇಶನ್ ಮೂಲಕ ಪರಿಷ್ಕರಿಸಲಾಗುತ್ತದೆ

ಅಪ್ಲಿಕೇಶನ್ ಒಂದು ಕೋಶದಲ್ಲಿ ಪಠ್ಯ ಕಡತಗಳನ್ನು ದಾಖಲಿಸಿದವರು ಕಡತಗಳ ಸ್ಥಿತಿ ಬಳಸುತ್ತದೆ ‘ ದಾಖಲೆಗಳು / ಸ್ಥಿತಿ / ‘ ಚಾಚುವುದು ‘ . ಅಂತಸ್ತು ‘ .
ಫೈಲ್ ಮಾತ್ರ ಅಪ್ಲಿಕೇಶನ್ eHouse ಬದಲಾವಣೆಗಳನ್ನು ಸಂದರ್ಭದಲ್ಲಿ ಓದಲು . ಎಕ್ಸ್ .

ಡೇಟಾ ನಿಯಂತ್ರಕಗಳು ಕೆಳಗಿನ ನಿದರ್ಶನಗಳನ್ನು ರೆಕಾರ್ಡ್ಸ್ ನಲ್ಲಿ ಲೋಡ್ ” ehouse_rm_em_hm ” ಅರೇ ಆರ್ಎಮ್ ಪಟ್ಟಿ .

ಜೊತೆಗೆ , ಡೇಟಾವನ್ನು HeatManager ಕೆಳಗಿನ ಅಸ್ಥಿರ ಇರಿಸಲಾಗುತ್ತದೆ:
bonfire_status: ಸ್ಟ್ರಿಂಗ್ ; HeatManager ಫಾರ್ ದೀಪೋತ್ಸವ ನ / / ಸ್ಥಿತಿ – ಸ್ಥಿತಿ ಕುಲುಮೆಯನ್ನು ತಾಪನ ಫಲಕ eHouse . ಎಕ್ಸ್
boiler_status: ಸ್ಟ್ರಿಂಗ್ ; HM ಫಾರ್ ಬಾಯ್ಲರ್ / / ಸ್ಥಿತಿ – ಬಾಯ್ಲರ್ ತಾಪನ ಫಲಕ eHouse ಸ್ಥಿತಿಯನ್ನು . ಎಕ್ಸ್
Solar_status: ಸ್ಟ್ರಿಂಗ್ ; ಸೌರ ವ್ಯವಸ್ಥೆಯ / / ಸ್ಥಿತಿ – ಸೋಲಾರ್ ಹೀಟಿಂಗ್ ಫಲಕ eHouse ಸ್ಥಿತಿಯನ್ನು . ಎಕ್ಸ್
recuperator_status: ಸ್ಟ್ರಿಂಗ್ ; ಚೇತರಿಕೆ / / ಸ್ಥಿತಿ , ಪ್ರಕಟಿಸುವುದು , ಏರ್ ತಾಪನ – ಬಿಸಿ ಗಾಳಿ ಮತ್ತು ಶಾಖ ಚೇತರಿಕೆ ಸ್ಥಿತಿಯನ್ನು
HADC: ರಚನೆಯ [0 . . 15] ಜೋಡಿ ; / / ಬಿಸಿಯಾಗಿರುವ ತಾಪಮಾನಗಳನ್ನು ಮ್ಯಾನೇಜರ್ – ಉಷ್ಣತಾ ಮಾಪನಗಳ HeatManager
HADC ರಚನೆಯ ನೇರ ಪ್ರವೇಶಕ್ಕಾಗಿ / / ಹೀಟ್ ವ್ಯವಸ್ಥಾಪಕ ಸೂಚಿಕೆಗಳನ್ನು – ತಾಪಮಾನ HeatManager ನೇರ ಓದುವ ಸ್ಥಿರ ಉಷ್ಣಾಂಶವನ್ನು ಸೂಚ್ಯಂಕಗಳು
CONST HM_GWC = 3 ; / / GWC – ನೆಲದ ಶಾಖ ವಿನಿಮಯಕಾರಕ
HM_KOM1 = 4 ; / / ಬೆಂಕಿಗೂಡು ಕೋಟ್ 1 – ದೀಪೋತ್ಸವ ನೀರು ಜಾಕೆಟ್ 1
HM_KOMKONV = 5 ; / / ಬೆಂಕಿಗೂಡು konvekcyjne – ಸಂವಹನ ದೀಪೋತ್ಸವ
HM_KOM2 = 6 ; / / ಫೈರ್ ಪ್ಲೇನ್ 2 – ದೀಪೋತ್ಸವ ನೀರು ಜಾಕೆಟ್ 2 (ಬ್ಯಾಕ್ಅಪ್)
HM_TWEWN = 7 ; / / ಆಂತರಿಕ ಕೊಠಡಿ ತಾಪಮಾನದಲ್ಲಿ – ಆಂತರಿಕ ಕೊಠಡಿ ತಾಪಮಾನದಲ್ಲಿ
HM_SOLAR = 9 ; / / ಕಲೆಕ್ಟರ್ ಸೂರ್ಯ – ಸೌರಮಂಡಲ
HM_ZEWNPN = 8 ; / / ಬಾಹ್ಯ ತಾಪಮಾನ ಉತ್ತರ – ಬಾಹ್ಯ ತಾಪಮಾನ ಉತ್ತರ
HM_ZEWNPD = 1 ; ದಕ್ಷಿಣ / / ಬಾಹ್ಯ ತಾಪಮಾನ – ಬಾಹ್ಯ ತಾಪಮಾನವು ದಕ್ಷಿಣಕ್ಕೆ
HM_KOC = 10 ; / / ಉಷ್ಣತೆ ಬಾಯ್ಲರ್ – ಬಾಯ್ಲರ್ ತಾಪಮಾನ
HM_BANDOL = 11 ; / / CO / ಬಿಸಿ ನೀರಿನ ಟ್ಯಾಂಕ್ ಕೆಳಗೆ – ಬಿಸಿ watter ಕೆಳಗೆ ಬಫರ್
HM_REQIN = 12 ; / / ಕ್ಲೀನ್ ಏರ್ ಚೇತರಿಸಿಕೊಳ್ಳುವವ ಇನ್ಪುಟ್ – ಚೇತರಿಕೆ ಸ್ಪಷ್ಟ ಏರ್ ಇನ್ಪುಟ್
= 13 HM_REQOUT ; / / ಔಟ್ಪುಟ್ ಚೇತರಿಸಿಕೊಳ್ಳುವವ ಮುಖಪುಟ – ಕೋಣೆಗೆ heaten ಚೇತರಿಕೆ ತಾಜಾ ಬ್ಲೋ ಏರ್ – ತಾಪಮಾನ
= 14 HM_NAG ; / / ತಾಪಮಾನ ಮೂರು ನಿಯಂತ್ರಿಸಬಹುದು – ತಾಪಕ ಮತ್ತು ರೇಡಿಯೇಟರ್ಗಳನ್ನು ದಾರಿ ಕವಾಟ – ವಾಟರ್ ಹೀಟರ್ ಅಥವಾ ಇತರ ತಾಪನ ವ್ಯವಸ್ಥೆಯು ಮೂರು ಮಾರ್ಗಗಳನ್ನು ಕಟ್ಆಫ್ ನಂತರ ತಾಪಮಾನ
HM_REQWYC = 15 ; / / ಮುಖಪುಟ ಚೇತರಿಸಿಕೊಳ್ಳುವವ ಸಾರ ಕೊಳಕು – ಮನೆ ಕೊಳಕು ನಿಷ್ಕಾಸಾನಿಲದ ಉಷ್ಣಾಂಶ ರಿಂದ ಚೇತರಿಕೆ
HM_BANGORA = 2 ; / / ತಾಪಕ / ಬಿಸಿನೀರಿನ ತೊಟ್ಟಿಯ ಗೋರ – ಬಿಸಿನೀರಿನ ಬಫರ್ ಟಾಪ್
HM_BANSRO = 0 ; / / ತಾಪಕ / ಬಿಸಿ ನೀರಿನ ಸಂಗ್ರಹಣಾ ತೊಟ್ಟಿಯ ಒಂದು ಸಾಧನವಾಗಿ – MIDDLE ಬಿಸಿನೀರಿನ ಬಫರ್
ವರ್ HADCNames: ರಚನೆಯ [0 . . 15] ತಂತುವಿನ ; / / ಸಂವೇದಕಗಳ ಹೆಸರುಗಳು (ಒಳಹರಿವು ಅಳತೆ) HeatManagera ಮೂಲ ಕ್ರಿಯೆಗಳು EhouseLogAnalizer:
ವಿಧಾನ init_heat_temperature_names ; / / ಆರಂಭಿಸಿ ಮತ್ತು / ಅಥವಾ ತಾಪಮಾನ ಸಂವೇದಕಗಳನ್ನು ಎಚ್ಎಂ ಹೆಸರುಗಳನ್ನು ಓದಲು
ವಿಧಾನ loadnames_rm ; / / ಲೋಡ್ RoomManagerĂłw ಹೆಸರುಗಳು (eHouse 1)
ವಿಧಾನ readethernetdevs ; / / ಎಥರ್ನೆಟ್ ಚಾಲಕ ಹೆಸರುಗಳು (eHouse 2) ಬರಹಗಳು
get_index_rm ಕಾರ್ಯ (Str: ಸ್ಟ್ರಿಂಗ್): ಪೂರ್ಣಾಂಕ ; / / ರಿಟರ್ನ್ಸ್ ಫೈಲ್ ಹೆಸರು ಸ್ಥಿತಿ ಅದಕ್ಕೆ roomManagerami ಹುಡುಕಾಟ ಹೊಂದಿರುವ ಮೇಜಿನ ಸೂಚ್ಯಂಕ
ಕಾರ್ಯ GB (chr: ಚಾರ್): ಬೂಲಿಯನ್ ; / / ಓದಲು ಸ್ಥಿತಿಯನ್ನು ಒಂದು ಬೂಲಿಯನ್ ಮೌಲ್ಯವನ್ನು ರಿಟರ್ನ್ಸ್
adc_hm ವಿಧಾನ (Str: ಸ್ಟ್ರಿಂಗ್ ; ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ) ; / / ಓದಲು ಸ್ಥಿತಿ HeatManagera ದಾಖಲಿತ ತಾಪಮಾನವು ಸ್ಟ್ರಿಂಗ್ ಮತಾಂತರ
adc_rm ವಿಧಾನ (Str: ಸ್ಟ್ರಿಂಗ್ ; ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ) ; ಸ್ಥಿತಿ RoomManagerĂłw ಓದುವಾಗ / / ಅನಲಾಗ್ ಮಾಪನಗಳ ಸ್ಟ್ರಿಂಗ್ ಮತಾಂತರ
gbs ಕಾರ್ಯ (ಬೌ: ಬೂಲಿಯನ್): ಸ್ಟ್ರಿಂಗ್ ; / / ಪಠ್ಯ ರೂಪ (0 ಬೂಲಿಯನ್ ಬರೆಯಿರಿ , 1)
RMDeviceIndexByName ಕಾರ್ಯ (Str: ಸ್ಟ್ರಿಂಗ್): ಪೂರ್ಣಾಂಕ ; / / ರಿಟರ್ನ್ಸ್ ಹೆಸರು ಚಾಲಕನಿಂದ RoomManagerami ಹುಡುಕಾಟ ಹೊಂದಿರುವ ಮೇಜಿನ ಸೂಚ್ಯಂಕ
RMGetOutputStateNr ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; OutputNr: ಪೂರ್ಣಾಂಕ): ಬೂಲಿಯನ್ ; / / ಔಟ್ಪುಟ್ ರಾಜ್ಯದ ಆರ್ಎಮ್ ಹಿಂತಿರುಗಿ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಔಟ್ಪುಟ್ ಸಂಖ್ಯೆ OutputNR
RMGetOutputState ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; OutputName: ಸ್ಟ್ರಿಂಗ್): ಬೂಲಿಯನ್ ; / / ರಿಟರ್ನ್ಸ್ ಔಟ್ಪುಟ್ ರಾಜ್ಯದ ಆರ್ಎಮ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು OutputName ಔಟ್ ಎಂದು
RMGetInputStateNr ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputNr: ಪೂರ್ಣಾಂಕ): ಬೂಲಿಯನ್ ; / / ರಿಟರ್ನ್ಸ್ ಇನ್ಪುಟ್ ಆರ್ಎಮ್ ಸ್ಥಿತಿಯನ್ನು [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputNr ಸಂಖ್ಯೆ
RMGetInputState ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputName: ಸ್ಟ್ರಿಂಗ್): ಬೂಲಿಯನ್ ; / / ರಿಟರ್ನ್ಸ್ ಇನ್ಪುಟ್ ಆರ್ಎಮ್ ಸ್ಥಿತಿಯನ್ನು [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputName ಹೆಸರು
RMGetTempNr ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputNr: ಪೂರ್ಣಾಂಕ): ಡಬಲ್ ; / / ಆರ್ಎಮ್ ತಾಪಮಾನ ರಿಟರ್ನ್ಸ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputNr ಸಂಖ್ಯೆ
RMGetTemp ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputName: ಸ್ಟ್ರಿಂಗ್): ಡಬಲ್ ; / / ಆರ್ಎಮ್ ತಾಪಮಾನ ರಿಟರ್ನ್ಸ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputName ಹೆಸರು
RMGetInvPercent ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputName: ಸ್ಟ್ರಿಂಗ್): ಡಬಲ್ ; / / ರಿಟರ್ನ್ಸ್ ರಿವರ್ಸ್ 100 ಶೇಕಡಾವಾರು ಮಾಪನ % – X ಆರ್ಎಮ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputName ಹೆಸರು (ಪೂರೈಕೆ ವೋಲ್ಟೇಜ್ ನಿಯಂತ್ರಕ ಸಂಬಂಧಿಸಿದಂತೆ)
RMGetInvPercentNr ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputNr: ಪೂರ್ಣಾಂಕ): ಡಬಲ್ ; / / ರಿಟರ್ನ್ಸ್ ರಿವರ್ಸ್ 100 ಶೇಕಡಾವಾರು ಮಾಪನ % – X ಆರ್ಎಮ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputNr ಸಂಖ್ಯೆ (ಪೂರೈಕೆ ವೋಲ್ಟೇಜ್ ನಿಯಂತ್ರಕ ಸಂಬಂಧಿಸಿದಂತೆ)
RMGetPercent ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputName: ಸ್ಟ್ರಿಂಗ್): ಡಬಲ್ ; / / ರಿಟರ್ನ್ಸ್ ಆರ್ಎಮ್ [ಸೂಚ್ಯಂಕ] ಶೇಕಡಾವಾರು ಮಾಪನ ಮತ್ತು ಪ್ರವೇಶ InputName ಹೆಸರು (ಪೂರೈಕೆ ವೋಲ್ಟೇಜ್ ನಿಯಂತ್ರಕ ಸಂಬಂಧಿಸಿದಂತೆ)
RMGetPercentNr ಕಾರ್ಯ (ಸೂಚ್ಯಂಕ: ಪೂರ್ಣಾಂಕ ; InputNr: ಪೂರ್ಣಾಂಕ): ಡಬಲ್ ; / / ರಿಟರ್ನ್ಸ್ ರಿವರ್ಸ್ 100 ಶೇಕಡಾವಾರು ಮಾಪನ % – X ಆರ್ಎಮ್ [ಸೂಚ್ಯಂಕ] ಮತ್ತು ಪ್ರವೇಶ InputNr ಹೆಸರು (ಪೂರೈಕೆ ವೋಲ್ಟೇಜ್ ನಿಯಂತ್ರಕ ಸಂಬಂಧಿಸಿದಂತೆ)
RMGetDeviceOutputState ಕಾರ್ಯ (Devname: ಸ್ಟ್ರಿಂಗ್ ; OutputName: ಸ್ಟ್ರಿಂಗ್): ಬೂಲಿಯನ್ ; / / ರಿಟರ್ನ್ಸ್ Devname ಎಂದು ಔಟ್ಪುಟ್ ಚಾಲಕ ರಾಜ್ಯದ ಮತ್ತು OutputName ಔಟ್ ಎಂದು
RMGetDeviceInputState ಕಾರ್ಯ (Devname: ಸ್ಟ್ರಿಂಗ್ ; InputName: ಸ್ಟ್ರಿಂಗ್): ಬೂಲಿಯನ್ ; / / ರಿಟರ್ನ್ಸ್ ಚಾಲಕ ಇನ್ಪುಟ್ ಸ್ಥಿತಿಯನ್ನು ಹೆಸರು ಮತ್ತು ಪ್ರವೇಶ Devname InputName ಹೆಸರು
HMGetTemp ಕಾರ್ಯ (InputName: ಸ್ಟ್ರಿಂಗ್): ಡಬಲ್ ; HeatManagera InputName ಕರೆ ಅಳತೆ ಇನ್ಪುಟ್ / / ರಿಟರ್ನ್ ತಾಪಮಾನ
HMGetTempNr ಕಾರ್ಯ (InputNr: ಪೂರ್ಣಾಂಕ): ಡಬಲ್ ; HeatManagera InputNr ಫಾರ್ ಅಳತೆ ಇನ್ಪುಟ್ ಸಂಖ್ಯೆ (1 / / ರಿಟರ್ನ್ ತಾಪಮಾನ . . 16)
chk_int ಕಾರ್ಯ (ಸ್ಟ: ಸ್ಟ್ರಿಂಗ್): ಪೂರ್ಣಾಂಕ ; / / ಸೇಫ್ ಒಂದು ಪೂರ್ಣಾಂಕ ಒಂದು ತಂತು ಪರಿವರ್ತಿಸಲು
ವಿಧಾನ update_status ; / / ಟೇಬಲ್ ಎಲ್ಲಾ ಚಾಲಕಗಳನ್ನು ಸ್ಥಿತಿಯನ್ನು ನವೀಕರಿಸಿ (ನಿಯತಕಾಲಿಕವಾಗಿ ಚಾಲನೆ ಮಾಡಬೇಕು)
ವಿಧಾನ Test_save ; / / ಟೆಸ್ಟ್ ವಿಧಾನ ಸುಲಭ ಒಂದು ಪಠ್ಯ ಕಡತವನ್ನು ಫಲಿತಾಂಶಗಳು ಬರೆಯಲು
ಚಾಲಕ ಆರಂಭಿಸಲು ಮತ್ತು ಅಪ್ಲಿಕೇಶನ್ ಆರಂಭಿಸಿತು ಒಮ್ಮೆ ಎಲ್ಲಾ ಹೆಸರುಗಳು (FormCreate) ತಯಾರಿಸಲಾಗುತ್ತದೆ
ವಿಧಾನ TForm1 . FormCreate (ಕಳುಹಿಸಿದವರ: TObject) ;
ಆರಂಭಿಸಲು
ಮಾರ್ಗ: = getcurrentdir () ; / / ಕಾರ್ಯಕ್ರಮದ ಪ್ರಸ್ತುತ ಮಾರ್ಗವನ್ನು ಕೋಶದಲ್ಲಿ ಇರಬೇಕು ಪಡೆಯಿರಿ % eHouse_DIR % \ BIN \
ಮಾರ್ಗ: = stringreplace (ಪಥ , ‘ \ ಬಿನ್ ‘ , ‘ \ ‘ , [Rfignorecase]) ; / / ಅಪ್ಲಿಕೇಶನ್ eHouse ಪಥವನ್ನು ಪಡೆಯಿರಿ – ಅಪ್ಲಿಕೇಶನ್ ಮಾರ್ಗವನ್ನು eHouse ಹೊಂದಿಸುತ್ತದೆ
loadnames_rm ; / / ಲೋಡ್ ನಿಯಂತ್ರಕ ಹೆಸರುಗಳು ehouse1 – ಲೋಡ್ ಚಾಲಕರು ಹೆಸರು eHouse 1
init_heat_temperature_names ; / / ಲೋಡ್ ಸಂವೇದಕಗಳು heatManagera ಹೆಸರು
readethernetdevs ; / / ಲೋಡ್ ನಿಯಂತ್ರಕಗಳು ಎತರ್ನೆಟ್ eHouse ಹೆಸರುಗಳು – ಸಾಧನದ ಹೆಸರುಗಳು eHouse 2 reading
timer1 . ಮಧ್ಯಂತರ: = 3000 ; ಮಿಲಿಸೆಕೆಂಡುಗಳಲ್ಲಿ / / ಸೆಟ್ ಸೈಕ್ಲಿಕ್ ಕೆಲಸವನ್ನು ಮಧ್ಯಂತರ – ಸೈಕ್ಲಿಕ್ ಅಕ್ಷಾಂಶ ಪರೀಕ್ಷಿಸುವ ಆರಂಭಿಸಲು ಸಮಯ ಹೊಂದಿಸುತ್ತದೆ
timer1 . ಸಕ್ರಿಯಗೊಳಿಸಲಾಗಿದೆ: = ನಿಜವಾದ ; / / (ಸ್ಥಿತಿಯನ್ನು ಅಪ್ಡೇಟ್ ಸ್ವಯಂಚಾಲಿತ ಕಾರ್ಯಗಳನ್ನು ಪ್ರಾರಂಭಿಸಿ – ಡೇಟಾ ನಿಯತವಾದ ಪರಿಶೀಲನೆಯ ಒಳಗೊಂಡಿದೆ
update_status ; / / ಮೊದಲ ಸ್ಥಿತಿ ಬರಹಗಳು
ಕೊನೆಯಲ್ಲಿ ;
ಸೈಕ್ಲಿಕ್ ಅಕ್ಷಾಂಶ ತಪಾಸಣೆ ಕಾರ್ಯ Timer1 ಮಾಡಲಾಗುತ್ತದೆ (Timer1Timer) ನಿಯತಾಂಕವನ್ನು Timer1 ಸೆಟ್ ಸಮಯದ ಒಂದು ಮಧ್ಯಂತರದಲ್ಲಿ ರನ್ಗಳು . ಮಧ್ಯಂತರ (ಮಿಲಿಸೆಕೆಂಡುಗಳಲ್ಲಿ) .
ವಿಧಾನ TForm1 . Timer1Timer (ಕಳುಹಿಸಿದವರ: TObject) ;
ವರ್ TF: textfile ;
ಆರಂಭಿಸಲು
update_status ; / / ಚಾಲಕ ಸ್ಥಿತಿಯನ್ನು ಮತಾಂತರ
Test_save ; / ಪರೀಕ್ಷೆಗೆ / ಪಠ್ಯ ಕಡತ ಎಲ್ಲಾ ಫಲಿತಾಂಶಗಳು ಬರೆಯುತ್ತಾರೆ
/ ಪ್ರಯತ್ನಿಸಿ / ಅಪ್ಲಿಕೇಶನ್ ಒಂದು ಮಾರ್ಕರ್ ಕಡತ KillExec ರಚಿಸಲು . ಎಕ್ಸ್ ಮಾಡಬಹುದು ” ಕೈಗಡಿಯಾರ ” ಕ್ರ್ಯಾಶ್ ಮೊದಲು ಅಪ್ಲಿಕೇಶನ್
AssignFile (TF , ಮಾರ್ಗ + ‘ ದಾಖಲೆಗಳು \ ದಾಖಲೆ – analizer . STP ‘ ) ;
/ / ಅಪ್ಲಿಕೇಶನ್ ಸರಿಯಾಗಿ stampfile ಬಳಸಿಕೊಂಡು ಮಾಡುವ ಆ WDT ಸೂಚಿಸಿ ” \ ಲಾಗ್ ಲಾಗ್ – analizer . STP ”
ಪುನಃ (TF) ;
writeln (TF , ‘ 1 ‘ ) ;
ಅಂತಿಮವಾಗಿ ;
closefile (TF) ;
ಕೊನೆಯಲ್ಲಿ ;
ಕೊನೆಯಲ್ಲಿ ;