Практичесl= 2;ая работа № 25

Прак= 090;ическая работа № 25

«Эле= 082;тронные часы»

Цель работы - напl= 0;сать программу «Электроннm= 9;е часы», в окне которой отображаетl= 9;я текущее вре = 84;я, дата и день недели.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: Label, Timer.

3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

3.1.= Ввести константы, отвечающие за названия = 076;ней недели и месяцев.

3.2.= Объяви&#= 1090;ь процедуру ShowTime вручную для доступа = 082; компонентаl= 4; формы напря = 84;ую.

3.3.= Процед&#= 1091;ра ShowTime отображk= 2;ет текущее время.

3.4.= Процед&#= 1091;ра FormTime обрабатываk= 7;т событие Paint.

3.5.= Процед&#= 1091;ра Timer1Timer обрабатываk= 7;т сигнал таймера.

3.6.= Процед&#= 1091;ра FormCreate обрабатываk= 7;т событие OnCreate.

i= 1;истинг прогl= 8;аммы:

unit= Unit1;

interface

uses

Windows, Messages, SysUtils, Varia= nts, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;<= /o:p>

type

TForm1 =3D class(TForm)=

    Timer1: TTimer;

    Label1: TLabel;   // вр = 77;мя

    Label2: TLabel;   // да = 90;а и день недели

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormPaint(Sender: TObject);

   procedure ShowTim= e;

private

    { Private declarations= }

public

    { Public declarations = }

end;

var

Form1: TForm1;
implementation

const

    stDay : array[1..7] of string<= /b>[11] =3D

       ('воскресень= е','по = 85;едельник','вт = 86;рник',

        'среда','че = 90;верг','пя = 90;ница','су = 73;бота');

    stMonth : array[1..12] of string[8] =3D

       ('января','фе = 74;раля','ма = 88;та',

        'апреля','ма= 03;','ию = 85;я','ию = 83;я',

        'августа','се = 85;тября','ок = 90;ября',

        'ноября','де = 82;абря');

{$R *.dfm}=

procedure TForm1.ShowTime;

var = Time : TDateTime; // текущее времn= 3;

begin

Time :=3D Now();   // по = 83;учить систk= 7;мное времn= 3;

Label1.Caption :=3D FormatDateTime('hh:mm:ss',Time);

end;=

procedure TForm1.Timer1Timer(Sender: TObject);

begin

   ShowTime;    // оm= 0;образить времn= 3;

end;=

procedure TForm1.FormCreate(Sender: TObject);

var

Present: TDateTime;      // = текущая дата и время

Year, Month, Day : Word; // год, меl= 9;яц и число, как

        =             &nb= sp;      // отдельные числа

begin

Present:=3D Now; // получить текущую дат = 91;

DecodeDate(Present, Year, Month, Day);

Label2.Caption :=3D 'С= ;егодня '+IntToStr(Day)+ ' ' +=

    stMonth[Month] + ' '+ IntToStr(Year)+

    ' го= ;да, '+ stDay[DayOfWeek(Present= )];

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

Timer1.Interval :=3D 1000;   // период сигналов таймера 1 с

Timer1.Enabled :=3D True; &nbs= p; // пуск таймера

end;=

procedure TForm1.FormPaint(Sender: TObject);

begin

    ShowTime;   // от = 86;бразить часы

end;=

end.=