 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Постановка задачи. Создать программу, выполняющую следующие действия. Создать программу, выполняющую следующие действия
Создать программу, выполняющую следующие действия.
| Создать программу, выполняющую следующие действия. После запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter. Появляется вопрос: "Александр, ты любишь читать?". Если пользователь нажмет на клавишу Да, то должна появиться реплика: "Молодец!", если он нажмет на клавишу Нет, то появится реплика: "Почему же? Надо читать". |
Для выхода из программы необходимо щелкнуть мышью на кнопке Выход.
| Новым в этой программе является: · использование строки ввода Edit (вкладка палитры компонентов Standard), · обработка события OnKeyPress- нажатия клавиши. |
План разработки программы, №3
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов в соответствии с рисунком.
3. Сохранить код программы и проект под именами, например, Unit2.pas и Pr2.dpr.
4. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке Выход.
5. Выполнить следующие действия:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ Имя события | Значение/Действие |
| Form1 | Properties | Caption | Диалог |
| BitBtn1 | Properties | Caption | &Выход |
| Kind | bkClose | ||
| Label1 | Properties | Caption | Введи свое имя и нажми Enter |
| Edit1 | Events | OnKeyPress | If key=#13 then begin Label2.Caption:=Edit1.Text + ', ты любишь читать?’; end; |
| Button1 | Properties | Caption | Да |
| Events | OnClick | Label3.Caption:=‘Молодец!’; | |
| Button2 | Properties | Caption | Нет |
| Events | OnClick | Label3.Caption:=‘Почему же? Надо читать.’; | |
| Label2 | Properties | Caption | Удалить название объекта |
| Label3 | Properties | Caption | Удалить название объекта |
6. Сохранить проект окончательно, запустить и протестировать его.
Поиск по сайту: