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. Олимпиада жалауы
Жұмыстың мақсаты – пішін бетінде олимпиада жалауын сызатын бағдарлама құру.
Достарыңызбен бөлісу: | 
