Лабораторлық жұмыс № 10.
Сабақтың мақсаты: Delphi тілінің мүмкіндіктерімен
таныстыру. ComboBox және ListBox
компоненттерін қолдануды үйрету.
«Фунты-килограммы» қосымшасы.
Берілген қосымша мәндерді килограммнан
әр түрлі елдерге сай олардың алмастыру жүйесі бойынша
фунтта шығарады.
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;
Тапсырмалар.
1. Қосқыштарды (переключатели)
белсенді түрге келтіргенде жазбаның түсі өзгеретін, ал
жалаушаны (флажок) таңдағанда шрифт атрибуттары ауыстырылатын қосымшаны
құрыңдар.
2. Берілген тізімнен алынған студенттің
аты-жөні форманың атында белгіленуі қажет.