Угадай число

Угадай число

Компьютер загадывает число в диапазоне от 1 до 30. Задача пользователя угадать это число. Компьютер подсказывает "больше" или "меньше".
В игру имеет смысл добавить отображение количества попыток игрока при угадывании числа, перезапуск игр без завершения работы приложения и красивые эффекты в случае, когда число угадано. (см. уроки).

Разместите на форме компоненты
Label1: TLabel вкладка Standart
Edit1: TEdit вкладка Standart
Button1: TButton вкладка Standart

Задайте в инспекторе объектов (Object Inspector) начальные значения

Label1
 Caption:  Угадайте число от 1 до 30
 
Edit1
 Text: Введите число
 
Button1
 Caption: OK

Переключитесь на вкладку Events и для компонента Button1 напротив события OnClick сделайте двойной щелчок. Будет автоматически создана процедура Button1Click. Впишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StrToInt(Edit1.Text) < Number then Label1.Caption :=  'Больше';
  if StrToInt(Edit1.Text) > Number then Label1.Caption :=  'Меньше';
  if StrToInt(Edit1.Text) = Number then Label1.Caption :=  'Угадали';
end;

Теперь для компонента Form1 для события OnCreate задайте следующий код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Number := Random(30)+1;
end;

Переменную Number, в которой сохраняется задуманное компьютером число необходимо объявить в разделе Var:

var
  Form1: TForm1;
  Number: Integer;

Запустите программу. Run.

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: угадай число (712)401.5 кб

Отправил Втр, 06/13/2017 - 00:58

http://videochat.tv.br/

Отправил Вс, 05/21/2017 - 15:15

http://www.4istoshop.com/

Отправил Втр, 04/18/2017 - 20:33

Help ban account Google AdSense. Send an abuse to Google Adsense on the following sites:
http://gdenauka.com/
http://hapume.com/
http://indelous.com/
http://usature.com/
http://monforexe.com/
We block this account Google AdSense together.

Отправил Сб, 03/18/2017 - 17:34

Владелец http://healbio.ru/ лох.

Отправил Ср, 11/14/2012 - 06:50

Спасибо! сделал как написано!, всё работает!

Поддержка сайта

Последние комментарии

  • [url=http://u.to/AVQeCg][img]http://silane-guard.com/files/willson_silane_1/img/2.jpg[/img][/url] Извечные споры о полиролях и средствах защиты автомобиля от воздействия окружающей среды уже в прошлом - ровно с тех пор, как на российском рынке появился Willson Silane Guard. Сегодня мы расскажем об...
  • Просто и быстро можно приготовить очень многое, только без соблюдения тонкостей блюда будут пресными, то же обстоит и с этим на первый взгляд элементарным продуктом. «Тонкие блинчики верх изящества» имеют свои прелести в приготовлении и точное соблюдение этих уникальных моментов, делает блинчики...
  • boost breast milk supply herbs domperidone-tenze24.tumblr cibi da evitare per reflusso esofageo

Счетчики