Delphi 7 бағдарламалау ортасында электрондық оқу-тест бағдарламасын әзірлеу
МАЗМҰНЫ
КІРІСПЕ......................................................................................................................
1 Delphi программалау ортасы туралы жалпы түсінік........................................
Бағдарламалау тілдеріне шолу...........................................................................
Delphi программалау жүйесі...............................................................................
Delphi интерфейсінің элементтері....................................................................
Delphi ортасының компоненттер палитрасы....................................................
2 Бағдарлама туралы жалпы түсінік........................................................................
2.1 Есептің жалпы қойылымы..................................................................................
2.2 Бағдарлама алгоритмі.................................................................................
2.3 Модульдер, процедуралар, функциялар кестесі............................................
Қорытынды
Пайдаланылған әдебиеттер тізімі...........................................................................
Қосымша...................................................................................................................
КІРІСПЕ
Әлемнің оқу орындары жаңа технологиялармен және ақпараттық жүйелермен
Бұл курстық жұмыстың тақырыбы «Дельфи бағдарламалау ортасында тест
Курстық жұмыс – бұл бағдарламалық – әдістемелік жиын.
Бұл курстық жобада 50 минут ішінде 20 сұраққа
Бұл жасалған бағдарламаны тек қана оқушы емес, оқытушы
Бұл тест бағдарламасын қолдану облысы
Курстық жұмыс Delphi 7 бағдарламасы көмегімен тест
Бұл курстық жұмыстың мақсаты электронды оқу тест бағдарламаасын
Delphi программалау ортасы туралы жалпы түсінік
Бағдарламалау тілдеріне шолу
Программалау тілінің көмегімен дайын программа емес, оның бұрын
Процессорлардың әр тұрпаты әр түрлі теру командасына ие.
Delphi ортасы – программисттің жоғары тиімді жұмысын қамтамасыз
Адамдар тіліне қарағанда ЭЕМ тілі екі мағыналылық пен
ЭЕМ-де программалау – бұл жай операторлардың тізбектеліп орындалуы.
Әр программисттің программаны жазу кезінде әр түрлі көзқарасы
Көрсетілген критерийлерді қанағаттандыратын программалау ең жақсысы болып саналады.
ЭЕМ адамдарға қызмет көрсету үшін болғандықтан, ЭЕМ-де программалау
Delphi программалау жүйесі
Программисттің басты мақсаты оның программасын оқитын және қолданатын
Курыстық жоба Delphi 7-де талданып отыр. Delphi қолданушысы
RAD термині қосымшаларды тез өңдеу деген мағынаны білдіреді.
Компоненттер палитрасы – бұл Delphi-дің негізгі байлығы. Ол
Форма терезесі болашақ программаның Windows-терезе жобасын ұсынады. Басында
Delphi бағдарламалауортасының ішкі құрылымы басқа бағдарламалау тілінен артықшылығы
Delphi ортасы Single Document Interface (SDI) қосымшаларынан тұрады
Бағдарламалау ортасындағы негізгі құрамды бөліктер
Төменде Delphi ортасының негізгі бөліктері келтірілген:
1) форма дизайнері (Form Designer);
2 )бастапқы мәтінді редакторлау терезесі (Editor Window);
3) компоненттер палитрасы (Component Palette);
4) объектілер инспекторы (Object Inspector);
5) анықтамалықтар (On-line help).
Сонымен қатар Delphi тілінің тағы дақосымша құралдары бар.
Delphi тілінде бағдарламалаушылар уақыттың үлкен шығынын. Жұмыс жасау
Форма дизайнері Delphi тілінде қарапайым әрі түсінікті. Форма
Дизайнер формасымен жұмыс жасап болған соң, жұмыстың көп
Компоненттер палитрасы Форма дизайнеріне объектілерді орнату үшін қолданылады.
Форма дизайнерінің келесі жағында Объектілер инспекторын көруге болады.
Объектілер инспекторының терезесі екіге бөлінеді: Біріншісі – қасиеттер
Сурет 1 - Объектілер инспекторы формаға орналастырылған объектінің
Оқиғалар терезесі Редакторлау терезесімен байланысқан болады.
Delphi ортасындағы тағы басты бөлік анықтамалық болып табылады
Әр оператор Application (қосымша) объектінің белгілі бір әдісін
Анықтамалық контекстті-тәуелділікті болады.
Қосымша элементтер. Қосымша элементтер бөлімінде негізгі назар үш
Меню (Menu System);
Тез мүмкіндік алатын батырма панелі (SpeedBar);
Суреттердің редакторы (Image Editor).
Delphi ортасында осы менюдің көмегімен тез және иілгіш
SpeedBar Компоненттер палитрасының сол жағында орналасқан. SpeedBar менюдің
Сурет 2 - SpeedBar Компоненттер палитрасының сол жағында
Суреттер редакторы Windows ішіндегі Paintbrush сияқты
Сурет 3 - Суреттер радакторы. Батырмаларды құру үшін
Енді Delphi тілінде күнделікті бағдарлама құруда кездесетін элементтерге
Инстурментальды құрал
Жоғарыда айтылған құралдарға қоса Delphi тілімен бірге
Кірістірілген тексеруші;
Ішкі тексеруші (Жеке қойылады);
Командалық жолды компиляторлаушы;
WinSight;
WinSpector.
Осы құрал-саймандар бағдарламалауда техникалық орны бар болып саналады.
Тексеруші қадам бойынша құрылған қосымшаның қаншалықты тиімді жұмыс
Кірістірілген тексеруші жоғарыда келтірілген бөлімдермен бірдей жұмыс жасайды.
Енді компиляторға келейік. Ішкі компилятор DCC.EXE деп
WinSight және WinSpector Windows ортасында бағдарлама құрушылар үшін
Осы екі құралдың ішінде Windows хабарламаларын
WinSpector машинаның жағдайын мәтіндік файл ретінде сақтайды. Осы
Стандартты компоненттер
Компонент палитрасының құрамындағы объектілермен танысу керек.
Компоненттер палитрасында 14 объектіден тұрады. Олардың қолданылу ретін
Сурет 4 - Палитра бетәнде орналасқан компонеттер
Delphi тілінің стандартты компоненттері кейбір түсініктерімен келтірілген.
TMainMenu бағдарламаға негізгі менюді орнату үшін қолданылады.
TMainMenu менюін формаға орналастыру арқылы ол тек иконка
TPopupMenu ашылатын менюді шақыру үшін қолданылады.
TLabel экранда мәтінді шығару үшін қолданылады.
TEdit – стандартты басқарушы Windows элементі арқылы
TMemo - Tedit форманың келесі бір
TButton бағдарламаны орындау кезінде қандай болмасын батырманы
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Are you there?',mtConfirmation,mbYesNoCancel,0);
end;
TCheckBox мәтін жолын кішкентай терезеде қасынан көрсету.
TRadioButton бірнеше опциялар ішінен тек біреуін таңдау үшін
TListBox жылжытылатын тізімді көрсету үшін қолданылады.
TComboBox ListBox қызметін атқарады ақпаратты кіші әріппен
TScrollbar – жылжыту жолағы. Обектілер үшін аутоматты түрде
TGroupBox Windows көрсету үшін визуальды мақсат үшін
TPanel – басқару элемент. Декоратитвті мақсат үшін қолданылады.
Delphi интерфейсінің элементтері
Delphi ортасында жұмысты бастамай тұрып, алдымен өз файлдарымызды
Бағдарламалардың жобасын құру барысында көптеген формалар мен модульдер
Мысалы, бағдарламаға енгізілген соңғы өзгерістерді файлда автоматты түрде
Интерфейстің құрамына 4 терезе кіреді:
1 Негізгі терезе (Project 1);
2 Объектілер бақылаушысының терезесі (Object Inspector);
3 Формалар құрастырушысының терезесі (Form1);
4 Бағдарлама кодының терезесі (Unit1.pas).
DELPHI-дің IDE ортасы көптерезелік жүйе деп саналады және
Сурет 1-Delphi ортасының көрінісі
Негізгі терезеден басқа терезелерді жылжытуға, экраннан алып тастауға
Терезелерді кішірейту, үлкейту, жабу әрекеттері осы әрекеттердің Windows
Форманың терезесінен Unit кодына және одан кері өту
Негізгі терезеден басқа терезелерді жылжытуға, экраннан алып тастауға
Терезелерді кішірейту, үлкейту, жабу әрекеттері осы әрекеттердің Windows
Форманың терезесінен Unit кодына және одан кері өту
Кейде DELPHI жүктелгенде, Unit терезесі төмендегідей (1.1.2-сурет) шығуы
Сурет 2 - Browser терезесінің көрінісі
Негізгі терезе бағдарламаның жобасын құрудағы жұмыстарды басқарады және
Сурет 3 - Негізгі терезенің көрінісі
Бұл терезеде DELPHI-дің негізгі меню жүйесі, пиктограмммалық командалық
Негізгі меню жүйесінің опциялар тақырыптарының құрамына ішкі меню
Негізгі меню жүйесінің элементтері сол жағында ||| таңба
Тақташадағы батырмалар құрамын өзгерту үшін алдымен тақташаны оң
Сурет 4 -Тақташалар құрамын икемдеудегі терезелер
Бағдарламалаудағы айтарлықтай уақыт Lego конструкторының детальдарымен атқарылатын жұмыс
Бұл ерекшелік – визуалды (көзбен шолу) бағдарламалаудың негізі.
Delphi ортасының компоненттер палитрасы
Standard тобы
Объектілер репозитариясын ашу (File/New);
Бұрыннан құрылған файлды ашу (File/Open File);
Файлды дискіде сақтау (File/ Save as …), (Ctrl+S);
Дискіге жазып барлық файлдарды сақтау (File/Save all );
Бұрыннан құрылған бағдарламаның жобасын ашу (File/Open), (Ctrl+F11);
Жобаға жаңа файлды қосу (Project/Add to Project), (Shift+F11);
Жобадағы файлды жою (Project/Remove from Project).
View (қарап шығу) тобы
Екпінді жобаның құрамындағы модульдер тізімінен қажетті модульді таңдау
Екпінді жобаның құрамындағы формалардың тізімінен керекті форманы таңдау
Форманың терезесінен бағдарлама кодының терезесіне және одан кері
Жаңа форманы құру (View/New Form).
Debug (түзету) тобы
Бағдарламаны компиляциялау және орындау;
Түзету енгізіп жатқан бағдарламаның жұмысын уақытша тоқтату (Run/Program
Қадамдық тексеру ішкі бағдарламалардың жұмысын бақылау тәртібінде орындайды.
Қадамдық тексеру ішкі бағдарламалардың жұмысын бақыламайтын тәртібінде орындайды
Custome (баптау) тобы
Delphi ортасының құрамындағы аңықтама жүйесін іске қосу (Help/Contents).
Desktops (икемдеу) тобы
Delphi ортасының екпінді күйін сақтау;
Түзету тәртібіне сәйкестелген терезелерді орнату.
Компоненттер жинағы
Компоненттер жинағы – Delphi – дің негізгі ерекшелігі.
1 сурет. Компоненттер жинағының терезесі
Компонент деп белгілі – бір қасиеттері бар және
Форма құрастырушысының немесе форманың терезесі болашақ бағдарламаның Windows
Delphi ортасының компоненттері 19 топқа бөлінген, ол топтарды
Тақташадағы батырмалар құрамын өзгерту үшін алдымен тақташаны оң
2-сурет. Тақташалар құрамын икемдеудегі терезелер
Пиктограммалық батырмалар
Пиктограммалық батырмалар арқылы негізгі меню жүйесінің маңызды опцияларына
Standard тобы
Объектілер репозитариясын ашу (FHe/New)
Бұрыннан құрылған файлды ашу (File/Open file)
Файлды дискіде сақтау (File/Save as…) (Ctri+S)
Дискіге жазып барлық файлдарды сақтау (File/Save all)
Бұрыннан құрылған программаның жобасын ашу
Жобаға жаңа файлды қосу ( Project/Add to
View ( қарап шыгу) тобы
Екпінді жобаның құрамындағы модульдер тізімінен қажетті модульді
Екпінді жобаның кұрамындағы формалардың тізімінен керекті форманы таңдау
Форманың терезесінен программа кодының терезесіне және одан кері
Жаңа форманы құру (View/ New Form)
Debug (тузету) тобы
Программаны компиляциялау және орындау
Түзету енгізіп жатқан программаның жұмысын уақытша тоқтату
Қадамдық тексеру ішкі программалардың
Қадамдық тексеру ішкі программалардың жұмысын бақыламайтын тәртіпте орындайды
Custome ( баптау) тобы
Delphi ортасының құрамындағы анықтама жүйесін іске қосу (Help/Contents)
Desktops (икемдеу) тобы
Delphi ортасының екпінді күйін сақтау
Түзету тәртібіне сәйкестелген терезелерді орнату
Компоненттер жинағы
Компоненттер жинағы — Delphi-дің негізгі ерекшелігі. Ол негізгі
2-сурет. Компоненттер жинағының суреті
Компонент деп белгілі-бір қасиетгері бар және форма терезесінде
3-сурет. Компоненттер жинағын икемдеу терезелері.
Батырмалар тақташасы сияқты компоненттер палитрасын икемдеуге болады. Ол
Мысалы, 5 суреттегі көрінбейтін компоненттер арасындағы Dialogs парағын
Форма құрастырушысының терезесі
Форма қүрастырушысының немесе форманың терезесі - болашақ программаның
Программалау Lego констукторының бөлшектерімен атқарылатын жұмыс сияқты компоненттер
Бұл ерекшелік — визуалды (көзбен шолу) программалаудың негізі
Программаларда кейбір операторлар бөлігі программаның
Ішкі программалардың параметрлері болады.
2 Бағдарлама туралы жалпы түсінік
2.1 Есептің жалпы қойылымы
Құрастырылып жатқан бағдарлама техникалық тапсырмаға сәйкес 20 сұрақтан
Бағдарлама қолданушың қателіктерінен сақтау үшін енгізілген ақпараттарға бақылау
Аппаратты талаптарға келетін болсақ, онда олар келесi тұрады:
- бағдарлама IBM бiрлескен дербес компьюлерге жұмыс iстеуi
- процессордың типі – Pentium – 1
- операциондық сақтау құрылысы-16Мб;
- есте сақтау құылғысы 1Гб кем болмау керек
- монитордың типі - SVGA(15').
Ақпараттық және бағдарламалық сәйкестеріне
Осы бағдарламаны қолданушы компьютерде жұмыс жасау туралы тек
Iлескен құжаттаманың құрамына кiруi керек: түсiнiктеме және қолданушыға
2.2 Бағдарлама алгоритмі
Қорытынды
Менің бұл курстық жұмысымда информатика
Курстық жұмысымның негізгі мақсаты –
Менің ойымша, бұл компьютерде кездесетін
Курстық жобаға қойылған мақсаттары
Тілдің қарапайымдылығы және көнбестігі
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
Н. Культин. Delphi в задачах и примерах. –
С. Гасс Путешествие в страну
Дантеманн Джефф, Мишел Джим. Программирование в среде
Компьютерная технология обучения:словарь-справочник/Под редакцией В. Ю. Гриценко, А.
Тажигулова А. И. Конструирование электронных учебников//Научно-практический журнал «Информационные
Виштынецский Е. И., Кривошеев А. О. Вопросы применения
Қосымша
Бағдарлама листингі
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Bevel1: TBevel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Position:= poDeskTopCenter;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
\\ тесттың сұрақтарының коды
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,xpman;
type
TForm2 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Bevel1: TBevel;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Bevel2: TBevel;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
ball, ocen, num, sec, sec1,Min3, min: integer;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Èíôîðìàòèêà ãûëûìû';
RadioButton1.Caption:= 'àêïàðàòòûê ïðîöåñòåðä³ æèíàóäû';
RadioButton2.Caption:= 'àêïàðàòòûê ïðîöåñòåðä³ òàñûìàëäàóäû';
RadioButton3.Caption:= 'àêïàðàòòûê ïðîöåñòåðä³ ñàêòàóäû çåðòòåéò³í ãûëûì';
Button1.Visible:= false;
Button2.Top:= Button1.Top;
Button2.Left:= Button1.Left;
Button2.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð ' + IntToStr(num);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Position:= poDeskTopCenter;
//ball:= 0;
//num:=1;
//sec:=0;
Label2.Caption:= '';
Label3.Caption:= IntToStr(num);
Label4.Caption:= '';
Label4.Visible:= false;
Label2.Visible:= false;
Label3.Visible:= false;
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
Label6.Caption:= '';
Label6.Visible:= false;
timer1.enabled:=true;
Min3:=50*60;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if RadioButton3.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='1 Ãèãàáàéò = "?';
RadioButton1.Caption:= '1024000 áàéò';
RadioButton2.Caption:= '1024 ìåãàáàéò';
RadioButton3.Caption:= '1 êèëîáàéò';
Button2.Visible:= false;
Button3.Top:= Button1.Top;
Button3.Left:= Button1.Left;
Button3.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Ôàéë ñîç³ àãûëøûí ò³ë³íåí
RadioButton1.Caption:= 'Êàïøûê';
RadioButton2.Caption:= 'Áàãäàðëàìà';
RadioButton3.Caption:= 'Ìàë³ìåò';
Button3.Visible:= false;
Button4.Top:= Button1.Top;
Button4.Left:= Button1.Left;
Button4.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Êîìïüþòåðãå àêïàðàòòû åíã³çó æàáäûãû?';
RadioButton1.Caption:= 'æóéåë³ê áëîê';
RadioButton2.Caption:= 'òûøêàí';
RadioButton3.Caption:= 'ïåðíåòàêòà';
Button4.Visible:= false;
Button5.Top:= Button1.Top;
Button5.Left:= Button1.Left;
Button5.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
if RadioButton3.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Êîìïüþòåðä³í æóéåë³ê áëîãûíà êàé æàáäûê ê³ðìåéä³?';
RadioButton1.Caption:= 'ïðèíòåð';
RadioButton2.Caption:= 'äèñêæåòåê';
RadioButton3.Caption:= 'ìèêðîïðîöåññîð';
Button5.Visible:= false;
Button6.Top:= Button1.Top;
Button6.Left:= Button1.Left;
Button6.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Microsoft Office-êå êàòûñòû åìåñ ìàò³íä³ê ðåäàêòîðäû ê´ðñåò³í³ç:';
RadioButton1.Caption:= 'Word Pad';
RadioButton2.Caption:= 'Excel';
RadioButton3.Caption:= 'Word';
Button6.Visible:= false;
Button7.Top:= Button1.Top;
Button7.Left:= Button1.Left;
Button7.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Ïåðíåòàêòàíû¾ êàé áàòûðìàñû, àðêûëû îðûñ, êàçàê, àãûëøûí ò³ë³
RadioButton1.Caption:= 'shift+ctrl';
RadioButton2.Caption:= 'shift+alt';
RadioButton3.Caption:= 'ctrl ';
Button7.Visible:= false;
Button8.Top:= Button1.Top;
Button8.Left:= Button1.Left;
Button8.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Caps Lock ïåðíåñ³í³í êûçìåò³...';
RadioButton1.Caption:= 'Áàñ àð³ïòåðä³ òóðàòû òåðó ðåæèì³í åíã³çåä³
RadioButton2.Caption:= 'Àð³ï ïåðíåëåð³ìåí á³ðãå áàñûëûï
RadioButton3.Caption:= 'Áàñêà ïåðíåìåí á³ðãå áàñûëûï
Button8.Visible:= false;
Button9.Top:= Button1.Top;
Button9.Left:= Button1.Left;
Button9.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Èíôîðìàòèêàäà àêïàðàòòûí ê´ëåì³í îëøåéò³í
RadioButton1.Caption:= '1 áèò';
RadioButton2.Caption:= '1024 áàéò';
RadioButton3.Caption:= '1 áàéò';
Button9.Visible:= false;
Button10.Top:= Button1.Top;
Button10.Left:= Button1.Left;
Button10.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
if RadioButton3.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Êóæàòòû ñàêòàó êåëåñ³ êîìàíäà
RadioButton1.Caption:= 'Òóçåòó- ... äåï ñàêòàó (Ïðàâêà- ñîõðàíèòü
RadioButton2.Caption:= 'Ôàéë -ñàêòàó ( Ôàéë -Ñîõðàíèòü)';
RadioButton3.Caption:= 'Òóçåòó - êóæàòòû ñàêòàó (Âñòàâêà -
Button10.Visible:= false;
Button11.Top:= Button1.Top;
Button11.Left:= Button1.Left;
Button11.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Àêïàðàòòûí åí ê³ø³ îëøåì á³ðë³ã³:';
RadioButton1.Caption:= '1áàéò';
RadioButton2.Caption:= '1áèò';
RadioButton3.Caption:= '1áîä';
Button11.Visible:= false;
Button12.Top:= Button1.Top;
Button12.Left:= Button1.Left;
Button12.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Àäàì ìåí êîìïüþòåð àðàñûíäàãû
RadioButton1.Caption:= 'Èíòåðôåéñ ';
RadioButton2.Caption:= 'Êîìàíäà ';
RadioButton3.Caption:= 'Ïðîöåññîð';
Button12.Visible:= false;
Button13.Top:= Button1.Top;
Button13.Left:= Button1.Left;
Button13.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button13Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='ENIAC - òûí êîíñòðóêòîðëàðû ';
RadioButton1.Caption:= 'ÄÆ.Ìîó÷ëè ìåí ÄÆ.Ýêêåðò';
RadioButton2.Caption:= 'Àäà Ëàâëåéñ';
RadioButton3.Caption:= 'Ãåðìàí Õîëëåðèò';
Button13.Visible:= false;
Button14.Top:= Button1.Top;
Button14.Left:= Button1.Left;
Button14.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button14Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Ïåðíåòàêòàíûí öèôðëàð ïåðíåëåð³í æóìûñ æàñàòïàé òàñòàéòûí áàòûðìàñû?';
RadioButton1.Caption:= 'Delete';
RadioButton2.Caption:= 'Numlock';
RadioButton3.Caption:= 'CapsLock';
Button14.Visible:= false;
Button15.Top:= Button1.Top;
Button15.Left:= Button1.Left;
Button15.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button15Click(Sender: TObject);
begin
if RadioButton2.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='PrintScreen ïåðíåñ³í³í êûçìåò³...';
RadioButton1.Caption:= 'Êîìïüþòåðä³ àëãàøû êàëûïêà îðíàòàäû';
RadioButton2.Caption:= 'Ýêðàí êîø³ðìåñ³í áóôåðãå àëàäû';
RadioButton3.Caption:= 'Àøûê òóðãàí òåðåçå êîø³ðìåñ³í áóôåðãå àëàäû';
Button15.Visible:= false;
Button16.Top:= Button1.Top;
Button16.Left:= Button1.Left;
Button16.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button16Click(Sender: TObject);
begin
if RadioButton3.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Delete ïåðíåñ³í³í êûçìåò³...?';
RadioButton1.Caption:= 'Ìåíçåðä³í îí æàãûíäà òóðãàí ñèìâîëäû îø³ðåä³';
RadioButton2.Caption:= 'Áàñ àð³ïòåðä³ øûãàðàäû';
RadioButton3.Caption:= 'Àëäûíãû ñèìâîëäû îø³ðåä³';
Button16.Visible:= false;
Button17.Top:= Button1.Top;
Button17.Left:= Button1.Left;
Button17.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button17Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Òåðåçåí³í òîðò æàãûí êîðøàï
RadioButton1.Caption:= 'Êóæàò';
RadioButton2.Caption:= 'Òåðåçå';
RadioButton3.Caption:= 'Øåêàðà ';
Button17.Visible:= false;
Button18.Top:= Button1.Top;
Button18.Left:= Button1.Left;
Button18.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button18Click(Sender: TObject);
begin
if RadioButton3.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='. . . ïðèíòåðä³í òóð³íå æàòïàéäû?';
RadioButton1.Caption:= 'äûáûñòûê ïðèíòåð';
RadioButton2.Caption:= 'Èíåë³ê ïðèíòåð';
RadioButton3.Caption:= 'Ñèÿ áóð³êê³ø ïðèíòåð';
Button18.Visible:= false;
Button19.Top:= Button1.Top;
Button19.Left:= Button1.Left;
Button19.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button19Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
Label1.Caption:='Àêïàðàòòû á³ð áåëã³ òîáûíàí
RadioButton1.Caption:= 'Êîä';
RadioButton2.Caption:= 'ASCII ';
RadioButton3.Caption:= 'Àëôàâèò';
Button19.Visible:= false;
Button20.Top:= Button1.Top;
Button20.Left:= Button1.Left;
Button20.Visible:= true;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
end;
procedure TForm2.Button20Click(Sender: TObject);
begin
if RadioButton1.Checked= true then
ball:= ball+2
else
ball:= ball;
num:= num+1;
Label3.Caption:= IntToStr(num);
Label2.Caption:= IntToStr(ball);
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
if (ball = 16)
then ocen:= 5;
if (ball = 11)
then ocen:= 4;
if (ball = 6)
then ocen:= 3;
if ball < 5
then ocen:= 2;
Label4.Caption:= IntToStr(ocen);
Form3.Visible:= true;
Form2.Visible:= false;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
Timer1.Enabled:= true;
Timer1.Interval:=1000;
ball:= 0;
num:=1;
sec:=0;
sec1:=0;
Label2.Caption:= '';
Label3.Caption:= IntToStr(num);
Label4.Caption:= '';
Label6.Caption:= '';
Label5.Caption:= 'Âîïðîñ íîìåð: ' + IntToStr(num);
Label7.Caption:= '';
Label8.Caption:='';
Button20.Visible:= false;
Button1.Visible:= true;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
inc(sec); //Sec óâåëè÷èâàåì íà 1
inc(sec1);
Label6.Caption:=IntToStr(sec);
min:= Trunc(sec/60);
Label7.Caption:= IntToStr(min);
if sec1 >= 60 then sec1:= 0;
Label8.Caption:= IntTostr(sec1);
end;
procedure TForm2.Timer2Timer(Sender: TObject);
var Num: integer;
begin
Label10.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60
Dec(Min3);
if Min3 < 0 then
end;
end.
\\ нәтиже коды
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
Button2: TButton;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Close;
end;
procedure TForm3.FormShow(Sender: TObject);
var q:string;
begin
//Form3.Position:= poDeskTopCenter;
Label1.Caption:= Form2.Label2.Caption;
Label2.Caption:= 'Âàøà îöåíêà: ' + Form2.Label4.Caption;
Label3.Caption:= 'Òåñò ïðîøåë ñòóäåíò: ' + #13 +
Label4.Caption:= 'Âðåìÿ ïðîõîæäåíèÿ: ' + Form2.Label7.Caption + 'ìèí.'
if Label1.Caption = '20' then Label5.Caption:='100%'
if Label1.Caption = '19' then Label5.Caption:='95%'
if Label1.Caption = '18' then Label5.Caption:='90%'
if Label1.Caption = '17' then Label5.Caption:='80%'
if Label1.Caption = '16' then Label5.Caption:='85%'
if Label1.Caption = '15' then Label5.Caption:='80%'
if Label1.Caption = '14' then Label5.Caption:='75%'
if Label1.Caption = '13' then Label5.Caption:='70%'
if Label1.Caption = '12' then Label5.Caption:='65%'
if Label1.Caption = '11' then Label5.Caption:='50%'
if Label1.Caption = '10' then Label5.Caption:='50%'
if Label1.Caption = '9' then Label5.Caption:='30%'
if Label1.Caption = '8' then Label5.Caption:='25%'
if Label1.Caption = '7' then Label5.Caption:='20%'
if Label1.Caption = '6' then Label5.Caption:='15%'
if Label1.Caption = '5' then Label5.Caption:='10%'
if Label1.Caption = '4' then Label5.Caption:='9%'
if Label1.Caption = '3' then Label5.Caption:='3%'
if Label1.Caption = '2' then Label5.Caption:='2%'
if Label1.Caption = '1' then
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Close;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
hide;
Form1.show;
end;
end.
Қолданушы басшылығы
Ең алдымен Дельфи бағдарламасын ашып, жаңа форма құрамыз.
Бірінші формаға Additional бөлімінен Bevel компонентін қоямыз, ішіне
Екінші формаға 2 Bevel компонентін қоямыз, 20 батырма,
Үшінші формаға 2 Bevel, 6 Label, 2 Button
Сурет 1. Бірінші форма
Сурет 2. Тест формасы
Сурет 3. Нәтиже формасы
Бағдарламаны іске қосқанда шығатын мәліметтер
Сурет 4. Аты – жөнді енгізу формасы
Сурет 5. Тест формасы
Сурет 6. Нәтиже формасы
Код редакторы
Форма
құрастырушысы
Объектілер
бақылаушысыыы
Негізгі терезе
Бағдарламаны іске қосу
Бағдарламадан шығу
Негізгі форма
Тест формасы
Нәтиже формасы
Бастау
Өз аты – жөніңізді енгізу
Қайтадан бастау
Тестті аяқтау
Пікірлер жүктелуде…