Delphi. Учимся на примерах
вернуться

Парижский Сергей Михайлович
Шрифт:

if StrToInt(ch1.Text) = num then begin

znak1.Caption:= '=';

x.Caption:= IntToStr(num);

ShowMessage('Вы победили!' + #13#10 + 'Число угадано за ' + IntToStr(kolvo) + ' попытки');

Exit;

end;

//если вариант первого игрока больше загаданного числа

if znak1.Caption = '>' then begin

maximum[kolvo]:= StrToInt(ch1.Text); {добавляем в массив наибольших чисел вариант первого игрока}

max;

//ищем наибольшее число

end;

//если вариант первого игрока меньше загаданного числа

if znak1.Caption = '<' then begin

minimum[kolvo]:= StrToInt(ch1.Text); {добавляем число в массив наименьших чисел, выданных первым игроком}

min;//ищем наименьшее число

end;

//после всех расчетов, компьютер выдает свой вариант

ch2.Text:= IntToStr(Random(big– small)+ small);

end;

//проверяем вариант компьютера и ставим соответствующий знак

if StrToInt(ch2.Text) > num then znak2.Caption:= '>';

if StrToInt(ch2.Text) < num then znak2.Caption:= '<';

if StrToInt(ch2.Text) = num then begin znak2.Caption:= '=' ;

x.Caption:= IntToStr(num);

ShowMessage('Вы проиграли!' + #13#10 + 'В этот раз победил компьютер!' + #13#10 + ' Число угадано за ' + IntToStr(kolvo) + ' попытки');

 end;

end;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter09.

Глава 10

Вход в систему

Постановка задачи

Разработать программу, которая осуществляет вход в систему. Интерфейс входа в систему сначала скрывает все от пользователя, а затем просит ввести пароль. Если пароль верный, то разблокируем систему и выходим из программы. В противном случае, продолжаем требовать ввод пароля.

Разработка формы

Создайте новый проект Delphi и измените свойства формы согласно табл. 10.1.

Таблица 10.1. Свойства формы программы входа в систему

Свойство Значение Пояснение
Caption Очистить заголовок
Align alCustom Запрет на перемещение окна
ВorderStyle bsNone Убираем границу и заголовок окна
FormStyle fsStayOnTop Окно программы будет всегда расположено поверх других окон
Position poDesktopCenter
Height 130 Высота
Width 130 Ширина

Разместите на форме компонент Label категории Standard и измените его свойства согласно табл. 10.2.

Таблица 10.2. Свойства компонента

Свойство Значение Пояснение
Caption Logon Надпись метки
Font.Color clNavy Цвет текста — темно-синий
Font.Size 20 Размер шрифта
Font.Style [fsBold] Начертание шрифта — полужирное
Left 16 Отступ слева
Тор 0 Отступ сверху

Разместите под меткой компонент Edit категории Standard и присвойте его свойству Name значение pass. Для того чтобы скрыть ввод текста (то есть, вводимый пользователем пароль), следует указать в свойстве PasswordChar символ, который будет отображаться вместо вводимого текста. Можно указать здесь символ "*" или, например, знак доллара "$".

Под полем pass разместите кнопку (компонент Button категории Standard) и присвойте ее свойству Caption значение Enter. По нажатию этой кнопки будет выполняться проверка корректности пароля.

Еще нам потребуется два компонента Timer категории System. Для первого таймера необходимо изменить значение свойства Interval на 10, для второго никаких свойств изменять не нужно.

Результат оформления формы должен соответствовать рис. 10.1.

Рис. 10.1. Форма для программы входа в систему

Разработка программного кода

Объявим в качестве закрытых членов класса формы переменную типа HWND и две процедуры, которые разработаем чуть позже: