Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Самостоятельная работа. If button= btPrev then




Begin

Begin

Begin

Begin

Var

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

Begin

Begin

If button= btPrev then

label1.Font.Size:=updown1.position+1;

If button= btNext then

label1.Font.Size:=updown1.position-1;

end;

или

procedure TForm1.UpDown1Changing(Sender: TObject;

var AllowChange: Boolean);

AllowChange:=true;

label1.Font.Size:= updown1.position;

end;

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

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

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

god,k:integer;

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

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

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

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

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

then

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

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

end;

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

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

then

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;

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




Поделиться с друзьями:


Дата добавления: 2015-05-09; Просмотров: 386; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.01 сек.