Список выбора ListBox1.
Установите на форму компонент ListBox1.
1. Свойству Items задайте следующие значения: Фунт, Пуд, Унция, Драхм, Гран. Свойство Items (класс TString) хранит строки списка.
2. Измените размер и цвет шрифта компонента ListBox1.
3. Создайте обработчик события OnClick для компонента ListBox1. Событие OnClick происходит при выборе элемента в списке.
Обработчик события:
Procedure TForm1.ListBox1Click(Sender:TObject);
Begin
If (Edit1.Text=' ') or (ListBox1.ItemIndex <0) Then Exit;
x:= StrToFloat(Edit1.Text);
case ListBox1.ItemIndex of
0: y:= x/400;
1: y:= x/16380;
2: y:= x/28.35;
3: y:= x/28.35*16;
4: y:= 437.5*x/28.35;
End;
Memo1.Lines.Add(FormatFloat('#####.#####Грамм=',x)+ FormatFloat('#####.##### ', y) + ListBox1.Items[ListBox1.ItemIndex]);
Edit1.Clear;
Edit1.SetFocus;
End;
Свойство ItemIndex определяет номер выбранного элемента списка.
Метод Clear очищает содержимое компонента TEdit. Метод SetFocus устанавливает курсор в этот компонент.
Не забудьте описать X и Y.
4. Сохраните вашу работу в папку Lab2. Осуществите прогон программы (F9). Выполните несколько контрольных расчетов:
1234Грамм = 3,085 Фунт
1234Грамм = 0,07534 Пуд
1234Грамм = 43,52734 Унция
1234Грамм = 696,43739 Драхм
1234Грамм = 19043,20988 Гран
Свойство Anchors.
1. В работающем приложении максимизируйте окно. Обратите внимание на то, что местоположение кнопки «Close» относительно левого края формы осталось прежним.
2. Закройте приложение. Сделайте так, чтобы кнопка «Close» всегда оставалась в правом нижнем углу. Для этого используйте свойство Anchors. По умолчанию это свойство имеет значение [akTop, akLeft]. Присвоим этому свойству значение [akRight, akBottom]. Для этого в правой части строки свойства Anchors зададим: akTop – False; akLeft – False; akRight – True; akBottom – True.
3. Осуществите прогон программы и проверьте, верно, ли Вы использовали свойство Anchors.
4. Для того, чтобы размер нижней панели изменялся пропорционально размеру окна, присвойте свойству Anchors значение [akTop, akLeft, akRight, akBottom]. Запустите программу и Вы увидите, что при изменении размеров окна Panel1 тоже меняет свои размеры.
Компонент TRadioGroup.
1. Добавьте к приложению компонент TRadioGroup. Свойству ItemIndex задайте значение 0. В Items ввести две строки: единичное значение, расчет для интервала значений.
2. Добавьте на Panel2 еще одну метку Label2 (Caption-Конечное значение) и еще один редактор Edit2. Свойству Visible этих компонентов присвойте значение False. Это означает, что компоненты не будут видны на форме до тех пор, пока свойство Visible не станет равным True.
3. Создайте обработчик OnClick для компонента TRadioGroup.
Procedure TForm1.RadioGroup1Click(Sender:TObject);
Begin
Case RadioGroup1.ItemIndex of
0: begin
Label1.Caption:= ‘Введите значение веса в граммах’;
Edit2.Hide; Label2.Hide; End;
1: begin
Label1.Caption:= ‘Начальное значение веса’;
Edit2.Show; Label2.Show; End; End; End;
Методы Show и Hide определяют видимость компонента на экране.
Внесите изменения в обработчик OnClick компонента ListBox1:
Procedure TForm1.ListBox1Click(Sender:TObject);
Begin
If (Edit1.Text =' ') or
(ListBox1.ItemIndex <0) then Exit;
Case RadioGroup1.ItemIndex of
1: begin
if (Edit2.Text=' ') then Exit;
X_nach:=StrToFloat(Edit1.Text);
X_kon:=StrToFloat(Edit2.Text);
D:= (X_kon –X_nach)/10; End;
0: begin
X_nach:=StrToFloat(Edit1.Text);
X_kon:=X_nach;
D:=1; End; End;
x:= X_nach;
while x <= X_kon do
begin
case ListBox1.ItemIndex of
0: y:= x/400;
1: y:= x/16380;
2: y:= x/28.35;
3: y:= x/28.35*16;
4: y:= 437.5*x/28.35; end;
Memo1.Lines.Add(FormatFloat('#####.#####Грамм=',x)+ FormatFloat('#####.#####',y) + ListBox1.Items[ListBox1.ItemIndex]);
x:= x + D;
end;
Edit1.Clear;
Edit1.SetFocus;
Edit2.Clear;
End;
Не забудьте описать переменные X_nach, X_kon, D.
4. Для компонента Memo1 установите ScrollBars равным ssVertical. У многострочного редактора появилась линейка прокрутки.
5. Осуществите прогон программы.
Компонент TGroupBox.
Установите на Panel1 компонент TGroupBox и задайте свойство Caption равным «Настройка экрана». С помощью этого компонента выделяется группа управляющих элементов, объединенных по функциональному назначению.
Компонент TCheckBox.
1. Состояние этого компонента содержит свойство State: cbUnchecked – нет; cbChecked – да; cbGrayed – не знаю. Это свойство доступно как для чтения, так и для записи. Свойство Сhecked содержит выбор пользователя Да/Нет. Установите компонент TCheckBox (Caption-Шрифт) на контейнер TGroupBox.
2. Создайте обработчик события OnClick для этих компонентов.
Procedure TForm1.CheckBox1Click(Sender:TObject);
Begin
If CheckBox1.State = cbChecked then
Memo1.Font.Style:=[fsItalic]
Else Memo1.Font.Style:=[];
End;
3. Проверьте работу вновь установленных компонентов.
Компонент TScrollBar.
1. Установите на Panel1 компонент TScrollBar. Этот компонент используется для визуального управления значением числовой величины. Его свойство Position содержит текущее значение числовой величины.
2. Создайте обработчик OnScroll для этого компонента, Событие OnScroll возникает при любом изменении свойства Position.
Procedure Form1.ScrollBar1Scroll(Sender:TObject;ScrollCode:TScrollCode;
var ScrollPos: integer);
begin
x:= ScrollBar1.Position;
Edit1.Text:= FloatToStr(x);
RadioGroup1.ItemIndex:=0;
End;
В этом обработчике мы связали позицию ползунка линейки прокрутки со значением переменной х.
3. Для того чтобы установить фокус ввода в окно редактора в самом начале работы, создадим еще один обработчик события. Событие для формы OnActivate возникает в момент активизации окна (при получении формой фокуса ввода).
Procedure TForm1.FormActivate(Sender:TObject);
Begin
Edit1.SetFocus; End;
Минимизируйте окно Delphi и удалите все файлы из Вашего каталога Lab2.
Новые свойства, методы, события:
| Свойства | |
| Items | Хранит строки списка |
| ItemIndex | Определяет номер выбранного элемента списка |
| Checked | Содержит выбор пользователя Да/Нет в переключателе TCheckBox |
| State | Содержит состояние компонента: cbUnchecked– нет; cbChecked – да; cbGrayed – не знаю |
| Position, Min, Max | Текущее, минимальное и максимальное значения числовой величины |
| ScrollBars | Определяет наличие линейки прокрутки |
| Visible | Определяет видимость компонента |
| Anchors | Определяет способ фиксирования дочернего компонента относительно границ своего родительского компонента |
| Методы | |
| Clear | Очищает содержимое компонента |
| Show | Сделать компонент видимым |
| Hide | Сделать компонент невидимым |
| SetFocus | Устанавливает фокус ввода |
| События | |
| OnScroll | Возникает при любом изменении свойства Position компонента TScrollBar |
| OnActivate | Возникает для формы в момент активизации окна (при получении формой фокуса ввода) |
Задания:
| Варианты | Исходные данные |
| 1 мм рт. ст. = 133 Па 1 дин/см2 =0,1 Па 1 физ. Атм. = 1,013*105 Па 1 кгс*м2 =9,81 Па | |
| 1 дюйм = 2,54 см 1 ярд = 0,9144 м 1 верста = 500 сажень 1 косая сажень = 1,76 м | |
| 1 бушель = 36,37 дм3 1 галлон = 4,54 дм3 1 пинта = 0,5683 дм3 | |
| 1 калория = 4,19 Дж 1 эрг = 10-7 Дж 1 кгс*м = 9,81 Дж 1 ватт*час =3,6*103 Дж |
ЛАБОРАТОРНАЯ РАБОТА №3.
КОМПИЛЯЦИЯ, ОТЛАДКА И ВЫПОЛНЕНИЕ ПРОГРАММ. КОМПОНЕНТЫ ПАНЕЛИ ADDITIONAL.
Теоретические сведения
Для управления выполнением программ используются следующие команды пункта меню Run:
| Команда | Описание |
| Run (F9) | Программа выполняется без остановки на каждой строке. Эта команда эквивалентна выполнению программы вне отладчика. |
| Step Over (F8) | Программа выполняется построчно. Подпрограммы выполняются как одна строка. |
| Trance Into (F7) | Программа выполняется построчно. Также выполняется каждая строка подпрограммы. |
| Run TO Cursor (F4) | Программа выполняется до той строки, на которой находится курсор в окне Code Editor. |
| Program Pause | Выполнение программы приостанавливается. |
| Program Reset (Ctrl F2) | Выполнение программы завершается. |
| Add Breakpoint | Можно указать точки прерывания при выполнении программы. |
Точка контрольного останова определяет оператор в программе, перед выполнением которого программа прервет работу, и управление будет передано среде Delphi. Точка останова задается с помощью опции View/Debug Windows/ Breakpoints. Легче просто щелкнуть левой кнопкой мыши в левом углу строки, на которой вы хотите установить точку прерывания.
Наблюдать за состоянием переменной или выражения можно с помощью специального окна, вызываемого опцией View/Debug Windows/Watches.
Изменить текущее значение переменной можно с помощью окна Evaluate/Modify, вызываемого нажатием <Ctrl-F7>. В строке Expression следует написать имя переменной, нажать кнопку Modify и вывести новое значение в строке New Value.
Рассмотрим задачу подсчета среднего балла каждого студента, отдельно среднего балла юношей и девушек, общего среднего балла. Исходной информацией является: фамилия, пол, оценки каждого студента. Фамилия вводится в окне однострочного редактора. Пол задается с помощью компонента TRadioGroup. Оценки вводятся в таблицу. Признак расчета задается с помощью компонента TRadioGroup.
Ход работы
