Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ЛАБОРАТОРНАЯ РАБОТА №18
ТЕМА: Размещение на форме элементов управления и настройка их
свойств.
ЦЕЛЬ: Научиться размещать на форме различные элементы управления и
настраивать их.
Теоретические сведения:
Компьютеры предназначены для авто матизации математических вычисле ний. Таблица умножения, которую мы сейчас запрограммируем, для компью тера — очень простая задача. Но мы её усложним. Сомножители, участвующие в операции, не вводятся с клавиатуры, а выбираются графическим способом с помощью элемента управления, который называется движком.
Описание программы
Движок — это новый для нас элемент управления. Он состоит из шкалы и движущегося по ней бегунка. Бегу нок передвигают методом перетаскивания или при помощи клавиш управления курсором. Для двух сомножителей нам потребуются два движка. Первым движком выбирается первый сомножитель, а вторым второй сомножитель. При этом значение, установлен ное движком, можно увидеть в поле, которое сделано с помощью объекта Надпись. Значение произведения тоже представлено в виде над писи, но его мы еще особо выделим рамкой. Для пере хода от таблицы умножения к таблице квадратов и обратно применим специальный флажок. Когда он включен, второй движок становится ненужным, ведь квадрат числа — это произведение двух одинаковых чисел, а их можно задать и одним движком. Общий вид окна программы должен получиться при мерно такой, как показано на рисунке.
Порядок выполнения работы:
1. Запустите систему Delphi и создайте новый проект. Со храните его в папке Умножение. Значок TrackBar (Движок) для создания движков располагается на панели Win32 палитры компонентов.
Щелкните на этом значке, а затем нарисуйте движок на форме методом протягивания. Движок — довольно крупный объект и занимает много места. Подобрать размер области движка можно с помощью маркеров из менения размеров. Затем поместите на форму второй движок прямо под первым.
В свойстве Caption (Заголовок) формы Form1 измените название формы на Таблица умножения. Изменить фон формы можно выбрав Color формы Form1.
2. Настраиваем движки
Пусть значения сомножителей могут изменяться от 2 до 99. Нам надо так настроить свойства движков, чтобы ими было удобно пользоваться. Оба движка дол жны работать совершенно одинаково, так что их свой ствам можно задать одинаковые значения. Поочередно выбрав движки, изменим с помощью Инспектора объек тов следующие их свойства.
Min (Минимум). Минимальное значение движка. Оно достигается; когда бегунок находится на левом краю полосы. Зададим здесь значение 2.
Мах (Максимум). Максимальное значение движ ка — бегунок на правом краю полосы. Зададим для этого свойства значение 99.
Position (Положение). Это свойство задает текущее положение бегунка. При движении оно изме няется автоматически. С его помощью удобно задать начальное положение бегунка. Пусть сначала бегунок находится в крайнем левом по ложении. Укажем для свойства значение 2.
LineSize (Малое изменение). Бегунок не обязательно перетаскивать с помощью мыши. Его можно дви гать и курсорными клавишами: ВЛЕВО и ВПРАВО, ВВЕРХ и ВНИЗ. При этом значение, заданное движком, изменяется на величину, заданную этим свойством. Здесь надо задать минималь ное значение: 1.
♦ Frequency (Частота засечек). Это свойство указы вает, как плотно будут располагаться засечки на полосе движка. Засечки помогают следить за положением бегунка. Давайте укажем здесь число 7, такое же, как значение свойства PageSize (Постраничное изменение). В этом случае по щелч ку на полосе бегунок будет перепрыгивать от од ной засечки к следующей.
Для второго движка все настройки задайте точно таки ми же.
3. Добавляем рамку
Заключим произведение в рамку. Рамка — это новый для нас элемент управления, до сих пор мы таким ком понентом не пользовались. Рамка может иметь свой за головок и окружать группу других элементов управ ления. Мы добавляем рамку просто для красоты. Для этого служит компонент GroupBox (Рамка). Вы берите его на вкладке Standard (Стандартные) палит ры компонентов и нарисуйте рамку на форме методом протягивания. Можно сразу поместить ее ниже и пра вее движков. Позже мы уточним положение рамки. Заголовок рамки, принятый по умолчанию, нам не под ходит. Измените свойство Caption (Заголовок). Пусть над рамкой будет написано Произведение. Заголовок рамки всегда находится возле ее левого верхнего угла. Изме нить его положение нельзя.
4. Добавляем надписи
Надписи, как мы знаем, создаются при помощи компонента Label (Надпись). Нам потребуются три надписи: две для сомножителей и одна для произведе ния. Выберите компонент Label (Надпись) и нарисуйте надпись на форме методом протягивания. Первую над пись надо разместить справа от верхнего движка.
Остальные надписи добавляются на форму точно так же. Вторую надпись поместите рядом со вторым движ ком, а третью расположите внутри заготовленной рамки. Чтобы числа выглядели красиво, выровняйте правые границы надписей по одной вертикальной линии.
5. Настраиваем надписи
Начнем настройку созданных объектов. Числа, кото рые должны отображаться в надписях, могут быть одно значными, двузначными, трехзначными и четырех значными. Хотелось бы, чтобы отведенное им место не зависело от длины числа. Для этого надо, чтобы значе ние свойства AutoSize (Автоподбор) для всех трех надпи сей было равно False (Нет).
Поочередно выбрав каждую из надписей, задайте нужное значение с помощью раскрывающегося списка.
Уточните с помощью маркеров размеры каждой над писи. Еще нам надо изменить их текст. Так как наши движки установлены в крайнее левое положение, на чальные значения множителей равны 2, а начальное значение произведения равно, соответственно, 4. Вве дем нужные значения в свойство Caption (Заголовок) каж дой из надписей.
Форма все еще не очень красива, так как наши числа расположены не по центру, а примыкают к левому краю области над писи. Но это легко исправить. Значение свойства Alignment (Выравнивание) для объек тов-надписей задать значение taCenter (Выравни вание по центру).
6. Добавляем и настраиваем флажок
Выберите компонент CheckBox(Флажок) на панели компо нентов и нарисуйте флажок под движками. В получен ном объекте нас устраивает все, кроме подписи. Поэто му измените свойство Caption (Заголовок) — введите подпись Квадрат. Можно также изменить значе ние свойства Alignment (Выравнивание). Если выбрать зна чение taLeftJustify (Выравнивание по левому краю), то метка флажка окажется не справа, а слева от подписи. Теперь форма готова, и мы можем приступать к про граммированию.
7. Программируем работу движков
Движки в этой программе — это основные элементы управления. Для них надо предусмотреть два режима работы. Когда флажок сброшен, движки работают неза висимо. Однако если флажок установлен, то сомножи тели должны совпадать, а это значит, что оба движка должны всегда иметь одно и то же значение, а их бе гунки — одно и то же положение.
Первый режим (с выключенным флажком) кажется более простым, так что давайте сначала запрограмми руем его.
Движок — это как бы счетчик, но не кнопочный, а гра фический. Его самое важное свойство — текущее поло жение. При этом совершенно неважно, как было изме нено состояние движка: перетаскиванием бегунка или щелчком на полосе, а может быть клавишами ВПРАВО — ВЛЕВО.
Важно только новое значение. Поэтому нам надо обра ботать событие Change (Изменение). Оно возникает вся кий раз, когда положение бегунка меняется. Выберите верхний движок на форме. В окне Инспектора объектов выберите вкладку Events (События). Дважды щелк ните напротив события OnChange (При изменении). Наш объект-движок называется TrackBar1. Система Delphi создаст процедуру TrackBar1 Change для обработки этого события.
Наша программа должна менять только надписи, но не надо забывать, что если поменяется хотя бы один из сомножителей, то изменится и произведение. Так, если поменяется положение первого бегунка, то изменять надо свойства надписей Label 1.Caption и Label2.Caption. Аналогично, если изменится положение.
Все это нам знакомо, но здесь есть одна трудность: над пись содержит строку текста, а положение движка — это число. Это не страшно — преобразовать число в строку может стандартная функция IntToStr. Итак, нам надо из менить две надписи, а значит, добавить два оператора.
Для обработки изменения второго движка надо создать аналогичную процедуру-обработчик. Выберите в окне формы движок TrackBar2. С помощью Инспектора объектов создайте обработчик для события OnChange (При изме нении).
Нам нужно сделать почти то же, что и раньше. Разница в том, что мы меняем содержимое другой надписи, ис ходя из значения другого движка. Вот как выглядят нужные операторы:
8. Проверяем программу
Самое важное мы уже сделали. Программу можно за пустить, нажав клавишу F9. Таблица умножения рабо тает — вычисляет произведение двух целых чисел. Более того, мы уже можем устанавливать и сбрасывать флажок — это его базовая функция. Однако никакого эффекта на работу программы это пока не оказывает.
Флажок надо обработать особо. Сейчас мы этим и зай мемся. Закройте окно программы щелчком на закры вающей кнопке.
9. Программируем влияние флажка
Если флажок установлен, бегунки должны всегда иметь одинаковые положения. При этом какой бы бегу нок ни двигался, второй должен двигаться точно так же (в таких случаях говорят, что они должны двигаться синхронно). Это значит, что мы должны добавить про цедуру обработки щелчка на флажке, а также изменить процедуры обработки движков с учетов влияния флажка.
Выберите в раскрывающемся списке в верхней части окна Инспектора объектов объект CheckBox1 (это и есть фла жок). С помощью вкладки Events (События) создайте про цедуру обработки щелчка CheckBox1CIick. Привести движки к одинаковому виду можно, просто задав поло жение второго движка таким же, как положение пер вого. Для этого нужен оператор:
Событие Click (Щелчок) происходит как при установке, так и при сбросе флажка. Но в этом нет ничего страш ного, так как при сбросе флажка значения движков уже равны между собой и этот оператор ничего не ис портит.
Эта процедура готова. Теперь надо внести изменения в обработчики события Change (Изменение) для движков. Эти процедуры находятся рядом в окне кода.
Выяснить, установлен флажок или сброшен, можно с помощью свойства Checked (Установлен). Оно содержит логическое значение: если флажок установлен — True (Да) , а если сброшен — False (Нет). Мы уже знаем, что для исполнения проверок в программах используется условный оператор:
if CheckBoxl.Checked then
Если флажок установлен, приводим второй движок к значению первого:
TrackBar2.Position := TrackBar1.Position;
Такие же операторы надо вставить и во вторую проце дуру обработки. Единственное отличие состоит в том, что теперь первый движок приводится в соответствие со вторым.
if CheckBoxl.Checked then TrackBarl.Position := TrackBar2.Position;
Программа готова
Программа готова. Запустите ее, нажав клавишу F9. Проверьте, как работают движки и как влияет на работу программы установка и сброс флажка. Испытайте разные способы управления движками.
А теперь давайте посмотрим полный текст программы.
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption := IntToStr(TrackBar1.Position);
Label3.Caption := IntToStr(TrackBar1.Position*
TrackBar2.Position);
if CheckBox1.Checked then
TrackBar2.Position := TrackBar1.Position;
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Label2.Caption := IntToStr(TrackBar2.Position);
Label3.Caption := IntToStr(TrackBar1.Position*
TrackBar2.Position);
if CheckBox1.Checked then
TrackBar1.Position := TrackBar2.Position;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
TrackBar2.Position := TrackBar1.Position;
end;
end.
Самостоятельная работа
Вывод по работе:
Приложение к лаб.работе 18.