1. Жаңа жоба ашып (15.3-сурет), Timer1, Label1 компоненттерін формада орнату;
15.3-сурет. Бастапқы Форма кескіні
2. Компоненттер қасиетіне мәндер меншіктеу (12-кесте);
12-кесте. Timer1, Label1- компоненттер қасиетінің мәндері
Компонент
|
Қасиет
|
Мән
|
Timer1
|
Enabled Interval
|
True
|
Label1
|
Caption Width (ені) Heigth (биіктігі) Left (сол жақтан) Top (жоғарыдан) Font (қаріп)
|
Бос ету 24, қаріп түсін таңдау
|
3.Оқиға кодын (программасын) құру–олүшін TTimerкомпоненті өңдейтін Оқиға - Object Inspector терезесіндегі Events бөлігінде орналасқан, OnTimer оқиғасын таңдап, оң бөлігін екі рет шерту керек немесе Timer1 компонентін екі рет шертсе – процедура, яғни unit1.pas терезесі ашылады.
4. Программа құру:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var DateTime:TDateTime;
begin
DateTime:=Time; {ағымды уақытты қайтарып беретін стандартты функция}
Label1.Caption:=TimeToStr(DateTime); { уақытты символдық типке түрлендіру}
end;
end.
1. Іске қосу командасын беру (F9 пернесін басу) арқылы, мәтін шығару өрісінде жүріп тұрған электрондық сағатты (15.4-сурет) көрсету.
15.4-сурет. Экрандағы электронды сағат кескіні
Достарыңызбен бөлісу: |
