Лабораториялық жұмыс №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.

4. Form1 формасының төменгі жағында Label компоненті Label1 атымен орналасуы керек. Оның Caption қасиетіне- ‘ВращениеЛунывокругЗемли’ мәнді жазамыз. Font қасиетіне кіріп, мынаны қондырамыз:

Шрифт- CourierNew,

Начертание – полужирный, Размер – 16, Набор символов – кириллица.

Transparentқасиетін тең етіп True қоямыз.

Лабораториялық жұмыс №6 - student2.ru

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;

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 клавишасын басу арқылы орындауға жібереміз.

Лабораториялық жұмыс №6 - student2.ru

Лабораториялық жұмыс №7

RadioGroup, CheckListBox компоненттерін пайдаланып программа құру Тапсырма

Edit жолындағы жазылғанды іске қосу, жаңа қосымша құру.

Шешімі

1. Басты менюдегі File/New/Application командасы арқылы жаңа қосымша ашамыз.

2. Form1 формаға CheckListBox1 компонентін, Палитры Компонентов компонентіндегі Additional бетінен, ал қалғандарын Standard бетінен таңдап аламыз. Формада мына компоненттердің ораласуы RadioGroup, CheckListBox, Label және Edit .

3. Caption қасиетінің RadioGroup1, RadioGroup2 және RadioGroup3

компонентіне ‘Начертание’, ‘Размер’ және ‘Цвет’ мәндерін қоямыз.

4. Items қасиетіне жоғарыда көрсетілген компоненттері үш нүктелі кнопкасын басамыз. Пайда болған StringListeditorтерезеге қосылған аттарды жазамыз.

RadioGroup1 компонентіне төмендегі жолдарды кіргіземіз: Обычный Курсив Полужирный

Полужирный курсив

Лабораториялық жұмыс №6 - student2.ru

RadioGroup2 компонентіне:




	RadioGroup3 компонентіне: Черный Зеленый Красный Синий

Лабораториялық жұмыс №6 - student2.ru

Еңгізіп болғаннан кейін ОК кнопкасын басамыз.

5. Барлық қарастырылып отырған үш компонентімізге ItemIndexқасиетін тең етіп 0 қоямыз. Это означает, что в начале работы программы

выделенным	переключателем	будет	первый.
6. Label1 және Label2 меткаларынаCaptionқасиетін	‘Атрибуты’ және ‘Образец’
қондырамыз.

6. CheckListBox1 компонентіне Itemsқасиетін таңдап және қосылу аттарын еңгіземіз. Олар:

Зачеркнутый

Подчеркнутый

7. Edit1 компонентінеTextқасиетін тең етіп қоямыз: ‘АаВвБбФф’.

8. RadioGroup1 компонентін екі рет басамыз. Пайда болған Редактора Кодына OnClick оқиғасына өңдеу операторына еңгіземіз:

case RadioGroup1.ItemIndex of

0: Edit1.Font.Style:=[];

1: Edit1.Font.Style:=[fsItalic];

2: Edit1.Font.Style:=[fsBold];

3: Edit1.Font.Style:=[fsItalic,fsBold];

end;

CheckListBox1ClickCheck(Self);

9. RadioGroup2 компонентіне келесі опреаторды еңгіземіз OnClick: case RadioGroup2.ItemIndex of

0: Edit1.Font.Size:=8;

1: Edit1.Font.Size:=10;

2: Edit1.Font.Size:=12;

3: Edit1.Font.Size:=14; end

10. RadioGroup3 компонентіне OnClick оқиғасының опреаторын

еңгіземіз:

case RadioGroup3.ItemIndex of

0: Edit1.Font.Color:=clBlack;

1: Edit1.Font.Color:=clGreen;

2: Edit1.Font.Color:=clRed;

3: Edit1.Font.Color:=clBlue; end

11. CheckListBox1 компонентіне OnClickCheck, оқиғасын жазамыз:

if CheckListBox1.Checked[0]

then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; if CheckListBox1.Checked[1]

then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline] else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline];

12. Басты менюдегі File/Save All командасын орындаймыз. Run/Run командасы арқылы қосымшаны орындауға жібереміз.

Лабораториялық жұмыс №6 - student2.ru

Модульдің қалыптасуының толық текстін көрсетеміз.

unit RadioGroup; interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst;

type

TForm1 = class(TForm) RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; CheckListBox1: TCheckListBox; Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure CheckListBox1ClickCheck(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.RadioGroup1Click(Sender:TObject); begin

case RadioGroup1.ItemIndex of

0: Edit1.Font.Style:=[];

1: Edit1.Font.Style:=[fsItalic];

2: Edit1.Font.Style:=[fsBold];

3: Edit1.Font.Style:=[fsItalic,fsBold];