Delphi визуалды программалау ортасы



жүктеу 1,5 Mb.
бет80/94
Дата03.02.2022
өлшемі1,5 Mb.
#35447
1   ...   76   77   78   79   80   81   82   83   ...   94
Delphi визуалды программалау жүйесі

13 - кесте

Белгі-

ленген


нысан

Object Inspector терезесінің астары

Қасиеттің аты/ Оқиғаның аты

Атқарылатын әрекет

Forml

Properties

Caption

Пішінге «Жиым 1» атын орнату

Events

OnCreate

Мәтіндік өрістердің Text қасиетінің мәндерін тазалау

Buttonl

Properties

Caption

«Тазалау» атын енгізу

Events

Onclick

Мәтіндік өрістердің Text қасиетінің мәндерін тазалау

Button2

Properties

Caption

«Жабу» атын енгізу

Events

Onclick

Пішінді Жабу оқиғасын өңдеу

Button3

Properties

Caption

«Элементтің индексін табу» атын енгізу

Events

Onclick

Енгізілген санның индексін табу оқиғасын өңдеу

Button4

Properties

Caption

«Элементті кездейсоқ енгізу» атын енгізу

Events

Onclick

Жиым элементтерін кездейсоқ енгізу

Editl

Properties

Caption

Text қасиетінің мәнін тазалау

Edit2

Properties

Caption

Text қасиетінің мәнін тазалау

Edit3

Properties

Caption

Text қасиетінің мәнін тазалау

4. айнымалыларды енгізу: ik, k, i : integer; s : string; a : array [1..15] of integer.

5. Жобаны сақтап, сосын оны іске қосып, орындалуын тексеріңіз.


Бағдарлама листингі

procedure Tform1.FormCreate(Sender: Tobject); begin

Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end;

procedure Tform1.Button1Click(Sender: Tobject); begin

Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end;

procedure Tform1.Button2Click(Sender: Tobject); begin

close;

end;


procedure Tform1.Button3Click(Sender: Tobject); begin

k := StrToInt (Edit2.Text); For i:= 1 to 15 do

if k = a[i] then ik := i; if ik = 0 then Edit3.Text := 'number ubsent' else Edit3.Text := IntToStr (ik);

end;


procedure Tform1.Button4Click(Sender: Tobject); begin

randomize;

s := '';

For i := 1 to 15 do begin

a[i] := random (26); s := concat (s, IntToStr (a[i]), #32); end; Edit1.Text := s; end; end.

Әрекеттер бойынша жобалардың түрлері:





22-сурет



23-сурет


24-сурет



25-сурет

15. Уақыт есептеуіш


Жұмыстың мақсаты – ағымдағы уақыт пен ағымдағы күнді шығарып, көрсететін бағдарлама құру.
Бағдарламаны іске асыру жоспарының сипаттамасы

1. Жаңа жоба ашу.

2. Пішінге мына компоненттерді: Button, Edit, Label орналастыру.

3. Мына кестеде жазылған әрекеттерді орындау:



14 - кесте

Белгі-

ленген


нысан

Object Inspector терезесінің астары

Қасиеттің аты/ Оқиғаның аты

Атқарылатын әрекет

Form1

Properties

Caption

Пішінге «Таймер» атын орнату

Button1

Properties

Caption

«ағымдағы уақыт» атын енгізу

Events

Onclick

DateTime:=Time; Edit1.Text:=TimeToStr(DateTime);

Button2

Properties

Caption

«Бүгінгі күн» атын енгізу

Events

Onclick

Edit2.Text:=DateToStr(Date);

Edit1

Properties

Caption

Text қасиетінің мәнін тазарту

Edit2

Properties

Caption

Text қасиетінің мәнін тазарту




26-сурет
Ішкі бағдарлама листингі:

var


DateTime : TdateTime;

procedure Tform1.Button1Click(Sender: Tobject); begin

DateTime:=Time;

Edit1.Text:=TimeToStr(DateTime); end;

procedure Tform1.Button2Click(Sender: Tobject); begin

Edit2.Text:=DateToStr(Date); end; end.

16. Оятқыш сағат
Жұмыстың мақсаты – көрсетілген уақытта оятатын оятқыш сағаттың бағдарламасын жасау. Пішінде қазіргі уақыт пен ояту уақыты бөлек-бөлек көрсетіліп тұруы тиіс.



27-сурет
Жұмысты іске асырудың бағдарламасы:

var


Hour,Min: word; // индикатордағы уақыт

AlHour, AlMin: word; //оятқышқа орнатылған уақыт AlHour:AlMin

// бағдарлама жұмысының басталуы

procedure TForm1.FormCreate(Sender: TObject);

begin

Hour := HourOf(Now);



Min := MinuteOf(Now);

Label1.Caption := IntToStr(Hour);

if Min < 10

then Label2.Caption := '0'+IntToStr(Min)

else Label2.Caption := IntToStr(Min);

end;


// таймерден түсетін сигнал

procedure TForm1.Timer1Timer(Sender: TObject);

var

cHour,cMin: word;



begin

// ағымдағы уақытты алу

cHour := HourOf(Now);

cMin := MinuteOf(Now);

if Timer1.Tag = 0 //экрандағы бағдарлама терезесі

then begin

{ ағымдағы уақытпен индикаторда көрінген уақыттың сәйкестігін тексеру}

if cHour <> Hour then

begin

Hour := cHour;



Label1.Caption := IntToStr(Hour);

end;


if cMin <> Min then

begin


Min := cMin;

if min <10

then Label2.Caption := '0' + IntToStr(Min)

else Label2.Caption := IntToStr(Min);

end;

// (:) қос нүктенің жыпылықтауын қаматамасыз ету



if Label3.Visible

then Label3.Visible := False

else label3.Visible := True;

end


else // бағдарлама терезесі жасырылған, сигнал

// жіберу сәтінің келгендігін тексеру

if (cHour = AlHour) and (cMin = AlMin)

// сигнал !

then begin

Form2.Show;

Timer1.Tag := 0;

Timer1.Interval := 1000;

end;

end;


// UpDown1 шерту оятқыш -сағаттың сигнал беру уақытын өзгертеді

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

begin

if UpDown1.Position < 10



then Label4.Caption := '0' + IntToStr(UpDown1.Position)

else Label4.Caption := IntToStr(UpDown1.Position);

end;

// UpDown1 шерту оятқыш-минуттың сигнал беру уақытын өзгертеді



procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);

begin


if UpDown2.Position < 10

then Label5.Caption := '0' + IntToStr(UpDown2.Position)

else Label5.Caption := IntToStr(UpDown2.Position);

end;


// OK батырмасын шерту

procedure TForm1.Button1Click(Sender: TObject);

begin

// оятқышты орнату



AlHour := UpDown1.Position;

AlMin := UpDown2.Position;

Timer1.Tag := 1;

Form1.Hide; //

Timer1.Interval := 3000; // әрбір 3 секунд сайын тексеру

end;


end.

17. Олимпиада жалауы


Жұмыстың мақсаты – пішін бетінде олимпиада жалауын сызатын бағдарлама құру.




жүктеу 1,5 Mb.

Достарыңызбен бөлісу:
1   ...   76   77   78   79   80   81   82   83   ...   94




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау