TOPREFERAT.COM.KZ - Қазақша рефераттар

войти на сайт

вход на сайт

Логин: :
Пароль :

Забыл пароль Регистрация

Delphi бағдарламалау ортасында тест құрастыру курстық жұмыс




Delphi бағдарламалау ортасында тест құрастыру курстық жұмыс
0
Раздел: Соңғы қосылған | Автор: Админ | Дата: 13-03-2015, 12:05
Загрузок: 3827







МАЗМҰНЫ - www.topreferat.com.kz

КІРІСПЕ..............

1 Delphi программалау ортасы туралы жалпы түсінік........

Бағдарламалау тілдеріне шолу...........

Delphi программалау жүйесі...............

Delphi интерфейсінің элементтері............

Delphi ортасының компоненттер палитрасы............

2 Бағдарлама туралы жалпы түсінік........

2.1 Есептің жалпы қойылымы..........

2.2 Бағдарлама алгоритмі.........

2.3 Модульдер, процедуралар, функциялар кестесі............

Қорытынды

Пайдаланылған әдебиеттер тізімі...........

Қосымша...................




Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 40 бет
Пәні: Соңғы қосылған курстық жұмыстар

-----------------------------------------------------------------------------------

КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ


МАЗМҰНЫ

КІРІСПЕ......................................................................................................................

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 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 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. Нәтиже формасы

Код редакторы

Форма

құрастырушысы

Объектілер

бақылаушысыыы

Негізгі терезе

Бағдарламаны іске қосу

Бағдарламадан шығу

Негізгі форма

Тест формасы

Нәтиже формасы

Бастау

Өз аты – жөніңізді енгізу

Қайтадан бастау

Тестті аяқтау








Написать комментарий
Имя:*
E-Mail:
Полужирный Наклонный текст Подчеркнутый текст Зачеркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Выбор цвета | Скрытый текст Вставка цитаты Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера
Введите код: *


Бұл сайтта Қазақстанның түкпір-түкпірінен жиналған қазақ тіліндегі рефераттар мен курстық және дипломдық жұмыстар ұсынылған. Қазіргі таңда www.topreferat.com.kz сайтының қазақ тіліндегі жұмыстар базасы бүкіл интернеттегі ең үлкен база болып табылады! Біздің базадағы жұмыстар саны 15000-нан асады. Біз бұл жетістікпен тоқтап қалмаймыз! Біз базамызды одан әрі толықтырамыз.
» » Delphi бағдарламалау ортасында тест құрастыру курстық жұмыс

© 2011-2016 Скачать бесплатно на topreferat.com.kz курсовые, дипломные и рефераты на телефон, на планшет и на компьютер.
При копировании материала активная ссылка на источник обязательна.


Мнение посетителей:
 

После 9 класса Вы:

Пойду в 10, 11, закончу школу полностью
Пойду в Колледж
Пойду в ПТУ
Пойду работать
Снова пойду в 9 класс

 
 
Похожие:
  • Жергілікті желінің операциондық жүйелермен жұмыс істеу экспериментін оқытуд ...
  • Тағайындау есебін Т.Е.Венгер әдісімен шешу курстық жұмыс
  • Тасымалдау есептері курстық жұмыс
  • Сырттай оқу бөлімінің жұмысын автоматизациялау курстық жұмыс
  • Мәтіндерді шифрлау курстық жұмыс
  • Кластар иерархиясы, мұрагерлік, полиморфизм курстық жұмыс
  • Кинотеатр деректер базасын құру курстық жұмыс
  • Кітапхана автоматтандырылған жұмыс орнының әзірлемесі курстық жұмыс
  • Емхана автоматтандырлыған жұмыс орны курстық жұмыс
  • Дәріхана жұмысын автоматтандыру курстық жұмыс
  • Деканат деректер қоры курстық жұмыс
  • Банк депозиттері мәліметтер базасы курстық жұмыс
  • Аптека жұмысының мәліметтер қорын құру курстық жұмыс
  • Автосалон мәліметтер базасы курстық жұмыс
  • Delpһі программалау тілі курстық жұмыс
  • COM – технологиясы курстық жұмыс
  • Мәліметтер базасындағы футбол командалары реферат
  • Дельфидегі мультимедия реферат
  • Delphi-дің мультимедиалық мүмкіндіктері реферат
  • Delphi жүйесінде Суретті жина ойынын құрастыру реферат