Студопедия — ЗАДАНИЕ. Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее время, (рис
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ЗАДАНИЕ. Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее время, (рис






Напишите программу “Электронные часы”, на поверхности формы которой отображается текущее время, (рис. 21).

рис. 21

 

Решение:

unit eclock;

interface

uses

Windows, Messades, Syssages, Syslltils, Variants, Clasess,

Graphics, Controls, Forms, Dialogs, Extltrls, StdCtrls;

type

TForm1= class (TForm)

Timer1: Ttimer;

Label1: Tlabel;

procedure FormPaint (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure FormCreate (Sender: TObject);

{объявление процедуры ShowTime}

{помещено вручную это сделано, чтобы функция имела доступ к компонентам формы напрямую}

procedure ShowTime;

private

{private declarations}

public

{public declarations}

end;

var

Form1: TForm1;

Implementation

{$r*.dfm}

{отображает текущее время}

procedure TForm1.ShowTime;

var

Time: TDateTime; {текущее время}

Begin

Time: =Now(); {получить системное время}

Label1.Caption: =FormatDateTime (‘hh: mm: ss’, Time);

End;

{обработка события Paint}

procedure TForm1.FormPaint (Sender: TObject);

begin

ShowTime; {отобразить часы}

End;

{обработка сигнала таймера}

procedure TForm1.Timer1Timer (Sender: TObject);

begin

ShowTime; {отобразить время}

End;

Procedure TForm1.FormCreate (Sender: TObject);

Begin

{настроить и запустить таймер}

Timer1.Interval: =1000 {период сигнала таймера 1с}

Timer1.Enabled: =True {пуск таймера}

End;

End.

Задания для самостоятельного решения.

Усовершенствуйте программу задания (выше) таким образом, чтобы в окне еще отображалась текущая дата.








Дата добавления: 2014-11-10; просмотров: 813. Нарушение авторских прав; Мы поможем в написании вашей работы!



Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...

Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Типология суицида. Феномен суицида (самоубийство или попытка самоубийства) чаще всего связывается с представлением о психологическом кризисе личности...

ОСНОВНЫЕ ТИПЫ МОЗГА ПОЗВОНОЧНЫХ Ихтиопсидный тип мозга характерен для низших позвоночных - рыб и амфибий...

Принципы, критерии и методы оценки и аттестации персонала   Аттестация персонала является одной их важнейших функций управления персоналом...

Измерение следующих дефектов: ползун, выщербина, неравномерный прокат, равномерный прокат, кольцевая выработка, откол обода колеса, тонкий гребень, протёртость средней части оси Величину проката определяют с помощью вертикального движка 2 сухаря 3 шаблона 1 по кругу катания...

Неисправности автосцепки, с которыми запрещается постановка вагонов в поезд. Причины саморасцепов ЗАПРЕЩАЕТСЯ: постановка в поезда и следование в них вагонов, у которых автосцепное устройство имеет хотя бы одну из следующих неисправностей: - трещину в корпусе автосцепки, излом деталей механизма...

Понятие метода в психологии. Классификация методов психологии и их характеристика Метод – это путь, способ познания, посредством которого познается предмет науки (С...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия