Сохраните проект и покажите преподавателю

Лабораторная работа № 5 Использование компонентов выбора и диапазонов.

 

Цель работы:научиться использовать в проектах компоненты выбора идиапазонов.

 

Порядок выполнения работы:

 

1. Запустите Delphi и измените заголовок формы (Form1) на Вашу фамилию и имя.

 

2. Перенесите с Палитры компонентов на форму 2 компонента TrackBar (закладка

Win32), RadioGroup, CheckBox, GroupBox и 3 компонента Label, (закладка

Standard).

 

3. Уберите заголовки у компонентов Label и GroupBox

 

(свойство Caption)

 

4. Измените заголовоки у компонентов: RadioGroup на (Действия) , у CheckBox на (Квадрат)

5. Измените свойства компонентов TrackBar1 и TrackBar2: Min=2; max=99; Frequency=7; LineSize=1; PageSize=7; Попробуйте изменить эти свойства.

 

6. Используя свойство Items / (TStrings) добавте в RadioGroup1 Сложение,

 

Вычитание.

 

 

7. В окне кода опишите переменные:

var

 

Form1: TForm1; a,b: Integer; c:Real;

implementation

 

8. Напишите обработчик события RadioGroup1Click Для этого выберите на форме

 

RadioGroup1 и щелкните на него дважды. Вы окажетесь в окне редактирования. Приведите обработчик события выбора действия к следующему виду:

 

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if CheckBox1.Checked
then RadioGroup1.ItemIndex:=-1
Else
Case RadioGroup1.ItemIndex of
0: Begin	GroupBox1.Caption:='Сложение; c:=a+b;	End;
1:Begin	GroupBox1.Caption:=' Вычитание '; c:=a-b;	End;
End;

Label3.Caption:=FloatToStr(c);

end;

9. Напишите обработчик события CheckBox1Click:

 

procedure TForm1.CheckBox1Click(Sender: TObject); begin

 

RadioGroup1.ItemIndex:=-1; GroupBox1.Caption:='Квадрат'; TrackBar2.Position:=TrackBar1.Position end;

 

10. Напишите обработчик события TrackBar1Change Для этого выберите на форме TrackBar1 и щелкните на него дважды. Вы окажетесь в окне

 

редактирования.

 

Приведите обработчик события изменения положения ползунка к следующему виду:

 

procedure TForm1.TrackBar1Change(Sender: TObject); begin

 

a:=TrackBar1.Position; b:=TrackBar2.Position;

 

if CheckBox1.Checked then TrackBar2.Position:=a; Label1.Caption:=IntToStr(a); if CheckBox1.Checked

 

Then Label3.Caption:=floatToStr(TrackBar2.Position*TrackBar1.Position) Else

Begin

 

if GroupBox1.Caption='Сложение' then c:=a+b; if GroupBox1.Caption='Вычитание' then c:=a-b; Label3.Caption:=floatToStr(c);

End;

 

end;

 

Примечание.

StrToFloat (S)–переводит строкуSв вещественное число

 

(Integer)

FloatToStr(n) – переводит вещественное число n в строку (String)

 

11.Напишите обработчик события TrackBar2Change.

 

12. Запустите на выполнение созданное Приложение. Для этого выберете в главном меню пункт Run\ Run, или нажмите клавишу F9.

 

Сохраните проект и покажите преподавателю

Задания для самостоятельной работы.

 

1. Добавьте в проект действия умножение и деление и ограничьте выбор чисел диапазоном от 1 до 9.

2. Измените проект так, чтобы выбор действий (сложение, вычитание, умножение и деление), осуществлялся с помощью компонента ComboBox1 вместо RadioGroup1.