Витяг з комп'ютера системного часу і дати

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

Призначення клавіш. Заставка для 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 (Клавіша внизу) запишіть програмний код:

// якщо натиснути на клавішу то генерується звук

// частотою 440 Гц (нота Ля) тривалістю 0,2 сек

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

// якщо натиснути на клавішу <Пробіл> щось зміниться колір форми на червоне

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

if (Key == 27) Close ();// якщо натиснути на клавішу то вихід

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

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

можна записати і по-іншому, вказавши на код «65» цієї клавіші:

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

Існує спеціальна таблиця кодів клавіш. Для того щоб ця таблиця завжди була у вас під рукою, напишіть найпростішу програму «Коди клавіш». Відкрийте новий проект. У функцію обробки FormKeyDown впишіть єдину інструкцію:

Label1-> Caption = Key;// код натиснутою клавіші

Запустіть додаток. При натисканні на клавішу на екрані з'явиться її код - 65, - 83, - 13 і так далі. Зупиніть роботу додатку. У заголовок форми помістіть напис «Коди клавіш». Для компонента Label1 його властивості Caption задайте значення «Натискай на клавіші». Створіть виконуваний EXE-файл. Протестуйте новостворене додаток.

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

Close (); //закриття екранної заставки при натисканні мишею

Незайвою буде реакція на закриття цієї програми при натисканні будь-якої клавіші, хоча б для комп'ютера, не забезпеченого мишею. У функцію обробки FormKeyDown впишіть інструкцію:

if (Key = '*') Close ();// при натисканні будь-якої клавіші закрити заставку

Знак «*» В даному випадку інтерпретується як натискання будь-якої клавіші. Перевірте працездатність обох цих інструкцій.

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

Після такої попередньої підготовки приступайте до формування змісту заставки. Підберіть невелике зображення, наприклад, автомобіля з виглядом збоку. Встановіть колір форми таким же, як і колір фону вибраного зображення. Нехай у вашій заставці через кожні десять секунд з'являється з лівого краю екрану автомобіль, що рухається по горизонталі і, пройшовши шлях через весь екран, зникає за його правим краєм. Зробіть так, щоб у процесі роботи заставки звучала спокійна мелодія. Можна на форму додатку додати другу автомобіль, одночасно рухається назустріч першим. Щоб автомобілі не зіткнулися, другий розташуйте на іншій висоті форми. Буде добре, якщо в заставку включити свідчення поточного часу і назва дня тижня, причому розмістіть їх у різних частинах екрану. Нехай ця інформація з'являється тоді, коли автомобілі невидно. Якщо у вас виникнуть труднощі, поверніться в другій і п'ятий уроки.

Коли додаток-заставка буде завершено, необхідно виконуваний файл вашого програми перейменувати, а саме його розширення EXE замінити на розширення SCR. Потім цей файл разом з файлом мелодії потрібно скопіювати в каталог WindowsSystem32. Встановити та налаштувати заставку для роботи на вашому комп'ютері можна, натиснувши правою кнопкою мишки на робочий стіл, вибрати команду «Властивості», а потім вкладку «Заставка».

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/