Предыдущая страница реферата | 1  2

if (Key == 'A') Beep(440,200);

//если нажать на клавишу <Пробел> то изменится цвет формы на красный

if (Key == ' ') Form1->Color = clRed;

if (Key == 27) Close(); //если нажать на клавишу <Esc> то выход

Запустите приложение на исполнение. Проверьте реакцию вашего приложения на нажатие соответствующих клавиш. Строку программного кода:

if (Key == 'A') Beep(440,200);

можно записать и по-другому, указав на код «65» этой клавиши:

if (Key == 65) Beep(440,200);

Существует специальная таблица кодов клавиш. Для того чтобы эта таблица всегда была у вас под рукой, напишите простейшую программу «Коды клавиш». Откройте новый проект. В функцию обработки FormKeyDown впишите единственную инструкцию:

Label1->Caption = Key; //код нажатой клавиши

Запустите приложение. При нажатии на клавишу <A> на экране появится ее код – 65, <S> – 83, <Enter> – 13 и так далее. Остановите работу приложения. В заголовок формы поместите надпись «Коды клавиш». Для компонента Label1 его свойству Caption задайте значение «Нажимай на клавиши». Создайте исполняемый EXE-файл. Протестируйте вновь созданное приложение.

Рассмотрим технологию создания экранной заставки для Windows. Откройте новый проект. Для того чтобы экранная заставка закрывалась при клике мышью, в функцию обработки FormMouseDown (Кнопка мыши внизу) впишите инструкцию:

Close(); //закрытие экранной заставки при клике мышью

Нелишней будет реакция на закрытие этого приложения при нажатии любой клавиши, хотя бы для компьютера, не снабженного мышью. В функцию обработки FormKeyDown впишите инструкцию:

if (Key = '*') Close(); //при нажатии любой клавиши закрыть заставку

Знак «*» в данном случае интерпретируется как нажатие любой клавиши. Проверьте работоспособность обеих этих инструкций.

А теперь сделаем так, чтобы заставка занимала всю площадь экрана вашего дисплея. Свойству WindowState (Статус окна) стартовой формы Form1 установите значение wsMaximized (Максимальный размер окна), а свойству BorderStyle (Стиль границы окна) установите значение bsNone (Отсутствие границы). Посмотрите, как теперь выглядит экранная заставка.

После такой предварительной подготовки приступайте к формированию содержания заставки. Подберите небольшое изображение, например, автомобиля с видом сбоку. Установите цвет формы таким же, как и цвет фона выбранного изображения. Пусть в вашей заставке через каждые десять секунд появляется с левого края экрана автомобиль, движущийся по горизонтали и, проделав путь через весь экран, исчезает за его правым краем. Сделайте так, чтобы в процессе работы заставки звучала спокойная мелодия. Можно на форму приложения добавить второй автомобиль, одновременно движущийся навстречу первому. Чтобы автомобили не столкнулись, второй расположите на другой высоте формы. Будет хорошо, если в заставку включить показания текущего времени и название дня недели, причем разместите их в разных частях экрана. Пусть эта информация появляется тогда, когда автомобили невидны. Если у вас возникнут затруднения, вернитесь во второй и пятый уроки.

Когда приложение-заставка будет завершено, необходимо исполняемый файл вашего приложения переименовать, а именно его расширение EXE заменить на расширение SCR. Затем этот файл вместе с файлом мелодии нужно скопировать в каталог WindowsSystem32. Установить и настроить заставку для работы на вашем компьютере можно, нажав правой кнопкой мыши на рабочий стол, выбрать команду «Свойства», а затем вкладку «Заставка».

Скачали данный реферат: Reshetnikov, Haslik, Karina, Антония, Кощеев, Карякин, Штельмах.
Последние просмотренные рефераты на тему: изложение с элементами сочинения, рефераты, шпаргалки по социологии, матершинные частушки.





Предыдущая страница реферата | 1  2