Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi
ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅ ΠΎΠΊΠ½Π° ΠΈ ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ. ΠΡΡΠΊΠΎΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌ, Ρ. Π΅. ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ°Π·Π½ΠΎΠ²ΠΈΠ΄Π½ΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°. ΠΠ½ΠΎ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ·ΡΡΠΈΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΡ ΠΎΠΊΠΎΠ½ — ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ, Π·Π°Π²ΠΈΡΠΈΠΌΡΠ΅ ΠΈ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ, ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΠΏΠΎΠ»Ρ Π²Π²ΠΎΠ΄Π°, ΡΠΏΠΈΡΠΊΠΈ ΠΈ ΠΏΠ°Π΄Π°ΡΡΠΈΠ΅ ΡΠΏΠΈΡΠΊΠΈ — ΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠ°Π±ΠΎΡΡ Ρ ΡΡΠΈΠΌΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ. ΠΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠΉΡΠ΅ ΡΠ²ΠΎΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΠ°ΡΠΊΠΈ Π£ΠΊΡΠ°ΠΈΠ½Ρ ΠΠΎΠ½Π±Π°ΡΡΠΊΠ°Ρ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½Π°Ρ ΠΠ°ΡΠΈΠ½ΠΎΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½Π°Ρ ΠΠΊΠ°Π΄Π΅ΠΌΠΈΡ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΠΠ’ ΠΠΠΠ’Π ΠΠΠ¬ΠΠΠ― Π ΠΠΠΠ’Π
ΠΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅
" Π‘ΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ"
ΡΠ°Π·Π΄Π΅Π»
" Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi"
ΠΡΠΏΠΎΠ»Π½ΠΈΠ»:
Π‘ΡΡΠ΄Π΅Π½Ρ Π³Ρ. ΠΠ’ — 01 — 1Π· ΠΠ°Π·Π΅Π±Π½ΠΈΠΊ Π.Π.
ΠΠ°ΡΠΈΠ°Π½Ρ 19
ΠΡΠΎΠ²Π΅ΡΠΈΠ»:
ΠΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Ρ Π‘Π°Π³Π°ΠΉΠ΄Π° Π.Π.
ΠΡΠ°ΠΌΠ°ΡΠΎΡΡΠΊ 2002.
- Π§Π°ΡΡΡ I 3
- Π§Π°ΡΡΡ II 5
- Π§Π°ΡΡΡ III 6
Π§Π°ΡΡΡ I
ΠΡΠ½ΠΎΠ²Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΌΠ½ΠΎΠ³ΠΎΠΎΠΊΠΎΠ½Π½ΡΠΌ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Windows 95/NT
Π¦Π΅Π»Ρ: ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ Π£ΡΠ΅Π±Π½ΠΈΠΊΠ° ΠΈ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΡ Windows 95/NT, ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π½Π°Π²ΡΠΊΠΎΠ² ΡΠ°Π±ΠΎΡΡ Ρ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΎΡΠΎΠΌ «ΠΌΡΡΡ», ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠΊΠ½Π°ΠΌΠΈ ΠΈ Π·Π½Π°ΡΠΊΠ°ΠΌΠΈ (ΠΏΠΈΠΊΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΎΠ², Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ Windows 95/NT (Π΄Π°Π»Π΅Π΅ Π‘ΠΈΡΡΠ΅ΠΌΠ΅).
ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅ ΠΎΠΊΠ½Π° ΠΈ ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ. ΠΡΡΠΊΠΎΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌ, Ρ. Π΅. ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ°Π·Π½ΠΎΠ²ΠΈΠ΄Π½ΠΎΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°. ΠΠ½ΠΎ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ ΠΊΠΎΠΌΠ°Π½Π΄Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ·ΡΡΠΈΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΡ ΠΎΠΊΠΎΠ½ — ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ, Π·Π°Π²ΠΈΡΠΈΠΌΡΠ΅ ΠΈ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ, ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΠΏΠΎΠ»Ρ Π²Π²ΠΎΠ΄Π°, ΡΠΏΠΈΡΠΊΠΈ ΠΈ ΠΏΠ°Π΄Π°ΡΡΠΈΠ΅ ΡΠΏΠΈΡΠΊΠΈ — ΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠ°Π±ΠΎΡΡ Ρ ΡΡΠΈΠΌΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ. ΠΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΡΠΉΡΠ΅ ΡΠ²ΠΎΠΈ Π·Π½Π°Π½ΠΈΡ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΡ Ρ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠΌ ΠΎΠΊΠ½ΠΎΠΌ.
ΠΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ ΠΎΠ±ΡΡΠ½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡΡΡ Π² Π³ΡΡΠΏΠΏΡ, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡ. 1. ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»ΠΈ Π²ΡΠ΅Π³Π΄Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ Π²Π·Π°ΠΈΠΌΠΎΠΈΡΠΊΠ»ΡΡΠ°ΡΡΠΈΠΌ ΡΠΎΡΡΠΎΡΠ½ΠΈΡΠΌ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΈΠ· Π²ΡΠ΅ΠΉ Π³ΡΡΠΏΠΏΡ Π²ΡΠ΅Π³Π΄Π° Π²ΡΠ±ΡΠ°Π½ΠΎ ΡΠΎΠ²Π½ΠΎ ΠΎΠ΄Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΡΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ.
ΠΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ (ΡΠΈΡ.1) ΡΠ»ΡΠΆΠ°Ρ Π΄Π»Ρ ΠΏΡΠΈΠ½ΡΡΠΈΡ ΠΈΠ»ΠΈ ΠΎΡΠΌΠ΅Π½Ρ, ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΡ ΠΎΠΊΠ½Π°Ρ , Π½ΡΠΆΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ². ΠΡΠΈΠ½ΡΡΠΈΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΠΊ, Π° ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΠΌΠ΅Π½Π°. ΠΠ°ΠΊΡΡΡΠΈΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π·Π°ΠΊΡΡΡΠΈΡ Π² ΠΏΡΠ°Π²ΠΎΠΌ Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ³Π»Ρ ΡΠ°Π²Π½ΠΎΡΠΈΠ»ΡΠ½ΠΎ ΠΎΡΠΊΠ°Π·Ρ ΠΎΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ ΠΈ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΠΌΠ΅Π½Π°.
Π ΠΈΡ.1
Π’Π΅ΠΊΡΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° (ΡΠΈΡ.2) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΌΠΎΠΆΠ½ΠΎ Π²Π²Π΅ΡΡΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ. ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΡΠ΅ΠΊΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΎΠ±ΡΡΠ½ΡΠ΅ ΠΏΡΠΈΡΠΌΡ. ΠΠ»Ρ Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎΠ»Ρ Π²Π²ΠΎΠ΄Π° ΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΊΡΡΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΡΡΡ. ΠΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΌΡΡΠΈ Π½Π°Π΄ ΠΏΠΎΠ»Π΅ΠΌ Π²Π²ΠΎΠ΄Π° ΠΎΠ½ ΠΌΠ΅Π½ΡΠ΅Ρ ΡΠΎΡΠΌΡ, ΠΏΡΠ΅Π²ΡΠ°ΡΠ°ΡΡΡ ΠΈΠ· ΡΡΡΠ΅Π»ΠΊΠΈ Π² Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΡΡ ΡΡΡΡΠΎΡΠΊΡ Ρ Π·Π°ΡΠ΅ΡΠΊΠ°ΠΌΠΈ. ΠΡΠ»ΠΈ Π² ΡΡΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ΅Π»ΡΠΎΠΊ, ΡΠΎ Π² ΠΏΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΊΡΡΡΠΎΡ, ΠΈ ΡΠ΅ΠΊΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ΄Π΅Ρ Π²Π²ΠΎΠ΄ΠΈΡΡ.
Π ΠΈΡ. 2.
Π Π°ΡΠΊΡΡΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ Π²Π½Π΅ΡΠ½Π΅ Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΠΊΠ°ΠΊ ΠΈ ΠΏΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π°, Π² ΠΏΡΠ°Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π²Π½ΠΈΠ· ΡΡΡΠ΅Π»ΠΊΠΎΠΉ. Π©Π΅Π»ΡΠΎΠΊ ΠΏΠΎ ΡΡΠΎΠΉ ΡΡΡΠ΅Π»ΠΊΠ΅ ΡΠ°ΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠΏΠΈΡΠΎΠΊ. ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΡΠΏΠΈΡΠΎΠΊ ΡΠ°ΡΠΊΡΡΡ, ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ ΠΈ Π²ΡΠ±ΡΠ°ΡΡ Π² Π½ΡΠΌ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ (ΡΠΈΡ.2).
ΠΡΠΎΠΊΡΡΡΠΈΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΊΠ°ΠΊ Π΄Π»Ρ Π·Π°Π΄Π°Π½ΠΈΡ ΠΈΠΌΡΠ½ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈ ΠΎΡΠΊΡΡΡΠΈΡ, ΡΠ°ΠΊ ΠΈ Π² ΡΡΠ΄Π΅ Π΄ΡΡΠ³ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ. Π‘ΠΏΠΈΡΠΎΠΊ ΠΌΠΎΠΆΠ΅Ρ ΡΠ½Π°Π±ΠΆΠ°ΡΡΡΡ ΠΏΠΎΠ»ΠΎΡΠΎΠΉ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ ΡΠΏΡΠ°Π²Π° ΠΈ ΡΠ½ΠΈΠ·Ρ. ΠΠ°ΠΊ ΠΈ Π² ΡΠ°ΡΠΊΡΡΠ²Π°ΡΡΠ΅ΠΌΡΡ ΡΠΏΠΈΡΠΊΠ΅, Π½ΡΠΆΠ½ΠΎΠ΅ ΠΈΠΌΡ ΠΈΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΡΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΠΈ, ΠΎΠ΄Π½Π°ΠΊΠΎ Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Π½Π΅Π³ΠΎ ΠΏΡΠΎΠΊΡΡΡΠΈΠ²Π°ΡΡΠΈΠΉΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π½Π΅ Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ.
Π§Π°ΡΡΡ II
ΠΡΠ½ΠΎΠ²Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ (Windows — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ ΠΈ DOS — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ).
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ: ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π½Π°Π²ΡΠΊΠΎΠ² Π·Π°ΠΏΡΡΠΊΠ° ΠΈ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΡΠ΅ΠΆΠΈΠΌΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ (Windows — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ ΠΈ DOS — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ) Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ Windows NT/95, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, ΡΠ°Π±ΠΎΡΠ°Ρ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ ΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΠΌΠΈ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΡ Windows.
Π Π°Π±ΠΎΡΠ° Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ Microsoft Word.
ΠΠ°Π±Π΅ΡΠΈΡΠ΅ Π² ΠΎΠΊΠ½Π΅ WinWord ΡΠ΅ΠΊΡΡ Π²Π°ΡΠ΅ΠΉ ΠΊΡΠ°ΡΠΊΠΎΠΉ Π°Π²ΡΠΎΠ±ΠΈΠΎΠ³ΡΠ°ΡΠΈΠΈ Π² ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΌ Π²ΠΈΠ΄Π΅ (10−12ΡΡΡ) Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ TrueType — ΡΡΠΈΡΡΠ° ArialCyr, ΠΊΠ΅Π³Π»Π΅ΠΌ 10 ΠΏΡΠ½ΠΊΡΠΎΠ², Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π½Π°ΡΠ΅ΡΡΠ°Π½ΠΈΡ, Ρ ΠΌΠ΅ΠΆΡΡΡΠΎΡΠ½ΡΠΌ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠΌ 1,5 ΡΡΡΠΎΠΊΠΈ. Π ΡΠ΅ΠΊΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ 2 — 3 Π°Π±Π·Π°ΡΠ° Ρ ΠΊΡΠ°ΡΠ½ΠΎΠΉ ΡΡΡΠΎΠΊΠΎΠΉ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠ°Π±ΡΠ»ΡΡΠΈΠΈ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ 5 ΠΠ. ΡΠ΅ΠΊΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΈΠΌΠ΅ΡΡ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ «ΠΠΎ ΡΠΈΡΠΈΠ½Π΅». ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ «ΠΡΠ°ΡΠΊΠ°Ρ Π°Π²ΡΠΎΠ±ΠΈΠΎΠ³ΡΠ°ΡΠΈΡ «Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ Π½Π°Π±ΡΠ°Π½ ΡΡΠΈΡΡΠΎΠΌ Times New Roman Cyr, ΠΊΠ΅Π³Π»Ρ 16 ΠΏΡΠ½ΠΊΡΠΎΠ², ΠΏΠΎΠ»ΡΠΆΠΈΡΠ½ΠΎΠ΅ Π½Π°ΡΠ΅ΡΡΠ°Π½ΠΈΠ΅, Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎ ΡΠ΅Π½ΡΡΡ, ΠΌΠ΅ΠΆΡΡΡΠΎΡΠ½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» 2 ΡΡΡΠΎΠΊΠΈ.
ΠΡΠ΄Π΅Π»ΠΈΡΠ΅ Π²Π°ΠΆΠ½ΡΡ ΡΠ°ΡΡΡ Π²Π°ΡΠ΅ΠΉ Π°Π²ΡΠΎΠ±ΠΈΠΎΠ³ΡΠ°ΡΠΈΠΈ ΡΠΎΠ½ΠΎΠΌ Ρ 10% ΠΏΠ»ΠΎΡΠ½ΠΎΡΡΠΈ ΡΠ°ΡΡΡΠ°.
Π Π²Π΅ΡΡ Π½ΠΈΠΉ Π»Π΅Π²ΡΠΉ ΡΠ³ΠΎΠ» ΡΠ΅ΠΊΡΡΠ° Π²ΡΡΠ°Π²ΡΡΠ΅ ΠΊΠ°Π΄Ρ, Π² ΠΊΠΎΡΠΎΡΡΠΉ Π²Π½Π΅Π΄ΡΠΈΡΠ΅ ΠΈΠ· Paintbrush ΡΠ²ΠΎΠΉ Π°Π²ΡΠΎΠΏΠΎΡΡΡΠ΅Ρ (Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ Π² Π²ΠΈΠ΄Π΅ ΡΠ°ΡΠΆΠ°). ΠΠ°Π΄Π°ΠΉΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΠ°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠΎΠΌ Π²ΠΎΠΊΡΡΠ³ ΠΊΠ°Π΄ΡΠ°, ΠΊΠΎΠ½ΡΡΡ Π²ΠΎΠΊΡΡΠ³ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈ, ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΠ°ΡΡΠ΅Π³ΠΎ ΡΠ΅ΠΊΡΡΠ° Π΄ΠΎ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈ.
ΠΠΈΠΆΠ΅ ΡΠ΅ΠΊΡΡΠ° Π²ΡΡΠ°Π²ΡΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ Π²ΠΈΠ΄Π°:
ΠΠ°ΡΠ° | Π‘ΠΎΠ±ΡΡΠΈΠ΅ | ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΡ | |
ΠΡΠ°ΡΡ ΠΊΠΎΡΠΎΡΠΎΠΉ Π·Π°ΠΏΠΎΠ»Π½ΠΈΡΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ.
5. ΠΠ°Π΄Π°ΠΉΡΠ΅ ΡΠΎΡΠΌΠ°Ρ ΡΡΡΠ°Π½ΠΈΡΡ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° Π4 (210×297), Π»Π΅Π²ΠΎΠ΅ ΠΏΠΎΠ»Π΅ 25 ΠΌΠΌ, ΠΏΡΠ°Π²ΠΎΠ΅ ΠΏΠΎΠ»Π΅ 15 ΠΌΠΌ, Π²Π΅ΡΡ Π½Π΅Π΅ 20 ΠΌΠΌ ΠΈ Π½ΠΈΠΆΠ½Π΅Π΅ 30 ΠΌΠΌ. ΠΠΎΠΉΠ΄ΠΈΡΠ΅ Π² ΡΠ΅ΠΆΠΈΠΌ Π Π°Π·ΠΌΠ΅ΡΠΊΠ° ΡΡΡΠ°Π½ΠΈΡΡ ΠΈ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΡΠ΅ Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°. ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΠ²Ρ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ».
" ΠΡΠ°ΡΠΊΠ°Ρ Π°Π²ΡΠΎΠ±ΠΈΠΎΠ³ΡΠ°ΡΠΈΡ"
Π―, ΠΠ°Π·Π΅Π±Π½ΠΈΠΊ ΠΠ»Π΅ΠΊΡΠ°Π½Π΄Ρ ΠΠ°ΡΠΈΠ»ΡΠ΅Π²ΠΈΡ, ΡΠΎΠ΄ΠΈΠ»ΡΡ 18 ΡΠ΅Π½ΡΡΠ±ΡΡ 1980 Π³ΠΎΠ΄Π° Π² Π³ΠΎΡΠΎΠ΄Π΅ ΠΠΎΡΠ»ΠΎΠ²ΠΊΠ°, ΠΠΎΠ½Π΅ΡΠΊΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ. Π 1997 Π³ΠΎΠ΄Ρ Π·Π°ΠΊΠΎΠ½ΡΠΈΠ» ΠΎΠ±ΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΊΠΎΠ»Ρ I-III ΡΡΡΠΏΠ΅Π½Π΅ΠΉ № 22. Π 1998 Π³ΠΎΠ΄Ρ ΠΎΠΊΠΎΠ½ΡΠΈΠ» ΠΠΎΡΠ»ΠΎΠ²ΡΠΊΡΡ Π°Π²ΡΠΎΡΠΊΠΎΠ»Ρ ΠΠΠ‘ΠΠ€ ΠΠ‘ΠΠ£.
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²Π° ΠΠ±ΠΎΡΠΎΠ½Ρ Π£ΠΊΡΠ°ΠΈΠ½Ρ. ΠΡΠ°ΠΆΠ΄Π°Π½ΡΠΊΠ°Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ — ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π» (ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ B, C).
25 Π½ΠΎΡΠ±ΡΡ 1998 Π³ΠΎΠ΄Π° Π±ΡΠ» ΠΏΡΠΈΠ·Π²Π°Π½ Π½Π° ΡΡΠΎΡΠ½ΡΡ ΡΠ»ΡΠΆΠ±Ρ Π² ΡΡΠ΄Ρ ΠΠΎΠΎΡΡΠΆΡΠ½Π½ΡΡ ΡΠΈΠ»
Π£ΠΊΡΠ°ΠΈΠ½Ρ. Π‘Π»ΡΠΆΠ±Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΠ» Π²ΠΎ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΡ Π²ΠΎΠΉΡΠΊΠ°Ρ .4 Π°ΠΏΡΠ΅Π»Ρ 2000 Π³ΠΎΠ΄Ρ Π±ΡΠ» Π΄Π΅ΠΌΠΎΠ±ΠΈΠ»ΠΈΠ·ΠΎΠ²Π°Π½.
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΠ°Ρ Π² Π΄ΠΎΠ»ΠΆΠ½ΠΎΡΡΠΈ ΡΡΠ°ΡΡΠ΅Π³ΠΎ ΠΏΠΎΠΆΠ°ΡΠ½ΠΎΠ³ΠΎ Π² Π‘ΠΠΠ§-28 ΠΠΠΠ-8 ΠΠΎΠΆΠ°ΡΠ½ΠΎΠ³ΠΎ Π΄Π΅ΠΏΠ°ΡΡΠ°ΠΌΠ΅Π½ΡΠ° Π£ΠΊΡΠ°ΠΈΠ½Ρ Π² Π³ΠΎΡΠΎΠ΄Π΅ ΠΠΎΡΠ»ΠΎΠ²ΠΊΠ°.
Π£ΡΡΡΡ Π½Π° Π·Π°ΠΎΡΠ½ΠΎΠΌ ΠΎΡΠ΄Π΅Π»Π΅Π½ΠΈΠΈ ΠΠΎΠ½Π±Π°ΡΡΠΊΠΎΠΉ ΠΌΠ°ΡΠΈΠ½ΠΎΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΠΈ, ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ «ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ Π½Π°ΡΠΊΠΈ», Π³ΡΡΠΏΠΏΠ° ΠΠ’-01−1Π·.
ΠΠ°ΡΠ° | Π‘ΠΎΠ±ΡΡΠΈΠ΅ | ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅ | |
18. IX. 1980 | Π ΠΎΠ΄ΠΈΠ»ΡΡ | Π³. ΠΠΎΡΠ»ΠΎΠ²ΠΊΠ° | |
1. IX. 1986 | ΠΠΎΡΡΠ» Π² ΠΏΠ΅ΡΠ²ΡΠΉ ΠΊΠ»Π°ΡΡ | ΠΠ¨ N 79 | |
25. V. 1997 | ΠΠΊΠΎΠ½ΡΠΈΠ» ΡΠΊΠΎΠ»Ρ | ΠΠ¨ I-III ΡΡ. N 22 | |
25. XI. 1998 | ΠΡΠΈΠ·ΡΠ² Π² Π°ΡΠΌΠΈΡ | Π ΡΠ΄ΠΎΠ²ΠΎΠΉ | |
4. IV. 2000 | ΠΠ΅ΠΌΠΎΠ±ΠΈΠ»ΠΈΠ·Π°ΡΠΈΡ | Π‘ΡΠ°ΡΡΠΈΠ½Π° | |
1. IX. 2001 | ΠΠΎΡΡΡΠΏΠ»Π΅Π½ΠΈΠ΅ Π² ΠΠΠΠ | ΠΠ’-01−1Π· | |
Π§Π°ΡΡΡ III
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΡΡΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π΄Π»Ρ Windows ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Delphi.
Π¦Π΅Π»Ρ: ΠΏΠΎΠ»ΡΡΠΈΡΡ Π½Π°Π²ΡΠΊΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Delphi ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ.
ΠΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅:
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ — ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΠΉ ΠΊΠ°Π»ΡΠΊΡΠ»ΡΡΠΎΡ Π΄Π»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ +,-,*,/ Π½Π°Π΄ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ.
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Calc. dfm
object Form1: TForm1
Left = 248
Top = 691
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #1050#1072#1083#1100#1082#1091#1083#1103#1090#1086#1088
ClientHeight = 187
ClientWidth = 157
Color = clBtnFace
Font. Charset = DEFAULT_CHARSET
Font. Color = clWindowText
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 5
Top = 5
Width = 146
Height = 31
end
object LabelOperation: TLabel
Left = 8
Top = 15
Width = 9
Height = 13
AutoSize = False
Caption = ' '
Font. Charset = DEFAULT_CHARSET
Font. Color = 11 008
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 18
Top = 7
Width = 131
Height = 13
AutoSize = False
end
object Label2: TLabel
Left = 18
Top = 21
Width = 131
Height = 13
AutoSize = False
end
object EditCalc: TEdit
Left = 5
Top = 40
Width = 146
Height = 21
ReadOnly = True
TabOrder = 0
end
object BitBtn0: TBitBtn
Left = 5
Top = 155
Width = 56
Height = 25
Caption = '0'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BitBtnNumberClick
end
object BitBtn1: TBitBtn
Left = 5
Top = 125
Width = 26
Height = 25
Caption = '1'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtnNumberClick
end
object BitBtn2: TBitBtn
Left = 35
Top = 125
Width = 26
Height = 25
Caption = '2'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BitBtnNumberClick
end
object BitBtn3: TBitBtn
Left = 65
Top = 125
Width = 26
Height = 25
Caption = '3'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BitBtnNumberClick
end
object BitBtn4: TBitBtn
Left = 5
Top = 95
Width = 26
Height = 25
Caption = '4'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = BitBtnNumberClick
end
object BitBtn5: TBitBtn
Left = 35
Top = 95
Width = 26
Height = 25
Caption = '5'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = BitBtnNumberClick
end
object BitBtn6: TBitBtn
Left = 65
Top = 95
Width = 26
Height = 25
Caption = '6'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = BitBtnNumberClick
end
object BitBtn7: TBitBtn
Left = 5
Top = 65
Width = 26
Height = 25
Caption = '7'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = BitBtnNumberClick
end
object BitBtn8: TBitBtn
Left = 35
Top = 65
Width = 26
Height = 25
Caption = '8'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = BitBtnNumberClick
end
object BitBtn9: TBitBtn
Left = 65
Top = 65
Width = 26
Height = 25
Caption = '9'
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = BitBtnNumberClick
end
object BitBtnPlus: TBitBtn
Left = 95
Top = 65
Width = 26
Height = 25
Caption = '+'
Font. Charset = DEFAULT_CHARSET
Font. Color = clGreen
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = BitBtnOperationClick
end
object BitBtnMinus: TBitBtn
Left = 95
Top = 95
Width = 26
Height = 25
Caption = '-'
Font. Charset = DEFAULT_CHARSET
Font. Color = clGreen
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = BitBtnOperationClick
end
object BitBtnMultiple: TBitBtn
Left = 95
Top = 125
Width = 26
Height = 25
Caption = '*'
Font. Charset = DEFAULT_CHARSET
Font. Color = clGreen
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = BitBtnOperationClick
end
object BitBtnDivide: TBitBtn
Left = 95
Top = 155
Width = 26
Height = 25
Caption = '/'
Font. Charset = DEFAULT_CHARSET
Font. Color = clGreen
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = BitBtnOperationClick
end
object BitBtnEq: TBitBtn
Left = 125
Top = 125
Width = 26
Height = 55
Caption = '='
Font. Charset = DEFAULT_CHARSET
Font. Color = clWindowText
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = BitBtnEqClick
end
object BitBtnReset: TBitBtn
Left = 125
Top = 65
Width = 26
Height = 55
Caption = 'C'
Font. Charset = DEFAULT_CHARSET
Font. Color = clRed
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 16
OnClick = BitBtnResetClick
end
object BitBtnDecimal: TBitBtn
Left = 65
Top = 155
Width = 26
Height = 25
Caption = '. '
Font. Charset = DEFAULT_CHARSET
Font. Color = clBlue
Font. Height = - 11
Font. Name = 'MS Sans Serif'
Font. Style = [fsBold]
ParentFont = False
TabOrder = 17
OnClick = BitBtnNumberClick
end
end
Calc
unit Calc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class (TForm)
EditCalc: TEdit;
BitBtn0: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtnPlus: TBitBtn;
BitBtnMinus: TBitBtn;
BitBtnMultiple: TBitBtn;
BitBtnDivide: TBitBtn;
BitBtnEq: TBitBtn;
BitBtnReset: TBitBtn;
BitBtnDecimal: TBitBtn;
LabelOperation: TLabel;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
procedure BitBtnResetClick (Sender: TObject);
procedure BitBtnNumberClick (Sender: TObject);
procedure BitBtnOperationClick (Sender: TObject);
procedure BitBtnEqClick (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
v_NextOperation: boolean;
implementation
{$R *. dfm}
procedure TForm1. BitBtnResetClick (Sender: TObject);
begin
EditCalc. Text: ='';
Label1. Caption: ='';
Label2. Caption: ='';
LabelOperation. Caption: =' ';
end;
procedure TForm1. BitBtnNumberClick (Sender: TObject);
begin
if v_NextOperation
then
begin
EditCalc. Text: =TBitBtn (Sender). Caption;
v_NextOperation: =false;
end
else EditCalc. Text: =EditCalc. Text+TBitBtn (Sender). Caption;
end;
procedure TForm1. BitBtnOperationClick (Sender: TObject);
begin
LabelOperation. Caption: =TBitBtn (Sender). Caption;
Label1. Caption: =EditCalc. Text;
EditCalc. Text: ='';
Label2. Caption: =EditCalc. Text;
end;
procedure TForm1. BitBtnEqClick (Sender: TObject);
begin
v_NextOperation: =true;
if Label1. Caption=''
then Label1. Caption: ='0';
Label2. Caption: =EditCalc. Text;
if (Label2. Caption='0') and (LabelOperation. Caption ='/')
then
begin
EditCalc. Text: ='??? ΠΠ΅Π»Π΅Π½ΠΈΠ΅ Π½Π° 0';
Exit;
end;
case LabelOperation. Caption of
'+': EditCalc. Text: =FloatToStr (StrToFloat (Label1. Caption) +StrToFloat (Label2. Caption));
'-': EditCalc. Text: =FloatToStr (StrToFloat (Label1. Caption) — StrToFloat (Label2. Caption));
'*': EditCalc. Text: =FloatToStr (StrToFloat (Label1. Caption) *StrToFloat (Label2. Caption));
'/': EditCalc. Text: =FloatToStr (StrToFloat (Label1. Caption) /StrToFloat (Label2. Caption));
else EditCalc. Text: ='??? ';
end;
end;
initialization
DecimalSeparator: ='. ';
v_NextOperation: =true;
end.
Calculat
program Calculat;
uses
Forms,
Calc in 'Calc. pas' {Form1};
{$R *. res}
begin
Application. Initialize;
Application. CreateForm (TForm1, Form1);
Application. Run;
end.