Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Ρ Π»Π΅Π±ΠΎΠΏΠ΅ΡΡΡ
ΠΠ½Π°ΡΠ°Π»Π΅ Π·Π°Π΄Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ h, m ΠΈ s ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΡΡ Π·Π° ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ, Π² ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ Π½ΡΠ»Π΅Π²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ temt ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠ°ΡΠ΅ΠΌ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π΄Π²ΠΈΠ³Π°ΡΠ΅Π»Ρ ΠΈ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ»Π°Π³Π° fpp Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠΆΠΈΠ΄Π°Π΅Ρ, ΠΏΠΎΠΊΠ° Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Ρ Π»Π΅Π±ΠΎΠΏΠ΅ΡΡΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π‘ΠΈΡΡΠ΅ΠΌΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Ρ Π»Π΅Π±ΠΎΠΏΠ΅ΡΡΡ Π Π΅Π°Π»ΠΈΠ·ΡΠ΅ΠΌΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΠ°Π½Π½ΠΎΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ:
1. Π Π°Π±ΠΎΡΡ ΠΏΠ΅ΡΠΈ Π±Π΅Π· ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠ½ΠΎΠΉ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²;
2. Π ΡΡΠ½ΡΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΠ΅ΠΆΠΈΠΌΠΎΠ²;
3. ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ΅ΠΌΡΡ ΡΠ΅ΠΆΠΈΠΌΠΎΠ²: «ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅», «ΠΡΠΎΠΆΠ΅Π½ΠΈΠ΅"ΠΈ «ΠΡΠΏΠ΅ΡΠΊΠ°»;
4. ΠΠΎΠ½ΡΡΠΎΠ»Ρ Π±ΡΠ½ΠΊΠ΅ΡΠΎΠ²;
5. ΠΠΎΠ½ΡΡΠΎΠ»Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΏΡΠΈΠ³ΠΎΡΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΈΠ·Π΄Π΅Π»ΠΈΡ Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π° ΡΡΡΡΠΎΠΉΡΡΠ²Π΅ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΈΠΈ.
Π£ΡΡΡΠΎΠΉΡΡΠ²ΠΎ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΈΠΈ Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΡΡΡΠΎΠΉΡΡΠ² ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ: ΠΆΠΈΠ΄ΠΊΠΎΠΊΡΠΈΡΡΠ°Π»Π»ΠΈΡΠ΅ΡΠΊΠΈΠΉ Π΄Π²ΡΡ ΡΡΡΠΎΡΠ½ΡΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈ Π΄ΠΈΠ½Π°ΠΌΠΈΠΊ Π΄Π»Ρ ΠΏΠΎΠ΄Π°ΡΠΈ Π·Π²ΡΠΊΠΎΠ²ΡΡ ΡΠΈΠ³Π½Π°Π»ΠΎΠ².
ΠΠ»Π°Π²ΠΈΡΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ.
ΠΠ»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ 5 ΠΊΠ»Π°Π²ΠΈΡ:
1) ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌΡ ΡΠ΅ΠΆΠΈΠΌΡ «^»;
2) Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ° «SET»
3) ΠΠ½ΠΊΡΠ΅ΠΌΠ΅Π½Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° «+» ;
4) ΠΠ΅ΠΊΡΠ΅ΠΌΠ΅Π½Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° «- «
5) ΠΠ»Π°Π²ΠΈΡΠ° ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ «ΠΠ» .
ΠΡΠ±ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ½ΠΎΠΉ Π±Π°Π·Ρ.
ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ, Ρ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ ΠΎΡΠ΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΠΌΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΠΎΠΌ ΠΠ1816ΠΠ5.
ΠΠ°Π½Π½ΡΠΉ Π²ΡΠ±ΠΎΡ Π±ΡΠ» ΠΎΠ±ΡΡΠ»ΠΎΠ²Π»Π΅Π½ ΡΠ΅ΠΌ, ΡΡΠΎ ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΈΠ°Π»ΡΠ½ΠΎΠΉ ΡΡ Π΅ΠΌΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π°, Ρ ΠΌΠ΅Π½Ρ Π½Π΅ Π²ΠΎΠ·Π½ΠΈΠΊΠ»ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π°Π½Π°Π»ΠΎΠ³ΠΎ-ΡΠΈΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΈ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠ΅Π±ΡΠ΅ΠΌΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π΄Π²ΡΡ 16-Π±ΠΈΡΠ½ΡΡ ΡΠ°ΠΉΠΌΠ΅ΡΠΎΠ²/ΡΡΠ΅ΡΡΠΈΠΊΠΎΠ². ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΆΠ΅ ΠΌΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΠ° ADUC ΠΈΠ»ΠΈ ΠΌΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΠ° 51-ΠΉ ΡΠ΅ΡΠΈΠΈ ΠΏΡΠΈΠ²Π΅Π»ΠΎ Π±Ρ ΠΊ Π΄ΠΎΡΠΎΠ³ΠΎΠ²ΠΈΠ·Π½Π΅ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΈΠ·Π±ΡΡΠΎΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΈΠ°Π»ΡΠ½ΠΎΠΉ ΡΡ Π΅ΠΌΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π°.
ΠΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠΎΡΡΠ°Π²:
— 8-ΡΠ°Π·ΡΡΠ΄Π½ΡΠΉ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΡΠΉ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ, ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΠΉ ΡΠ°Π±ΠΎΡΠΎΠΉ ΠΈΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΡΡΡΠΎΠΉΡΡΠ² ΠΌΠΈΠΊΡΠΎ ΠΠΠ ΠΈ ΠΈΠΌΠ΅ΡΡΠΈΠΉ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈ Π΄Π΅Π»Π΅Π½ΠΈΡ. ΠΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ 111 ΠΊΠΎΠΌΠ°Π½Π΄ ΡΠ°Π·ΡΡΠ΄Π½ΠΎΡΡΡΡ Π² 1, 2 ΠΈΠ»ΠΈ 3 Π±Π°ΠΉΡΠ°;
— Π²Π½ΡΡΡΠ΅Π½Π½ΡΡ (ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½Π°Ρ Π½Π° ΠΊΡΠΈΡΡΠ°Π»Π»Π΅) ΠΏΠ°ΠΌΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΎΠ±ΡΠ΅ΠΌΠΎΠΌ 4Π Π±Π°ΠΉΡ;
— Π²Π½ΡΡΡΠ΅Π½Π½ΡΡ ΠΏΠ°ΠΌΡΡΡ Π΄Π°Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΌΠΎΠΌ 128 Π±Π°ΠΉΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ Π΄Π»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅Π³ΠΈΡΡΡΠΎΠ²ΡΡ Π±Π°Π½ΠΊΠΎΠ², ΡΡΠ΅ΠΊΠ° ΠΈ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ Π΄Π°Π½Π½ΡΡ ;
— 32 Π΄Π²ΡΠ½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΡΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ½ΡΠ΅ Π»ΠΈΠ½ΠΈΠΈ, ΠΈΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎ Π½Π°ΡΡΡΠ°ΠΈΠ²Π°Π΅ΠΌΡΠ΅ Π½Π° Π²Π²ΠΎΠ΄ ΠΈΠ»ΠΈ Π²ΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΠ΅ Π² Π²ΠΈΠ΄Π΅ ΡΠ΅ΡΡΡΠ΅Ρ 8-ΡΠ°Π·ΡΡΠ΄Π½ΡΡ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΡ ΠΏΠΎΡΡΠΎΠ² Π 0-Π 3;
— Π΄Π²Π° 16-ΡΠ°Π·ΡΡΠ΄Π½ΡΡ ΠΌΠ½ΠΎΠ³ΠΎΡΠ΅ΠΆΠΈΠΌΠ½ΡΡ ΡΠ°ΠΉΠΌΠ΅ΡΠ°/ΡΡΠ΅ΡΡΠΈΠΊΠ° T/C0 ΠΈ T/C1, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π΄Π»Ρ ΠΏΠΎΠ΄ΡΡΠ΅ΡΠ° Π²Π½Π΅ΡΠ½ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠΉ, ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π·Π°Π΄Π΅ΡΠΆΠ΅ΠΊ ΠΈ ΡΠ°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ°;
— Π΄Π²ΡΠ½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π΄ΡΠΏΠ»Π΅ΠΊΡΠ½ΡΠΉ Π°ΡΠΈΠ½Ρ ΡΠΎΠ½Π½ΡΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΡΠΈΠ΅ΠΌΠΎΠΏΠ΅ΡΠ΅Π΄Π°ΡΡΠΈΠΊ — ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΏΠΎΡΡ;
— Π΄Π²ΡΡ ΡΡΠΎΠ²Π½Π΅Π²Π°Ρ ΠΏΡΠΈΠΎΡΠΈΡΠ΅ΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ ΡΠ΅ΡΡΡΠ΅Ρ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΡ ΠΈ Π΄Π²ΡΡ Π²Π½Π΅ΡΠ½ΠΈΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ²;
— Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠ°ΠΊΡΠΎΠ²ΡΠΉ Π³Π΅Π½Π΅ΡΠ°ΡΠΎΡ, ΡΠ°ΡΡΠΎΡΠ° ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π·Π°Π΄Π°Π΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ ΠΊΠ²Π°ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ΅Π·ΠΎΠ½Π°ΡΠΎΡΠ°, LC-ΡΠ΅ΠΏΠΎΡΠΊΠΈ ΠΈΠ»ΠΈ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ Π³Π΅Π½Π΅ΡΠ°ΡΠΎΡΠ°;
ΠΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΡ ΡΠ΅ΡΠΈΠΈ 1816 ΡΡΠ΅Π±ΡΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠ° ΡΠ»Π΅ΠΊΡΡΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π½Π°ΠΏΡΡΠΆΠ΅Π½ΠΈΠ΅ΠΌ +5 Π ± 10%, ΡΠ°ΡΡΠ΅ΠΈΠ²Π°ΡΡ ΠΌΠΎΡΠ½ΠΎΡΡΡ ΠΎΠΊΠΎΠ»ΠΎ 1,5 ΠΡ ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡ ΠΎΡ 0 Π΄ΠΎ 700 Π‘.
ΠΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅Ρ ΠΠ1816ΠΠ51 ΠΌΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΡΠ°ΡΡΠΎΡ ΠΎΡ 1,2 Π΄ΠΎ 12 ΠΠΡ, ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΠΈΠΊΠ» Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΡΠ°Π²Π΅Π½
1 ΠΌΠΊΡ, Π° Π±ΡΡΡΡΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΠ°Π²Π½ΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΌΠΈΠ»Π»ΠΈΠΎΠ½Ρ ΠΊΠΎΡΠΎΡΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π² ΡΠ΅ΠΊΡΠ½Π΄Ρ.
ΠΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π²ΡΡΠΎΠΊΠΎΡΡΠΎΠ²Π½Π΅Π²ΠΎΠΉ n-ΠΠΠ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ ΠΈ Π²ΡΠΏΡΡΠΊΠ°Π΅ΡΡΡ Π² ΠΊΠΎΡΠΏΡΡΠ΅ ΠΠΠ‘, ΠΈΠΌΠ΅ΡΡΠ΅ΠΌ 40 Π²Π½Π΅ΡΠ½ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΎΠ². Π¦ΠΎΠΊΠΎΠ»Π΅Π²ΠΊΠ° ΠΊΠΎΡΠΏΡΡΠ° Π’Π°ΠΊΠΆΠ΅ ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΏΡΠΈΠ½ΡΠΈΠΏΠΈΠ°Π»ΡΠ½ΠΎΠΉ ΡΡ Π΅ΠΌΡ Ρ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ ΠΊΠ²Π°ΡΡΠ΅Π²ΡΠΌ ΡΠ΅Π·ΠΎΠ½Π°ΡΠΎΡΠΎΠΌ Ρ ΡΠ°ΡΡΠΎΡΠΎΠΉ OSC=12 ΠΠΡ, ΡΡΠΎ Π±ΡΠ»ΠΎ ΠΎΠ±ΡΡΠ»ΠΎΠ²Π»Π΅Π½ΠΎ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎΠΌ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠΌΠ΅ΡΠ°ΠΌΠΈ/ΡΡΡΡΡΠΈΠΊΠ°ΠΌΠΈ ΠΈ Π²ΡΡΠΎΠΊΠΎΠΉ ΡΡΠ°Π±ΠΈΠ»ΡΠ½ΠΎΡΡΡΡ Π΅Π³ΠΎ ΡΠ°ΡΡΠΎΡΡ. ΠΡΠΈ ΡΡΠΎΠΉ ΡΠ°ΡΡΠΎΡΠ΅ ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΠΈΠΊΠ» ΠΈΠΌΠ΅Π΅Ρ ΠΏΠ΅ΡΠΈΠΎΠ΄ Π² 1 ΠΌΠΊΡ:
CLK = OSC/2,
M = CLK/6 = 1 ΠΠΡ Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΠΠ-ΠΌΠΎΠ΄ΡΠ»Ρ Π±ΡΠ» Π²ΡΠ±ΡΠ°Π½ Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎ-ΡΠΈΡΡΠΎΠ²ΠΎΠΉ ΠΠΠ-ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠΈΡΠΌΡ EDT Π½Π° Π±Π°Π·Π΅ ΠΌΠΈΠΊΡΠΎΠΊΠΎΠ½ΡΡΠΎΠ»Π»Π΅ΡΠ° HD44780 ΡΠΈΡΠΌΡ Hitachi ΡΠΎΡΠΌΠ°ΡΠ° 40×2.
ΠΠ»Ρ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΠΠ-ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½Π°Ρ ΡΠΈΠ½Ρ ΡΠΎΠ½Π½Π°Ρ ΡΠΈΠ½Π°, Π½Π°ΡΡΠΈΡΡΠ²Π°ΡΡΠ°Ρ 8 ΠΈΠ»ΠΈ 4 (Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ) Π»ΠΈΠ½ΠΈΠΉ Π΄Π°Π½Π½ΡΡ DB0… DB7, Π»ΠΈΠ½ΠΈΡ Π²ΡΠ±ΠΎΡΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ R/W, Π»ΠΈΠ½ΠΈΡ Π²ΡΠ±ΠΎΡΠ° ΡΠ΅Π³ΠΈΡΡΡΠ° RS ΠΈ Π»ΠΈΠ½ΠΈΡ ΡΡΡΠΎΠ±ΠΈΡΠΎΠ²Π°Π½ΠΈΡ/ΡΠΈΠ½Ρ ΡΠΎΠ½ΠΈΠ·Π°ΡΠΈΠΈ E. ΠΡΠΎΠΌΠ΅ Π»ΠΈΠ½ΠΈΠΉ ΡΠΏΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΡΠΈΠ½Ρ ΠΈΠΌΠ΅ΡΡΡΡ Π΄Π²Π΅ Π»ΠΈΠ½ΠΈΠΈ Π΄Π»Ρ ΠΏΠΎΠ΄Π°ΡΠΈ Π½Π°ΠΏΡΡΠΆΠ΅Π½ΠΈΡ 5V — GND ΠΈ VΡΡ ΠΈ Π»ΠΈΠ½ΠΈΡ Π΄Π»Ρ ΠΏΠΎΠ΄Π°ΡΠΈ Π½Π°ΠΏΡΡΠΆΠ΅Π½ΠΈΡ ΠΏΠΈΡΠ°Π½ΠΈΡ Π΄ΡΠ°ΠΉΠ²Π΅ΡΠ° ΠΠΠ — Vo. ΠΡΠ±ΠΎΡ Π°Π΄ΡΠ΅ΡΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠ΅Π³ΠΈΡΡΡΠ° (Π΄Π°Π½Π½ΡΡ ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄) ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π»ΠΈΠ½ΠΈΠ΅ΠΉ RS. ΠΡΠ»ΠΈ RS = 0, ΡΠΎ Π°Π΄ΡΠ΅ΡΡΠ΅ΡΡΡ ΡΠ΅Π³ΠΈΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄, Π΅ΡΠ»ΠΈ RS = 1 — ΡΠ΅Π³ΠΈΡΡΡ Π΄Π°Π½Π½ΡΡ .
Π€ΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½Π°Ρ ΡΡ Π΅ΠΌΠ° ΡΡΡΡΠΎΠΉΡΡΠ²Π° ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ·Π»ΠΎΠ² ΠΠ°ΡΡΠΈΠΊ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ.
ΠΠ°ΡΡΠΈΠΊ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ Π½Π° ΠΎΡΡΠΎΠ²Π΅ ΠΌΡΠ»ΡΡΠΈΠ²ΠΈΠ±ΡΠ°ΡΠΎΡΠ° Ρ ΡΠ΅ΡΠΌΠΎΡΠ΅Π·ΠΈΡΡΠΎΡΠΎΠΌ. ΠΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ, ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΡΠΎΠΏΡΠΎΡΠΈΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΡΠΌΠΎΡΠ΅Π·ΠΈΡΡΠΎΡΠ°, ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠΈΠΎΠ΄Π° ΡΠΈΠ³Π½Π°Π»Π° Π½Π° Π²ΡΡ ΠΎΠ΄Π΅ ΠΌΡΠ»ΡΡΠΈΠ²ΠΈΠ±ΡΠ°ΡΠΎΡΠ°. Π§Π°ΡΡΠΎΡΠ½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΈΠ³Π½Π°Π»Π° ΠΎΡ 1ΠΠΡ Π΄ΠΎ 100ΠΠΡ. ΠΠ΅ΡΡ Π½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΡΠ°ΡΡΠΎΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ΅, Π° Π½ΠΈΠΆΠ½ΠΈΠΉ — ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ. Π Π΄Π°Π½Π½ΠΎΠΌ ΡΡΡΡΠΎΠΉΡΡΠ²Π΅ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΠΎΡ 0 Π΄ΠΎ 500 Π‘.
ΠΠ°ΡΡΠΈΠΊΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ.
ΠΠ°ΡΡΠΈΠΊΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½Ρ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ Π΄Π°ΡΡΠΈΠΊΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ, Ρ ΡΠΎΠΉ ΡΠ°Π·Π½ΠΈΡΠ΅ΠΉ, ΡΡΠΎ Π·Π΄Π΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΠΌΠ΅ΡΡΠΎ ΡΠ΅ΡΠΌΠΎΡΠ΅Π·ΠΈΡΡΠΎΡΠ°, ΡΠ΅Π·ΠΈΡΡΠΎΡ ΡΠΎΠΏΡΠΎΡΠΈΠ²Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ Π΄Π°Π²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ Π½Π° Π½Π΅Π³ΠΎ. Π§Π°ΡΡΠΎΡΠ½ΡΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΈΠ³Π½Π°Π»Π° ΠΎΡ 1ΠΠΡ Π΄ΠΎ 100ΠΠΡ. ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄Π°Π²Π»Π΅Π½ΠΈΡ ΠΎΡ 1 Π΄ΠΎ 3000 Π³Ρ.
ΠΡΠ½ΠΊΠ΅ΡΡ ΠΡΠΎ ΠΏΠΎΠ»Π΅ ΡΠΌΠΊΠΎΡΡΠΈ Π΄Π»Ρ ΠΈΠ½Π³ΡΠ΅Π΄ΠΈΠ΅Π½ΡΠΎΠ² ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΠΎΠ΄ΠΊΠ»ΡΡΠ΅Π½Ρ Π΄Π°ΡΡΠΈΠΊΠΈ Π΄Π°Π²Π»Π΅Π½ΠΈΡ. Π’Π°ΠΊΠΆΠ΅ ΠΎΠ½ΠΈ ΡΠ½Π°Π±ΠΆΠ΅Π½Ρ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½Π° Π²Ρ ΠΎΠ΄ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΎΠ½ ΠΎΡΠΊΡΡΠ²Π°ΡΡΡΡ, Π° ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½ΡΠ»Ρ Π·Π°ΠΊΡΡΠ²Π°ΡΡΡΡ.
ΠΠΈΠΊΡΠ΅ΡΡΠ°ΠΊΠΆΠ΅ ΡΠ½Π°Π±ΠΆΡΠ½ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½Π° Π΅Π³ΠΎ Π²Ρ ΠΎΠ΄ Π΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΎΠ½ ΡΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΈ Π½Π°ΡΠΈΠ½Π°Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ, ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½ΡΠ»Ρ ΠΎΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΠΈ ΠΏΠΎΠ΄Π½ΠΈΠΌΠ°Π΅ΡΡΡ.
ΠΠ²ΠΈΠ³Π°ΡΠ΅Π»Ρ ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½Π° Π²Ρ ΠΎΠ΄ Π΅Π³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΎΠ½ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ, ΠΏΡΠΈ ΠΏΠΎΠ΄Π°ΡΠ΅ Π½ΡΠ»Ρ Π²ΡΠΊΠ»ΡΡΠ°Π΅ΡΡΡ.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°.
ΠΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΠΎΠΏΠΈΡΠ°Π» ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΡ ΡΠ°ΠΉΠΌΠ΅ΡΠ° Π½ΡΠ»Π΅Π²ΠΎΠ³ΠΎ ΠΊΠ°Π½Π°Π»Π° timer_int.
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅ΠΆΠ΅Π½ΠΈΠ΅ Π·Π° Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π΅ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠΈΡΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π² ΡΠ΅Π³ΠΈΡΡΡΡ Th0 ΠΈ Tl0 Π·Π°Π½ΠΎΡΠΈΡΡΡ ΡΠΈΡΠ»ΠΎ 3cafh (15 535), ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΠΌΡ, ΡΡΠΎ 0-ΠΉ ΡΠ°ΠΉΠΌΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ 20 ΡΠ°Π· Π² ΡΠ΅ΠΊΡΠ½Π΄Ρ. ΠΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ·ΠΎΠ² Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΠΈ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ. Π Π΄Π°Π½Π½ΠΎΠΌ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ»Π°Π³ fpp, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ Π·Π° Π·Π°ΠΏΡΡΠΊ ΠΈΠ»ΠΈ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΡ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΡΡΠ°Π΄ΠΈΠΈ. ΠΡΠ»ΠΈ fpp=1, ΡΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ°, Π½Π΅ ΠΏΡΠΎΡΠ»ΠΎ Π»ΠΈ 20 ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΉ ΡΠ°ΠΉΠΌΠ΅ΡΠ°, Π΅ΡΠ»ΠΈ ΠΏΡΠΎΡΠ»ΠΎ, ΡΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π΄Π΅ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΡΡΠ°Π΄ΠΈΠΈ. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈΡΡΠ΅ΠΊΠ°Π΅Ρ, ΡΠΎ ΡΠ»Π°Π³ ΡΠ±ΡΠ°ΡΡΠ²Π°Π΅ΡΡΡ.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ inic.
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ Π·Π° Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π½Π°ΡΡΡΠΎΠΉΠΊΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΡΡ. Π Π½Π°ΡΠ°Π»Π΅ ΠΎΠ½Π° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΡ Π²ΡΠ΅Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΠ΅ΠΆΠΈΠΌ ΡΠ°Π±ΠΎΡΡ ΡΠ°ΠΉΠΌΠ΅ΡΠΎΠ²/ΡΡΡΡΡΠΈΠΊΠΎΠ², Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅Π³ΠΈΡΡΡΠΎΠ² Th ΠΈ Tl, Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ 0-ΠΉ ΡΠ°ΠΉΠΌΠ΅Ρ ΠΈ ΡΠ°Π·ΡΠ΅ΡΠ°Π΅Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ ΡΠ°ΠΉΠΌΠ΅ΡΠΎΠ². ΠΠ°ΡΠ΅ΠΌ ΠΎΠ½Π° Π²ΡΠ΄Π°ΡΡ ΡΡΠΈ Π·Π²ΡΠΊΠΎΠ²ΡΡ ΡΠΈΠ³Π½Π°Π»Π° Π² Π²ΠΈΠ΄Π΅ ΠΏΠΈΠΊΠΎΠ². ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΆΠΈΠ΄ΠΊΠΎΠΊΡΠΈΡΡΠ°Π»Π»ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡΠ°.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π° ΠΠΠ outGKI.
Π Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΎΡΠΈΡΡΠΊΠ° Π΄ΠΈΡΠΏΠ»Π΅Ρ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρ 1h. ΠΠ°ΡΠ΅ΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ²ΠΎΠ΄ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅ΠΉ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ sod (i). ΠΠ°ΠΏΠΈΡΡ Π²ΠΎ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΠ΅ ΡΠ΅Π³ΠΈΡΡΡΡ ΠΠΠ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΠ³Π½Π°Π»Π° Π΅. ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΈΠ³Π½Π°Π»ΠΎΠ² rs ΠΈ rw, ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ° ΠΈΠ»ΠΈ ΡΠ΅ΠΆΠΈΠΌΠ° ΠΏΡΠΈΡΠΌΠ° Π΄Π°Π½Π½ΡΡ :
rs = 0, rw = 0 — Π·Π°ΠΏΠΈΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ;
rs = 0, rw = 1 — ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ;
rs = 1, rw = 0 — Π·Π°ΠΏΠΈΡΡ Π΄Π°Π½Π½ΡΡ ;
rs = 1, rw = 1 — ΡΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ ;
Π€ΡΠ½ΠΊΡΠΈΡ ΡΠ½ΡΡΠΈΡ Π΄Π°Π½Π½ΡΡ Ρ Π΄Π°ΡΡΠΈΠΊΠΎΠ² datchik (i).
ΠΠ°Π½Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π°Π½Π½ΡΠ΅ Ρ Π΄Π°ΡΡΠΈΠΊΠΎΠ² ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΡ ΠΏΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΠΈ Π² ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΌ Π²ΠΈΠ΄Π΅ (rez word). ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ i ΡΠΈΠΏΠ° word, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ Π½ΠΎΠΌΠ΅ΡΡ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠΎΡΡΠ° P0. Π‘Π½Π°ΡΠ°Π»Π° ΠΎΠ±Π½ΡΠ»ΡΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅Π³ΠΈΡΡΡΠΎΠ² ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΊΠ°Π½Π°Π»Π° Th1 ΠΈ Tl1. ΠΠ°ΡΠ΅ΠΌ ΡΠΌΠΎΡΡΠΈΠΌ Ρ ΠΊΠ°ΠΊΠΎΠ³ΠΎ Π΄Π°ΡΡΠΈΠΊΠ° ΡΠ½ΠΈΠΌΠ°Π΅ΠΌ Π΄Π°Π½Π½ΡΠ΅. ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΌΠΎΠΆΠ΅Ρ Π½Π΅ ΡΠΎΠ²ΠΏΠ°ΡΡΡ Ρ Π½Π°ΡΠ°Π»ΠΎΠΌ ΠΈΠΌΠΏΡΠ»ΡΡΠ°, ΡΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌ, ΠΏΠΎΠΊΠ° Π²ΡΡΠΎΠΊΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ ΡΠΈΠ³Π½Π°Π»Π° Π½Π° Π²ΡΡ ΠΎΠ΄Π΅ Π΄Π°ΡΡΠΈΠΊΠ° Π½Π΅ ΡΠΌΠ΅Π½ΠΈΡΡΡ Π½ΠΈΠ·ΠΊΠΈΠΌ, Π·Π°ΡΠ΅ΠΌ ΠΎΠΏΡΡΡ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌ Π²ΡΡΠΎΠΊΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈΡΡΠ» Π²ΡΡΠΎΠΊΠΈΠΉ ΡΡΠΎΠ²Π΅Π½Ρ, ΡΡΠ°Π·Ρ Π½Π°ΡΠΈΠ½Π°Π΅ΠΌ Π·Π°ΡΠ΅ΠΊΠ°ΡΡ Π΅Π³ΠΎ Π΄Π»ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ (Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌ 1-ΠΉ ΡΠ°ΠΉΠΌΠ΅Ρ). ΠΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ Π²ΡΠΊΠ»ΡΡΠ°Π΅ΠΌ 1-ΠΉ ΡΠ°ΠΉΠΌΠ΅Ρ ΠΈ ΡΠ½ΠΈΠΌΠ°Π΅ΠΌ Ρ Π½Π΅Π³ΠΎ Π΄Π°Π½Π½ΡΠ΅. Π ΡΠ΅Π³ΠΈΡΡΡΠ°Ρ Th1, Tl1 Π±ΡΠ΄Π΅Ρ Π΄Π»ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΏΠΎΠ»ΡΠΏΠ΅ΡΠΈΠΎΠ΄Π° Π² ΠΌΠΈΠΊΡΠΎ ΡΠ΅ΠΊΡΠ½Π΄Π°Ρ . Π‘Π»Π΅Π΄ΡΡΡΠΈΠΌ ΡΠ°Π³ΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅Π³ΠΈΡΡΡΠΎΠ² Th1 ΠΈ Tl1 Π² ΡΠΎΡΠΌΠ°Ρ ΡΠ»ΠΎΠ²Π°. ΠΡΠΎ Π΄ΠΎΡΡΠΈΠ³Π°Π΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ ΡΠ·ΡΠΊΠ° PLM Double ΠΈ SHL.
ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρ double ΡΠ°ΡΡΠΈΡΡΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π³ΠΈΡΡΡΠ° Th1 Π΄ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠ² ΡΠ»ΠΎΠ²Π° ΠΈ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΠΌ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ t, Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΡΠ΄Π²ΠΈΠ³Π°Π΅ΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΌΠ»Π°Π΄ΡΠ΅ΠΉ ΡΠ°ΡΡΠΈ t Π² ΡΡΠ°ΡΡΡΡ ΡΠ°ΡΡΡ, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΈΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΊ t Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π³ΠΈΡΡΡΠ° Tl1. Π’Π΅ΠΏΠ΅ΡΡ Π² t ΠΌΡ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ Π΄Π»ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΏΠΎΠ»ΡΠΏΠ΅ΡΠΈΠΎΠ΄Π° Π²ΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠ³Π½Π°Π»Π° Π΄Π°ΡΡΠΈΠΊΠ°, ΠΏΠΎΡΠ»Π΅ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π½Π° 2, ΠΌΡ ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ Π΄Π»ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΏΠ΅ΡΠΈΠΎΠ΄Π° Π²ΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠ³Π½Π°Π»Π° Π΄Π°ΡΡΠΈΠΊΠ° (Π² «ΡΠΈΠΊΠ°Ρ »). Π’Π΅ΠΏΠ΅ΡΡ ΡΠΌΠ½ΠΎΠΆΠ°Π΅ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π° Π·Π°ΡΠ°Π½Π΅Π΅ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²Π»Π΅Π½Π½ΡΠΉ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ koef (i) (ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ°Π²Π΅Π½ Π²Π΅Π»ΠΈΡΠΈΠ½Π΅ ΠΈΠ·ΠΌΠ΅ΡΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΠΏΡΠΈΡ ΠΎΠ΄ΡΡΠ΅Π³ΠΎΡΡ Π½Π° ΠΎΠ΄ΠΈΠ½ ΡΠΈΠΊ). Π Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
Π’Π΅Π»ΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π Π½Π°ΡΠ°Π»Π΅ ΡΠ΅Π»Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ. ΠΠ°ΡΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²Ρ ΠΎΠ΄ΠΈΡ Π² Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΡΠΉ ΡΠΈΠΊΠ».
ΠΠ° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π·Π°ΠΏΡΠΎΡ ΠΎ Π½Π°ΡΠ°Π»Π΅ ΡΠ°Π±ΠΎΡΡ («ΠΠ°ΡΠ°ΡΡ?»). ΠΠ°ΡΠ΅ΠΌ Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «SET» (key=2), ΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²Ρ ΠΎΠ΄ΠΈΡ Π² ΡΠ΅ΠΆΠΈΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ², Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «OK» (key=5), Π½Π°ΡΠΈΠ½Π°Π΅ΠΌ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΠΌΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΏΡΠΈ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΊΠ»Π°Π²ΠΈΡΠΈ «+» ΠΈ «-» Π½Π΅ Π°ΠΊΡΠΈΠ²Π½Ρ.
Π ΡΠ΅ΠΆΠΈΠΌΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «OK» (ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΡΠΎΠ³Π»Π°ΡΠΈΠ΅ Ρ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠΌΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ). Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅ Π°ΠΊΡΠΈΠ²Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΊΠ»Π°Π²ΠΈΡΠΈ «OK», «SET» ΠΈ «^». ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ΅ΠΊΡΡΠ°Ρ Π²ΡΠ±ΡΠ°Π½Π½Π°Ρ Π΄Π»Ρ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΅Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ². ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡΠΈ «^» (key=1) ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡΠΈ «SET» ΠΌΡ Π²Ρ ΠΎΠ΄ΠΈΠΌ Π² ΡΠ΅ΠΆΠΈΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ°, ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΡΡΡΡ ΠΊΡΠ°ΡΠ½ΠΎΠ΅ Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ «SET», ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΏΠΎΡΡΠΈ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅ Ρ Π½Π°Ρ ΠΏΠΎ ΡΠ΅ΡΡΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°.
Π ΡΠ΅ΠΆΠΈΠΌΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ°, ΠΌΡ ΡΠ»Π΅Π΄ΠΈΠΌ Π·Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ stad (Π½ΠΎΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ) ΠΈ nset (ΡΠΈΡΠ»ΠΎΠΌ Π½Π°ΠΆΠ°ΡΠΈΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ «SET»), ΠΈ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅ΠΉ Π½Π°Π·Π²Π°Π½ΠΈΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΠΉ ΡΠΎ ΡΠΏΠΈΡΠΊΠΎΠΌ ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΈ ΠΌΠ°ΡΠΊΠΈΡΠΎΠ²ΠΊΠΎΠΉ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° (ΡΠΈΠΏΠ° (ΠΏΡΠΈ stad=1 ΠΈ nset=0))
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡ «+» (key=3) ΠΈ «-» (key=4), ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΈΠ½ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΠΈΠ»ΠΈ Π΄Π΅ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°, ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠ»Π΅ΠΆΠ΅Π½ΠΈΠ΅ Π·Π° ΡΠ΅ΠΌ, ΡΡΠΎΠ±Ρ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Π½Π΅ Π²ΡΡΠ΅Π» Π·Π° Π³ΡΠ°Π½ΠΈΡΡ ΠΏΡΠ΅Π΄Π΅Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ. ΠΠΎΡΠ»Π΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π²ΡΠ΅Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ, ΠΌΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΡΡ ΠΊ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌΡ ΡΠ΅ΠΆΠΈΠΌΡ. ΠΡΠ»ΠΈ Π±ΡΠ»Π° Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «OK», ΡΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΡΡ ΠΎΠ±ΡΠ°ΡΠ½ΠΎ Π² Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΡΠΉ ΡΠΈΠΊΠ».
ΠΡΠ»ΠΈ Π±ΡΠ»Π° Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «OK», ΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ Π² ΡΠ΅ΠΆΠΈΠΌ ΡΠ°Π±ΠΎΡΡ ΡΡΡΡΠΎΠΉΡΡΠ²Π°.
Π Π½Π°ΡΠ°Π»Π΅ ΡΠ°Π±ΠΎΡΡ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π²ΡΠ΄Π°ΡΡΡΡ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ Π·Π²ΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΠ³Π½Π°Π», Π·Π°ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΠ²Π°ΡΡΡΡ Π±ΡΠ½ΠΊΠ΅ΡΡ ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΌΠΈΠΊΡΠ΅Ρ. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌ, ΠΏΠΎΠΊΠ° ΠΎΠΏΡΡΡΠΎΡΠ°ΡΡΡΡ Π±ΡΠ½ΠΊΠ΅ΡΡ, ΡΡΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π΄Π°ΡΡΠΈΠΊΠΎΠ² Π΄Π°Π²Π»Π΅Π½ΠΈΡ Π² Π±ΡΠ½ΠΊΠ΅ΡΠ°Ρ (do while ((datchik (1)<>0) and datchik (2)<>0)); end;). ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π±ΡΠ½ΠΊΠ΅ΡΡ ΠΎΠΏΡΡΡΠΎΡΠ°Π»ΠΈΡΡ, Π·Π°ΠΊΡΡΠ²Π°ΡΡΡΡ Π±ΡΠ½ΠΊΠ΅ΡΡ, Π²ΡΠ΄Π°ΡΡΡΡ Π·Π²ΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΠ³Π½Π°Π» ΠΈ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΡΠ°Π΄ΠΈΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ.
Π‘ΡΠ°Π΄ΠΈΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ.
ΠΠ½Π°ΡΠ°Π»Π΅ Π·Π°Π΄Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ h, m ΠΈ s ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΡΡ Π·Π° ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ, Π² ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ Π½ΡΠ»Π΅Π²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ°. ΠΠ°ΡΠ΅ΠΌ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ»Π°Π³Π° fpp Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠΆΠΈΠ΄Π°Π΅Ρ, ΠΏΠΎΠΊΠ° Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ Π½Π΅ ΠΈΡΡΠ΅ΡΡΡ (ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ±ΡΠΎΡΠ΅Π½ ΡΠ»Π°Π³ fpp). ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° ΠΆΠΈΠ΄ΠΊΠΎΠΊΡΠΈΡΡΠ°Π»Π»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ΅ΠΌΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΠΈ ΠΈΡΡΠ΅ΡΡΡ, ΠΌΠΈΠΊΡΠ΅Ρ Π²ΡΠΊΠ»ΡΡΠ°Π΅ΡΡΡ ΠΈ Π²ΡΠ΄Π°ΡΡΡΡ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ Π·Π²ΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΠ³Π½Π°Π».
Π‘ΡΠ°Π΄ΠΈΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΠ½Π°ΡΠ°Π»Π΅ Π·Π°Π΄Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ h, m ΠΈ s ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΡΡ Π·Π° ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ, Π² ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ Π½ΡΠ»Π΅Π²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ temt ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠ°ΡΠ΅ΠΌ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π΄Π²ΠΈΠ³Π°ΡΠ΅Π»Ρ ΠΈ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ»Π°Π³Π° fpp Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠΆΠΈΠ΄Π°Π΅Ρ, ΠΏΠΎΠΊΠ° Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ Π½Π΅ ΠΈΡΡΠ΅ΡΡΡ (ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ±ΡΠΎΡΠ΅Π½ ΡΠ»Π°Π³ fpp). ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° ΠΆΠΈΠ΄ΠΊΠΎΠΊΡΠΈΡΡΠ°Π»Π»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ΅ΠΌΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈ ΡΠ΅ΠΊΡΡΠ°Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²Π½ΡΡΡΠΈ ΠΏΠ΅ΡΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ Π² ΠΏΠ΅ΡΠΈ (if (datchik (1)
Π‘ΡΠ°Π΄ΠΈΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ.
ΠΠ½Π°ΡΠ°Π»Π΅ Π·Π°Π΄Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ. ΠΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ h, m ΠΈ s ΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΡΡ Π·Π° ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ, Π² ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠΉ ΠΎΡ Π½ΡΠ»Π΅Π²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ temt ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ. ΠΠ°ΡΠ΅ΠΌ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π΄Π²ΠΈΠ³Π°ΡΠ΅Π»Ρ ΠΈ ΠΏΡΡΡΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΡΠ»Π°Π³Π° fpp Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ°ΠΉΠΌΠ΅Ρ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠΆΠΈΠ΄Π°Π΅Ρ, ΠΏΠΎΠΊΠ° Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ Π½Π΅ ΠΈΡΡΠ΅ΡΡΡ (ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ±ΡΠΎΡΠ΅Π½ ΡΠ»Π°Π³ fpp). ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° ΠΆΠΈΠ΄ΠΊΠΎΠΊΡΠΈΡΡΠ°Π»Π»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ΅ΠΌΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈ ΡΠ΅ΠΊΡΡΠ°Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²Π½ΡΡΡΠΈ ΠΏΠ΅ΡΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ Π² ΠΏΠ΅ΡΠΈ (if (datchik (1)
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 1
Ρ Π»Π΅Π±ΠΎΠΏΠ΅ΡΡ ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΈΡ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²ΡΠ΅ΠΌΡ ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΠ°Π½Π΅Π»Ρ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΏΡΡΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ: «OK», «SET», «^», «+» ΠΈ «-».
ΠΠΊΠ»ΡΡΠΈΡΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ. Π£ΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ON». ΠΠ°ΡΠ΅ΠΌ ΠΎΡΠΊΡΠΎΠΉΡΠ΅ ΠΊΡΡΡΠΊΡ Π±ΡΠ½ΠΊΠ΅ΡΠΎΠ² ΠΈ Π·Π°Π³ΡΡΠ·ΠΈΡΠ΅ Π² Π½ΠΈΡ ΠΈΠ½Π³ΡΠ΅Π΄ΠΈΠ΅Π½ΡΡ. ΠΠΎΡΠ»Π΅ Π²ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ ΡΡΡΡΠΎΠΉΡΡΠ²Π° ΠΏΡΠΎΠ·Π²ΡΡΠΈΡ ΡΡΠΈ ΠΊΠΎΡΠΎΡΠΊΠΈΡ Π·Π²ΡΠΊΠΎΠ²ΡΡ ΡΠΈΠ³Π½Π°Π»Π° ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΡΡΡΠΈΡ ΠΎ Π³ΠΎΡΠΎΠ²Π½ΠΎΡΡΠΈ ΠΏΠ΅ΡΠΈ ΠΊ ΡΠ°Π±ΠΎΡΠ΅ ΠΈ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π½Π°Π΄ΠΏΠΈΡΡ:
ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π½Π°ΡΠ°ΡΡ Π²ΡΠΏΠ΅ΡΠΊΡ ΠΈΠ·Π΄Π΅Π»ΠΈΡ Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΠΌΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π½ΠΈΠΆΠ΅, ΡΠΎ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «OK», ΡΡΠΎ ΠΏΡΠΈΠ²Π΅Π΄ΡΡ ΠΊ Π½Π°ΡΠ°Π»Ρ Π²ΡΠΏΠ΅ΡΠΊΠΈ ΠΈΠ·Π΄Π΅Π»ΠΈΡ.
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ:
Π‘ΡΠ°Π΄ΠΈΡ | ΠΡΠ΅ΠΌΡ hh: mm:ss | Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° C | |
ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ | 00:20:00 | ; | |
ΠΡΠΎΠΆΠ΅Π½ΠΈΠ΅ | 04:30:00 | ||
ΠΡΠΏΠ΅ΡΠΊΠ° | 00:40:00 | ||
ΠΡΠ»ΠΈ Π²Ρ Π½Π΅ ΡΠΎΠ³Π»Π°ΡΠ½Ρ Ρ ΡΠ΅ΠΊΡΡΠΈΠΌΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ, ΡΠΎ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «SET», ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π²Ρ ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΡΡΠ΅ Π² ΠΌΠ΅Π½Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΡΠ°Π΄ΠΈΠΉ ΠΈ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΈΠΌΡ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΅Ρ ΡΠ΅ΠΊΡΡΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²:
ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ Π²Π°Ρ ΡΡΡΡΠ°ΠΈΠ²Π°ΡΡ, Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ «^», Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ. ΠΡΠΈ ΡΡΠΎΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ Π΄ΠΈΡΠΏΠ»Π΅Ρ:
ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΊΠ°ΠΊΠΎΠΉ Π»ΠΈΠ±ΠΎ ΠΈΠ· ΡΡΠ°Π΄ΠΈΠΉ Π²Π°Ρ Π½Π΅ ΡΡΡΡΠ°ΠΈΠ²Π°ΡΡ, ΡΠΎ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ «SET», Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π² ΡΠ΅ΠΆΠΈΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ Π±ΡΠ΄Π΅Ρ Π²ΡΠ΄Π΅Π»Π΅Π½ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΌ ΡΠΊΠΎΠ±ΠΊΠ°ΠΌΠΈ. Π ΡΡΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅ Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°ΡΡ ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΡΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ «+» ΠΈ «-» ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΠ»Ρ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠΏΡΡΡ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «SET». ΠΠΎΠ³Π΄Π° Π±ΡΠ΄ΡΡ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Ρ Π²ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ, Π²Ρ Π²Π΅ΡΠ½ΡΡΠ΅ΡΡ ΠΊ ΠΌΠ΅Π½Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΡΠ°Π΄ΠΈΠΉ. ΠΡΠ»ΠΈ ΡΠ΅ΠΊΡΡΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΡΠ°Π΄ΠΈΠΉ Π²Π°Ρ ΡΡΡΡΠ°ΠΈΠ²Π°ΡΡ, ΡΠΎ Π½Π°ΠΆΠΌΠΈΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΡ «OK», ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π²Ρ Π²Π΅ΡΠ½ΡΡΠ΅ΡΡ ΠΊ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΌΠ΅Π½Ρ.
Π Π½Π°ΡΠ°Π»Π΅ Π²ΡΠΏΠ΅ΡΠΊΠΈ ΠΈΠ·Π΄Π΅Π»ΠΈΡ ΠΎΡΠΊΡΠΎΡΡΡΡ ΠΈ ΠΎΠΏΡΡΡΠΎΡΠ°ΡΡΡΡ Π±ΡΠ½ΠΊΠ΅ΡΡ, ΠΎΠ± ΠΈΡ ΠΎΠΏΡΡΡΠΎΡΠ΅Π½ΠΈΠΈ Π±ΡΠ΄Π΅Ρ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ ΡΠΈΠ³Π½Π°Π».
ΠΠ°ΡΠ΅ΠΌ Π½Π°ΡΠ½ΡΡΡΡ ΡΡΠ°Π΄ΠΈΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΡΠΎΠΏΡΠΎΠ²ΠΎΠΆΠ΄Π°ΡΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎ ΠΎΡΡΠ°Π²ΡΠ΅ΠΌΡΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ. ΠΠΎΡΠ»Π΅ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΠΈ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ·Π²ΡΡΠΈΡ ΠΎΠ΄ΠΈΠ½ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ Π·Π²ΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΠ³Π½Π°Π».
ΠΠΎΡΠ»Π΅ ΡΡΠ°Π΄ΠΈΠΈ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ Π½Π°ΡΠ½ΡΡΡΡ ΡΡΠ°Π΄ΠΈΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ. ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅Π΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΎΡΡΠ°Π²ΡΠ΅ΠΌΡΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈ ΡΠ΅ΠΊΡΡΠ°Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²Π½ΡΡΡΠΈ ΠΏΠ΅ΡΠΈ. ΠΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΡΠ°Π΄ΠΈΠΈ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ·Π²ΡΡΠΈΡ ΠΎΠ΄ΠΈΠ½ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ Π·Π²ΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΠ³Π½Π°Π».
ΠΠΎΡΠ»Π΅ ΡΡΠ°Π΄ΠΈΠΈ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ Π½Π°ΡΠ½ΡΡΡΡ ΡΡΠ°Π΄ΠΈΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ. ΠΡΠΈ ΡΡΠΎΠΌ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅Π΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΎΡΡΠ°Π²ΡΠ΅ΠΌΡΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ ΠΈ ΡΠ΅ΠΊΡΡΠ°Ρ ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²Π½ΡΡΡΠΈ ΠΏΠ΅ΡΠΈ. ΠΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΡΠ°Π΄ΠΈΠΈ Π²ΡΠΏΠ΅ΡΠΊΠΈ ΠΏΡΠΎΠ·Π²ΡΡΠΈΡ ΡΡΠΈ ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ Π·Π²ΡΠΊΠΎΠ²ΡΡ ΡΠΈΠ³Π½Π°Π»Π°, ΡΠΈΠ³Π½Π°Π»ΠΈΠ·ΠΈΡΡΡΡΠΈΡ ΠΎ Π³ΠΎΡΠΎΠ²Π½ΠΎΡΡΠΈ ΠΈΠ·Π΄Π΅Π»ΠΈΡ.
ΠΠΎΡΠ»Π΅ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ ΠΈΠ·Π΄Π΅Π»ΠΈΡ, ΠΏΠ΅ΡΡ Π³ΠΎΡΠΎΠ²Π° ΠΊ Π²ΡΠΏΠ΅ΡΠΊΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΏΠΎΡΡΠΈΠΈ, ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΠΌΠΈ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π±ΡΠ΄ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π²ΡΠΈΠ΅ΡΡ ΠΏΡΠΈ Π²ΡΠΏΠ΅ΡΠΊΠ΅ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅Π³ΠΎ ΠΈΠ·Π΄Π΅Π»ΠΈΡ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 2
Π‘Ρ Π΅ΠΌΠ° ΡΡΡΡΠΎΠΉΡΡΠ²Π° ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
start:do;
$include (reg812r.dcl)
declare
GKIini (*) byte constant (3bh, 0ch, 6h, 0fh, 1h), /*ΠΠΎΠΌΠ°Π½Π΄Ρ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΠΠ*/
koef (3) word constant (100h, 250h, 300h), /*ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ Π΄Π°ΡΡΠΈΠΊΠΎΠ²*/
/*ΠΡΠΏ-ΠΊΠ° Π‘*/
vip1(*) byte constant (20h, 20h, 42h, 0c3h, 0beh, 2dh, 0bah, 61h, 20h, 20h, 20h, 20h, 43h, 20h, 20h),
/*ΠΡΠΏ-ΠΊΠ° [ ]Π‘*/
vip2(*) byte constant (20h, 42h, 0c3h, 0beh, 2dh, 0bah, 61h, 20h, 5bh, 20h, 20h, 20h, 5dh, 43h, 20h),
/*ΠΡΠΎΠΆ-Π΅ Π‘*/
brog1(*) byte constant (20h, 20h, 0a0h, 70h, 6fh, 0b6h, 2dh, 65h, 20h, 20h, 20h, 20h, 43h, 20h, 20h),
/*ΠΡΠΎΠ΄-Π΅ [ ]Π‘*/
brog2(*) byte constant (20h, 0a0h, 70h, 6fh, 0b6h, 2dh, 65h, 20h, 5bh, 20h, 20h, 20h, 5dh, 43h, 20h),
/*ΠΠ°ΡΠ°ΡΡ?*/
beg (*) byte constant (20h, 20h, 20h, 20h, 20h, 48h, 61h, 60h, 61h, 0bfh, 3fh, 20h, 20h, 20h, 20h),
/*ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅*/
zames (*) byte constant (20h, 20h, 0a4h, 61h, 0bch, 65h, 0c1h, 0b8h, 0b3h, 61h, 0bdh, 0b8h, 65h, 20h, 20h),
/*:: */
time0(*) byte constant (20h, 20h, 20h, 20h, 20h, 3ah, 20h, 20h, 3ah, 20h, 20h, 20h, 20h, 20h, 20h),
/*[ ]:: */
time1(*) byte constant (20h, 5bh, 20h, 20h, 5dh, 3ah, 20h, 20h, 3ah, 20h, 20h, 20h, 20h, 20h, 20h),
/* :[ ]: */
time2(*) byte constant (20h, 20h, 20h, 20h, 3ah, 5bh, 20h, 20h, 5dh, 3ah, 20h, 20h, 20h, 20h, 20h),
/*: :[ ]*/
time3(*) byte constant (20h, 20h, 20h, 20h, 20h, 3ah, 20h, 20h, 3ah, 5bh, 20h, 20h, 5dh, 20h, 20h),
sod (56) byte, /*Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΠΠΠ*/
(pkey, key) byte, /*ΠΡΠ΅Π΄ΡΠ΄ΡΡΠ°Ρ ΠΈ ΡΠ΅ΠΊΡΡΠ°Ρ Π½Π°ΠΆΠ°ΡΡΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ*/
tmr0 byte, /*Π§ΠΈΡΠ»ΠΎ ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΉ ΡΠ°ΠΉΠΌΠ΅ΡΠ°/ΡΡΡΡΡΠΈΠΊΠ° T0*/
stad byte, /*Π’Π΅ΠΊΡΡΠ°Ρ ΡΡΠ°Π΄ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΏΠ΅ΡΠΊΠΈ*/
nset byte, /*Π§ΠΈΡΠ»ΠΎ Π½Π°ΠΆΠ°ΡΠΈΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ SET*/
(i, j, n) byte,
(h, m, s) byte, /*ΠΡΠ΅ΠΌΡ Π΄ΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ*/
(thz, tmz, tsz, thb, tmb, tsb, thc, tmc, tsc) byte, /*ΠΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΡΠ°Π΄ΠΈΠΉ*/
(temt, temb, temc) word, /*Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ ΡΡΠ°Π΄ΠΈΠΉ*/
fpp bit, /*Π€Π»Π°Π³ Π½Π°ΡΠ°Π»Π° ΠΎΡΡΡΡΡΠ° ΡΠ°ΠΉΠΌΠ΅ΡΠ° (Π½Π°ΡΠ°Π»ΠΎ ΡΠ°Π±ΠΎΡΡ ΡΠ΅ΠΆΠΈΠΌΠ°)*/
t byte;
declare rs literally 'P16',
rw literally 'P15',
e literally 'P17';
timer_int:procedure interrupt 1; /*ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΡ ΠΎΡ 0-Π³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ°*/
th0=3ch;
tl0=0afh;
pkey=key; /*ΠΠΎΠ½ΡΡΠΎΠ»Ρ ΠΊΠ»Π°Π²ΠΈΡ*/
if not (P03) then key= 1; /*^*/
if not (P04) then key= 2; /*SET*/
if not (P05) then key= 3; /*+*/
if not (P06) then key= 4; /*-*/
if not (P07) then key= 5; /*OK*/
if fpp=1b then do; /*"Π’Π°ΠΉΠΌΠ΅Ρ"*/
if (tmr0>20) then do; /*(Π§Π°ΡΡΠΎΡΠ° 20 ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΉ Π² ΡΠ΅ΠΊΡΠ½Π΄Ρ)*/
if s<0 then do; m=m-1; s=59; end;
if m<0 then do; h=h-1; m=59; end;
s=s-1;
if (s<0) and (m=0) and (h=0) then fpp=0b;
tmr0=0;
end;
tmr0=tmr0+1;
end;
end timer_int;
inic: procedure; /*ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ*/
key=0; /*Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π² Π½Π°Ρ-Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅*/
thz=0; /*Π§Π°ΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
tmz=20; /*ΠΠΈΠ½ΡΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
tsz=0; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
thb=4; /*Π§Π°ΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
tmb=30; /*ΠΠΈΠ½ΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
tsb=0; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
thc=0; /*Π§Π°ΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
tmc=40; /*ΠΠΈΠ½ΡΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
tsc=0; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
temb=40; /*Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
temc=400; /*Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
tmod=01b; /*1-ΠΉ ΡΠ΅ΠΆΠΈΠΌ*/
IT0=1; /*ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΡΠΎΠ½ΡΡ ΡΠΈΠ³Π½Π°Π»Π°*/
IT1=1;
th0=3ch; /*Π§Π°ΡΡΠΎΡΠ° ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ 0-Π³ΠΎ ΡΠ°ΠΉΠΌΠ΅ΡΠ° 20 ΠΡ*/
tl0=0afh;
th1=0h;
tl1=0h;
tr0=1; /*ΠΠ°ΠΏΡΡΠΊ T0*/
et0=1; /*Π Π°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΡ ΠΎΡ T0*/
tr1=0;
et1=1;
do n=0 to 3; /*ΠΠΈΠΊΠ°Π΅ΠΌ 3 ΡΠ°Π·Π°*/
P2=1b;
call time (255);
P2=0b;
call time (255);
end;
P0=0f8h;
P3=0ffh;
do n=0 to 5; /*ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠΌ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΠΠ*/
e=0;
call time (1);
rs=0; rw=1; e=1;
do while (P37); end;
e=0;rs=0; rw=0;
P3=GKIini (n);
e=1;
call time (1);
end;
end inic;
outGKI:procedure; /*ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π° ΠΠΠ*/
e=0; /*ΠΡΠΈΡΡΠΊΠ° ΡΠΊΡΠ°Π½Π° ΠΠΠ*/
rs=0; rw=1; e=1;
do while (P37); end;
e=0;rs=0; rw=0;
P3=1h;
e=1;
call time (10);
do i=0 to 55; /*ΠΡΠ²ΠΎΠ΄ Π½Π° ΠΠΠ*/
e=0;
call time (10);
rs=0; rw=1; e=1;
do while (P37); end;
e=0; rs=1; rw=0;
P3=sod (i);
e=1;
call time (10);
end;
end outGKI;
datchik: procedure (i) word; /*Π€ΡΠ½ΠΊΡΠΈΡ ΡΠ½ΡΡΠΈΡ Π΄Π°Π½Π½ΡΡ Ρ Π΄Π°ΡΡΠΈΠΊΠ°*/
declare i byte, rez word;
th1=0; tl1=0;
if i=0 then do; /*ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π΄Π°ΡΡΠΈΠΊΠ° ΡΠ΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΡ*/
do while P00; end; /*ΠΠΆΠΈΠ΄Π°Π΅ΠΌ Π½Π°ΡΠ°Π»ΠΎ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΈΠΌΠΏΡΠ»ΡΡΠ°*/
do while not (P00); end;
do while P00; /*ΠΠ°ΠΌΠ΅ΡΡΠ΅ΠΌ Π΅Π³ΠΎ*/
tr1=1;
end;
tr1=0;
end;
if i=1 then do; /*ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π΄Π°ΡΡΠΈΠΊΠ° Π΄Π°Π²Π»Π΅Π½ΠΈΡ 1-Π³ΠΎ Π±ΡΠ½ΠΊΠ΅ΡΠ°*/
do while P01; end;
do while not (P01); end;
do while P01;
tr1=1;
end;
tr1=0;
end;
if i=2 then do; /*ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π΄Π°ΡΡΠΈΠΊΠ° Π΄Π°Π²Π»Π΅Π½ΠΈΡ 2-Π³ΠΎ Π±ΡΠ½ΠΊΠ΅ΡΠ°*/
do while P02; end;
do while not (P02); end;
do while P02;
tr1=1;
end;
tr1=0;
end;
t=double (tl1); /*ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΠ΅ΠΌ TH, TL Π² ΡΠ»ΠΎΠ²ΠΎ*/
t=shl (t, 8);
t=(t+double (th1))*2; /*Π§ΠΈΡΠ»ΠΎ ΡΠΈΠΊΠΎΠ² Π·Π° ΠΏΠ΅ΡΠΈΠΎΠ΄*/
rez=koef (i)*t/1000; /*Π£ΠΌΠ½ΠΎΠΆΠ°Π΅ΠΌ Π½Π° ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ*/
return rez;
end datchik;
/*//////////////////////////////////////////////////////////*/ /*ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°*/
call inic; /*ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠΌ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΡ*/
do while 1;
/*ΠΠ°ΡΠ°ΡΡ?*/
do i=0 to 15;
sod (i)=beg (i);
sod (i+40)=20h;
end;
call outGKI;
if ((key=2) and (pkey<>2)) then do; /*ΠΡΠ»ΠΈ Π½Π°ΠΆΠ°Π»ΠΈ SET*/
stad=0;
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=[thz]: tmz: tsz*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time1(i);
end;
sod (2)=(thz/10)+30h;
sod (3)=(thz mod 10)+30h;
sod (6)=(tmz/10)+30h;
sod (7)=(tmz mod 10)+30h;
sod (10)=(tsz/10)+30h;
sod (11)=(tsz mod 10)+30h;
call outGKI;
do while not ((key=5) and (pkey<>5)); /*ΠΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ «OK» ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π°Π΅ΠΌ Π²Π²ΠΎΠ΄ ΠΏΡΠ°ΡΠ°ΠΌ-Π²*/
if ((key=2) and (pkey<>2)) then do; /*ΠΡ ΠΎΠ΄ Π² ΡΠ΅ΠΆΠΈΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΠΉ*/
nset=0; /*ΠΠ°ΡΠΈΠ½Π°Π΅ΠΌ Ρ 0-Π³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°*/
do while (nset<4); /*ΠΠΎΠΊΠ° Π½Π΅ Π·Π°ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ΅ΠΌ Π²ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΡΠ°Π΄ΠΈΠΈ*/
if stad=0 then do; /*ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°Π΄ΠΈΠΈ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
if nset=0 then do; /*Π§Π°ΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=[thz]: tmz: tsz*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time1(i);
end;
sod (42)=(thz/10)+30h;
sod (43)=(thz mod 10)+30h;
sod (46)=(tmz/10)+30h;
sod (47)=(tmz mod 10)+30h;
sod (50)=(tsz/10)+30h;
sod (51)=(tsz mod 10)+30h;
call outGKI;
end;
if nset=1 then do; /*ΠΠΈΠ½ΡΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=thz:[tmz]: tsz*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time2(i);
end;
sod (42)=(thz/10)+30h;
sod (43)=(thz mod 10)+30h;
sod (46)=(tmz/10)+30h;
sod (47)=(tmz mod 10)+30h;
sod (50)=(tsz/10)+30h;
sod (51)=(tsz mod 10)+30h;
call outGKI;
end;
if nset=2 then do; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=thz:tmz:[tsz]*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time3(i);
end;
sod (43)=(thz/10)+30h;
sod (44)=(thz mod 10)+30h;
sod (46)=(tmz/10)+30h;
sod (47)=(tmz mod 10)+30h;
sod (50)=(tsz/10)+30h;
sod (51)=(tsz mod 10)+30h;
call outGKI;
nset=3;
end;
end;
if stad=1 then do; /*ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°Π΄ΠΈΠΈ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
if nset=0 then do; /*Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
/*1/ ΠΡΠΎΠΆ-Π΅ t=[temb]C 2/ T=thb:tmb:tsb*/
do i=0 to 15;
sod (i)=brog2(i);
sod (i+40)=time0(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (43)=(thb/10)+30h;
sod (44)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (49)=(tsb/10)+30h;
sod (50)=(tsb mod 10)+30h;
call outGKI;
end;
if nset=1 then do; /*Π§Π°ΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
/*1/ ΠΡΠΎΠΆ-Π΅ t=tembC 2/ T=[thb]: tmb: tsb*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time1(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (42)=(thb/10)+30h;
sod (43)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (49)=(tsb/10)+30h;
sod (50)=(tsb mod 10)+30h;
call outGKI;
end;
if nset=2 then do; /*ΠΠΈΠ½ΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
/*1/ ΠΡΠΎΠΆ-Π΅ t=tembC 2/ T=thb:[tmb]: tsb*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time2(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (42)=(thb/10)+30h;
sod (43)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (50)=(tsb/10)+30h;
sod (51)=(tsb mod 10)+30h;
call outGKI;
end;
if nset=3 then do; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
/*1/ ΠΡΠΎΠΆ-Π΅ t=tembC 2/ T=thb:tmb:[tsb]*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time3(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (43)=(thb/10)+30h;
sod (44)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (50)=(tsb/10)+30h;
sod (51)=(tsb mod 10)+30h;
call outGKI;
end;
end;
if stad=2 then do; /*ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠ°Π΄ΠΈΠΈ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
if nset=0 then do; /*Π’Π΅ΠΌΠΏΠ΅ΡΠ°ΡΡΡΠ° Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
/*1/ ΠΡΠΏ-ΠΊΠ° t=[temc]C 2/ T=thc:tmc:tsc*/
do i=0 to 15;
sod (i)=vip2(i);
sod (i+40)=time0(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (43)=(thc/10)+30h;
sod (44)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (49)=(tsc/10)+30h;
sod (50)=(tsc mod 10)+30h;
call outGKI;
end;
if nset=1 then do; /*Π§Π°ΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
/*1/ ΠΡΠΏ-ΠΊΠ° t=temcC 2/ T=[thc]: tmc: tsc*/
do i=0 to 15;
sod (i)=vip1(i);
sod (i+40)=time1(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (42)=(thc/10)+30h;
sod (43)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (49)=(tsc/10)+30h;
sod (50)=(tsc mod 10)+30h;
call outGKI;
end;
if nset=2 then do; /*ΠΠΈΠ½ΡΡΡ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
/*1/ ΠΡΠΏ-ΠΊΠ° t=temcC 2/ T=thc:[tmc]: tsc*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time2(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (42)=(thc/10)+30h;
sod (43)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (50)=(tsc/10)+30h;
sod (51)=(tsc mod 10)+30h;
call outGKI;
end;
if nset=3 then do; /*Π‘Π΅ΠΊΡΠ½Π΄Ρ Π²ΡΠΏΠ΅ΡΠΊΠΈ*/
/*1/ ΠΡΠΏ-ΠΊΠ° t=temcC 2/ T=thc:tmc:[tsc]*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time3(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (43)=(thc/10)+30h;
sod (44)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (50)=(tsc/10)+30h;
sod (51)=(tsc mod 10)+30h;
call outGKI;
end;
end;
if ((key=2) and (pkey<>2)) then do; /*ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡΠΈ SET ΡΠ»-ΠΉ ΠΏΠ°Ρ-Ρ*/
nset=nset+1;
end;
if ((key=3) and (pkey<>3)) then do; /* ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ + ΠΈΠ½ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠΈΡΡΠ΅ΠΌ Π·Π½-Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°*/
do case stad;
do case nset;
do;
thz=thz+1;
if (thz>59) then thz=59;
end;
do;
tmz=tmz+1;
if (tmz>59) then tmz=59;
end;
do;
thz=thz+1;
if (tsz>59) then tsz=59;
end;
end;
do case nset;
do;
temb=temb+1;
if (temb>500) then temb=500;
end;
do;
thb=thz+1;
if (thb>59) then thb=59;
end;
do;
tmb=tmz+1;
if (tmb>59) then tmb=59;
end;
do;
thb=thb+1;
if (tsb>59) then tsb=59;
end;
end;
do case nset;
do;
temc=temc+1;
if (temc>500) then temc=500;
end;
do;
thc=thc+1;
if (thc>59) then thc=59;
end;
do;
tmc=tmc+1;
if (tmc>59) then tmc=59;
end;
do;
thc=thc+1;
if (tsc>59) then tsc=59;
end;
end;
end;
end;
if ((key=4) and (pkey<>4)) then do; /* ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ — Π΄Π΅ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠΈΡΡΠ΅ΠΌ Π·Π½-Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°*/
do case stad;
do case nset;
do;
thz=thz-1;
if (thz<0) then thz=0;
end;
do;
tmz=tmz-1;
if (tmz<0) then tmz=0;
end;
do;
thz=thz-1;
if (tsz<0) then tsz=0;
end;
end;
do case nset;
do;
temb=temb-1;
if (temb<0) then temb=0;
end;
do;
thb=thz-1;
if (thb<0) then thb=0;
end;
do;
tmb=tmz-1;
if (tmb<0) then tmb=0;
end;
do;
thb=thb-1;
if (tsb<0) then tsb=0;
end;
end;
do case nset;
do;
temc=temc-1;
if (temc<0) then temc=0;
end;
do;
thc=thc-1;
if (thc<0) then thc=0;
end;
do;
tmc=tmc-1;
if (tmc<0) then tmc=0;
end;
do;
thc=thc+1;
if (tsc<0) then tsc=0;
end;
end;
end;
end;
end;
end;
if ((key=1) and (pkey<>1)) then do; /*ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ^ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ ΠΊ ΠΏΡΠΎΠ³Ρ-Ρ ΡΠ»-Π΅ΠΉ ΡΡΠ°Π΄ΠΈΠΈ */
stad=stad+1;
if (stad=3) then stad=0;
end;
if (stad=0) then do; /*ΠΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠ΅ΠΊΡΡΠ΅Π΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²*/
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=thz:tmz:tsz*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time0(i);
end;
sod (43)=(thz/10)+30h;
sod (44)=(thz mod 10)+30h;
sod (46)=(tmz/10)+30h;
sod (47)=(tmz mod 10)+30h;
sod (49)=(tsz/10)+30h;
sod (50)=(tsz mod 10)+30h;
call outGKI;
end;
if (stad=1) then do;
/*1/ ΠΡΠΎΠΆ-Π΅ t=tembC 2/ T=thb:tmb:tsb*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time0(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (43)=(thb/10)+30h;
sod (44)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (49)=(tsb/10)+30h;
sod (50)=(tsb mod 10)+30h;
call outGKI;
end;
if (stad=2) then do;
/*1/ ΠΡΠΏ-ΠΊΠ° t=temcC 2/ T=thc:tmc:tsc*/
do i=0 to 15;
sod (i)=vip1(i);
sod (i+40)=time0(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (43)=(thc/10)+30h;
sod (44)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (49)=(tsc/10)+30h;
sod (50)=(tsc mod 10)+30h;
call outGKI;
end;
end;
end;
if ((key=5) and (pkey<>5)) then do; /*ΠΡΠΈ ΡΠΎΠ³Π»Π°ΡΠΈΠΈ Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π½Π°ΡΠΈΠ½Π°Π΅ΠΌ ΠΏΡΠΈΠ³ΠΎΡΠΎΠ²Π»Π΅Π½ΠΈΠ΅*/
P2=1b; /*ΠΠΈΠΊΠ°Π΅ΠΌ*/
call time (255);
P2=0b;
P27=1b; /*ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ ΠΎΠ±Π° Π±ΡΠ½ΠΊΠ΅ΡΠ°*/
P24=1b;
P26=1b; /*ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΠΌΠΈΠΊΡΠ΅Ρ*/
do while ((datchik (1)<>0) and (datchik (2)<>0)); end; /*ΠΠ΄ΡΠΌ ΠΏΠΎΠΊΠ° ΠΎΠΏΡΡΡΠΎΡΠ°ΡΡΡΡ*/
P27=0b; /*Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ Π±ΡΠ½ΠΊΠ΅ΡΡ*/
P24=0b;
P2=1b; /*ΠΠΈΠΊΠ°Π΅ΠΌ*/
call time (255);
p2=0b;
h=thz; /*ΠΠ°Π΄Π°ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π·Π°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ*/
m=tmz;
s=tsz;
fpp=1b; /*ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΡΠ°ΠΉΠΌΠ΅Ρ*/
do while (fpp);
/*ΠΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅*/
/*1/ ΠΠ°ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ 2/ T=thz:tmz:tsz*/
do i=0 to 15;
sod (i)=zames (i);
sod (i+40)=time0(i);
end;
sod (43)=(thz/10)+30h;
sod (44)=(thz mod 10)+30h;
sod (46)=(tmz/10)+30h;
sod (47)=(tmz mod 10)+30h;
sod (49)=(tsz/10)+30h;
sod (50)=(tsz mod 10)+30h;
call outGKI;
end;
P26=0b; /*ΠΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΌΠΈΠΊΡΠ΅Ρ*/
P2=1b; /*ΠΠΈΠΊΠ°Π΅ΠΌ*/
call time (255);
p2=0b;
h=thb; /*ΠΠ°Π΄Π°ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π±ΡΠΎΠΆΠ΅Π½ΠΈΡ*/
m=tmb;
s=tsb;
temt=temb;
P23=1b; /*ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π΄Π²ΠΈΠ³Π°ΡΠ΅Π»Ρ*/
fpp=1b; /*ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΡΠ°ΠΉΠΌΠ΅Ρ*/
do while (fpp);
if (datchik (1)
else P25=0b;
/*ΠΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅*/
/*1/ ΠΡΠΎΠΆ-Π΅ t=tembC 2/ T=thb:tmb:tsb*/
do i=0 to 15;
sod (i)=brog1(i);
sod (i+40)=time0(i);
end;
sod (9)=(temb/100)+30h;
sod (10)=((temb mod 100)/10)+30h;
sod (11)=((temb mod 100) mod 10)+30h;
sod (43)=(thb/10)+30h;
sod (44)=(thb mod 10)+30h;
sod (46)=(tmb/10)+30h;
sod (47)=(tmb mod 10)+30h;
sod (49)=(tsb/10)+30h;
sod (50)=(tsb mod 10)+30h;
call outGKI;
end;
P2=1b;
call time (255);
p2=0b;
h=thc; /*ΠΠ°Π΄Π°ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π²ΡΠΏΠ΅ΠΊΠ°Π½ΠΈΡ*/
m=tmc;
s=tsc;
temt=temc;
P23=1b; /*ΠΠΊΠ»ΡΡΠ°Π΅ΠΌ Π΄Π²ΠΈΠ³Π°ΡΠ΅Π»Ρ*/
fpp=1b; /*ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ ΡΠ°ΠΉΠΌΠ΅Ρ*/
do while (fpp);
if (datchik (1)
else P25=0b;
/*ΠΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅*/
/*1/ ΠΡΠΏ-ΠΊΠ° t=temcC 2/ T=thc:tmc:tsc*/
do i=0 to 15;
sod (i)=vip1(i);
sod (i+40)=time0(i);
end;
sod (9)=(temc/100)+30h;
sod (10)=((temc mod 100)/10)+30h;
sod (11)=((temc mod 100) mod 10)+30h;
sod (43)=(thc/10)+30h;
sod (44)=(thc mod 10)+30h;
sod (46)=(tmc/10)+30h;
sod (47)=(tmc mod 10)+30h;
sod (49)=(tsc/10)+30h;
sod (50)=(tsc mod 10)+30h;
call outGKI;
end;
do n=0 to 3; /*ΠΠ²ΡΠΊ ΡΡΠΈΠΆΠ΄Ρ*/
P2=1b;
call time (255);
P2=0b;
call time (255);
end;
end;
/*//////////////////////////////////////////////////////////*/
end start