<<
>>

Задачи и упражнения

Упражнение № 6. Работа с формой. Изменение заголовка. Вставка компонентов. Первая программа [9] нентов Standart выберем пиктограмму «Memo» и установим ее в созданное окно скроллинга, перекрывая ее.
3. В нижней части формы разместим окно «Панель» (пиктограмма «Panel» в палитре Standart). Разместим в области окна-панели две кнопки (пиктограмма «Ок») и с помощью Caption из окна «Инспектор Объектов» проименуем их как «ОК» и «Конец». 4. Запустим проект на исполнение командой Run или (F9), сохранив при этом текст модуля и проекта в соответствующей рабочей папке. На экране появится рисунок, показанный ниже.

Пример 86. Программа умножения двух целых чисел. . Задумаем программу, которая вводит два целых числа и выводит результат их умножения. 1. Создадим интерфейсную форму следующим образом. Разместим в верхней части формы окно многострочного редактирования «Memo».

Уточним его свойства. С помощью Инспектора объектов установим значения: Align — alClient; Lines — удалить; Name — mmOut; Wordwrap — False. 2. Расположим ниже окно «Панель». Установим основные свойства: Caption — удалить, Name — Panel. 3. На панели установим метку (компонента Label). Свойства: : Align — alBotton, Caption — удалить, Name — LbOut. 4. На панели, ниже метки, разместим окно «Edit». Свойства: Text — удалить, Name — edlnput. 5. Установим кнопку «ОК», по нажатию которой будем размещать первое введенное число в рабочее поле. Свойства: Kind — bkOk; Name — Btl, Caption — OK. 6. Установим вторую кнопку «ОК», по нажатию которой будем размещать второе введенное число в рабочее поле. Свойства: Kind — bkOk; Name — Bt2, Caption — ok. 7. Установим еще одну кнопку «ОК» для выхода из программы.
Свойства: Kind — bkOk; Name — Bt3, Caption — Выход. 8. Дважды щелкнем мышью по кнопке «ОК» и в появившемся окне кода программ добавим в процедуру обработки события OnClick (одинарное нажатие клавиши) следующие команды (выделены жирным шрифтом): procedure TForml.BtlClick(Sender: TObject); begin X:=StrToInt(Trim(edlnput.Text)); mmOut.Lines.Add(edlnput.Text); edlnput.Text:=M; edlnput.SetFocus; LbOut.Caption:='Введите 2-й операнд: "; Bt2.Show; Btl.Hide; end; (Комментарий: позже удобно разместить две кнопки на одном месте наложением друг на друга, чтобы после использования одной кнопки она исчезала, а появлялась другая, и наоборот.) 9. Дважды щелкнем мышью по второй кнопке «ОК» и в появившемся окне кода программ добавим команды (выделены жирным шрифтом): procedure TForml.Bt2Click(Sender: TObject); begin Y:=StrToInt(Trim(edlnput.Text)); mmOut.Lines.Add(edlnput.Text); mmOut.Lines.Add("Результат: "+IntToStr(X)+ " * " + IntToStr(Y)+" = "+IntToStr(X*Y)); edlnput.text:; edinput.SetFocus; LbOut.Caption:="Введите 1-й операнд: "; Bt2.Hide; Btl.Show; end; 10. Дважды шелкнем мышью по кнопке «Выход» и в появившемся окне кода программ добавим команду (выделена жирным шрифтом): procedure TForml.Bt3Click(Sender: TObject); begin Close; end; 11. Осталось передать фокус ввода (очистить строку) окну «edlnput» в момент старта программы и определить переменные х и Y для хранения операндов. В секции private в самом начале кода модуля формы разместим описание: Private - {Private declarations} X, Y : Integer; 12. В окне «Инспектор Объектов» выберем исходную форму Forml и после двойного щелчка на строке OnActivate на странице Event введем следующие понятные команды: (выделены жирным шрифтом): procedure TForml.FormActivate(Sender: TObject); begin edlnput.SetFocus; LbOut.Caption:=" Введите 1-й операнд: "; Btl.Show; Bt2.Hide; end; 13. Сохраните все результаты работы в отдельной папке командой Save All, и запустите программу (Run).
Типичная картина работы программы показана ниже:

Упражнение № 7. Работа со стандартными формами В среде Дельфи имеются готовые формы-заготовки для создания прикладных программ. Шаблоны заготовок интерфейсов можно задать командами меню: File | New | Projects. 1. Выберите на странице Projects пиктограмму «MDI Application». Запустите программу (Run). Изучите интерфейсное окно и внесите свои пробные команды для работы с данной формой. Обратите внимание, что для каждой компоненты меню интерфейсного окна задана пустая процедура. Попытайтесь для каждой компоненты меню создать соответствующую форму. 2. Выберите на странице Projects пиктограмму «SDI Application». Запустите программу (Run). Изучите интерфейсное окно и внесите свои пробные команды для работы с данной формой. Для каждой компоненты меню создайте произвольную форму. 3. Вызовите «Мастер форм» и с его помощью создайте произвольный проект программы. Задания для самостоятельной работы 1. Разработайте программу «Тренажер таблицы умножения». 2. Разработайте программу «Калькулятор». 3. Разработайте программу «Музыкальный редактор». 4. Разработайте программу «Графический редактор». 5. Разработайте программу «Текстовый редактор». 6. Используя «Мастер форм» и заготовки Дельфи, разработайте программу «Текстовый редактор» с развитым интерфейсом. 7. Используя «Мастер форм» и заготовки Дельфи, разработайте программу «Графический редактор» с развитым интерфейсом. 8. Используя «Мастер форм» и заготовки Дельфи, разработайте простейшую программу «Справочная система». 9. Используя «Мастер форм» и заготовки Дельфи, разработайте программу «Тест по заданной теме». 10. Используя «Мастер форм» и заготовки Дельфи, разработайте программу «Электронный учебник».

<< | >>
Источник: Могилев А. В.. Практикум по информатике. 2005

Еще по теме Задачи и упражнения:

  1. Задачи и упражнения
  2. Задачи и упражнения
  3. Задачи и упражнения
  4. Задачи и упражнения
  5. Задачи и упражнения
  6. Задачи и упражнения
  7. Задачи и упражнения
  8. Задачи и упражнения
  9. Задачи и упражнения
  10. Задачи и упражнения
  11. Задачи и упражнения
  12. Задачи и упражнения
  13. Задачи и упражнения
  14. Задачи и упражнения
  15. ЗАДАЧИ ОБЩИЕ И ЗАДАЧИ СПЕЦИАЛЬНЫЕ
  16. 7. Каждый школьник – это сложнейший мир проблем и задач. Забота о своевременном решении этих проблем и задач составляет основу строительства новой школы
  17. Вторая зрелость наступает тогда, когда человек выполнил задачи зрелого человека, осознал задачи второй зрелости и готов их выполнять
  18. ЗАДАЧА
  19. ЗАДАЧА: РЕШЕНИЕ
  20. Основные задачи.