Дістемелік кешені
жүктеу/скачать 1,39 Mb.
|
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)
| Лабораториялық жұмыс №6
Циклдық құрылым. TTimer, Tshape компоненттерін пайдаланып программа құру Тапсырма. Айдың жерді айналуын көрсету, қосымша құру. Шешімі 1. System бетінен Form1 формаға Timer компонентін Timer1 деген атпен қоямыз. 55-миллисекунд ішінде OnTimer оқиғасы, бұны Shape2 компонентін формада ауыстыру үшін қолданылады. 55- саны минимальді мән, оны Interval қасиетінде әртүрлі мәнді құруға болады. 2.Additional бетінен Form1 формаға Shape компонентті Shape1 атымен қоямыз. Оның қасиетіне төмендегі мәндерді қоямыз: Shape- stCircle, Height -121, Width – 121, Left – 240, Top – 104. 3.Form1 формаға Shape компонентін Shape2 атпен қоямыз. Оның қасиетін төмендегі мәндерді қондырамыз: Shape – stCircle, Height -41, Width – 41, Left – 400, Top – 152. 49 4. Form1 формасының төменгі жағында Label компоненті Label1 атымен орналасуы керек. Оның Caption қасиетіне- ‘ВращениеЛунывокругЗемли’ мәнді жазамыз. Font қасиетіне кіріп, мынаны қондырамыз: Шрифт- CourierNew, Начертание – полужирный, Размер – 16, Набор символов – кириллица. Transparentқасиетін тең етіп True қоямыз. 5.Timer1компонентін екі рет басып Активизируем белсенділігін оятамыз. Модуль текстін жөндеулер жүргіземіз, оны var бөлімінен бастаймыз . unit Project2; interface uses
type
TForm1 = class(TForm) Timer1: TTimer; Shape1: TShape; Shape2: TShape; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x:real; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin x := x+0.1; 50 Shape2.Left:=265+trunc(150*cos(x)); Shape2.Top:=150-trunc(150*sin(x)) end; procedure TForm1.FormCreate(Sender: TObject); begin end; initialization x:=0 end.
6. Басты менюден File/ Save All командасынорындап, және жобаны Project2 атымен сақтаймыз, ал модульді Unit2 атымен папкада сақтаймыз. Жобаны F9 клавишасын басу арқылы орындауға жібереміз. жүктеу/скачать 1,39 Mb. Достарыңызбен бөлісу:
|