Случайный выбор из списка
Цель работы -создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается три поля.
|
2. По щелчку мышью на кнопке «Случайный выбор» из трех слов составляется предложение случайным образом.
|
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.
3. Выполнить следующие действия:
Таблица 8. Свойства проекта 9
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| Form1 | Properties | Caption | Установка имени формы «Сочинитель» |
| Events | OnCreate | ComboBox1.ItemIndex :=0; ComboBox2.ItemIndex :=0; ComboBox3.ItemIndex :=0; | |
| ComboBox1 (Вкладка Standard) | Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. |
Продолжение таблицы 8
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| ComboBox2 (Вкладка Standard) | Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. | ||
| ComboBox3 (Вкладка Standard) | Properties | Style | Выберите значение cSDropDownList из раскрывающегося списка |
| Items | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK. | ||
| Button1 (Вкладка Standard) | Properties | Caption | Установка имени кнопки «Случайный выбор» |
| Events | OnClick | ComboBox1.ItemIndex := Random(ComboBox1.ItemIndex.Count); ComboBox2.ItemIndex := Random(ComboBox2.ItemIndex.Count); ComboBox3.ItemIndex := Random(ComboBox3.ItemIndex.Count); |
4. Сохраните проект, запустите и протестируйте его.
Таблица 9. Список содержимого проекта
| Список существительных | Список наречий | Список действий |
| Кошка | Быстро | Плавает |
| Змея | Высоко | Бегает |
| Кузнечик | Медленно | Летает |
| Дельфин | Сильно | Ползает |
| Черепаха | Хорошо | Прыгает |
| Ласточка | Плохо | Прячется |
Дата добавления: 2014-12-02; просмотров: 2493;