№7 - практикалық жұмыс

Сабақ тақырыбы: Күн, уақыт типті мәліметтермен жұмыс істеу. Күнтізбе шығару.

Сабақ мақсаты: Күн, уақыт типті мәліметтермен жұмыс істеу дағдыларын қалыптастыру. Күнтізбе шығару компонентімен және оның қасиеттерімен таныстыру.

Қарастырылатын негізгі мәселелер:

1. Негізгі ұғымдар.

2. Ағымдағы күн мен уақытты форма бетінде көрсету.

Негізгі ұғымдар.

Timer Таймер, OnTimer оқиғасы Interval (аралығы) қасиетінде анықталған уақыт аралығы бойынша шақырылып тұрады, уақыт аралығы 1-ден 65535 мс дейін болады.

Мысал: Ағымдағы күн мен уақытты форма бетінде көрсету.

1-сурет. Форма бетіне компоненттерді орналастыру. 2-сурет. Нәтижесі.

Программа коды:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

lbl1: TLabel;

lbl2: TLabel;

tmr1: TTimer;

cal1: TMonthCalendar;

dtp1: TDateTimePicker;

lbl3: TLabel;

procedure tmr1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);

var DateTime: TDateTime;

begin

DateTime:=Date;

lbl2.Caption:=DateToStr(DateTime);

DateTime:=Time;

lbl3.Caption:=TimeToStr(DateTime);

end;

end.

Тапсырмалар:

1. Timer компонентінің OnTimer оқиғасы үшін, Edit компонентінде жазылған санды әр секунд сайын 1-ге ұлғайтып отыратын жоба құрыңыз. Егер Edit-ке сан енгізілмесе, таймер жұмыс істемеу қажет.

2. Формада Timer және Button компоненттері орналасқан қосымша құрыңыз. Button батырмасын басқанда таймер қосылу қажет. Timer компонентінің OnTimer оқиғаны өңдеушісінде 2 секунд интервалмен Button батырмасы формада орын ауыстыратын программа жазу қажет. Батырмаға қайта басқанда таймер интервалы екі есе, келесі басқанда тағы екі есе және т.с.с. азая береді.

3. Формада бір Button, бір Label және екі Edit орналасқан қосымша құрыңыз. Button компонентінің OnClick оқиғаларды өңдеушісіне Edit-терде жазылған кү, сағат және даталар арасындағы айырмашылықты Label компонентіне шығаратын программа жазыңыз.

4. Формада Timer, Label және Edit компоненттері орналасқан өосымша құрыңыз. Timer компонентінің OnTimer оқиғасына келесі программаны жазыңыз: Edit компонентіне енгізілген сәттен (сағ:мин:сек форматында) бастап өткен уақытты (сағ:мин:сек форматында) Label компонентінде шығару.

Қолданылатын әдебиеттер:

1. Архангельский А.Я.. Программирование в DELPHI. 7. -М.:ООО “Бином- Пресс”,2005. - 1152с.

2. Б.Д. Сыдықов, Ш.Т.Шекербекова, Н.И.Культин - Delphi ортасында бағдарламалау практикумы. Алматы, 2005

3. Н. И. Культин – Delphi в задачах и примерах. – СПб.: БХВ – Санкт-Петербург, 1999.