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

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

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

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

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

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

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

Standard).

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

(свойство Caption)

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

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

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

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

Вычитание.

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

Сохраните проект и покажите преподавателю - student2.ru 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.

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

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

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

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

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

Наши рекомендации