78
2.
Содан кейін төмендегі тексті қоямыз. Ол үшін (Text) кнопкасын
пайдаланамыз. Тексті жазбай тұрып Text|Font командасы арқылы шрифт өзгертеміз.
3.
File|Save
командасын орындап, графикалық редакторды сақтаймыз.
Графикалық редактордан File|Exit арқылы шығамыз.
4.
Additional
бетінен формаға Image (имя- Imagel) компонентін қоямыз
5.
Picture
қасиетін таңдап және оның үш нүктелі кнопкасын басамыз. Осы кезде
Picture Editor
терезесі пайда болады. Load кнопкасын бастық. Picture Editor –де Ok-ді
басамыз. Сурет толығымен көріну үшін, Autosize қасиетін True-ге қондырамыз. Осыдан
кейін суретті, форманың центірінде орналасатындай етіп қоюға болады..
6.
Timer1
компонентін екі рет басып және OnTimer қасиетін төмендегі бойынша
құрамыз:
7.
Жобаны сақтап, модульге ат беріп жобаны орындауға жібереміз.
Модульдің қалыптасу тексті толығымен төменде көрсетілген.
unit Yupi2;
79
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.Timer1Timer(Sender: TObject);
begin
If Image1.Visible=true then Image1.Hide
else Image1.Show;
end;
Тәжірибелік жұмыс №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.
80
4. Form1
формасының төменгі жағында Label компоненті Label1 атымен орналасуы
керек. Оның Caption қасиетіне- ‘Вращение Луны вокруг Земли’ мәнді жазамыз. Font
қасиетіне кіріп, мынаны қондырамыз:
Шрифт- Courier New,
Начертание – полужирный,
Размер – 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;
81
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 қасиетіне жоғарыда көрсетілген компоненттері үш нүктелі кнопкасын
басамыз. Пайда болған String List editor терезеге қосылған аттарды жазамыз.
RadioGroup1
компонентіне төмендегі жолдарды кіргіземіз:
Обычный
Курсив
Полужирный
Полужирный курсив
82
RadioGroup2
компонентіне:
8
10
12
14
RadioGroup3
компонентіне: Черный Зеленый Красный Синий
Еңгізіп болғаннан кейін ОК кнопкасын басамыз.
5.
Барлық қарастырылып отырған үш компонентімізге ItemIndex қасиетін тең етіп 0
қоямыз. Это означает, что в начале работы программы выделенным переключателем будет
первый.
6. Label1
және Label2 меткаларына Caption қасиетін ‘Атрибуты’ және ‘Образец’
қондырамыз.
6. CheckListBox1
компонентіне Items қасиетін таңдап және қосылу аттарын еңгіземіз.
Олар:
Зачеркнутый
Подчеркнутый
7. Edit1
компонентіне Text қасиетін тең етіп қоямыз: ‘АаВвБбФф’ .
8. RadioGroup1
компонентін екі рет басамыз. Пайда болған Редактора Кодына
OnClick оқиғасына өңдеу операторына еңгіземіз:
Достарыңызбен бөлісу: |
