Текущее время и текущая дата
Ввести константы, отвечающие за названия дней недели и месяцев; Понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота'); Разместите на форме экземпляры компонентов: Button, Edit, Label. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; Present := Now; // получить текущую дату DecodeDate (Present, Year, Month, Day); IntToStr (Year… Читать ещё >
Текущее время и текущая дата (реферат, курсовая, диплом, контрольная)
Цель работы — создать программу, которая выводит текущее время и текущую дату.
Описание плана разработки программы
- 1. Откройте новый проект.
- 2. Разместите на форме экземпляры компонентов: Button, Edit, Label.
- 3. Выполните действия, перечисленные в табл. 35.
Таблица 35
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
Forml. | Properties. | Caption. | Установка имени формы «Таймер». |
Button 1. | Properties. | Caption. | Введите название «Текущее время». |
Events. | Onclick. | DateTime := Time; Editl. Text := TimeToStr (DateTime); | |
Button2. | Properties. | Caption. | Введите название «Текущая дата». |
Events. | Onclick. | Edit2.Text := DateToStr (Date); | |
Editl. | Properties. | Text. | Очистить значения свойства Text. |
Edit2. | Properties. | Text. | Очистить значения свойства Text. |
Рис. 68. Окно разработанной программы
Листинг подпрограмм
var DateTime: TdateTime;
procedure TForml. ButtonlClick (Sender: TObject); begin
DateTime := Time;
Editl.Text := TimeToStr (DateTime); end;
procedure TForml. Button2Click (Sender: TObject); begin
Edit2.Text := DateToStr (Date); end;
end.
Электронные часы
Цель работы — написать программу «Электронные часы», в окне которой отображается текущее время, дата и день недели.
Рис. 69. Окно разработанной программы
Описание плана разработки программы
- 1. Открыть новый проект.
- 2. Разместить на форме экземпляры компонентов: Label, Timer.
- 3. Выполнить следующие действия:
- 1) ввести константы, отвечающие за названия дней недели и месяцев;
- 2) объявить процедуру ShowTime вручную для доступа к компонентам формы напрямую.
Процедура ShowTime отображает текущее время.
Процедура FormTime обрабатывает событие Paint.
Процедура TimerlTimer обрабатывает сигнал таймера.
Процедура FormCreate обрабатывает событие OnCreate.
Листинг программы
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForml = class (TForm).
Timerl: TTimer;
Labell: TLabel; // время Label2: TLabel; // дата и день недели procedure TimerlTimer (Sender: TObject); procedure FormCreate (Sender: TObject); procedure FormPaint (Sender: TObject); procedure ShowTime; private
{ Private declarations } public
{ Public declarations } end;
var
Forml: TForml; implementation const
stDay: array [1. 7] of string[ll] = ('воскресенье',.
'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота');
stMonth: array [1. 12] of string[8] = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');
{$R *.dfm}
procedure TForml. ShowTime; var
Time: TDateTime; // текущее время begin
Time := Now (); // получить системное время Labell. Caption := FormatDateTime ('hh:mm:ss', Time); end;
procedure TForml. TimerlTimer (Sender: TObject); begin
ShowTime; // отобразить время end;
procedure TForml. 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)] // настроить и запустить таймер
Timerl.Interval := 1000; // период сигналов таймера 1 с Timerl. Enabled := True; // пуск таймера end;
procedure TForml. FormPaint (Sender: TObject); begin
ShowTime; // отобразить часы end;
end.