КАТЕГОРИИ: Архитектура-(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) |
Рекомендуемый план разработки программы
Постановка задачи. Практична робота №9 ПРАКТИЧНЕ ЗАНЯТТЯ №47 Тема: Розробка проекта у Delphi з використанням оператора listbox Мета: Створити програму, у якій при натисканні на елемент listbox на форму виводиться визначений текст Теоретичні відомості Разработка проекта Goroscop
Разработать программу, с помощью которой пользователь мог бы выполнить следующее. Он запускает программу, выбирает знак зодиака с помощью мышки или стрелок и нажимает клавишу Enter. На экране появляется список благоприятных и неблагоприятных дней этого знака. Программа заканчивает свою работу по нажатию клавиши Close.
Пояснения. Новым в этой программе является компонента ListBox (список).
1. Открыть новый проект. 2. Разместить на форме компоненты в соответствии с рис 2. Свойству Kind кнопки BitBtn1 придать значение Close.
3. Сохранить проект под именем gor.pas и goros.dpr. 4. Запустить программу, затем закрыть окно проекта кнопкой Close. 5. Выделить Label1, найти в Object Inspector’e свойство Caption и справа от него вместо слова Label1 написать “Гороскоп с 22 ноября по 23 декабря”. 6. Выделить Label2, свойству Caption придать значение “Благоприятные Неблагоприятные”, то есть справа от свойства Caption вместо слова Label2 набрать указанные слова. 7. Выделить Label3 и справа от свойства Caption убрать слово “Label3”.
8. Выделить ListBox1, в Object Inspector’e найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора (см. рис. 3) ввести названия знаков зодиака, каждый на новой строке. нажать
Нажать клавишу OK или, если вы в Delphi 1, то сохранить текст, нажав клавишу Save, под именем znak.txt, затем нажать клавишу OK
9. В Object Inspector’е найти событие OnKeyPress, справа от него в поле сделать двойной щелчок левой кнопкой мыши. В том месте Unit1, где будет мигать курсор, ввести следующий код: if key=#13 then case Listbox1.ItemIndex of 0: Label3.Caption:='20 24-13 '; 1: Label3.Caption:='26-4 14,15,22 '; 2: Label3.Caption:='12-19 '; 3: Label3.Caption:='24,30,2,6,12,16 26,5,18 '; 4: Label3.Caption:='14,15,16,19-22 27,2,3 '; 5: Label3.Caption:='31,6,7,10 24-26 '; 6: Label3.Caption:='29-31,6,12,20 26 '; 7: Label3.Caption:='24,29,31,2,6,12,20 26,28,5,18 '; 8: Label3.Caption:='24-30 5,12 '; 9: Label3.Caption:='23-22 '; 10: Label3.Caption:='23-22 '; 11: Label3.Caption:='20 1,2 '; end; 10. Сохранить проект, запустить и протестировать его.
Дата добавления: 2014-12-25; Просмотров: 385; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |