Случайный выбор из списка
ComboBoxl. Itemlndex := Random (ComboBoxl.Itemlndex.Count); ComboBox2. Itemlndex := Random (ComboBox2.Itemlndex.Count); СотЬоВохЗ. Itemlndex := Random (ComboBox3.Itemlndex.Count); end; Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка. Разместите на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button. Цель работы — создать… Читать ещё >
Случайный выбор из списка (реферат, курсовая, диплом, контрольная)
Цель работы — создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается три поля (рис. 46).
Рис. 46. Окно разработанной программы до ввода данных
2. По щелчку мышью на кнопке «Случайный выбор» из трех слов составляется предложение случайным образом (рис. 47).
Рис. 47. Окно разработанной программы после ввода данных
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
- 1. Откройте новый проект.
- 2. Разместите на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.
- 3. Выполните действия, перечисленные в табл. 21.
- 4. Сохраните проект, запустите и протестируйте его.
Таблица 21
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
Forml. | Properties. | Caption. | Установка имени формы «Писатель». |
Events. | OnCreate. | ComboBoxl.Itemlndex := 0; ComboBox2. Itemlndex := 0; СотЬоВохЗ. Itemlndex := 0; |
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
ComboBoxl. (Вкладка. Standard). | Properties. | Style. | Выберите значение cSDropDownList из раскрывающегося списка. |
Items. | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Введите пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, нажмите ОК. | ||
ComboBox2. (Вкладка. Standard). | Properties. | Style. | Выберите значение cSDropDownList из раскрывающегося списка. |
Items. | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Введите пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, нажмите ОК. | ||
СошЬоВохЗ. (Вкладка. Standard). | Properties. | Style. | Выберите значение cSDropDownList из раскрывающегося списка. |
Items. | Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Введите пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, нажмите ОК. | ||
Buttonl. (Вкладка. Standard). | Properties. Events. | Caption. | Установка имени кнопки «Случайный выбор». |
OnClick. | ComboBoxl.Itemlndex := Random (ComboBoxl. Itemlndex. Count); ComboBox2. Itemlndex := Random (ComboBox2. Itemlndex. Count); СошЬоВохЗ. Itemlndex := Random (СошЬоВохЗ. Itemlndex. Count); |
Список существительных. | Список наречий. | Список действий. |
Кошка. | Быстро. | Плавает. |
Змея. | Высоко. | Бегает. |
Кузнечик. | Медленно. | Летает. |
Дельфин. | Сильно. | Ползает. |
Черепаха. | Хорошо. | Прыгает. |
Ласточка. | Плохо. | Прячется. |
Листинг подпрограммы
procedure TForml. FormCreate (Sender: TObject); begin
Randomize;
ComboBoxl.Itemlndex := 0;
ComboBox2.Itemlndex := 0;
СотЬоВохЗ.Itemlndex := 0; end;
procedure TForml. ButtonlClick (Sender: TObject); begin
ComboBoxl.Itemlndex := Random (ComboBoxl.Itemlndex.Count); ComboBox2. Itemlndex := Random (ComboBox2.Itemlndex.Count); СотЬоВохЗ. Itemlndex := Random (ComboBox3.Itemlndex.Count); end;