Лабораториялы жмыс №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 оямыз.
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 клавишасын басу арылы орындауа жібереміз.
Лабораториялы жмыс №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 компонентіне тмендегі жолдарды кіргіземіз: Обычный Курсив Полужирный
Полужирный курсив
RadioGroup2 компонентіне:
| RadioGroup3 компонентіне: Черный Зеленый Красный Синий |
Егізіп боланнан кейін ОК кнопкасын басамыз.
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 командасы арылы осымшаны орындауа жібереміз.
Модульді алыптасуыны толы текстін крсетеміз.
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];
end;
CheckListBox1ClickCheck(Self);
end;
procedure TForm1.RadioGroup2Click(Sender:TObject); begin
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
end;
procedure TForm1.RadioGroup3Click(Sender:TObject); begin
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
end;
procedure TForm1.CheckListBox1ClickCheck(Sender:TObject); begin
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]; end;
end.