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

Извлечение з комп’ютера системного часу й даты

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

Назначение клавіш. Екранна заставка для 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. Далі ця файл разом із файлом мелодії потрібно скопіювати до каталогу WindowsSystem32. Встановити і налаштувати заставку до роботи вашому комп’ютері можна, натиснувши правої кнопкою миші на робочий стіл, вибрати команду «Властивості», та був вкладку «Заставка».

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

Для підготовки даної роботи було використані матеріали із сайту internet.