Практическая работа Создание программы "Вычисление с переключателем" - umotnas.ru o_O
Главная
Поиск по ключевым словам:
страница 1
Похожие работы
Название работы Кол-во страниц Размер
Практическая работа №4 Вычисление площади поверхности конуса в табличном... 1 32.83kb.
Практическая работа № Исследование лекарственных средств. Журнал... 1 41.03kb.
Практическая работа n 2 Microsoft Excel 2010. Вычисление по формулам 1 51kb.
Практическая работа №5 rrose. Создание диаграмм классов (учет новых... 1 66.52kb.
Структура программы: Программа включает: характеристику результатов... 2 445.62kb.
Программа недели начинающих дизайнеров grass design week 2013 1 71.42kb.
Продуктивность реализации Программы развития учреждения 1 260.53kb.
Урок в 10 классе по теме «Вычисление производных» 1 190.54kb.
Отчет о работе Федерального государственного бюджетного 1 408.79kb.
Лабораторная работа по теме «Вычисление площадей фигур» 1 21.08kb.
Создание магистерской программы в области прав человека и демократизации... 1 229.9kb.
Вычисление информационного объема сообщения 1 76.84kb.
Викторина для любознательных: «Занимательная биология» 1 9.92kb.

Практическая работа Создание программы "Вычисление с переключателем" - страница №1/1

Практическая работа Создание программы "Вычисление с переключателем"

(В процессе выполнения данной практической работы учащиеся знакомятся с различными элементами управления, используемыми в программе, а также событиями, которые должны происходить в момент выполнения программы. Данная программа показывает, что одну и ту же задачу можно оформить по-разному.)


В этой программе c помощью двух движков вводится два числа, которые отображаются в двух надписях (Label), операция выбирается с помощью трех переключателей, расположенных на панели, вычисления производится при возникновении события "щелчок по кнопке.


Переключатели обычно используются в группе, для группировки можно использовать панель. В группе переключателей только один переключатель может находиться в положении "включено".

Порядок работы

  1. Создание папки P2.

  2. Загрузить систему Delphi ("пуск" - "программы" - "Borland Delphi" - "Delphi")

На экране появилась пустая форма, на которую надо поместить компоненты, но прежде всего изменим название окна, для этого для этого в окне инспектора объектов открыть вкладку "Properties", у свойства "Сaption" изменить значение, т.е. вместо Form1 написать "Вычисление с переключателем"

  1. Изменим размеры формы

  2. Поместим на нее панель (панель компонентов, вкладка Standard)
    a) На панели компонентов откроем вкладку Standard, найдем компонент Panel
    b) Выделим его
    c) "Нарисуем" его на форме

  3. установим движок для ввода первого числа (элемент ScrollBar) , в окне инспектора объектов открыть вкладку "Properties", установим следующие свойства:
    у свойства "max" установим значение 10 - это крайняя правая позиция (максимальное число)
    у свойства "min" установим значение -10 - это крайняя левая позиция (минимальное число)

  4. Рядом установим надпись (элемент Label) , в окне инспектора объектов открыть вкладку "Properties", очистим значения свойства Caption: аналогично установим второй движок и вторую надпись.

  5. Установим на панель переключатель (элемент RadioButton)
    на вкладке Standard
    Caption установить значение сумма, аналогично установить еще два переключателя с названиями "разность" и "произведение".

  6. Установить командную кнопку с надписью "результат", по которой будут производиться вычисления. Элемент Button на вкладке Standard

  7. Рядом установим третью надпись для результата вычисления. И кнопку для выхода из программы с надписью Exit.

  8. Сохраним сделанное
    a) Выполним команду Save Project as
    b) Выберем созданную ранее папку, зададим имя проекту Perecl

  9. Создадим программный код.
    Cначала запрограммируем перемещение первого движка: при перемещении движка позиция движка должна отражаться в надписи (Label1), так как значение свойства Caption - cимвольная строка, а свойство Position элемента TrackBar1 - целое число, необходимо число преобразовать в троку символов функцией inttostr. Вставляемый оператор выджелен синим цветом.

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
label1.Caption:=inttostr(TrackBar1.Position);
end;

  1. Аналогично создадим программный код для второго движка.

  2. Запрограммируем событие "Выбор первого переключателя".
    Нам необходимо из трех возможных действий выбрать одно, т.е. то, которое включено (Свойство Checked соответствующего переключателя имеет значение True), т.е. нам необходимо иметь пременную целого типа, в которой будем хранить номер включенного переключателя. Так что опишем переменную в разделе описаний,

var
Form1: TForm1;
N: integer;

а при загрузке программы дадим ей значение 0. Cделаем двойной щелчок по форме и попадем в окно программного кода

procedure TForm1.FormCreate(Sender: TObject);
begin
N:=0;
end;

Tеперь сделаем двойной щелчок по первому переключателю (сумма) и попадем в окно программного кода, вставим команду присвоения переменной N значения 1.(выделено синим цветом)



procedure TForm1.RadioButton1Click(Sender: TObject);
begin
N:=1
end

Аналогично запрограммируем работу двух других переключателей (N:=2; N:=3).

  1. Запрограммируем событие "щелчок по кнопке. Используем оператор выбора Case

procedure TForm1.Button1Click(Sender: TObject);
begin
Case N of
1: label3.Caption:=inttostr(ScrollBar1.Position+ScrollBar2.Position);
2: label3.Caption:=inttostr(ScrollBar1.Position-ScrollBar2.Position);
3: label3.Caption:=inttostr(ScrollBar1.Position*ScrollBar2.Position);
else label3.Caption:='не выбрано';
end;
end;


  1. Создадим исполняемый модуль (файл с расширением exe)
    a) Выполним команды Project - Compile (CTRL + F9)