Наименование: Создание панели инструментов
1.ЦЕЛЬ РАБОТЫ:
Научится создавать панель инструментов при программирование в Delphi. Сформировать компетенции ОК 4, ОК 6, ОК 8; овладеть знаниями и умениями для освоения ПК 3.1.
2.ПОДГОТОВКА К ЗАНЯТИЮ:
2.1. Изучить предложенную литературу.
2.2. Подготовить бланк отчёта.
3.ЛИТЕРАТУРА:
3. 1 Игнатов А.С. Основы программирования. Учебное пособие, КС ПГУТИ, 2017
3.2 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2014
4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ:
4.1. Персональный IBM PC.
5.ЗАДАНИЕ:
5.1 Изменить программу так, чтобы можно было выбирать в меню какие элементы активизировать.
5.2 Создать приложение которое показывало на форме 2 картинки (при загрузке на форме нет картинок, при нажатие соответствующего пункта меню появлялась соответствующая картинка. Решить при помощи скрытия элементов).
5.3 Создать приложение которое выводит результат подсчета в сообщение -MessageDlg.
|
|
5.4 Создать приложение, при закрытие которого выдавалось сообщение с подтверждением закрытия. «Да» или «Нет» (MessageBox).
6. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:
6.1 По предложенной литературе изучить необходимый материал;
6.2 Выполнить задания;
6.3 Оформить отчет;
7. СОДЕРЖАНИЕ ОТЧЕТА:
7.1 Наименование и цель работы
7.2 Записать результат (листинг) выполненных заданий.
7.3 Ответы на контрольные вопросы
7.4 Вывод о проделанной работе
8. КОНТРОЛЬНЫЕ ВОПРОСЫ:
8.1.Что обозначает операция -val?
8.2 Что обозначает public в окне Unit?
8.3 Где объявляются глобальные переменные? Что такое глобальные и локальные переменные?
8.4 Что «пишется» после операции uses?
8.5 Что такое «implementation»?
ПРИЛОЖЕНИE:
Создать форму для решения задачи табулирования функции. Создать главное меню, содержащее команды: выйти из программы, табулировать функцию, очистить поля вывода результатов, а также контекстное меню с командой для очистки поля вывода. Результаты табулирования вывести в многострочное поле редактирования. Предусмотреть возможность вывода результатов на экран, в файл, в массив. Направление вывода задать с помощью трех флажков (CheckBox), рассоложенных на панели группы объектов (GroupBox).
Ход работы
1. Запустите систему визуального программирования Delphi.
2. Поменяйте название формы с «Form1» на «Табулирование функции».
3. Сохраните выполненную на данный момент форму в свою папку.
4. Расположите в форме три поля редактирования Edit и соответствующие им текстовые поля «Левая граница», «Правая граница», «Шаг», а также текстовое поля для задания вида данной функции y=sin(x)+1 (см. ниже)
|
|
5. Вставьте в форму панель группы объектов (GroupBox).
Компонента находится на закладке Standard. Поменял значение свойства Caption на «Вывод».
6. Вставьте на панель три флажка (CheckBox).
7. Установите флажки «На экран», «В массив» в режим включен.
Для этого выделил эти объекты и сменил значение их свойства Checked на True.
8. Вставьте в форму многострочное поле редактирования (Memo).
9. Задайте начальное значение для полей редактирования левой и правой границ аргумента функции и для шага изменения аргумента.
Для этого меняем значение свойства Text этих объектов.
10. Удалите из многострочного поля редактирования слово Memo1.
Для этого в окне Object Inspector сменил значение свойства Lines объекта Memo1. Вызвал окно редактирования этого свойства (String list editor), удалил слово Memo1 и нажал кнопку ОК.
11. Вставьте в форму главное и контекстное меню (MainMenu и PopupMenu)
12. Введите названия команд главного меню формы
13. Введите названия команд контекстного меню формы
14. Запрограммируйте команду «Очистить поле вывода» главного меню.
procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.Clear;
end;
15. Запрограммируйте команду «Выход» главного меню.
procedure TForm1.N6Click(Sender: TObject);
begin
Close;
end;
16. Запрограммируйте команду «Очистить поле вывода» контекстного меню.
procedure TForm1.N7Click(Sender: TObject);
begin
Memo1.Clear;
end;
17. «Свяжите» контекстное меню с формой.
Задал свойство формы PopupMenu как PopupMenu1.
18. Запрограммируйте команду «Табулировать».
procedure TForm1.N2Click(Sender: TObject);
var x,y,h,a,b:real; cod:integer; str1,str2:string;
begin
Memo1.Lines.add(' X F(X)');
val(edit1.text,a,cod);
val(edit2.text,b,cod);
val(edit3.text,h,cod);
x:=a;
while x<=b+h/2 do
begin
y:=sin(x)+2;
str(x:8:2,str1);
str(x:8:3,str2);
if CheckBox1.Checked then
Memo1.Lines.Add (str1+str2);
x:=x+h;
end;
end;
14. Сохраните работу.