Лабораторлық жұмыс № 4.

Тақырыбы: ComboBox және ListBox  компоненттерін қолдану

Сабақтың мақсаты: 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. Берілген тізімнен алынған студенттің аты-жөні форманың атында белгіленуі қажет.

 



Алдыңғы Л.Ж. Басты Келесi Л.Ж.