ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ АУЫЛ ШАРУАШЫЛЫҚ МИНИСТРЛІГІ
С.СЕЙФУЛЛИН АТЫНДАҒЫ ҚАЗАҚ АГРОТЕХНИКАЛЫҚ УНИВЕРСИТЕТІ
Ақпараттық жүйелер кафедрасы
Бекітемін
«Ақпараттық жүйелер»
кафедрасының меңгерушісі
____________ А.А Исмаилова
« 16 » ақпан 2017г
ОҚУ - ТӘЖІРИБЕСІ
ЕСЕП
Студент: .....АЖТ-104
Тәжірибенің орны :КазАту Компьютерлік жүйелер кафедрасы
Тәжірибе жетекшісі: Турсумбаева Айнур Файзуллаевна
Астана 2017
№ 1 Зертханалық жұмыс
“ Оқиғаларды өңдеу” атты жобамен жұмыс
Жұмыстың мақсаты:
Стандартты және стандартты емес оқиғаны өңдеуіштерді оқып, үйрену
1 Тапсырма
Егер CheckBox1 опциясы орнатылған болса, міндеті Edit1 компонентына сан енгізілуі керек екенін көрсету болып табылатын
Label1 компонентын Form1 формасында қарастырылады.
Бағдарламаның дайын түрі
|
|
Листинг бағдарламасы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel
Edit1:TEdit;
CheckBox1:TCheckBox;
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CheckBox1Click(Sender:TObject);
begin
if CheckBox1.Checked=True then
Label1.Caption:= ‘Сан енгізіңіз’
Else
Label1.Caption:=‘ ’;
end;
end.
2 Тапсырма
Келесі әрекеттерді орындайтын бағдарламасын құрдым. Егер бағдарламаны іске қосқаннан кейін «Сәлемдеме» батырмасына тышқанмен шертсе, «Алғашқы жетістіктер!» деген мәтін шығады. Бағдарламадан шығу үшін «Шығу» батырмасын тышқанмен шерткен кезде жобамыз жабылады.
Бағдарламаның дайын түрі
Листинг бағдарламасы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Label1: TLabel
Button1:TButton;
Button2:TButton;
procedure Button2.Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender:TObject);
Close;
end;
procedure tform1.button1click(sender:tobject);
Label1.Caption: = “Aлғашқы жетістіктер!”;
end;
end.
Қорытындысы:Оздерин жазындар
№ 2 Зертаханалық жұмыс
“Сұхбат” атты жобасын құру
Жұмыстың мақсаты:
Edit енгізу жолы мен OnKeyPress оқиғалар өңдеушісімен жұмыс істеп үйрену.
1 Тапсырма
Edit енгізу жолы мен OnKeyPress оқиғалар өңдеушісімен жұмыс істеп үйрену.Бағдарлама жүктелгеннен кейін қолданушы өзінің атын жарқырауыш мәтіндік мезгегіші бар тік төртбұрышқа енгізіп, Мысалы, Әліби есімі болсын. «Әліби, сен оқығанды жақсы көресің бе?» деген сұрақ шығады. Егер қолданушы «Иә» бастырмасын басса, «Жарайсың!» деген сөз шығады. Егер «Жоқ» бастырмасын басса, онда «Неге? Оқу керек.» деген сөйлем шығады. Бағдарламадан шығу үшін «Шығу» батырмасын шерту керек.
Бағдарламаның дайын түрі
Листинг бағдарламасы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
BitBtn1: TBitBtn;
Edit1: TEdit;
BitBtn2: TBitBtn;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;