ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½Π°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄
ΠΡΠΎΠΌΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΎΠΏΠΈΡΠ°Π½Π½ΡΡ Π² ΠΊΠ»Π°ΡΡΠ°Ρ , ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ ΡΠ΅ΡΠ²Π΅ΡΠ°ΠΌΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Microsoft Office. Π’Π°ΠΊ, ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ Π·Π°ΠΏΡΡΠΊ MS Word, MS Excel, Power Point ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡ ΠΈΠΌ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ, ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Ρ ΡΠ΅Π»ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΎΡΡΠ΅ΡΠΎΠ² ΠΈΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΅Π΅ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½Π°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ΅Π»ΠΎΡΡΡΡΠΊΠΈΠΉ Π½Π°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ
ΠΠΠ―Π‘ΠΠΠ’ΠΠΠ¬ΠΠΠ― ΠΠΠΠΠ‘ΠΠ
ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΡ (ΡΠ°Π±ΠΎΡΠ΅)
ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅ «ΠΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ»
Π’Π΅ΠΌΠ°: «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½Π°Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄»
ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»Ρ:_______________________
(ΠΏΠΎΠ΄ΠΏΠΈΡΡ)
Π‘ΡΡΠ΄Π΅Π½Ρ 2 ΠΊΡΡΡΠ° 417318 Π³ΡΡΠΏΠΏΡ
Π ΡΠΊΠΎΠ²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ: _____________________ ΠΡΡΡΠΊΠΈΠΉ Π.Π.
(ΠΏΠΎΠ΄ΠΏΠΈΡΡ) ΠΠΈΠ½ΡΠΊ 2010
ΠΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
1. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
2. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.1 Π‘ΡΡΡΠΊΡΡΡΠ½Π°Ρ ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ°
2.3 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ COM
2.4 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ
2.5 ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.6 Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΡΠ²ΠΈΡΠΎΠ², ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΡ Microsoft Office
3. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
4. ΠΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΠΈΡΠ΅ΡΠ°ΡΡΡΠ° ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π€Π°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° VremRiad. dpr
Π€Π°ΠΉΠ» Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ UnitMain. pas
Π€Π°ΠΉΠ» Π²ΡΠ²ΠΎΠ΄Π° Π³ΡΠ°ΡΠΈΠΊΠ° UnitGraphic. pas
Π€Π°ΠΉΠ» ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΊΠ»Π°ΡΡΠ° — UnitRiad. pas
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ About. dpr
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Prompt. dpr
Π€Π°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° COM-ΡΠ΅ΡΠ²Π΅ΡΠ° — MyServer. dpr
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ COMΠΊΠ»Π°ΡΡΠ° — UComRiad. pas
ΠΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΡΡΠ΄ΠΎΠΌ ΠΎΠ±ΡΡΠ½ΠΎ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΠΎΠ±ΡΡΠΈΠΉ, Π½Π°Π±Π»ΡΠ΄Π°Π΅ΠΌΡΡ ΡΠ΅ΡΠ΅Π· Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, ΡΠ°Π²Π½ΡΠ΅ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΡΠΈΠΌΠ΅Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΊ Π²Π°Π»ΡΡΠ½ΠΎΠΌΡ Π΄ΠΈΠ»ΠΈΠ½Π³Ρ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ΅ΠΊΡΡΠ΅Π΅ Π΄Π½Π΅Π²Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΊΡΡΡΠ°, ΠΏΠΎ ΠΊΠΎΡΠΎΡΠΎΠΌΡ ΠΏΡΠΎΠΈΠ·ΠΎΡΠ»Π° ΠΎΡΠ΅ΡΠ΅Π΄Π½Π°Ρ ΡΠ΄Π΅Π»ΠΊΠ° — ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΠΈΠ·ΡΡΠ°Π΅ΠΌ Π΄Π½Π΅Π²Π½ΠΎΠΉ Π°ΡΠ±ΠΈΡΡΠ°ΠΆ, Π»ΠΈΠ±ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π½Ρ Π·Π°ΠΊΡΡΡΠΈΡ — Π΅ΡΠ»ΠΈ ΠΌΡ ΠΏΡΡΠ°Π΅ΠΌΡΡ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΠΏΡΠΎΠ³Π½ΠΎΠ· Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π΄Π½Π΅ΠΉ Π²ΠΏΠ΅ΡΠ΅Π΄.
ΠΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΡΠ΄ — ΡΡΠΎ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½Π°Ρ (ΠΏΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ) ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π²Π΅Π»ΠΈΡΠΈΠ½Ρ. ΠΠ°ΠΆΠ΄ΠΎΠ΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΎΡΡΡΡΡΠΎΠΌ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ΄Π°. Π’Π΅ΠΌ ΡΠ°ΠΌΡΠΌ, Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΡΠ΄ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΠΏΡΠΎΡΡΠΎΠΉ Π²ΡΠ±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ .
ΠΠ½Π°Π»ΠΈΠ· Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠ΄ΠΎΠ² — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΎ-ΡΡΠ°ΡΠΈΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² Π°Π½Π°Π»ΠΈΠ·Π°, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ Π²ΡΡΠ²Π»Π΅Π½ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠ΄ΠΎΠ² ΠΈ Π΄Π»Ρ ΠΈΡ ΠΏΡΠΎΠ³Π½ΠΎΠ·Π°. Π‘ΡΠ΄Π° ΠΎΡΠ½ΠΎΡΡΡΡΡ, Π² ΡΠ°ΡΡΠ½ΠΎΡΡΠΈ, ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΠ΅Π³ΡΠ΅ΡΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ Π°Π½Π°Π»ΠΈΠ·Π°. ΠΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΡΡΠΊΡΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ΄Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ ΠΌΠΎΠ΄Π΅Π»Ρ ΡΠΎΠ³ΠΎ ΡΠ²Π»Π΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠΌ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΡΠ΅ΠΌΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ΄Π°. ΠΡΠΎΠ³Π½ΠΎΠ· Π±ΡΠ΄ΡΡΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ΄Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΏΡΠΈΠ½ΡΡΠΈΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ΅.
ΠΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΡΠ΄Ρ ΡΠΎΡΡΠΎΡΡ ΠΈΠ· Π΄Π²ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²:
Β· ΠΏΠ΅ΡΠΈΠΎΠ΄Π° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, Π·Π° ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΠ»ΠΈ ΠΏΠΎ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ Π½Π° ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡΡΡ ΡΠΈΡΠ»ΠΎΠ²ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ;
Β· ΡΠΈΡΠ»ΠΎΠ²ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΎΠ³ΠΎ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠΊΠ°Π·Π°ΡΠ΅Π»Ρ, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΡ ΡΡΠΎΠ²Π½ΡΠΌΠΈ ΡΡΠ΄Π°.
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡΡ
ΠΏΡΠΈ Π·Π°Π΄Π°Π½Π½ΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΠ°Π±Π»ΠΈΡΡ ΠΈ Π³ΡΠ°ΡΠΈΠΊΠΎΠ², ΡΠΎΠ²ΠΌΠ΅ΡΠ΅Π½Π½ΡΡ Π² ΠΎΠ΄Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ.
ΠΠ»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ»Π° Π²ΡΠ±ΡΠ°Π½Π° ΡΡΠ΅Π΄Π° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Borland Delphi 7.0. ΠΠ½Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π° ΠΊΠΎΡΠΎΡΠΊΠΈΠΉ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΠΊ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ Ρ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΠΌΠΈ Π·Π°ΡΡΠ°ΡΠ°ΠΌΠΈ ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ ΡΠΌΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ» ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ°Π·Π»ΠΈΡΠ½ΠΎΠΉ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΠΎΡΡΠΈ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Ρ ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π°Π»ΠΈΡΠΈΠ΅ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠΊΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°. Π£ΠΊΠ°Π·Π°Π½Π½ΡΠ΅ (Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠ΄ Π΄ΡΡΠ³ΠΈΡ ) ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΡΡΠ΅Π΄Ρ Delphi 7.0. ΠΎΠ±ΡΡΠ»Π°Π²Π»ΠΈΠ²Π°ΡΡ ΡΠΈΡΠΎΠΊΠΎΠ΅ Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎΠ³ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
1. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
Π Π°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΈ ΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ:
ΠΠ°ΡΠ°Π»ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΠΈ Π΄Π»Ρ ΡΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ :
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΠ°Π±Π»ΠΈΡΡ ΠΈ Π³ΡΠ°ΡΠΈΠΊΠΎΠ², ΡΠΎΠ²ΠΌΠ΅ΡΠ΅Π½Π½ΡΡ Π² ΠΎΠ΄Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ.
2. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.1 Π‘ΡΡΡΠΊΡΡΡΠ½Π°Ρ ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Π‘ΡΡΡΠΊΡΡΡΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΡΠΌ, Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ, ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΠΎΠΌΠΎΡΠΈ ΠΈ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠΉ ΠΊ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌ. Π‘Π²ΡΠ·Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 2.1.
Π ΠΈΡΡΠ½ΠΎΠΊ-2.1. Π‘ΡΡΡΠΊΡΡΡΠ½Π°Ρ ΡΡ Π΅ΠΌΠ° ΡΠ²ΡΠ·Π΅ΠΉ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ°
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π°Π½Π°Π»ΠΈΠ·Π° ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ Π΄Π»Ρ Π΅Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ ΠΊΠ»Π°ΡΡ TRiad, ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΠΈΡΡΡΡΠΈΠΉ ΠΏΠΎΠ»Ρ, ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡΠ΅ ΠΊ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ.
TRiad = class //ΠΊΠ»Π°ΡΡ
private
IniFile: TIniFile; //ΠΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
w: integer;
public
Constructor Create (AIniFileName: string);
Destructor Destroy;
procedure Graphic (AChart:TChart); //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Table (AStringGrid:TStringGrid); //ΠΡΠ²ΠΎΠ΄ Π² ΡΠ°Π±Π»ΠΈΡΡ
procedure WriteToIniFile; //ΠΠ°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
procedure ReadFromIniFile; //Π§ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
function GetW: integer; //ΠΠΎΠ»ΡΡΠΈΡΡ w
procedure SetW; //Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ w
function F (w:integer;t:extended):extended;//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ
//property ww: integer read GetW write SetW;
private
end;
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ»Π΅ΠΉ ΠΈ ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π² ΠΊΠ»Π°ΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ (ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ²) ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ΠΎ Π² ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΡΡ . ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ»Π°ΡΡΠ° ΡΡΡΡΠΊΡΡΡΠ½ΠΎ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΎ Π² ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌ Unit — UnitRiad. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΠ΅ΠΊΡΠΈΠΈ public ΠΈ private ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΎΠ±Π»Π°ΡΡΠΈ Π²ΠΈΠ΄ΠΈΠΌΠΎΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΊΠ»Π°ΡΡΠ°. Π’Π°ΠΊ, Π²ΠΈΠ΄Π½ΠΎ, ΡΡΠΎ Π²ΡΠ΅ ΠΏΠΎΠ»Ρ ΠΊΠ»Π°ΡΡΠ° ΡΠ²Π»ΡΡΡΡΡ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π·Π°ΠΊΡΡΡΡΠΌΠΈ, Π° Π΄ΠΎΡΡΡΠΏ ΠΊ Π½ΠΈΠΌ ΠΎΡΠ³Π°Π½ΠΈΠ·ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈ ΡΠ²ΠΎΠΉΡΡΠ².
2.3 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ COM
Π ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΊΡΠΏΠΎΡΡΠ° ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ COM. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½ ΡΠ΅ΡΠ²Π΅Ρ Π² Π²ΠΈΠ΄Π΅ DLL — ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ MyServer.
library MyServer;
{ Important note about DLL memory management: ShareMem must be the first unit in your library’s USES clause AND your project’s (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL—even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM. DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM. DLL, pass string information using PChar or ShortString parameters. }
uses
SysUtils,
ComServ,
UComRiad in 'UComRiad.pas',
UCom_Tlb in 'UCom_Tlb.pas',
Classes,
MyServer_TLB in 'MyServer_TLB.pas';
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{$R *.TLB}
{$R *.res}
begin
end.
ΠΡΠΎΡ ΡΠ΅ΡΠ²Π΅Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°ΡΡ COM-ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΊΠ»Π°ΡΡΠ° ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΠΌΠΎΠ΄ΡΠ»Π΅ UΠ‘omRiad. Π‘Π»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ Π΄Π°Π½Π½ΡΠΉ ΠΊΠ»Π°ΡΡ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌΡ Π² ΠΏ. 2.2 ΠΊΠ»Π°ΡΡΡ TRiad ΠΈ ΠΈΠΌΠ΅Π΅Ρ ΠΈ ΡΠ°ΠΊΠΎΠ΅ ΠΆΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅, Ρ. Π΅. ΠΎΠ½ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅Π³ΠΎ ΠΊΠΎΠΏΠΈΠ΅ΠΉ, Π·Π° ΠΈΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ° Create, ΠΊΠΎΡΠΎΡΡΠΉ Π·Π°ΠΌΠ΅Π½Π΅Π½ ΠΎΠ±ΡΡΠ½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ. ΠΠ΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΡΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΎΡΠΊΡΡΡΡΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ COM-ΠΊΠ»Π°ΡΡΠ° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° IcomRiad, ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠ³ΠΎ Π² ΠΌΠΎΠ΄ΡΠ΄Π΅ UCom_Tlb.
2.4 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ
ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π±ΡΠ»ΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ 2 Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ.
ΠΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠ°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° Prompt. dll ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π·Π°ΡΡΠ°Π²ΠΊΡ, ΠΏΠΎΡΠ²Π»ΡΡΡΡΡΡΡ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π½ΠΎ Π΄ΠΎ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°.
ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 1 ΡΠΊΡΠΏΠΎΡΡΠΈΡΡΠ΅ΠΌΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ShowPrompt, ΡΠ»ΡΠΆΠ°ΡΡΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ.
library Prompt;
{ Important note about DLL memory management: ShareMem must be the first unit in your library’s USES clause AND your project’s (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL—even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM. DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM. DLL, pass string information using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
Windows,
UnitPrompt in 'UnitPrompt.pas' {FormPrompt};
{$R *.res}
//ΠΠΎΠΊΠ°Π·Π°ΡΡ Π·Π°ΡΡΠ°Π²ΠΊΡ
procedure ShowPrompt (AOwner:TComponent);
var
Time:extended;
Form:TFormPrompt;
begin
Form:=TFormPrompt.Create (AOwner); //Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ
Time:=GetTickCount/1000; //ΠΠ°ΠΏΠΎΠΌΠ½ΠΈΡΡ Π²ΡΠ΅ΠΌΡ
Form.Show; //ΠΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ
Form.Repaint; //ΠΠ΅ΡΠ΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΡΠΌΡ
//ΠΠΎΠΊΠ° Π½Π΅ Π²ΡΡΠ΅Π» Π»ΠΈΠΌΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ — Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π΄Π΅Π»Π°ΡΡ
while GetTickCount/1000
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈΠ³ΠΈΠ½Π°Π»ΡΠ½ΠΎΠΉ Π·Π°ΡΡΠ°Π²ΠΊΠΈ (ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² Prompt. dll), Π° Π·Π°ΡΠ΅ΠΌ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΠΌΠΎΠ΄ΡΠ»Ρ UnitMain). ΠΠ»Π°Π²Π½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠΏΡΠ°Π²Π»ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠΎΠΉ Π²ΡΠ΅Ρ Π΄ΡΡΠ³ΠΈΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ Π·Π°ΠΏΡΠΎΡΠ°ΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
ΠΠ½ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ:
Β· ΠΡΠ·ΠΎΠ² ΠΎΠΊΠ½Π° «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅»;
Β· ΠΡΠ·ΠΎΠ² ΠΏΡΠ΅Π·Π΅Π½ΡΠ°ΡΠΈΠΈ;
Β· ΠΠ΅ΡΠ΅Π΄Π°ΡΡ Π΄Π°Π½Π½ΡΡ Π² Word ΠΈ Excel;
Β· ΠΡΠ·ΠΎΠ² ΡΠΎΡΠΌΡ «ΠΡΠ°ΡΠΈΠΊ»;
Β· ΠΡΠ·ΠΎΠ² ΠΎΠΊΠ½Π° ΠΏΠΎΠΌΠΎΡΠΈ;
Β· Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ Π² Ini-ΡΠ°ΠΉΠ»Π°Ρ ;
Β· ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ³ΠΎ COM-ΡΠ΅ΡΠ²Π΅ΡΠ°;
ΠΠΈΠ°Π»ΠΎΠ³ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΈ Π²ΡΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ΅Π½Ρ, ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ², ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈ Π΄ΡΡΠ³ΠΈΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ².
ΠΠΊΠ½ΠΎ «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΊΡΠ°ΡΠΊΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ.
ΠΠΊΠ½ΠΎ «ΠΡΠ°ΡΠΈΠΊ» ΡΠ»ΡΠΆΠΈΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠΎΡΠΌΠ΅ — Π² Π²ΠΈΠ΄Π΅ Π³ΡΠ°ΡΠΈΠΊΠΎΠ².
Π ΡΠ°ΠΌΠΊΠ°Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΠ°ΠΊΠΆΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½Ρ-ΡΠ΅ΡΠ²Π΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ ΠΎΠ±ΠΌΠ΅Π½Π° Π΄Π°Π½Π½ΡΠΌΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ.
ΠΡΠΎΡΠ΅ΡΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ c ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ, Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΎΠΏΠΈΡΠ°Π½Ρ Π² «Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²Π΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ».
ΠΠΎΠΏΡΠΎΡΡ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ. ΠΠΎ ΡΠ΅ΠΊΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π°ΡΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠΎΠ»Π½ΡΠ΅ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΡΠ°Π³ΠΎΠ² ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ².
2.6 Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΡΠ²ΠΈΡΠΎΠ², ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΡ Microsoft Office
ΠΡΠΎΠΌΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΎΠΏΠΈΡΠ°Π½Π½ΡΡ Π² ΠΊΠ»Π°ΡΡΠ°Ρ , ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ ΡΠ΅ΡΠ²Π΅ΡΠ°ΠΌΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Microsoft Office. Π’Π°ΠΊ, ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ Π·Π°ΠΏΡΡΠΊ MS Word, MS Excel, Power Point ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡ ΠΈΠΌ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ, ΡΠ°Π±Π»ΠΈΡΠ½ΡΡ ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Ρ ΡΠ΅Π»ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΎΡΡΠ΅ΡΠΎΠ² ΠΈΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΅Π΅ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ.
1. Procedure TFormMain. ReportExcel (AStringGrid: TStringGrid). ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ Π΄Π°Π½Π½ΡΡ Π² Excel. ΠΠ»Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡ ΡΡΡΠ»ΠΊΡ Π½Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠΈΠΏΠ° TStringGrid, Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π΄Π°Π½Π½ΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄ΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Ρ ΡΡΠ΅ΠΉΠΊΠΈ Π² Excel. Π ΠΈΡΡΠ½ΠΎΠΊ, ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΠΌΡΠΉ Π² ΠΎΡΡΠ΅Ρ, ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ ΡΠ΅ΠΊΡΡΠΈΠΌ Π²ΠΈΠ΄ΠΎΠΌ Π³ΡΠ°ΡΠΈΠΊΠ°.
2. Procedure TFormMain. ReportWord (AStringGrid:TStringGrid). ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΠΎΡΡΠ΅Ρ, ΠΏΡΠΈΠ½ΡΡΡΠΉ Π² Word.
3. Procedure TFormMain. PresentationClick (Sender: TObject). ΠΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΏΡΠ΅Π·Π΅Π½ΡΠ°ΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π² ΡΠ΅ΠΊΠ»Π°ΠΌΠ½ΡΡ ΠΈ ΡΡΠ΅Π±Π½ΡΡ ΡΠ΅Π»ΡΡ .
3. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
ΠΠ»Ρ Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ·Π²Π°ΡΡ ΡΠ°ΠΉΠ» VremRiad.exe. ΠΡΠΈ ΡΡΠΎΠΌ, Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π·Π°ΡΡΠ°Π²ΠΊΠ°, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½Π°Ρ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.1.
Π ΠΈΡΡΠ½ΠΎΠΊ 3.1 — ΠΠ°ΡΡΠ°Π²ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π·Π°ΡΡΠ°Π²ΠΊΠ° ΡΠ΅ΡΠ΅Π· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΠ½Π΄ ΠΈΡΡΠ΅Π·Π½Π΅Ρ, ΠΏΠΎΡΠ²ΠΈΡΡΡ Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠΌ. ΡΠΈΡΡΠ½ΠΎΠΊ 3.2).
Π ΠΈΡΡΠ½ΠΎΠΊ 3.2 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ°ΠΊ Π²ΠΈΠ΄Π½ΠΎ, Π΄Π°Π½Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΠ°ΡΡΠ΅ΠΉ:
Β· ΠΠ»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ;
Β· ΠΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ²;
Β· ΠΠ±Π»Π°ΡΡΠΈ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ ;
Β· ΠΠ±Π»Π°ΡΡΠΈ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ;
Β· Π£ΠΏΡΠ°Π²Π»ΡΡΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ.
ΠΡΠ½ΠΊΡΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.3.
Π ΠΈΡΡΠ½ΠΎΠΊ 3.3 — ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Π ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΏΡΠ½ΠΊΡΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΡΠ΄ ΠΏΠΎΠ΄ΠΏΡΠ½ΠΊΡΠΎΠ², ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.4.
Π ΠΈΡΡΠ½ΠΎΠΊ 3.4 — ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π€Π°ΠΉΠ»»
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° «ΠΡΡ ΠΎΠ΄» ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΡΡΠΈΡΠ»ΠΈΡΡ» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ ΠΏΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΌ w ΠΈ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠ»ΠΈ w Π½Π΅ Π·Π°Π΄Π°Π½ΠΎ, Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅ (ΡΠΈΡΡΠ½ΠΎΠΊ 3.5).
Π ΠΈΡΡΠ½ΠΎΠΊ 3.5 — Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅
ΠΡΠ½ΠΊΡΡ «ΠΡΡΠ΅Ρ Π² Word» ΠΈ «ΠΡΡΠ΅Ρ Π² Excel» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΠΏΠΎ ΠΆΠ΅Π»Π°Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠ°ΡΡΠ΅ΡΠΎΠ² Π² Π²ΠΈΠ΄Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° Π² ΡΡΠΈΠ»Π΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Ms Word ΠΈΠ»ΠΈ Π² ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΌ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ΅ MS Excel ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²Π΅Π½Π½ΠΎ.
ΠΠ° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.6 ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ, Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΡΠ΅ ΠΏΡΠ½ΠΊΡΠΎΠΌ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ «ΠΠΎΠΌΠΎΡΡ».
Π ΠΈΡΡΠ½ΠΎΠΊ 3.6 — ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΠΎΠΌΠΎΡΡ»
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΡΠ΅Π·Π΅Π½ΡΠ°ΡΠΈΡ» Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠΌΠΎΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ Power Point.
ΠΡΠ±ΠΎΡ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΊΠ°» ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΎΠΊΠ½Π° ΠΏΠΎΠΌΠΎΡΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΌ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ (ΡΠΌ. ΡΠΈΡΡΠ½ΠΎΠΊ 3.7)
Π ΠΈΡΡΠ½ΠΎΠΊ 3.7 — ΠΠΊΠ½ΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ
ΠΡΠ±ΠΎΡ ΠΏΡΠ½ΠΊΡΠ° Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅» ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΊΡΠ°ΡΠΊΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π² Π²ΠΈΠ΄Π΅, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΠΎΠΌ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.8.
Π ΠΈΡΡΠ½ΠΎΠΊ 3.8 — ΠΠΊΠ½ΠΎ «About»
ΠΡΠΎΠΌΠ΅ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΏΡΠ°Π²Π»ΡΠ΅ΡΡΡ ΡΠ°ΠΊΠΆΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΡΠ±Π»ΠΈΡΡΠ΅Ρ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΠ΅ ΠΏΡΠ½ΠΊΡΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ ΠΈ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ Π΄Π»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄:
Π ΠΈΡΡΠ½ΠΎΠΊ 3.9 — ΠΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ²
Π’Π°ΠΊΠΆΠ΅ ΠΈΠΌΠ΅Π΅ΡΡΡ ΡΠ΅ΡΡΡΠ΅ ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΠΏΠΎΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 3.10.
Π ΠΈΡΡΠ½ΠΎΠΊ 3.10 — Π£ΠΏΡΠ°Π²Π»ΡΡΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ
ΠΠ½ΠΎΠΏΠΊΠ° «ΠΡΡΠΈΡΠ»ΠΈΡΡ» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠ°ΡΡΠ΅Ρ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΠ½ΠΎΠΏΠΊΠ° «ΠΡΠ°ΡΠΈΠΊ» ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΠΊΠ½Π° Ρ Π³ΡΠ°ΡΠΈΠΊΠΎΠΌ, Ρ. Π΅. ΠΈΠΌΠ΅Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ ΠΏΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ w. ΠΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΌΠ°ΡΠΈΠ²Π°ΡΡ ΡΡΠ°Π·Ρ ΠΊΠ°ΠΊ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π³ΡΠ°ΡΠΈΠΊΠΎΠ² (ΡΠΈΡΡΠ½ΠΎΠΊ 3.11), ΡΠ°ΠΊ ΠΈ ΠΎΠ΄ΠΈΠ½ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ w (ΡΠΈΡΡΠ½ΠΎΠΊ 3.12).
Π ΠΈΡΡΠ½ΠΎΠΊ 3.11 — ΠΡΠ°ΡΠΈΠΊ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ ΠΏΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ w=3
Π ΠΈΡΡΠ½ΠΎΠΊ 3.12 — ΠΡΠ°ΡΠΈΠΊ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄ ΠΏΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ w=3 ΠΈ w=1
ΠΠ½ΠΎΠΏΠΊΠ° «ΠΡΠΈΡΡΠΈΡΡ» ΠΎΡΠΈΡΠ°Π΅Ρ ΠΎΠ±Π»Π°ΡΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠΎΠ². ΠΠ»Ρ Π·Π°ΠΊΡΡΡΠΈΡ ΠΎΠΊΠ½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°ΠΊΡΡΡΡ».
ΠΠ»Ρ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΡ ΠΎΠ΄».
4. ΠΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
Π¦Π΅Π»ΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠ°Π±ΠΎΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΠΈ (Π½Π°Π΄Π΅ΠΆΠ½ΠΎΡΡΠΈ) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ»ΠΎΠ²ΠΈΡΡ Π΅Π΅ ΡΡΠ½ΠΊΡΠΈΠΎΠ½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎΡΡΡ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ (ΠΏΡΡΠ΅ΠΌ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΠΎΠΊ ΠΈ ΠΈΠ½ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎ Π²ΠΎΠ·Π½ΠΈΠΊΡΠΈΡ Π½Π΅ΡΠΎΡΠ½ΠΎΡΡΡΡ Π² ΡΠ°Π±ΠΎΡΠ΅), Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π½Π΅ΠΏΡΠΎΡΠΈΠ²ΠΎΡΠ΅ΡΠΈΠ²ΠΎΠ³ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°.
ΠΠ»Ρ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΈ ΡΠ°Π±ΠΎΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΠΈ ΡΡΠ΄ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ. ΠΠ»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ DLL, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Word, Excel, PowerPoint.
ΠΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ COM-ΡΠ΅ΡΠ²Π΅ΡΠ°, ΠΎΠ½ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΡΠ΅Π³ΠΈΡΡΡΠΈΡΠΎΠ²Π°Π½ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅. Π’Π΅ΡΡΠΎΠ²ΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ»ΠΈΡΡ Π² ΡΡΠ΅Π΄Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Windows XP Profesional ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ° Intel Pentium 4 2.4 GHz ΠΈ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΡΠΊΡΠ°Π½Π° 1024*768. ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°ΠΊΠΆΠ΅ Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΎΡΠ° ΡΠΈΠΏΠ° «ΠΌΡΡΡ».
ΠΡΠΏΡΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ²Π΅Π΄Π΅ΠΌ Ρ Π½Π°ΡΠ°Π»ΡΠ½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ, ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌΠΈ Π² Π·Π°Π΄Π°Π½ΠΈΠΈ.
ΠΠ°ΡΠ°Π»ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: ΠΏΡΠΈ w=3
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΡΠΎΠ³ΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ° ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ°Ρ 4.1, 4.2.
Π ΠΈΡΡΠ½ΠΎΠΊ 4.1 -Π’Π΅ΡΡΠΎΠ²Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° № 1
Π ΠΈΡΡΠ½ΠΎΠΊ 4.2 — Π’Π΅ΡΡΠΎΠ²ΡΠΉ Π³ΡΠ°ΡΠΈΠΊ № 1
ΠΡΠ»ΠΈ w Π½Π΅ Π²ΡΠ±ΡΠ°Π½ΠΎ, Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅ (ΡΠΈΡΡΠ½ΠΎΠΊ 3.5).
ΠΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΈ Π΄ΡΡΠ³ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ³ΠΎ COM-ΠΎΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠ°ΡΠ°Π»ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: ΠΏΡΠΈ w=5
ΠΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ
Π ΠΈΡΡΠ½ΠΎΠΊ 4.3 — Π’Π΅ΡΡΠΎΠ²ΡΠΉ Π³ΡΠ°ΡΠΈΠΊ № 2
Π ΠΈΡΡΠ½ΠΎΠΊ 4.4 — Π’Π΅ΡΡΠΎΠ²Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ° № 2
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ Π²ΡΡΠ²ΠΈΠ»ΠΎ ΡΠ±ΠΎΠΉΠ½ΡΡ ΡΠΈΡΡΠ°ΡΠΈΠΉ ΠΈ Π½Π΅ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎΡΡΠ΅ΠΉ Π² Π΅Π΅ ΡΠ°Π±ΠΎΡΠ΅. Π‘Π»Π΅Π΄ΡΠ΅Ρ ΡΡΠΈΡΠ°ΡΡ, ΡΡΠΎ Π² ΡΠ΅Π»ΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠΎΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½Π°, ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΌ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌ ΠΈ Π²ΠΏΠΎΠ»Π½Π΅ ΡΠ°Π±ΠΎΡΠΎΡΠΏΠΎΡΠΎΠ±Π½Π°.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ:
Β· Π±ΡΠ»ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½Ρ Π·Π½Π°Π½ΠΈΡ ΠΏΠΎ ΠΊΡΡΡΡ «ΠΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ»;
Β· ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½ ΠΎΠΏΡΡ ΠΏΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ;
Β· ΠΈΠ·ΡΡΠ΅Π½Ρ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ;
Β· ΠΈΠ·ΡΡΠ΅Π½Ρ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ ΡΠΏΠΎΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠ»ΠΈΠ΅Π½Ρ-ΡΠ΅ΡΠ²Π΅ΡΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π½Π° Π±Π°Π·Π΅ COM-ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ;
Β· ΠΎΡΠ²ΠΎΠ΅Π½Ρ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ Π΄Π°Π½Π½ΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΠΌΠΈ;
Β· ΠΈΠ·ΡΡΠ΅Π½Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Π²ΡΡΠΎΠΊΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΎΡΠΌΠ°ΡΠΎΠ².
ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΡΠΉ ΠΏΡΠΈΠ½ΡΠΈΠΏ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π’Π°ΠΊΠ°Ρ ΡΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π² Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°ΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ Π΅Ρ ΡΠ°ΡΡΠΈ Π±Π΅Π· Π½Π°ΡΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΠΎΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΠΈ ΠΈ ΠΏΠΎΡΠ΅ΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΡΠ½ΡΠΉ ΠΈ ΠΏΠΎΠ½ΡΡΡΠΉ Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎ Π² ΡΠ°Π±ΠΎΡΠ΅ ΠΈ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΉ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Ρ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΠΌΠΈ Π·Π°ΡΡΠ°ΡΠ°ΠΌΠΈ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠ΅ Π² Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½Π½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠΌ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° Π΄Π»Ρ ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°Π·Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π² ΡΡΠΈΠ³ΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΡΠ΄.
1. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi 6. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ.-Π.: ΠΠ·Π΄Π°ΡΠ΅Π»Ρ ΠΠΎΠ»Π³Π°ΡΠ΅Π²Π° Π‘. Π., 2001.-672Ρ.
2. ΠΠ»ΠΌΠ°ΠΊΠΎΠ²Π° Π., Π’ΡΠ΅ΠΏΠ°Π»ΠΈΠ½ Π‘., Π’Π΅Π½ΡΠ΅Ρ Π. Delphi 6 ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ COM.-Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2002. — 640 Ρ.
3. Π€Π΅Π΄ΠΎΡΠΎΠ² Π. Delphi 5.0 Π΄Π»Ρ Π²ΡΠ΅Ρ . -Π.: Π’ΠΎΠΎ ΡΠΈΡΠΌΠ° «ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠΡΠ΅ΡΡ», 1998. — 464 Ρ.
4. ΠΠ°ΡΠΊΠΎ ΠΡΠ½ΡΡ. Delphi 5 Π΄Π»Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΠΎΠ².-Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ. 2001. — 944 Ρ.
5. ΠΠΎΠ±ΡΠΎΠ²ΡΠΊΠΈΠΉ Π‘. Delphi 5: ΡΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡΠ‘ΠΠ±: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΈΡΠ΅Ρ», 2000. 640Ρ.
6. Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ², Π. Π. ΠΠΏΠ°Π½Π΅ΡΠ½ΠΈΠΊΠΎΠ² ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Delphi.-Π.:"ΠΠΈΠ°Π»ΠΎΠ³ ΠΠΠ€Π", 1998.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
Π€Π°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° VremRiad. dpr
program VremRiad;
uses
Forms, Windows, Classes, Dialogs, SysUtils,
UnitMain in 'UnitMain.pas' {Form1},
UnitRiad in 'UnitRiad.pas',
UComRiad in 'UComRiad.pas',
UCom_Tlb in 'UCom_Tlb.pas',
UnitGraphic in 'UnitGraphic.pas' {FormGraphic},
VremRiad_TLB in 'VremRiad_TLB.pas';
{$R *.TLB}
//******************************************
Type
//ΠΡΠΎΡΠ΅Π΄ΡΡΠ½ΡΠΉ ΡΠΈΠΏ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ, Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΠΎΠΉ ΠΈΠ· DLL
TProc=procedure (AOwner:TComponent);
Var
Handle: LongWord; //ΠΠ΅ΡΠΊΡΠΈΠΏΡΠΎΡ DLL
ShowPrompt: tproc; //ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π»Ρ ΡΡΠ½ΠΊΡΠΈΠΈ
//*******************************************
{$R *.res}
begin
Application.Initialize;
//ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΈΠΊΠΎΠ½ΠΊΠΈ
Application.Icon.LoadFromFile ('Prompt.ico');
//*****ΠΠ°Π³ΡΡΠ·ΠΊΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΈ ΠΏΠΎΠΊΠ°Π· Π·Π°ΡΡΠ°Π²ΠΊΠΈ******//
Handle:= LoadLibrary ('Prompt.dll');
if Handle <> 0 then
begin
//ΠΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈΠ· Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
@ShowPrompt:= GetProcAddress (Handle, PChar ('ShowPrompt'));
ShowPrompt (Application); //ΠΠΎΠΊΠ°Π·Π°ΡΡ Π·Π°ΡΡΠ°Π²ΠΊΡ
FreeLibrary (Handle); //Π£Π΄Π°Π»ΠΈΡΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΡ
end
else ShowMessage ('ΠΠ΅ Π½Π°ΠΉΠ΄Π΅Π½Π° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° Prompt. dll');
//***********************************************//
Application.CreateForm (TForm1, Form1);
Application.CreateForm (TFormGraphic, FormGraphic);
Application.Run;
end.
Π€Π°ΠΉΠ» Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ UnitMain. pas
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ToolWin, ComCtrls, XPMan, ImgList, Grids,
IniFiles, Clipbrd, WordXP, Math, ShellAPI, ExtCtrls, msppt8,
UCom_Tlb, ComObj, MSPpt2000, PowerPointXP, Activex, OleServer,
Buttons;
type
TForm1 = class (TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
RadioGroup1: TRadioGroup;
BitBtn1: TBitBtn;
Panel3: TPanel;
BitBtn2: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
BitBtn3: TBitBtn;
N7: TMenuItem;
StringGrid1: TStringGrid;
Label9: TLabel;
Label10: TLabel;
BitBtn4: TBitBtn;
PowerPointApplication1: TPowerPointApplication;
Presentation: TSpeedButton;
N8: TMenuItem;
Word1: TSpeedButton;
Excel1: TSpeedButton;
N9: TMenuItem;
EXcel2: TMenuItem;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure BitBtn3Click (Sender: TObject);
procedure FormActivate (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn4Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure PresentationClick (Sender: TObject);
procedure Word1Click (Sender: TObject);
procedure Excel1Click (Sender: TObject);
procedure SpeedButton2Click (Sender: TObject);
// Procedure TFormMain. PresentationClick (Sender: TObject);
private
{ Private declarations }
public
IniFileName: string; //ΠΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ
procedure ReportExcel (AStringGrid: TStringGrid); //ΠΠ΅ΡΠ΅Π΄Π°ΡΡ ΠΎΡΡΠ΅Ρ Π² Excel
procedure ReportWord (AStringGrid: TStringGrid); //ΠΠ΅ΡΠ΅Π΄Π°ΡΡ ΠΎΡΡΠ΅Ρ Π² Word
{ Public declarations }
end;
var
Form1: TForm1;
Flag: bool; //Π€Π»Π°Π³ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π²ΠΈΠ΄Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ°
const x=1;
const P=500;
implementation
uses UnitRiad, UnitGraphic;
{$R *.dfm}
procedure TForm1. BitBtn3Click (Sender: TObject);
begin
Close;
end;
procedure TForm1. FormActivate (Sender: TObject);
var i: integer;
begin
//ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠ°Π±ΠΎΡΡ Ρ ΠΎΠ±ΡΡΠ½ΡΠΌ (ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΌ) ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ
Flag:= false;
//ΠΠΌΡ Ini-ΡΠ°ΠΉΠ»Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²
IniFileName:= GetCurrentDir+'Riad.ini';
//Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΎΠ±ΡΡΠ½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ
Riad:= TRiad. Create (IniFileName);
//Π‘ΡΠΈΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
Riad.ReadFromIniFile;
//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈ Π²ΡΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ
Riad.Table (StringGrid1);
StringGrid1.Cells[0,0]: ='ΠΠΎΠΌΠ΅Ρ' ;
StringGrid1.Cells[1,0]: ='ΠΡΠ΅ΠΌΡ (Ρ)';
StringGrid1.Cells[2,0]: ='F{t} ΠΏΡΠΈ w=1';
StringGrid1.Cells[3,0]: ='F{t} ΠΏΡΠΈ w=3';
StringGrid1.Cells[4,0]: ='F{t} ΠΏΡΠΈ w=5';
for i:=1 to 201 do
StringGrid1.Cells[0,i]: =IntToStr (i) ;
for i:=0 to 201 do
begin
StringGrid1.Cells[1,i+1]: =FloatToStr (0.5*i)
end;
label10.Caption:='';
end;
procedure TForm1. BitBtn1Click (Sender: TObject);
var i: integer;
begin
Riad.SetW ();
//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈ Π²ΡΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ
Riad.Table (StringGrid1);
end;
procedure TForm1. BitBtn4Click (Sender: TObject);
var i: integer;
begin
for i:=0 to 201 do
begin
StringGrid1.Cells[2,i+1]: ='';
StringGrid1.Cells[3,i+1]: ='';
StringGrid1.Cells[4,i+1]: ='';
end;
end;
procedure TForm1. BitBtn2Click (Sender: TObject);
begin
FormGraphic.Show;
end;
procedure TForm1. N4Click (Sender: TObject);
Type
//ΠΡΠΎΡΠ΅Π΄ΡΡΠ½ΡΠΉ ΡΠΈΠΏ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ· DLL
TProc = procedure (AOwner:TComponent);
var
Handle: LongInt; //ΠΠ΅ΡΠΊΡΠΈΠΏΡΠΎΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
ShowAbout: TProc; //ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π°Ρ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈΠ· DLLbegin
begin
//ΠΠΎΠ»ΡΡΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π΅ΡΠΊΡΠΈΠΏΡΠΎΡΠ° Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
Handle:=LoadLibrary ('About.dll');
//ΠΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠ΅ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
if Handle = 0 then
begin
ShowMessage ('ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°: About. dll');
exit;
end;
//ΠΠΎΠ»ΡΡΠΈΡΡ Π°Π΄ΡΠ΅Ρ Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ
@ShowAbout:= GetProcAddress (Handle, PChar ('ShowAbout'));
//ΠΡΠ·ΠΎΠ² ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡ About
ShowAbout (Application);
FreeLibrary (Handle); //ΠΡΠ³ΡΡΠ·ΠΊΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
end;
procedure TForm1. PresentationClick (Sender: TObject);
var
name: string;
pw: TOleEnum;
begin
//ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠ΅Π·Π΅ΡΠ°ΡΠΈΠΈ
Name:= ExtractFileDir (Application.ExeName) + 'Vremennoj process. ppsx';
PowerPointApplication1.Activate;
PowerPointApplication1.Presentations.Open (Name, pw, pw, pw);
PowerPointApplication1.Presentations.Item (1).SlideShowSettings.Run;
//ΠΡΡΠ³ΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± Π·Π°ΠΏΡΡΠΊΠ°
// ShellExecute (Application.MainForm.Handle, PChar ('Open'),
// PChar ('Riad.pps'), NIL, PChar (''), sw_ShowNormal);
end;//TFormMain.PresentationClick
procedure TForm1. Word1Click (Sender: TObject);
begin //ΠΡΡΠ΅Ρ Π² Word
ReportWord (StringGrid1);
end;//TFormMain.Word1Click
Procedure TForm1. ReportExcel (AStringGrid: TStringGrid);
//ΠΡΡΠ΅Ρ Π² Excel
var
Excel: variant;
WorkBook: variant; //Π Π°Π±ΠΎΡΠ°Ρ ΠΊΠ½ΠΈΠ³Π°
i, j: integer;
begin
//CΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π³ΡΠ°ΡΠΈΠΊΠ°
FormGraphic:= TFormGraphic. Create (Form1);
//Π‘ΠΎΠ·Π΄Π°ΡΡ Π‘ΠΎm-ΠΎΠ±ΡΠ΅ΠΊΡ
Excel:= CreateOleObject ('Excel.Application');
//ΠΡΠΊΠ»ΡΡΠΈΡΡ ΡΠ΅Π°ΠΊΡΠΈΡ Π½Π° Π²Π½Π΅ΡΠ½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΡ-Π΄Π»Ρ ΡΡΠΊΠΎΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ Π΄Π°Π½Π½ΡΡ
Excel.Application.EnableEvents:= false;
//ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ°Π±ΠΎΡΡΡ ΠΊΠ½ΠΈΠ³Ρ
WorkBook:= Excel.WorkBooks.Add;
//ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠΈΡΠΈΠ½Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ²
for j:=0 to AStringGrid. ColCount do
WorkBook.WorkSheets[1]. Columns[j+1].ColumnWidth:= 10;
//ΠΡΠ²ΠΎΠ΄ ΡΡΡΠΎΠΊΠΈ
WorkBook.WorkSheets[1]. Cells[1,1]:= 'ΠΡΡΠ΅Ρ ΠΎ ΠΊΠΎΠ»Π΅Π±Π°Π½ΠΈΡΡ ΡΡΠ΅ΡΠΆΠ½Ρ';
//ΠΠ°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΡΠ΅Π΅ΠΊ ΡΠ°Π±Π»ΠΈΡΡ Excel Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ ΠΈΠ· StringGrid
//ΠΡΠΌΠ΅ΡΠ°ΡΠΈΡ ΡΡΠ΅Π΅ΠΊ Π² Excel Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 1 ΠΈ ΠΈΠ΄Π΅Ρ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ ΡΡΡΠΎΠΊΠ°-ΡΡΠΎΠ»Π±Π΅Ρ
for i:= 1 to AStringGrid. RowCount + 1 do
for j:= 0 to AStringGrid. ColCount do
WorkBook.WorkSheets[1]. Cells[i+1, j+1]: = AStringGrid. Cells[j, i-1];
//ΠΡΡΠ°Π²ΠΈΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ° Π² Excel
WorkBook.WorkSheets[1]. Shapes. AddPicture (GetCurrentDir+'PictureWord.bmp',
True, True, 0, (AStringGrid.RowCount+2)*12.5+10, FormGraphic. Chart1.Width*0.8,
FormGraphic.Chart1.Height*0.8);
//Π£Π½ΠΈΡΡΠΎΠΆΠΈΡΡ ΡΠΎΡΠΌΡ
FormGraphic.Release;
FormGraphic:= NIL;
//ΠΠΎΠΊΠ°Π·Π°ΡΡ Excel
Excel.Visible:=true;
end;//TFormMain.ReportExcel
Procedure TForm1. ReportWord (AStringGrid: TStringGrid);
//ΠΡΡΠ΅Ρ Π² Word
var
i, j, k: integer;
a, b, c: OleVariant;
wa: TWordApplication; //WordApplication
wd: TWordDocument; //WordDocument
begin
//Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π³ΡΠ°ΡΠΈΠΊΠ°
FormGraphic:= TFormGraphic. Create (Form1);
//Π‘ΠΎΠ·Π΄Π°ΡΡ com-ΠΎΠ±ΡΠ΅ΠΊΡ
wa:= TWordApplication. Create (Form1);
//ΠΠΎΠ΄ΠΊΠ»ΡΡΠΈΡΡΡΡ ΠΊ ΡΠ΅ΡΠ²Π΅ΡΡ Word
wa.Connect;
//ΠΠΎΠ±Π°Π²ΠΈΡΡ Π½ΠΎΠ²ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ
wa.Documents.Add (EmptyParam, EmptyParam, EmptyParam, EmptyParam);
wd:= TWordDocument. Create (Form1);
wd.ConnectTo (wa.ActiveDocument);
//ΠΡΠΌΠ΅Π½ΠΈΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ ΠΏΡΠ°Π²ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ
wa.Options.CheckSpellingAsYouType:=False;
//ΠΡΠΌΠ΅Π½ΠΈΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΠΈ
wa.Options.CheckGrammarAsYouType:=False;
a:= 0;
b:= 0;
wd.Range.InsertAfter ('ΠΡΡΠ΅Ρ');
c:= Length (wd.Range.Text) — 1;
a:= c;
b:= c + 10;
//ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ
wd.Tables.Add (wd.Range (a), AStringGrid. RowCount,
AStringGrid.ColCount, EmptyParam, EmptyParam);
k:= 1;
//ΠΠ΅ΡΠ΅Π½Π΅ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· StringGrid Π² ΡΠ°Π±Π»ΠΈΡΡ
for i:= 1 to AStringGrid. RowCount do
for j:= 1 to AStringGrid. ColCount do
wd.Tables.Item (k).Cell (i, j).Range.Text:= AStringGrid. Cells[j-1, i-1];
//ΠΠ°Π³ΡΡΠ·ΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π² Image
FormGraphic.Image1.Picture.LoadFromFile ('PictureWord.bmp');
//ΠΠΎΠΌΠ΅ΡΡΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
Clipboard.Assign (FormGraphic.Image1.Picture);
c:= Length (wd.Range.Text) — 1;
a:= c;
//ΠΡΡΠ°Π²ΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π°
wa.Selection.Paste;
//ΠΠΎΠΊΠ°Π·Π°ΡΡ Word
wa.Visible:= true;
//Π£Π½ΠΈΡΡΠΎΠΆΠΈΡΡ ΡΠΎΡΠΌΡ
FormGraphic.Release;
FormGraphic:= NIL;
end;//TFormMain.ReportWord
procedure TForm1. Excel1Click (Sender: TObject);
begin
ReportExcel (StringGrid1);
end;
procedure TForm1. SpeedButton2Click (Sender: TObject);
begin
WinExec ('hh.exe 1. chm', SW_SHOW);
end;
end.
Π€Π°ΠΉΠ» Π²ΡΠ²ΠΎΠ΄Π° Π³ΡΠ°ΡΠΈΠΊΠ° UnitGraphic. pas
unit UnitGraphic;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart, XPMan,
TeeFunci, Buttons;
type
TFormGraphic = class (TForm)
Chart1: TChart;
Button1: TButton;
XPManifest1: TXPManifest;
Series1: TLineSeries;
Series2: TLineSeries;
TeeFunction1: TAddTeeFunction;
Series3: TLineSeries;
Image1: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure Button1Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure BitBtn3Click (Sender: TObject);
procedure BitBtn4Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormGraphic: TFormGraphic;
implementation
uses UnitRiad;
{$R *.dfm}
procedure TFormGraphic. Button1Click (Sender: TObject);
begin
Chart1.Series[0]. Clear;
Chart1.Series[1].Clear;
Chart1.Series[2].Clear;
Close;
end;//TFormGraphic.Button1Click
procedure TFormGraphic. BitBtn1Click (Sender: TObject);
begin
Riad.Graphic1(FormGraphic.Chart1);
end;
procedure TFormGraphic. BitBtn2Click (Sender: TObject);
begin
Riad.Graphic2(FormGraphic.Chart1);
end;
procedure TFormGraphic. BitBtn3Click (Sender: TObject);
begin
Riad.Graphic3(FormGraphic.Chart1);
end;
procedure TFormGraphic. BitBtn4Click (Sender: TObject);
begin
Chart1.Series[0]. Clear;
Chart1.Series[1].Clear;
Chart1.Series[2].Clear;
end;
end.
end.
Π€Π°ΠΉΠ» ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΊΠ»Π°ΡΡΠ° — UnitRiad. pas
unit UnitRiad;
interface
uses Chart, Series, Math, Grids, SysUtils, Types, Graphics, IniFiles, Messages, Dialogs, StdCtrls, Variants, Classes, Controls, Forms,
ExtCtrls, Buttons, Menus;
Type
TRiad = class //ΠΊΠ»Π°ΡΡ
private
IniFile: TIniFile; //ΠΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
w: integer;
public
Constructor Create (AIniFileName: string);
Destructor Destroy;
procedure Graphic1(AChart:TChart); //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Graphic2(AChart:TChart); //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Graphic3(AChart:TChart); //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Table (AStringGrid:TStringGrid); //ΠΡΠ²ΠΎΠ΄ Π² ΡΠ°Π±Π»ΠΈΡΡ
procedure WriteToIniFile; //ΠΠ°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
procedure ReadFromIniFile; //Π§ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
function GetW: integer; //ΠΠΎΠ»ΡΡΠΈΡΡ w
procedure SetW; //Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ w
function F (w:integer;t:extended):extended;//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ
//property ww: integer read GetW write SetW;
private
end;
var
Riad: TRiad; //ΠΠ±ΡΠ΅ΠΊΡ
implementation
uses UnitMain, UnitGraphic;
const P=500;
const x=1;
const TimeStart=0; //ΠΡΠ΅ΠΌΡ Π½Π°ΡΠ°Π»Π° ΠΎΡΡΡΠ΅ΡΠ°
const TimeEnd=100; //ΠΡΠ΅ΠΌΡ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΠΎΡΡΡΠ΅ΡΠ°
const TimeStep=0.5; //Π¨Π°Π³ Π΄ΠΈΡΠΊΡΠ΅ΡΠΈΠ·Π°ΡΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ
Constructor TRiad. Create (AIniFileName: string);
begin
//Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
IniFile:= TIniFile. Create (AIniFileName);
end;//TRiad.Create
Destructor TRiad. Destroy;
begin
//Π£Π΄Π°Π»ΠΈΡΡ ΠΈΠ· Heap ΠΎΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
if Assigned (IniFile) then
begin
IniFile.Free;
IniFile:= NIL;
end;
end;//TRiad.Create
procedure TRiad. Graphic1(AChart: TChart);
//ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
var
time: extended;
Y: extended;
begin
Time:= TimeStart;
AChart.Series[0]. Clear; //ΠΡΠΈΡΡΠΈΡΡ Series[0]
AChart.BottomAxis.Increment:= Floor ((TimeEnd — TimeStart) / 5);
//ΠΠ°Π½Π΅ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Series
while (time <= TimeEnd) do
begin
Y:= F (1,time);
AChart.Series[0]. AddXY (time, Y);
time:= time + TimeStep / 4;
end;
end;//TRiad.Graphic1
procedure TRiad. Graphic2(AChart: TChart);
//ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
var
time: extended;
Y: extended;
begin
Time:= TimeStart;
AChart.Series[1]. Clear; //ΠΡΠΈΡΡΠΈΡΡ Series[0]
AChart.BottomAxis.Increment:= Floor ((TimeEndTimeStart) / 5);
//ΠΠ°Π½Π΅ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Series
while (time <= TimeEnd) do
begin
Y:= F (3,time);
AChart.Series[1]. AddXY (time, Y);
time:= time + TimeStep / 4;
end;
end;//TRiad.Graphic2
procedure TRiad. Graphic3(AChart: TChart);
//ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
var
time: extended;
Y: extended;
begin
Time:= TimeStart;
AChart.Series[2]. Clear; //ΠΡΠΈΡΡΠΈΡΡ Series[0]
AChart.BottomAxis.Increment:= Floor ((TimeEnd — TimeStart) / 5);
//ΠΠ°Π½Π΅ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Series
while (time <= TimeEnd) do
begin
Y:= F (5,time);
AChart.Series[2]. AddXY (time, Y);
time:= time + TimeStep / 4;
end;
end;//TRiad.Graphic3
function TRiad. F (w: integer;t: extended): extended;
//Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ
var
j:integer;
begin
F:=(2*P/x)*(sin (w*t)-½*sin (2*w*t)+1/3*sin (3*w*t)-¼*sin (4*w*t))
end;//TRiad.F
procedure TRiad. Table (AStringGrid: TStringGrid);
//ΠΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² ΡΠ°Π±Π»ΠΈΡΡ
var
k: integer;
time: extended;
y: extended;
begin
k:= 0;
time:= TimeStart;
if w=1 then
while (time <= TimeEnd) do
begin
inc (k);
y:= F (w, time);
Form1.StringGrid1.Cells[2,k]: = FloatToStrF (y, ffFixed, 5, 3);
time:= time + TimeStep;
end
else if w=3 then
while (time <= TimeEnd) do
begin
inc (k);
y:= F (w, time);
Form1.StringGrid1.Cells[3,k]: = FloatToStrF (y, ffFixed, 5, 3);
time:= time + TimeStep;
end
else if w=5 then
while (time <= TimeEnd) do
begin
inc (k);
y:= F (w, time);
Form1.StringGrid1.Cells[4,k]: = FloatToStrF (y, ffFixed, 5, 3);
time:= time + TimeStep;
end ;
end;//TRiad.Table
procedure TRiad. WriteToIniFile;
//Π·Π°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
begin
IniFile.WriteInteger ('Parameters', 'W', W);
IniFile.UpdateFile;//ΠΎΡΠΈΡΡΠΊΠ° Π±ΡΡΠ΅ΡΠ° ΠΈ Π·Π°ΠΏΠΈΡΡ ΡΠ°ΠΉΠ»Π° Π½Π° Π΄ΠΈΡΠΊ
end;//TRiad.WriteToIniFile
procedure TRiad. ReadFromIniFile;
//ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
begin
W:= IniFile. ReadInteger ('Parameters', 'W', w);
end;//TRiad.ReadFromIniFile
function TRiad. GetW :integer;
begin
result:= W;
end;//TRiad.GetW
procedure TRiad. SetW;
begin
if Form1. RadioGroup1.ItemIndex=-1 then
MessageDlg (Pchar ('ΠΠ΅ Π²ΡΠ±ΡΠ°Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ w!!!'), mtError,[mbOk], 0);
if Form1. RadioGroup1.ItemIndex =0 then
begin
Form1.Label10.Caption:='1';
w:=1;
end
else if Form1. RadioGroup1.ItemIndex =1 then
begin
Form1.label10.Caption:='3';
w:=3;
end
else
begin
Form1.label10.Caption:='5';
w:=5;
end ;
end;//TRiad.SetW
end.
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ About. dpr
library About;
{ Important note about DLL memory management: ShareMem must be the first unit in your library’s USES clause AND your project’s (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL—even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM. DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM. DLL, pass string information using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
Forms,
UnitAbout in 'UnitAbout.pas' {FormAbout};
{$R *.res}
//ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ
procedure ShowAbout (AOwner:TComponent);
var
Form:TFormAbout;
begin
Form:=TFormAbout.Create (AOwner); //ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ
Form.ShowModal; //ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ
Form.Free; //ΡΠ½ΠΈΡΡΠΎΠΆΠΈΡΡ ΡΠΎΡΠΌΡ
end;
exports ShowAbout;
begin
end.
unit UnitAbout;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, Buttons;
type
TFormAbout = class (TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
BitBtn1: TBitBtn;
Label5: TLabel;
XPManifest1: TXPManifest;
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *.dfm}
procedure TFormAbout. BitBtn1Click (Sender: TObject);
begin
Close;
end;
end.
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Prompt. dpr
library Prompt;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library’s USES clause AND your project’s (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL—even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM. DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM. DLL, pass string information
using PChar or ShortString parameters. }
uses
SysUtils,
Classes,
Windows,
UnitPrompt in 'UnitPrompt.pas' {FormPrompt};
{$R *.res}
//ΠΠΎΠΊΠ°Π·Π°ΡΡ Π·Π°ΡΡΠ°Π²ΠΊΡ
procedure ShowPrompt (AOwner:TComponent);
var
Time:extended;
Form:TFormPrompt;
begin
Form:=TFormPrompt.Create (AOwner); //Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ
Time:=GetTickCount/1000; //ΠΠ°ΠΏΠΎΠΌΠ½ΠΈΡΡ Π²ΡΠ΅ΠΌΡ
Form.Show; //ΠΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ
Form.Repaint; //ΠΠ΅ΡΠ΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΡΠΌΡ
//ΠΠΎΠΊΠ° Π½Π΅ Π²ΡΡΠ΅Π» Π»ΠΈΠΌΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ — Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π΄Π΅Π»Π°ΡΡ
while GetTickCount/1000
SysUtils,
ComServ,
UComRiad in 'UComRiad.pas',
UCom_Tlb in 'UCom_Tlb.pas',
Classes,
MyServer_TLB in 'MyServer_TLB.pas';
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{$R *.TLB}
{$R *.res}
begin
end.
Π€Π°ΠΉΠ» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ COMΠΊΠ»Π°ΡΡΠ° — UComRiad. pas
unit UComRiad;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, ActiveX, Classes, ComObj, Chart, Grids, Math, SysUtils, IniFiles,
UCom_Tlb, ExtCtrls;
type
TRiad = class (TComObject, IComRiad)
protected
IniFile: TIniFile; //ΠΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
w: integer;
public
Procedure Create (AIniFileName: string); stdcall;
Destructor Destroy;
procedure Graphic (AChart:TChart); stdcall; //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Table (AStringGrid:TStringGrid); stdcall; //ΠΡΠ²ΠΎΠ΄ Π² ΡΠ°Π±Π»ΠΈΡΡ
procedure WriteToIniFile; stdcall; //ΠΠ°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
procedure ReadFromIniFile; stdcall; //Π§ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
function GetW: integer; stdcall; //ΠΠΎΠ»ΡΡΠΈΡΡ w
procedure SetW; stdcall; //Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ w
function F (w:integer; t: extended):extended;stdcall;//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ
private
end;
implementation
uses ComServ, Dialogs, Graphics, UnitMain;
const P=500;
const x=1;
const TimeStart=0; //ΠΡΠ΅ΠΌΡ Π½Π°ΡΠ°Π»Π° ΠΎΡΡΡΠ΅ΡΠ°
const TimeEnd=100; //ΠΡΠ΅ΠΌΡ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΠΎΡΡΡΠ΅ΡΠ°
const TimeStep=0.5; //Π¨Π°Π³ Π΄ΠΈΡΠΊΡΠ΅ΡΠΈΠ·Π°ΡΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ
Procedure TRiad. Create (AIniFileName: string);
begin
//Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
IniFile:= TIniFile. Create (AIniFileName);
end;//TRod.Create
Destructor TRiad. Destroy;
begin //ΠΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ
//Π£Π΄Π°Π»ΠΈΡΡ ΠΈΠ· Heap ΠΎΠ±ΡΠ΅ΠΊΡ Ini-ΡΠ°ΠΉΠ»Π°
if Assigned (IniFile) then
begin
IniFile.Free;
IniFile:= NIL;
end;
end;//TRod.Create
procedure TRiad. Graphic (AChart: TChart);
//ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
var
time: extended;
Y1, Y2: extended;
begin
Time:= TimeStart;
AChart.Series[0]. Clear; //ΠΡΠΈΡΡΠΈΡΡ Series[0]
AChart.Series[1]. Clear; //ΠΡΠΈΡΡΠΈΡΡ Series[1]
AChart.BottomAxis.Increment:= Floor ((TimeEnd — TimeStart) / 5);
//ΠΠ°Π½Π΅ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Series
while (time <= TimeEnd) do
begin
Y1:= F (w, time);
Y2:= F (w, time);
AChart.Series[0]. AddXY (time, Y1);
AChart.Series[1]. AddXY (time, Y2);
time:= time + TimeStep / 4;
end;
end;//TRiad.Graphic
function TRiad. F (w: integer;t: extended): extended;
//Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ
var
j:integer;
begin
F:=(2*P/x)*(sin (w*t)-½*sin (2*w*t)+1/3*sin (3*w*t)-¼*sin (4*w*t))
end;//TRiad.F
procedure TRiad. Table (AStringGrid: TStringGrid);
//ΠΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² ΡΠ°Π±Π»ΠΈΡΡ
var
k: integer;
time: extended;
y: extended;
begin
k:= 0;
time:= TimeStart;
while (time <= TimeEnd) do
begin
inc (k);
y:= F (w, time);
Form1.StringGrid1.Cells[2,k]: = FloatToStrF (y, ffFixed, 5, 3);
time:= time + TimeStep;
end;
end;//TRiad.Table
procedure TRiad. WriteToIniFile;
//Π·Π°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
begin
IniFile.WriteInteger ('Parameters', 'W', W);
IniFile.UpdateFile;//ΠΎΡΠΈΡΡΠΊΠ° Π±ΡΡΠ΅ΡΠ° ΠΈ Π·Π°ΠΏΠΈΡΡ ΡΠ°ΠΉΠ»Π° Π½Π° Π΄ΠΈΡΠΊ
end;//TRiad.WriteToIniFile
procedure TRiad. ReadFromIniFile;
//ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
begin
W:= IniFile. ReadInteger ('Parameters', 'W', w);
end;//TRiad.ReadFromIniFile
function TRiad. GetW :integer;
begin
result:= W;
end;//TRiad.GetW
procedure TRiad. SetW;
begin
if Form1. RadioGroup1.ItemIndex=-1 then
MessageDlg (Pchar ('ΠΠ΅ Π²ΡΠ±ΡΠ°Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ w!!!'), mtError,[mbOk], 0);
if Form1. RadioGroup1.ItemIndex =0 then
begin
Form1.Label10.Caption:='1';
w:=1;
end
else if Form1. RadioGroup1.ItemIndex =1 then
begin
Form1.label10.Caption:='3';
w:=3;
end
else
begin
Form1.label10.Caption:='5';
w:=5;
end ;
end;//TRiad.SetW
initialization
TComObjectFactory.Create (ComServer, TRiad, Class_ServerRiad,
'ServerRiad', '', ciMultiInstance, tmApartment);
end.
Π€Π°ΠΉΠ» Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΡΠΈΠΏΠΎΠ² COMΠΊΠ»Π°ΡΡΠ° — Ucom_Tlb.pas
unit UCom_Tlb;
interface
uses Chart, Grids, StdCtrls, ExtCtrls;
const
Class_ServerRiad: TGUID = '{1CB7B26E-5BAF-4BA7−8F17-EA174D7CD750}';
Type
IComRiad = interface
['{1326DD83-DB3E-4054−9572-CFB9EAE3FE95}']
Procedure Create (AIniFileName: string); stdcall;
procedure Graphic (AChart:TChart); stdcall; //ΠΠΎΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
procedure Table (AStringGrid:TStringGrid); stdcall; //ΠΡΠ²ΠΎΠ΄ Π² ΡΠ°Π±Π»ΠΈΡΡ
procedure WriteToIniFile; stdcall; //ΠΠ°ΠΏΠΈΡΡ Π² Ini-ΡΠ°ΠΉΠ»
procedure ReadFromIniFile; stdcall; //Π§ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Ini-ΡΠ°ΠΉΠ»Π°
function Getw: integer; stdcall; //ΠΠΎΠ»ΡΡΠΈΡΡ w
procedure Setw; stdcall; //Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ w
function F (w:integer; t: extended):extended;stdcall;//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ
end;
implementation
end.