Цель работы - написать программу "Электронные часы", в окне которой отображается текущее время, дата и день недели.

Практическая работа № 25 Электронные часы

Рис. 48.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Label, Timer.

3. Выполнить следующие действия:

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

3.2. Объявить процедуру ShowTime вручную для доступа к компонентам формы напрямую.

3.3. Процедура ShowTime отображает текущее время.

3.4. Процедура FormTime обрабатывает событие Paint.

3.5. Процедура TimerlTimer обрабатывает сигнал таймера.

3.6. Процедура FormCreate обрабатывает событие OnCreate.

Листинг программы: unit Unitl; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

TForm1 = class(TForm)

Timer1: TTimer;

Labell: TLabel; // время

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

procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);

procedure ShowTime; private

{ Private declarations } public

{ Public declarations } end;
var
Form1: TForm1;

implementation

const

stDay : array[1..7] of string[11] =

('воскресенье','понедельник','вторник', 'среда','четверг','пятница','суббота');

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

('января','февраля','марта', 'апреля','мая','июня','июля', 'августа','сентября','октября', 'ноября','декабря');

{$R *.dfm}

procedure TForm1.ShowTime;
var Time : TDateTime; // текущее время begin
Time := Now(); // получить системное время Label1.Caption := FormatDateTime('hh:mm:ss',Time);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowTime; // отобразить время end;

procedure TForm1.FormCreate(Sender: TObject); var Present: TDateTime; // текущая дата и время Year, Month, Day : Word; // год, месяц и число, как // отдельные числа begin Present:= Now; // получить текущую дату DecodeDate(Present, Year, Month, Day); Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +

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

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

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

Timer1.Interval := 1000; // период сигналов таймера 1 с Timer1.Enabled := True; // пуск таймера end;
procedure TForm1.FormPaint(Sender: TObject);
begin
ShowTime; // отобразить часы end;

end.

Практическая работа № 24 "Текущее время и текущая дата" || Оглавление || Практическая работа № 26 Графика


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс