Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Статья: Извлечение из компьютера системного времени и даты

Название: Извлечение из компьютера системного времени и даты
Раздел: Рефераты по информатике, программированию
Тип: статья Добавлен 03:14:06 07 апреля 2007 Похожие работы
Просмотров: 233 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Владимир Коробицын

Назначение клавиш. Экранная заставка для Windows

На стартовой форме разместите два уже знакомых вам компонента: поле вывода текста Label1 и таймер Timer1. В окне свойств объектов Object Inspector для компонента Timer1 его свойству Interval установите значение 1000 миллисекунд. Функцию обработки Timer1Timer заполните инструкцией:

Label1->Caption = Now(); //вывод даты и времени

Функция Now() выдает значение системной даты и времени, в буквальном переводе английское Now соответствует русскому слову «теперь». Запустите приложение. На его форме в поле вывода текста через одну секунду отобразятся текущая дата и время. Благодаря таймеру каждую следующую секунду эта информация будет обновляться. Вы заметили, что при запуске приложения первую секунду в поле вывода текста отображается надпись «Label1».Чтобы избежать это, в окне свойств объектов для компонента Label1 его свойству Caption придайте значение пустого множества. Если хотите, чтобы дата и время появились после запуска приложения быстрее можно для компонента Timer1 уменьшить значение его свойства Interval, например, до 10 миллисекунд.

Для получения системной даты или времени отдельно можно воспользоваться функциями преобразования DateToStr(dt) и TimeToStr(dt). Функция DateToStr(dt) выдает строку символов, отображающую дату в формате dd.mm.yyyy (число, месяц, год). Функция TimeToStr(dt) выдает строку символов, отображающую дату в формате hh:mm:ss (часы, минуты, секунды). Для исследования этих функций откройте новый проект приложения с компонентами Label1, Label2 и Timer1. Инструкции программного кода в функции обработки Timer1Timer будут выглядеть так:

Label1->Caption = DateToStr(Now()); //вывод даты

Label2->Caption = TimeToStr(Now()); //вывод времени

Такого же результата можно добиться следующими инструкциями:

Label1->Caption = Date(); //показать дату

Label2->Caption = Time(); //показать время

Функция DayOfWeek() (День недели) способна выдать номер дня недели, соответствующий дате, которая указывается в скобках как параметр этой функции. Причем 1 – воскресенье, 2 – понедельник и так далее. Проверьте работу функции DayOfWeek(). Добавьте на форму компонент Label3 и напишите инструкцию:

Label3->Caption = DayOfWeek(Now()); //вывод на экран номера дня недели

Для пользователя информация о дне недели будет восприниматься проще, если на экране отобразится не «4», а «Среда». Тогда программный код может выглядеть, например, так:

// вывод на экран названия дня недели

if (DayOfWeek(Now()) == 1) Label3->Caption = ”Воскресенье”;

if (DayOfWeek(Now()) == 2) Label3->Caption = ”Понедельник”;

if (DayOfWeek(Now()) == 3) Label3->Caption = ”Вторник”;

if (DayOfWeek(Now()) == 4) Label3->Caption = ”Среда”;

if (DayOfWeek(Now()) == 5) Label3->Caption = ”Четверг”;

if (DayOfWeek(Now()) == 6) Label3->Caption = ”Пятница”;

if (DayOfWeek(Now()) == 7) Label3->Caption = ”Суббота”;

Самостоятельно поэкспериментируйте с другими функциями манипулирования датой и временем. Для этого обратитесь к соответствующей таблице расположенной в конце данного пособия.

А теперь посмотрим, как можно построить управление приложением с клавиатуры. Откройте новый проект. В функцию обработки FormKeyDown (Клавиша внизу) запишите программный код:

//если нажать на клавишу <A> то генерируется звук

//частотой 440 Гц (нота Ля) длительностью 0,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. Затем этот файл вместе с файлом мелодии нужно скопировать в каталог Windows\System32. Установить и настроить заставку для работы на вашем компьютере можно, нажав правой кнопкой мыши на рабочий стол, выбрать команду «Свойства», а затем вкладку «Заставка».

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:09:09 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
15:37:37 24 ноября 2015

Работы, похожие на Статья: Извлечение из компьютера системного времени и даты

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(149903)
Комментарии (1829)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru