Практикум по Delphi для решения прикладных задач


Случайный выбор из списка


Цель работы - создать программу, выполняющую следующие действия:

1. После запуска программы в окне изображается три поля.

 


2.      По щелчку мышью на кнопке «Случайный выбор» из трех слов составляется предложение случайным образом.

 


3.      Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1.      Открыть новый проект.

2.      Разместить на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.

3.      Выполнить следующие действия:

Таблица 8.

Выделенный объект

Вкладка окна

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.

Список существительных

Список наречий

Список действий

Кошка

Быстро

Плавает

Змея

Высоко

Бегает

Кузнечик

Медленно

Летает

Дельфин

Сильно

Ползает

Черепаха

Хорошо

Прыгает

Ласточка

Плохо

Прячется

Листинг подпрограммы

procedure TForm1.FormCreate (Sender: TObject);

begin

   Randomize;

   ComboBox1.ItemIndex :=0;

   ComboBox2.ItemIndex :=0;

   ComboBox3.ItemIndex :=0;

end;

procedure TForm1.Button1Click (Sender: TObject);

begin

   ComboBox1.ItemIndex :=  Random(ComboBox1.ItemIndex.Count);

   ComboBox2.ItemIndex :=  Random(ComboBox2.ItemIndex.Count);

   ComboBox3.ItemIndex :=  Random(ComboBox3.ItemIndex.Count);

end;





Начало  Назад  Вперед



Книжный магазин