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

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

Свойству 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;

10.6. Самостоятельная работа

Поставьте на форму список Listbox, кнопку Button и две строки ввода Edit. Опишите процедуру для кнопки, при нажатии на которую список заполняется всеми четными цифрами в диапазоне от значения, введенного в Edit1 до значения, введенного в Edit2.

10.7. Самостоятельная работа

Создайте проект, с помощью которого можно узнать столицу государства, выбранного в списке (установить на форму ComboBox, Label, BitBtn)

10.8. Самостоятельная работа

Создайте проект, с помощью которого можно перевести в зависимости от выбранной страны фунты в килограммы.

Д ля каждой страны свой коэффициент преобразования (кг=фунт*k):

Россия: k=0.4095;

Англия k=0.453592;

Австрия k=0.55001;

Германия k=0.5;

Италия k=0.31762;

Глава XI. Объекты MainMenu и PopupMenu.

Практически все приложения Windows имеют свое меню – один из распространенных элементов пользовательского интерфейса. Меню представляет собой список пунктов, объединенных по функциональному признаку, каждый из которых обозначает команду или вложенное меню (подменю).

Обычно в приложении имеется главное меню и несколько контекстных (всплывающих) меню. Главное используется для управления работой всего приложения, каждое из контекстных меню служит для управления отдельным интерфейсным элементом. Меню в Delphi реализуют компоненты MainMenu – главное меню и PopupMenu – всплывающее меню.