Практикалық
жұмыс
Тақырыбы:
Тармақталу құрылымдары
Мақсаты:
Шартты және таңдау операторларын қолдануды
меңгерту.
Жұмыстың барысы: төмендегі
берілген мысалдарды Delphi ортасында орындау керек.
![]() |
Мысалы:
«Хабарлама» қосымшасын жасау керек.
Бірінші формада хабарлама жоғарыдан
төмен түсіп келе жатқан символдар арқылы жасалады
№ |
Компоненттер |
Қасиеттері |
Мәндері |
1 |
Form1 |
Caption |
|
2 |
Label1 |
Caption |
|
3 |
Label1 |
top |
150 |
4 |
Label1 |
left |
25 |
5 |
Timer1 |
Enabled |
false |
6 |
Timer1 |
interval |
50 |
7 |
Button2 |
Caption |
Келесі |
8 |
Button1 |
Caption |
Бастау |
9 |
Label2 |
Caption |
|
10 |
Label2 |
top |
20 |
11 |
Label2 |
left |
90 |
// «бастау» батырмасының оқиғасы
procedure TForm1.Button1Click(Sender: TObject);
begin i:=1; j:=0;
Timer1.Enabled:=true;
end;
//«Келесі» батырмасының оқиғасы
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false; form2.ShowModal;
end;
//«Timer1»-ді қосу оқиғасы
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if j>=Label1.top then
begin
if i>length(s)then
Timer1.Enabled:=false;
Label2.Caption:=s[i];
Label2.Left:=Label1.Left+8*i;
j:=0;
Label1.Caption:=Label1.Caption+s[i-1];
i:=i+1;
end;
Label2.Top:=j;
j:=j+10;
end;
Екінші формадағы хабарламаны
«символдарды клавиатурадан теру» көрінісі арқылы жасау
№ |
Компонент |
Қасиеті |
Мәні |
1 |
Form1 |
Caption |
|
2 |
Image1 |
Picture |
.jpg форматында
сурет |
3 |
Label1 |
top |
150 |
4 |
Label1 |
left |
25 |
5 |
Timer1 |
Enabled |
false |
6 |
Timer1 |
interval |
100 |
7 |
Button1 |
Caption |
Бастау |
8 |
TntListBox1 |
Items |
Ш
а қ ы р у Қадірлі
мектеп бітіруші түлектер Сіздерді А. Байтұрсынов
атындағы
Қостанай
Мемлекеттік университетіне оқуға шақырамыз |
// «бастау» батырмасының оқиғасы
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
i:=0; j:=0;
s:=TntListBox1.Items.Strings[i];
Timer1.Enabled:=true;
end;
//«Timer1»-ді қосу оқиғасы
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.Font.Size:=14;
Image1.Canvas.Font.Color:=rgb(random(255),random(255),random(255));
Image1.Canvas.Brush.Style:=bsClear;
j:=j+1;
if j>=length(s)
then begin
i:=i+1;
if
i>TntListBox1.Items.Count-1
then begin
Timer1.Enabled:=false; exit end;
s:=TntListBox1.items.Strings[i];
j:=1;
end;
Image1.Canvas.TextOut(j*10+60,i*20+100,s[j]);
end;
Мысалы:
«Салмақ өлшем бірліктері» қосымшасын
жасау керек.
Берілген қосымша халықаралық
салмақ өлшем бірлік жүйесі бойынша, клавиатурадан енгізілген
фунтты басқа елдің өлшем
бірлігіне аударады
Label1 ListBox1 Edit1 Label4 Button1
№ |
Компоненттер |
Қасиеттері |
Мәндері |
1 |
Form1 |
Caption |
|
2 |
Label1 |
AutoSize WordWrap |
False True |
3 |
ListBox1 |
Name |
ListBox1 |
4 |
Edit1 |
Text |
(бос) |
5 |
Button1 |
Caption |
Есептеу |
6 |
Label4 |
Caption AutoSize |
(бос) False |
Программа фрагменті:
procedure
TForm1.FormCreate(Sender: TObject);
begin
ListBox1.items.add(' Россия');
ListBox1.items.add(' Австрия');
ListBox1.items.add(' Англия ');
ListBox1.items.add(' Германия ');
ListBox1.items.add(' Дания');
ListBox1.items.add('Исландия');
ListBox1.items.add(' Италия');
ListBox1.items.add(' Нидерланды');
ListBox1.itemindex:=0;
end;
procedure
TForm1.Button1Click(Sender: TObject);
var
funt:real;
kg:real;
k:real;
begin
case
ListBox1.ItemIndex of
0: k:=0.4059; { Россия }
1: k:=0.453592;{
Англия }
2: k:=0.56001; {
Австрия }
3..5,7:k:=0.5;
{ Германия, Дания, Исландия, Нидерланды }
6: k:=0.31762; { Италия }
end;
funt:=StrToFloat(Edit1.Text);
kg:=k*funt;
label4.caption:=Edit1.Text + ' Фунт. - ' + FloatToStrF(kg,ffFixed,6,3) + ' кг.';
end;