ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ, Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ
ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΠ·ΡΠΊΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΎΠ½ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΡΠΌ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π΄Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ². Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ·ΡΠΊΠ° Visual Basic ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π€ΠΎΡΠΌΡ, Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΡΡΠΎ ΡΠ΄ΠΎΠ±Π½ΠΎ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ. ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΠ»Π»ΠΈΠΏΡΠ°, Π²ΡΠ°ΡΠ°ΡΡΠ΅Π³ΠΎΡΡ ΡΠ΅Π»Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ, Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π€Π΅Π΄Π΅ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π°Π³Π΅Π½ΡΡΡΠ²ΠΎ ΠΏΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΡΠ·Π±Π°ΡΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ
ΠΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½Π°Ρ Π·Π°ΠΏΠΈΡΠΊΠ°
ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΏΠΎ ΠΊΡΡΡΡ «Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ»
1. ΠΠ°Π΄Π°Π½ΠΈΠ΅
2. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ°
2.1 Π£ΡΠΎΡΠ½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠΈ Π·Π°Π΄Π°ΡΠΈ
2.2 ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅ΡΡΠ°
2.3 Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠΈΠΏΡ, Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠ»Π°ΡΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ)
2.4 Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΡΠ²ΠΎΠΉΡΡΠ²Π°)
2.5 ΠΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ
3. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ
4. Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° VB
5. ΠΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ
6. ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΠ°Π΄Π°Π½ΠΈΠ΅
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ΅ΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΡΡΠ΅Π΄ΡΡΠ²Π° «ΠΠ²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΠΏΡΠΎΡΠ΅ΡΡΠ°» .
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΠΌΠ°ΡΡΡΡΡΠ° Π·Π°Π΄Π°ΡΡΡΡ Π² ΠΌ. ΠΈΠ»ΠΈ ΠΊΠΌ. Π‘ΠΊΠΎΡΠΎΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ Π² ΠΌ/Ρ ΠΈΠ»ΠΈ ΠΊΠΌ/ΡΠ°Ρ. ΠΠ±ΡΠ°Π· Π΄Π²ΠΈΠΆΡΡΠ΅Π³ΠΎΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° — ΡΠ²Π΅ΡΠ½ΠΎΠ΅ ΠΏΡΡΠ½ΡΡΠΊΠΎ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΠ΅Π΅ΡΡ ΠΏΠΎ Π»ΠΈΠ½ΠΈΠΈ ΡΠ»Π»ΠΈΠΏΡΠ°.
ΠΠΎ Ρ ΠΎΠ΄Ρ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΏΡΡΡ ΠΎΡ ΠΌΠ΅ΡΡΠ° ΡΡΠ°ΡΡΠ°, Π²ΡΠ΅ΠΌΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ, ΡΠΈΡΠ»ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΊΡΡΠ³ΠΎΠ². ΠΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΠΊΡΡΠ³Ρ ΡΠΈΠΊΡΠΈΡΡΠ΅ΡΡΡ ΡΡΠ΅Π΄Π½ΡΡ ΡΠΊΠΎΡΠΎΡΡΡ ΠΈ Π²ΡΠ΅ΠΌΡ ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ.
2. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ°
2.1 Π£ΡΠΎΡΠ½Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠΈ Π·Π°Π΄Π°ΡΠΈ ΠΈ Π²ΡΠ±ΠΎΡ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π²ΡΠ±ΡΠ°ΡΡ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΅Π³ΠΎ ΡΡΠ΅Π΄ΡΡΠ² ΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ, ΡΠ΅ΡΠ°ΡΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ.
ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΠ·ΡΠΊΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΎΠ½ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΡΠΌ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π΄Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ². Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ·ΡΠΊΠ° Visual Basic ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π€ΠΎΡΠΌΡ, Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ°, ΡΡΠΎ ΡΠ΄ΠΎΠ±Π½ΠΎ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΠ»Π»ΠΈΠΏΡΠ°, Π²ΡΠ°ΡΠ°ΡΡΠ΅Π³ΠΎΡΡ ΡΠ΅Π»Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π² ΡΡΠ»ΠΎΠ²ΠΈΠΈ Π·Π°Π΄Π°ΡΠΈ Π½Π΅ ΠΎΠ³ΠΎΠ²ΠΎΡΠ΅Π½Ρ, ΠΈ Π·Π°Π΄Π°ΡΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎ, ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΎΡΠ²Π΅ΡΠ°ΡΡ Π²ΡΠ΅ΠΌ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌ Π·Π°Π΄Π°ΡΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ Π»ΡΠ³ΠΊΠΎΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π΅Ρ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΡ, ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ, ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΠΎΡΡΡ, Π½Π°Π΄ΡΠΆΠ½ΠΎΡΡΡ, ΡΡΡΠ΅ΡΠΈΡΠ½ΠΎΡΡΡ.
2.2 ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅ΡΡΠ°
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ»Π»ΠΈΠΏΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ»Π»ΠΈΠΏΡ Π·Π°Π΄Π°ΡΡΡΡ Π² Π²ΠΈΠ΄Π΅: x=a*cos(fi) y=b*cos(fi), Π³Π΄Π΅ fi — ΡΠ³ΠΎΠ» Π² ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΊΠ΅ [0; 2Ρ]. ΠΡΠΈ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠΎ ΡΡΠ°Π΅ΠΊΡΠΎΡΠΈΠΈ ΡΠ»Π»ΠΈΠΏΡΠ°. ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ a ΠΈ b Π·Π°Π΄Π°ΡΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎ, ΠΏΠΎΠ΄Π±ΠΈΡΠ°ΡΡΡΡ ΠΎΠΏΡΡΠ½ΡΠΌ ΠΏΡΡΡΠΌ, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΡΠΎΡΠΌΡ.
ΠΠ»ΠΈΠ½Π° ΡΠ»Π»ΠΈΠΏΡΠ° ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°, Π²ΠΈΠ΄Π°, ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ Π΄Π»ΠΈΠ½Ρ Π΄ΡΠ³ΠΈ ΡΠ»Π»ΠΈΠΏΡΠ° ΠΏΡΠΈ t € [0; Ρ/2] ΠΈ ΡΠΌΠ½ΠΎΠΆΠΈΡΡ Π½Π° 4.
2.3 Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ (ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠΈΠΏΡ, Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠ»Π°ΡΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ)
x — ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΈΠΏ Single.
y — ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΈΠΏ Single.
x2 — ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΈΠΏ Single.
y2 — ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΈΠΏ Single.
v — ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½Π°Ρ ΡΠΊΠΎΡΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΡΠΈΠΏ Single.
fi — ΡΠ³ΠΎΠ» Π² ΡΠ°Π΄ΠΈΠ°Π½Π°Ρ , ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΈΠΏ Double.
k — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, Ρ ΡΠ°Π½ΡΡΠ°Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΡΡΠ³ΠΎΠ², ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ, ΡΠΈΠΏ Integer.
S — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, Ρ ΡΠ°Π½ΡΡΠ°Ρ ΠΏΡΡΡ, ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΡΠ΅Π»ΠΎΠΌ, ΡΠΈΠΏ Single.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , Ρ ΡΠ°Π½ΡΡΠΈΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, Π½Π΅Ρ.
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ: x, y, v, k, S.
ΠΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ: fi, x2, y2.
2.4 Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π°)
Form Form1 — ΡΠΎΡΠΌΠ°, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π΄ΡΡΠ³ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ.
AutoRedraw = -1 'True (ΡΠΈΡΡΠ½ΠΊΠΈ, Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ, Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΠΎΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡΡΡ ΠΏΠΎΡΠ»Π΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΡΠΎΡΠΌΡ ΠΈΠ»ΠΈ ΠΏΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΡΠΎΡΠΌΠ° Π±ΡΠ»Π° Π·Π°ΠΊΡΡΡΠ° Π΄ΡΡΠ³ΠΈΠΌ ΠΎΠΊΠ½ΠΎΠΌ)
Caption = " ΠΠ²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ" (Π½Π°Π΄ΠΏΠΈΡΡ Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ ΡΠΎΡΠΌΡ)
PictureBox Picture1 - Π²Π½ΡΡΡΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ°.
AutoRedraw = -1 'True
ScaleMode = 3 'Pixel (Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ, ΡΠ²ΡΠ·Π°Π½Π½ΠΎΠΉ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ)
Height = 3975 (Π²ΡΡΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ°)
Width = 6255 (ΡΠΈΡΠΈΠ½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°)
Line Line1 — ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄Π»Ρ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈ ΠΎΡΠ΄ΠΈΠ½Π°Ρ.
X1 = 20
X2 = 20
Y1 = 8
Y2 = 256
Line Line2 — ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄Π»Ρ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈ Π°Π±ΡΡΠΈΡΡ.
X1 = 408
X2 = 8
Y1 = 240
Y2 = 240
Shape Shape1 — ΠΎΠ±ΡΠ΅ΠΊΡ, Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΈΠ³ΡΡ, Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΡΠΎ ΠΊΡΡΠ³, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΠΈΠΉΡΡ ΠΏΠΎ Π»ΠΈΠ½ΠΈ ΡΠ»Π»ΠΈΠΏΡΠ°.
Shape = 3 'Circle
Width = 240
Height = 240
Label Label9 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. Π£ΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π°ΡΠ°Π»ΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ.
Caption = «0»
Label Label8 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΡΠΈ ΠΎΡΠ΄ΠΈΠ½Π°Ρ.
Caption = «Y, ΠΌ»
Label Label7 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΡΠΈ Π°Π±ΡΡΠΈΡΡ.
Caption = «X, ΠΌ»
Label Label13 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΡΠΈ ΠΎΡΠ΄ΠΈΠ½Π°Ρ.
Caption = «100»
Label Label14 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΡΠΈ Π°Π±ΡΡΠΈΡΡ.
Caption = «50»
Timer Timer1 — ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠ΅ Π³ΡΡΠΏΠΏΡ ΠΊΠΎΠΌΠ°Π½Π΄, ΠΎΡΠ²Π΅ΡΠ°ΡΡΠΈΡ Π·Π° Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1, ΡΠ°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ x, y, k, S ΠΈ ΠΈΡ Π²ΡΠ²ΠΎΠ΄ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΊΠΈ
Enabled = 0 'False (ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ Π²ΡΠΊΠ»ΡΡΠ΅Π½)
Interval = 1 (ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΠΊ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² ΠΌΠΈΠ»Π»ΠΈΡΠ΅ΠΊΡΠ½Π΄Π°Ρ , ΡΠ΅ΡΠ΅Π· ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄)
Timer Timer2 — ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠ΅ Π³ΡΡΠΏΠΏΡ ΠΊΠΎΠΌΠ°Π½Π΄, ΠΎΡΠ²Π΅ΡΠ°ΡΡΠΈΡ Π·Π° Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1, ΡΠ°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ x2, y2, v ΠΈ ΠΈΡ Π²ΡΠ²ΠΎΠ΄ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΊΠΈ
Enabled = 0 'False (ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ Π²ΡΠΊΠ»ΡΡΠ΅Π½)
Interval = 100 (ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΠΊ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² ΠΌΠΈΠ»Π»ΠΈΡΠ΅ΠΊΡΠ½Π΄Π°Ρ , ΡΠ΅ΡΠ΅Π· ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄)
CommandButton Command1 — ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ°. ΠΠ°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π°ΡΠΈΠ½Π°Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΊΠΎΡΠΎΡΡΡ ΡΠ²ΡΠ·Π°Π½ Ρ Π½Π΅ΠΉ, ΠΎΠ±ΡΠ΅ΠΊΡ Shape1 Π½Π°ΡΠΈΠ½Π°Π΅Ρ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅.
Caption = «Π‘ΡΠ°ΡΡ»
Height = 495 (Π²ΡΡΠΎΡΠ°)
Width = 1455 (ΡΠΈΡΠΈΠ½Π°)
CommandButton Command2 — ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ°. ΠΠ°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Π½Π°ΡΠΈΠ½Π°Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΊΠΎΡΠΎΡΡΡ ΡΠ²ΡΠ·Π°Π½ Ρ Π½Π΅ΠΉ, ΠΎΠ±ΡΠ΅ΠΊΡ Shape1 ΠΏΡΠ΅ΠΊΡΠ°ΡΠ°Π΅Ρ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅.
Caption = «Π‘ΡΠΎΠΏ»
Height = 495 (Π²ΡΡΠΎΡΠ°)
Width = 1455 (ΡΠΈΡΠΈΠ½Π°)
Label Label12 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ Π²ΡΠ²ΠΎΠ΄ΡΡΠ΅ΠΌΡ Π²ΡΠ΅ΠΌΡ Ρ Π½Π°ΡΠ°Π»Π° Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1.
Caption = «ΠΠ±ΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ, Ρ»
Left = 6720 (ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° Ρ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ ΡΠ³Π»Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°)
Top = 2880 (ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° y Π²Π΅ΡΡ Π½Π΅Π³ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ ΡΠ³Π»Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°)
Label Label5 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΡ, Π²ΡΠ²ΠΎΠ΄ΡΡΠ΅ΠΌΡ ΠΏΡΡΡ, ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Shape1.
Caption = «ΠΠ±ΡΠΈΠΉ ΠΏΡΡΡ, ΠΌ»
Left = 6720
Top = 2400
Label LabelY — ΠΌΠ΅ΡΠΊΠ°, Π² ΠΊΠΎΡΠΎΡΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° Y. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1.
BorderStyle = 1 'Fixed Single (Π·Π°Π΄Π°ΡΡ ΡΠ°ΠΌΠΊΡ Π²ΠΎΠΊΡΡΠ³ ΠΌΠ΅ΡΠΊΠΈ)
Left = 8880
Top = 1800
Label LabelX
BorderStyle = 1 'Fixed Single
Left = 8160
Top = 1800
Label Label10 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΌΠ΅ΡΠΊΠ°ΠΌ, Π²ΡΠ²ΠΎΠ΄ΡΡΠΈΠΌ ΡΠ΅ΠΊΡΡΠΈΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1.
Caption = «ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ»
Left = 6720
Top = 1800
Label Label6 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΌΠ΅ΡΠΊΠ΅, Π²ΡΠ²ΠΎΠ΄ΡΡΠ΅ΠΉ ΠΌΠ³Π½ΠΎΠ²Π΅Π½Π½ΡΡ ΡΠΊΠΎΡΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1.
Caption = «Π‘ΠΊΠΎΡΠΎΡΡΡ:»
Left = 480
Top = 5040
LabelK - ΠΌΠ΅ΡΠΊΠ°, Π² ΠΊΠΎΡΠΎΡΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΊΡΡΠ³ΠΎΠ². Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1.
Caption = «0»
Left = 8640
Top = 1200
Label LabelV LabelK - ΠΌΠ΅ΡΠΊΠ°, Π² ΠΊΠΎΡΠΎΡΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΊΡΡΠ³ΠΎΠ², ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Shape1. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1.
Caption = «0» (ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΡΡΠ³ΠΎΠ² ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠ°Π²Π½ΡΠΌ 0)
Left = 8400
Top = 3360
Label Label3 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΌΠ΅ΡΠΊΠ΅, Π²ΡΠ²ΠΎΠ΄ΡΡΠ΅ΠΉ ΡΠΈΡΠ»ΠΎ ΠΊΡΡΠ³ΠΎΠ², ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Shape1.
BorderStyle = 1 'Fixed Single
Caption = «ΠΡΠΎΠΉΠ΄Π΅Π½ΠΎ ΠΊΡΡΠ³ΠΎΠ²»
Left = 6720
Top = 1200
Label Label2 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1. ΠΠΎΠ΄ΠΏΠΈΡΡ ΠΊ ΠΌΠ΅ΡΠΊΠ΅, Π²ΡΠ²ΠΎΠ΄ΡΡΠ΅ΠΉ ΡΠΊΠΎΡΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1.
Caption = «Π‘ΠΊΠΎΡΠΎΡΡΡ ΠΌ/c»
Left = 6720
Top = 3360
Label Label1 — ΠΌΠ΅ΡΠΊΠ°, Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ. Π Π°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Form1.
Caption = «ΠΠ²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ ΠΈ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΠΏΡΠΎΡΠ΅ΡΡΠ°»
Slider Slider1 — ΠΎΠ±ΡΠ΅ΠΊΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΡΡΡ ΡΠΊΠΎΡΠΎΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1.
Max = 30 (ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π΄Π΅Π»Π΅Π½ΠΈΠΉ)
Value = 2 (Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π±Π΅Π³ΡΠ½ΠΎΠΊ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ)
2.5 ΠΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΈ ΡΠ°ΡΡΠ΅ΡΠ½ΡΠ΅ ΡΠΎΡΠΌΡΠ»Ρ
ΠΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ. ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ°, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. ΠΠ»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Picture1 ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ DrawWidth = 8, ΡΡΠΎ ΡΠΎΠ»ΡΠΈΠ½Π° ΡΠΎΡΠ΅ΠΊ, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΡΠΎΡΡΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΡΠ»Π»ΠΈΠΏΡ, ΠΏΡΠΎΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΎΡΠ΅ΠΊ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° PSet ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π² ΡΠ΅Π»Π΅ ΡΠΈΠΊΠ»Π° For… Next ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: Picture1. PSet (180 * Cos (i) + 200, 100 * Sin (i) + 140)
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΈΠΊΠ»Π° ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠ»Π»ΠΈΠΏΡΠ°, Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΠΎΠ»ΡΡΠ°Ρ ΠΏΠΎΠ»ΡΠΎΡΡ ΡΠ°Π²Π½Π° 90, Π° ΠΌΠ°Π»Π°Ρ 50, ΠΈ ΡΠΌΠ΅ΡΡΠ½Π½ΡΠΌ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ ΡΠ³Π»Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ° Picture1 Π½Π° 200 ΠΏΠΈΠΊΡΠ΅Π»Π΅ΠΉ Π²Π»Π΅Π²ΠΎ ΠΈ 140 — Π²Π½ΠΈΠ·.
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° PSet ΡΠΈΡΡΡΡΡΡ ΡΠΎΡΠΊΠΈ Π½Π° ΠΎΡΡΡ Π°Π±ΡΡΠΈΡΡ ΠΈ ΠΎΡΠ΄ΠΈΠ½Π°Ρ, Π·Π°Π΄Π°ΡΡΠΈΠ΅ Π΅Π΄ΠΈΠ½ΠΈΡΠ½ΡΠΉ ΠΎΡΡΠ΅Π·ΠΎΠΊ. ΠΠ°ΡΡΡΠ°Π± Π·Π°Π΄Π°Π½ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ 360 ΠΏΠΈΠΊΡΠ΅Π»Π΅ΠΉ = 100 ΠΌΠ΅ΡΡΠΎΠ². Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄Π»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π±ΠΎΠ»ΡΡΠ°Ρ ΠΏΠΎΠ»ΡΠΎΡΡ Π±ΡΠ΄Π΅Ρ ΡΠΎΡΡΠ°Π²Π»ΡΡΡ 45 ΠΌΠ΅ΡΡΠΎΠ², Π° ΠΌΠ΅Π½ΡΡΠ°Ρ — 50 ΠΌΠ΅ΡΡΠΎΠ².
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Command1 ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ Π΅ΡΠ»ΠΈ Slider1. Value = 0, ΡΠ°ΠΉΠΌΠ΅Ρ, ΠΎΡΠ³Π°Π½ΠΈΠ·ΡΡΡΠΈΠΉ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π½Π΅ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ (Timer1.Enabled = False) ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ ΡΠΊΠΎΡΠΎΡΡΡ ΡΠ°Π²Π½Π° Π½ΡΠ»Ρ. ΠΠΎ Π²ΡΠ΅Ρ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ ΡΠ»ΡΡΠ°ΡΡ ΡΠ°ΠΉΠΌΠ΅Ρ Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ (Timer1.Enabled = True).
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Command2 ΡΠ°ΠΉΠΌΠ΅ΡΡ Timer1 ΠΈ Timer2 Π²ΡΠΊΠ»ΡΡΠ°ΡΡΡΡ Timer1. Enabled = False: Timer2. Enabled = False, ΡΡΠΎ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡ ΠΊ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ΅ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΡΠ΅Π»Π° ΠΈ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ΅ ΠΎΡΡΡΡΡΠ° Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ.
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Timer1_Timer () ΠΈ Timer2_Timer ().
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Timer1, ΠΎΡΠ³Π°Π½ΠΈΠ·ΡΠ΅ΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. Π ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π°ΠΊΡΠΈΠ²ΠΈΡΡΠ΅ΡΡΡ Timer1. ΠΠ°ΡΠ΅ΠΌ ΡΠ°ΡΡΡΠΈΡΡΠ²Π°ΡΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1 ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π°ΠΌ
x = 180 * Cos (fi) + 200
y = 100 * Sin (fi) + 140
Π€ΠΎΡΠΌΡΠ»Ρ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ Ρ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ, ΠΏΠΎ ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΠ»Π° ΠΏΡΠΎΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠ»Π»ΠΈΠΏΡΠ°, ΡΡΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠΎ, ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ Π΄Π²ΠΈΠΆΠ΅ΡΡΡ ΠΏΠΎ ΡΡΠ°Π΅ΠΊΡΠΎΡΠΈΠΈ, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠ΅ΠΉ Ρ ΡΠ»Π»ΠΈΠΏΡΠΎΠΌ. ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ°ΡΡΡΠΈΡΠ°Π½Ρ, ΠΎΠ½ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ Left ΠΈ Top ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. Π’Π°ΠΊΠΆΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΊΠΈ Π½Π° ΡΠΎΡΠΌΠ΅ LabelX. Caption = (x — 20) 4: LabelY. Caption = (240 — y) 4.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ fi ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΏΠΎ Π·Π°ΠΊΠΎΠ½Ρ fi = fi + (Slider1.Value / 2) * 3.1415 / 180, Ρ. Π΅. ΡΠ³ΠΎΠ» ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ, Π° ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΈ ΡΠΊΠΎΡΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1, Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° Value, ΠΎΠ±ΡΠ΅ΠΊΡΠ° Slider1, ΠΈΠ½Π°ΡΠ΅ Π³ΠΎΠ²ΠΎΡΡ ΠΎΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π±Π΅Π³ΡΠ½ΠΊΠ°.
Π§ΠΈΡΠ»ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΊΡΡΠ³ΠΎΠ², ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Shape1, ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ k = Int (fi / 6.28), ΠΈ ΠΏΠΎΡΠ»Π΅ ΡΠ°ΡΡΡΡΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΠΌΠ΅ΡΠΊΡ LabelK. Caption = k.
ΠΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΡΠ΅Π»ΠΎΠΌ ΠΏΡΡΡ, ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ S = Round (223.112 / 6.28 * fi).
Π§ΠΈΡΠ»ΠΎ 223.112 — ΡΡΠΎ Π΄Π»ΠΈΠ½Π° ΡΠ»Π»ΠΈΠΏΡΠ° Π² ΠΌΠ΅ΡΡΠ°Ρ , ΡΠ°ΡΡΡΠΈΡΠ°Π½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°:
4*.
ΠΠΎΡΠ»Π΅ ΡΠ°ΡΡΡΡΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΠΌΠ΅ΡΠΊΡ LabelS. Caption = S.
Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ Interval ΠΎΠ±ΡΠ΅ΠΊΡΠ° Timer1, ΡΠ°Π²Π½ΠΎ 1, ΡΡΠΎ Π·Π½Π°ΡΠΈΡ, ΡΡΠΎ Π²ΡΠ΅ ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π²ΡΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΡΡ 1 ΡΠ°Π· Π² ΠΌΠΈΠ»Π»ΠΈΡΠ΅ΠΊΡΠ½Π΄Ρ. ΠΠ΅Π»ΠΈΡΠΈΠ½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π° ΠΏΠΎΠ΄ΠΎΠ±ΡΠ°Π½Π° ΠΎΠΏΡΡΠ½ΡΠΌ ΠΏΡΡΡΠΌ.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌ ΠΊΠΎΠ΄Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Timer2_Timer () ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ΡΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ LabelTime. Caption = LabelTime. Caption + 0.1,Π° ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Interval ΠΎΠ±ΡΠ΅ΠΊΡΠ° Timer2 ΡΠ°Π²Π½ΠΎ 100, ΡΡΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΎΡΡΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π² ΡΠ΅ΠΊΡΠ½Π΄Π°Ρ , Ρ ΡΠΎΡΠ½ΠΎΡΡΡΡ Π΄ΠΎ Π΄Π΅ΡΡΡΡΡ .
Π‘ΠΊΠΎΡΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Shape1, ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ v = (Sqr ((x2 — x) ^ 2 + (y2 — y) ^ 2)) / (Timer2.Interval) * 1000. Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ ΡΠΎΡΠ΅Π΄Π½ΠΈΠΌΠΈ ΡΠΎΡΠΊΠ°ΠΌΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΊΠ°ΠΊ ΠΊΠΎΡΠ΅Π½Ρ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΈΠ· ΡΡΠΌΠΌΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² ΡΠ°Π·Π½ΠΎΡΡΠ΅ΠΉ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΡΡΠΈΡ ΡΠΎΡΠ΅ΠΊ, ΠΈ Π΄Π΅Π»ΠΈΡΡΡ Π½Π° Π²ΡΠ΅ΠΌΡ, Ρ. Π΅ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» ΡΠ°ΠΉΠΌΠ΅ΡΠ° Timer1.
3. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ
ΠΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ, Π² Π²ΠΈΠ΄Π΅ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ, Π΄Π»Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Private Sub Timer1_Timer (), ΠΎΡΠ²Π΅ΡΠ°ΡΡΠ΅ΠΉ Π·Π° ΠΏΠ΅ΡΠ΅Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»Π° ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΠ°Π΅ΠΊΡΠΎΡΠΈΠΈ.
4. Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° VB
Dim fi As Double 'ΡΠ³ΠΎΠ»'
Dim x As Integer 'ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° Π₯
Dim y As Integer 'ΡΠ΅ΠΊΡΡΠ°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° Y
Dim x2 As Integer
Dim y2 As Integer
Dim v As Single 'ΡΠΊΠΎΡΠΎΡΡΡ ΡΠ΅Π»Π°
Private Sub Command1_Click ()
If Slider1. Value = 0 Then Timer1. Enabled = False Else Timer1. Enabled = True 'ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° Π‘Π’ΠΠ Π’ Π΅ΡΠ»ΠΈ ΡΠΊΠΎΡΠΎΡΡΡ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π° 0, ΡΠ΅Π»ΠΎ Π½Π΅ Π΄Π²ΠΈΠΆΠ΅ΡΡΡ
End Sub
Private Sub Command2_Click ()
Timer1.Enabled = False 'ΠΊΠ½ΠΎΠΏΠΊΠ° Π‘Π’ΠΠ. ΠΠ²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»Π° ΠΈ ΠΎΡΡΡΡΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ°Π΅ΡΡΡ.
Timer2.Enabled = False
End Sub
Private Sub Form_Load ()
Picture1.DrawWidth = 8 'ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΈΠ½Π° Π»ΠΈΠ½ΠΈΠΈ 8 ΠΏΠΈΠΊΡΠ΅Π»Π΅ΠΉ
For i = 0 To 360
Picture1.PSet (180 * Cos (i) + 200, 100 * Sin (i) + 140) 'ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΌΠ΅ΡΠΎΠ΄Π° PSet ΡΠΈΡΡΠ΅ΡΡΡ ΡΠ»Π»ΠΈΠΏΡ
Next
Shape1.Left = -20 'ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ, ΡΠ°ΠΊΠΎΠ²Ρ, ΡΡΠΎ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π½Π° ΡΠΎΡΠΌΠ΅
Shape1.Top = -20
fi = 0
Picture1.PSet (380, 240) 'ΡΠΎΡΠΊΠΈ Π½Π° ΠΎΡΡΡ x ΠΈ y, Π΅Π΄ΠΈΠ½ΠΈΡΠ½ΡΠΉ ΠΎΡΡΠ΅Π·ΠΎΠΊ
Picture1.PSet (20, 40)
End Sub
Private Sub Timer1_Timer ()
If Not Timer2. Enabled Then Timer2. Enabled = True
x = 45 * 4 * Cos (fi) + 48 * 4 'ΡΡΠ°Π΅ΠΊΡΠΎΡΠΈΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΡΠ΅Π»Π°, ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΠΈΠ° Π₯
y = 25 * 4 * Sin (fi) + 33 * 4 'Y
Shape1.Left = x
Shape1.Top = y
LabelV.Caption = Round (v, 3) 'Π²ΡΠ²ΠΎΠ΄ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΊΠΎΡΠΎΡΡΠΈ Π² ΠΌΠ΅ΡΠΊΡ, ΡΠΎΡΠ½ΠΎΡΡΡ Π΄ΠΎ ΡΡΡΡΡΠ½ΡΡ
LabelX.Caption = x 'Π²ΡΠ²ΠΎΠ΄ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π² ΠΌΠ΅ΡΠΊΠΈ
LabelY.Caption = y
LabelK.Caption = Int (fi / 6.28) 'ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΡΡΠ³ΠΎΠ²
LabelS.Caption = Round (223.112 / 6.28 * fi) 'ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΏΡΡΡ
fi = fi + (Slider1.Value / 2) * 3.1415 / 180 'Π·Π°ΠΊΠΎΠ½ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ³Π»Π° ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ
End Sub
Private Sub Timer2_Timer ()
LabelTime.Caption = LabelTime. Caption + 0.1 'Π²ΡΠ΅ΠΌΡ
v = (Sqr ((x2 — x) ^ 2 + (y2 — y) ^ 2)) / (Timer2.Interval) * 1000 'ΡΠΊΠΎΡΠΎΡΡΡ
x2 = x
y2 = y
End Sub
5. ΠΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ
6. ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠΎ ΡΠ»Π»ΠΈΠΏΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΌΠ°ΡΡΡΡΡΡ, Ρ ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ.
ΠΠ°ΠΏΡΡΡΠΈΡΠ΅ ΡΠ°ΠΉΠ» «Project1.exe». ΠΠ° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ°, Π±ΠΎΠ»ΡΡΡΡ Π΅Ρ ΡΠ°ΡΡΡ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΡΠ°ΠΌΠΊΠ° Ρ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΠΈ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΡΠ½Π½ΠΎΠ³ΠΎ Π² Π½Π΅ΠΉ ΡΠ»Π»ΠΈΠΏΡΠ°. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π‘ΡΠ°ΡΡ», ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Π² Π²ΠΈΠ΄Π΅ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΠΊΡΡΠ³Π°, Π΄Π²ΠΈΠΆΡΡΠ΅Π³ΠΎΡΡ ΠΏΠΎ ΡΡΠ°Π΅ΠΊΡΠΎΡΠΈΠΈ, ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½Π½ΠΎΠΉ ΡΠ»Π»ΠΈΠΏΡΠΎΠΌ. Π ΠΎΠΊΠΎΡΠΊΠ°Ρ , ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅ ΡΠ»Π΅Π²Π° ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΡΠ΅Π»Π°: ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠ»Π½ΡΡ ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΡ ΠΊΡΡΠ³ΠΎΠ², ΠΎΠ±ΡΠΈΠΉ ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½ΡΠΉ ΠΏΡΡΡ ΠΈ ΡΠΊΠΎΡΠΎΡΡΡ. Π‘ΠΊΠΎΡΠΎΡΡΡ ΡΠ΅Π»Π° ΡΠ΅Π³ΡΠ»ΠΈΡΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π±Π΅Π³ΡΠ½ΠΊΠ°, ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΠΎΠ³ΠΎ Π²Π½ΠΈΠ·Ρ ΡΠΎΡΠΌΡ. ΠΡΠΎΡΠ΅ΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ, Π½Π°ΠΆΠ°Π² Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π‘ΡΠΎΠΏ», ΠΏΡΠΈ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎΠΌ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° «Π‘ΡΠ°ΡΡ» ΡΠ΅Π»ΠΎ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈ ΡΡΠΎΠΌ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ Π½Π΅ ΠΎΠ±Π½ΡΠ»ΡΡΡΡ, ΠΈ ΠΈΡ ΠΎΡΡΡΡΡ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ Ρ ΠΌΠΎΠΌΠ΅Π½ΡΠ° ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ. ΠΠ»Ρ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΠΆΠΌΠΈΡΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Ρ ΠΊΡΠ΅ΡΡΠΈΠΊΠΎΠΌ Π² Π²Π΅ΡΡ Π½Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΌ ΡΠ³Π»Ρ ΠΎΠΊΠ½Π°.
1. Π. Π. ΠΠ°ΡΡΠΎΠ²Π°. Visual Basic Π’Π²ΠΎΡΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. Π 3 Ρ. — Π.: ΠΠ»Π°ΡΡΠΈΠΊΡ Π‘ΡΠΈΠ»Ρ, 2003. — 128 Ρ.
2. ΠΠ°ΡΡΠ΅Π½ΠΊΠΎ Π. Π. «ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅»: Π£ΡΠ΅Π±Π½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅. — ΠΠΎΡΠΊΠΎΠ²ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ, 2005. — 258 Ρ.
3. ΠΠΈΠ±Π΅ΡΡΠΈ Π. «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° VB»: ΠΠ΅Ρ. Ρ Π°Π½Π³Π». — 2-ΠΎΠ΅ ΠΈΠ·Π΄.- Π‘ΠΈΠ²ΠΎΠ»-ΠΠ»ΡΡ, 2004. — 688 Ρ.
4. ΠΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅ «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ²», Alex Soft.