Практическая работа

Создадим проект «Гороскоп», который по дате рождения предоставляет пользователю узнать знак зодиака и животное, в год которого он родился.

Свойству Name компонентов ComboBox1 и ComboBox2 укажите соответственно имена CB1 и CB2. Укажите маску ввода для MaskEdit1 (строки ввода года) 9999;1;X. Для автоматического набора года можете связать MaskEdit с UpDown. Назначьте событие OnKeyPress на компонент MaskEdit для вывода результата при нажатии на клавишу Enter.

procedure TForm1.MaskEditE1KeyPress(Sender: TObject; var Key: Char);

Var

god,k:integer;

Begin

{проверяем знак зодиака}

if key=chr(13) then //если нажата клавиша Enter

Begin

if ((cb1.text>='21') and (cb2.text='март'))

or ((cb1.text<='20') and (cb2.text='апрель'))

//если дата рождения находится в интервале от 21.03 до 20.04

then

Begin

label5.caption:='Овен';

image1.Picture.loadFromFile('C:\Знаки зодиака\Овен.bmp');//загружаем в контейнер картинку с изображением овна(файлы с картинками подберите самостоятельно)

end;

if ((cb1.text>='21') and (cb2.text='апрель'))

or ((cb1.text<='21') and (cb2.text='май'))

then

Begin

label5.caption:='Телец';

image1.Picture.loadFromFile('C\Знаки зодиака\Телец.bmp');

…….и т.д. и т.п.

{Проверяем год}

god:=StrToInt(Trim(maskEdit1.text)); //переводим строку, введенную в maskEdit1без обрамляющих пробелов, в целочисленный тип

k:=god mod 12;// делим год на 12 и в зависимости от остатка определяем: 0-обезьяна, 1-петух, 2-собака, 3-кабан, 4-крыса, 5-бык, 6-тигр, 7-кот, 8-дракон,9-змея, 10-лошадь,11-овца

case k of

0: Begin

label7.caption:='Обезьяны';

image2.Picture.loadFromFile('C:\Восточный гороскоп\Обезьяна.bmp');

end;

1: Begin

label7.caption:='Петуха';

image2.Picture.loadFromFile('C:\Восточный гороскоп\Петух.bmp');

end;

…….и т.д. и т.п.

end;