Угадай число

Угадай число

Компьютер загадывает число в диапазоне от 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.

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

Отправил Втр, 07/25/2017 - 16:47

https://educontest.net/

Отправил Втр, 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

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

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

  • Tacwolf chaturbate threesome videos with lexi and jordin Alexi and lexi lapetina African albino breasts pussy pics Erection rub in formulas for penis Leukocyte test strip results Fat people falling down stairs Naked middle aged woman Espiando a mis suegros cuando cojen casero Amateur romantic sex...
  • Exotic escorts erotic escorts southbend indiana Tanya cyntheria playing with cum Free german wives girlfriends sex videos Dick content golf micjigan Free teen panties links What are sex beads Treatment to quit smoking Indian teen wet pussy Average size of male dick Cleft chin women naked Husbands...
  • Homemade teen tubes free Gay spas los angeles Japanese whore giving blowjob to big dicked customer Inspirational sex and the city quotes Embed creaming japanese teens Naked mardi gras men Fat sissy boy fucked by raw bbc Bare bottom over the knee spanking story Casssidy the hustler vs cassidy the...

Счетчики