Дістемелік кешені



бет36/43
Дата07.01.2022
өлшемі1,39 Mb.
#17102
түріПрограмма
1   ...   32   33   34   35   36   37   38   39   ...   43
Байланысты:
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
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

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   ...   32   33   34   35   36   37   38   39   ...   43




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет