"Тест" бағдарламасын құру

Кіріcпе
I. Негізгі бөлім
1.1 Тест бағдарламасы туралы жалпы түсінік
1.2 Тест бағдарламасын құру кезеңдері
1.3 Тестілеу процесінің кезеңдері
II. Арнайы бөлім
2.1 Delphi ортасымен танысу
2.2 Delphi бағдарламасының құрылымы
2.3 Бағдарламаның құрылымдық сипаттамасы
2.4 Объектілер тармағының терезесі
2.5 Программалар коды терезесі
2.6 Тестілеу жүйесін құру
Қолданылған әдебиеттер
Қазіргі кезде дербес компьютерлерді пайдаланушылар арасында Windows операциялық жүйелері жанұясы танымал және бағдарлама жасауға қызыққандар, осы жүйеде жұмыс жасайтын бағдарламалар жазуға ынталанады. Есептеуіш техниканың дамуы, бағдарламаны қамтамасыз жасау құралдарына деген эффективті қажеттілік, бағдарламалау тілдерінің пайда болуына әкелді, олардың ішінде келесілерді Borland Delphi және Microsoft Visual Basic көрсетуге болады. Тез жасау жүйесінің негізіне көрнекі жобалау технологиясы және оқиғалы бағдарламалау жатады. Оның мәні жасау ортасы бағдарламаның генерация кодының үлкен бөлігін алады және бағдарламалаушыға диалогтық терезелермен және жағдайларды өңдеу функциясын құрастыру жұмыстарын қалдырады.
1. Архангельский А.Я. Программирование в Delphi 7. – Москва -2000г.
2. Баас Р. и другие. Delphi 7. Для пользователя. - Киев, 2000г.
3. Бобровский В.А. Delphi 7. Начальный курс. - СПб, 1998г.
4. Байжұманов М.Қ., Жапсарбаева Л.Қ. Информатика.-Астана:«Эверо», 2004ж.-256 б.
5. А.Ә. Шайқұлова, С.Т.Аманжолова, Н.Т.Асқарова Бағдарламалық жасақтаманың қазіргі заманғы жабдықтары «Фолтант» баспасы/Астана-2007ж.11-13б.
6. Глушаков С.В., Клевцов А.Л. – Программирование в среде Delphi 7.0. ФОЛИО, 2003.
7. Глинский Я.Н., В.Е.Анохин, В.А.Ряжская – TURBO PASCAL 7.0 и Delphi. Учебное пособие. Москва – Санкт – Петербург – Киев. 2001.
8. Гусева А.И.Учимся программировать Pascal 7.0.-М:«Диалог-МИФИ»,2001г.
        
        Кіріcпе
Қазіргі кезде дербес компьютерлерді пайдаланушылар арасында Windows
операциялық жүйелері жанұясы танымал және бағдарлама жасауға қызыққандар,
осы ... ... ... ... жазуға ынталанады. Есептеуіш
техниканың дамуы, бағдарламаны ... ... ... ... қажеттілік, бағдарламалау тілдерінің пайда болуына әкелді,
олардың ішінде келесілерді Borland Delphi және ... Visual ... ... Тез ... ... ... ... жобалау
технологиясы және оқиғалы бағдарламалау жатады. Оның мәні жасау ортасы
бағдарламаның генерация кодының үлкен ... ... және ... ... және жағдайларды өңдеу функциясын ... ... Delphi ... ... ... ең танымал тілдерінің
бірі болып саналады. Borland Delphi Windows –қа ... ... ... ... ... ... мүмкіндік береді. Бұл дипломдық жобада
қолданушының ... ... ... ... Windows ... ... жобада программаларды тестілеу және жөңдеу бағдарламасын Borland
Delphi ... ... ... ... жүзеге асады.
Жобаның мақсаты - Borland Delphi интерактивті жобалау ортасында
мектепте программаны ... ... құру ... ... ... білімінің деңгейін ғана анықтап қана қоймайды, оның ойын ... ... ... ... есептеу дағдыларының қалыптасуына, тез
шешім қабылдау қасиетінің дамуына тиімді әсер етеді. Тест ... ... ... ... ... және ол ... түрлі жағдайларда
қолдана білуін тексеруге мүмкіндік беретін тиімді ... ... ... ... мен жауаптары әрі қысқа, әрі анық болуы
қажет;
- Бір сұрақтың 3-4 түрлі жауабы ... ... ... ... біреуі ғана
дұрыс болады, басқалары жауабына жақын бірақ дұрыс болмауы шарт;
- Сұрақтарға жауап беру уақыты қатаң ... ... ... сұралушыларға бірдей дәрежеде түсіндіріледі, әдетте ол ... ... ... ... ... ... ... басқалармен салыстырғанда ешқандай артықшылық
берілмейді;
- Тестен сынаудың нәтижелерін бағалау алдын-ала жасалған жүйе ... ... ... ... берілген нұсқау және әрбір ... ... ... ... ... керек;
- Әрбір сұрақ жауабына берілетін балл бірдей (көбіне 1 балл) болуы керек;
- Тест қолданудың жоспарланған жүйесі ... ... ... ... Тест ... ... жалпы түсінік
Тестілеу (test, ағылшын сөзі «сынау» ... ... ... ... немесе оның жеке бөліктерінің дұрыс жұмыс істейтіндігін сынау.
Жөндеу және тестілеу бұлар бірінен бірі айқын ажыратылған ... бірі ... екі ... ... ... ... ... және кодтаудың айқын
қателіктерін төңіректеу және жою ... ... ... ... ... ... жоқ программаның жұмыс
істеу қабілеттілігі тексеріледі.
Тестілеу қателіктің бар екендігін ... ал ... ... ... ... ... ... заманғы программалау жөндеу жұмысы жөндеуші деп ... ... ... ... жолымен жүзеге асырылады. Бұл құралдар
программаның ішкі жұмысын зерттеуге мүмкіндік береді.
Жөндеу ... ... мына ... ... ... ... ... соң, тоқтай отырып, программаны қадамдап орындау;
- кез-келген ... ... ... ... ... кез-келген өрнектің,
оның ішінде стандартты функцияларды ... ... табу ... ... жаңа ... ... орындау;
- программада «тексеру нұктелерін» орнату, яғни аралық ... ... ... ... өз жұмысын тоқтататын нүктелерді тағайындау т.б.
Программаны жөндеуде мыналарды есте сақтау маңызды:
-жөндеу процесінің басында қарапайым тестілік деректерді пайдалану;
-пайда болатын қиындықтарды айқын ... және ... ... ... ... ... компьютерде деп есептемеу керек.
Программа қаншалықты өте мұқият жөнделсе де оның ... ... ... ... ... тестер жүйесінде
тікелей орындалуын тексеру болып табылады.
Егер программа таңдалынып алынған тестілік деректер ... ... ... ... ... ... болса, онда программаны
шартты түрде дұрыс деп есептеуге болады.
Тестілеу тәсілін жүзеге асыру үшін ... ... ... ... ... ... болуы тиіс.
Эталондық нәтижелерді прогрмманың компьютерде орындалу нәтижесін
алғаннан кейін емес, керісінше алғанға дейін ... ... қою ... ... қателіктердің пайда болуының барлық мүмкін болатын
шарттарын тексеруді қамтамасыз ететін болуы тиіс, атап айтқанда:
- ... ... ... ... ... ... тестіден өткізу алдыңғы ... ... ... ... ... істейтіндігін тексеру үшін бірінші тестің
мүмкіндігінше ... ... ... ... үшін тестідегі арифметикалық ... ... ... ... элементі санының, итерациялық есептеулер үшін алынған
дәлдіктің, ... ... ... ... ... ... ... тұрғысынан берілуі;
- есептеулерді азайтудың тексеру сенімділігін төмендетпеуі;
- тестілік деректер ... ... ... ... нәтижелерді қолмен
орындау тәсілімен анықтауда қиындықтарға алып келетіндіктен және ... ... ... ... ... мақсатқа
бағытталған және жүйеленген болуы;
- тестілік деректерді күрделендіруде түсідің біртіндеп жүргізілуі.
1.2 Тест бағдарламасын құру ... ... ... ... ... ... алу ... мекеме
қызметкерлерінің білім дәрежесін анықтауда және т.б. ... ... ... ... ... ... пайдалану негізгі орын
алып келеді.
Қазіргі кезде компьютерді ... ... мен ... ... ... ... рет ... - олардың ағымдық білімін
бағалаудың негізгі әдістерінің бірі. Өзіндік жұмыстар, ... және тест ... ... ... ... деңгейін
көрсететіні сөзсіз.
Тест тапсырмаларын құру барысында мынадай әдістер бар:
- таңдау;
- сәйкестендіру;
- толықтыру;
- дұрыс тізбек құру.
Бұл әдістер ортақ қасиет - олар ... есте ... ... ... орындаудың түрлі тәсілдерін меңгеру қабілеттілігі
т.с.с. ... ... - ... ... Тест ... көп
деңгейлі және көп нұсқалы болып құрылуы да ... ... ... ... ... екі ... бөлуге болады.
1. Қалыпты жағдайда тексеру. Программалардың жұмыс істеуінің нақты
жағдайына тән алғашқы деректер ... ... ... Экстремальды жағдайда тексеру. Бұл жерде тестілік деректер
дегеніміз алғашқы деректер жиынының ... ... Бұл жиын ... ... ... тиісті алғашқы деректерден тұрады. Өте кіші немесе өте
үлкен сандар және деректердің болмауы Мұндағый деректердің типтік мысалдары
болып табылады.
Барлық ... ... бір ... ... деректер
жиынын өңдеуде есептеліп жасақталатындығы белгілі. Сондықтан мына ... ... алу ... Айнымалының теріс және нолдік мәндерін өңдеуге арналмаған
программаға қандай да бір ... ... ... дәл сол
мәндерді өңдеуге тура келсе не болар еді?
2. Егер массив элементтері оны хабарлауда көрсетілген ... ... онда ... ... ... ... программа өзін қалай
ұстар еді?
3. Егер өңделіп жатқан сан өте кіші немесе өте үлкен болса, онда не
болар еді?
Программа дұрыс емес ... ... ... ретінде қабылдап,
дұрыс нәтижеге ұқсас, бірақ дұрыс емес ... ... ... ең жаман
жағдайлар болып есептеледі.
Программа өзі дұрыс өңдей алмайтын кез келген деректерді теріске
шығаратын болу ... ... ... Delphi ортасымен танысу
Бағдарламалауға деген қызығушылық күн сайын өсуде. Бұл ... ... ... ... және ... ... Егер
де адам компьютермен жұмыс жасаса, онда ол адамда ерте ме, кеш пе ... ... ... ... қажеттілігі туындайды.
Қазіргі кезде дербес компьютерлерді пайдаланушылар арасында ... ... ... ... және бағдарлама ... осы ... ... ... ... ... ынталанады.
Есептеуіш техниканың дамуы, бағдарламаны қамтамасыз жасау ... ... ... ... ... ... болуына әкелді,
олардың ішінде келесілерді Borland Delphi және ... Visual ... ... Тез ... ... ... көрнекі жобалау
технологиясы және оқиғалы ... ... оның ... ... ... ... кодының үлкен бөлігін алады және бағдарламалаушыға
диалогтық терезелермен және жағдайларды ... ... ... ... – бұл Windows ... жүйесіндегі жұмыстарға бағытталған
бағдарламаларды жасау ... ... ... ... ... ... ... құрылады, ол өз ... ... ... базаланады. Delphi- де
бағдарламалар Object Pascal ... ... және ол Turbo ... ... және дамытушысы болып табылады. Delphi және ... ұзақ ... ... және ... ... ол, ең ... ... бар өнім болып табылады. Бөліп айтқанда,
Delphi ... ... ... ... және мәліметтер қорымен
Internet үшін тіркемелерін аяқтайтын, әртүрлі ... ... ... ... ... программалар немесе қосымшалар IDE
(Integrated ... ... ... ... ... ... IDE ортасы көптерезелік жүйе деп ... және ... ... ... ... түрде болуы мүмкін (1-сурет).
Сурет 1. IDE терезесі
Интерфейстің құрамына 4 ... ... ... ... ... ... (Object ... құрастырушының терезесі (Form1.dfm);
4.Программа кодының терезесі (Unit1.pas).
DELPHI бірқұжаттық орта, яғни бір ... тек қана бір ... ... ... ... ... жобасының атауы негізгі
терезесінің жоғарғы қатарында көрсетіледі.
Форманың терезесінен Unit ... жөне одан кері өту F12 ... ... Delphi ... ... ... – программист жұмысының өте ... ... ... ... ... ... ... ортаның жұмысын басқаратын алты
негізгі терезе шығады.
1. Негізгі терезе(Delphi7);
2. Объектілер тармағының терезесі(Form 1);
3. Объектілер ... ... ... ... ... терезесі (Object Inspector);
4. Броузер (көру) терезесі(Object TreeView);
5. Программа кодының терезесі(Unit 1.pas);
Программа кодының терезесін көру үшін Ғ12 ... басу ... – ді алаш ... ... ... ... барлық терезенің
үстіне шығады. Осы ... ... Inprise ... WEB –
беттеріне кіругемүмкіндік туады.
Негізгі терезе. ... ... ... ... ... негізгі қызметті атқарады. Бұл терезе экранда барлық ... және ең ... ... ... ... терезеде Delphi
ортасының бас менюі, пиктографиялық ... ... ... ... орналасқан.
Бас меню жобаны басқаруға арналған барлық қажетті командалардан
тұрады. Бас менюдің барлық ... ... ... ашылатын опциялар
тақырыбын қамтиды.
Бас терезенің барлық элементтері арнайы панельдерде орналасқан, ... жақ ... ... ... бар. Бас ... ... кез ... терезеден алып тастауға болады.
Панельде көрінетін батырмалардың құрамын өзгерту үшін оған ... ... сол жақ ... басу жеткілікті. Бұдан кейін ашылған
көмекші меню ... ... ... ... ... ... ... көрсетілген (жалаушалар). Олардың ішінен Customize – ды
(настройка, баптау) таңдағаннан кейін баптау терезесі пайда ... ... емес ... алып ... да ... Commands терезесіндегі
тізімнен қажетті батырмаларды таңдап, оны экранға тасып апаруға болады.
Негізгі терезеге жиі пайдаланылатын пиктограммаларды ... ... Chek – ... ... синтаксисін
тексеру; View/Debug Windows/Watches – отклаткалық режимді ... кіру ... ... – дегі кез ... ... жоба ... ... заты .dpr)
және бір немесе бірнеше модульдерден (заты .pas) тұрады. ... ... Object Pascal – дың ... ... ... 2. Delphi бағдарламасының құрылымы
2.3 Бағдарламаның құрылымдық сипаттамасы
Бағдарламаны құру үшін қолданылған компоненттер: Delphi ортасының
компоненттері ... ... ... пішімін анықтайтын бөлек
элементтері ретінде қолданылады. Сонымен қатар, Delphi ортасының көрініспен
жұмыс атқармайтын, яғни ... емес ... ... ... ... айтсақ, компонент алдын-ала даярланған бағдарламаның үзіндісі, оны
қажет болғанда құрылып ... ... ... болады деп түсіну
керек.
Пішін терезесі Windows жобасы – болашакта ... ... ... ... ... бұл терезе бос болады. Дәлірек айтсақ, ол Windows –
дің ... ... үшін ... ... менюді шақыру
батырмаларынан, терезені үлкейту, кішірейту, жабу батырмаларынан ... ... ... Әдетте, терезенің жұмыс ... ... ... ... ол ... ... орналасуын
реттеу қызметін атқарады (бұл нүктелерді алып тастау үшін Tool/Environment
Options меню командаларының ... ... ... ... ... қосқышындағы жалаушаны алып тастау ... ... ... ... ...... ... Windows
ортасындағы жобасы.
Сурет 3. Пішін терезесі
Алдымен бұл терезе бос ... дәл ... Windows ... ... яғни жүйелік менюді шақыру, ... жабу ... ... ... және ... ... Бұл терезенің жұмыс аумағы координаттар торының
нүктелерімен ... ... Lego ... ... ... жұмыс
сияқты компоненттер жинағынан қажетті компонентті ... ... ... ... ... форма терезесінде қажетті
компонеттер бірінен соң бірі орналасады.
Бұл ...... ... шолу) программалаудың негізі болып
табылады. Программалаушы әр мезгілде құрылатын программаның ... ... ... ... кез ... мезетте енгізу мүмкіндігіне
ие болады.
Жоғарыда айтылғандарды басшылыққа ала ... оқу ... ... құруға болады. Бұл процесті жеңілдету үшін ... ... ... ... ... ретіне қарай
келтірейік, яғни алдымен форма дайындалады, одан ... ... ... оған ... мен ... жолы ... ал ... мен көп
жолдық редактор панельдің үстіне ... бос ... ... ... ... ... мүмкіндігін ескере отырып,
тағайындалған.
Кесте 1. ... ... ... ... терезесіне енгізілетін |
| ... ... және ... ... Tform ... ... |
| |Height: 382 |
| |Name: Form1 |
| ... poDesigned |
| |Width: 365 |
| |Aling: alCustom |
| ... bsNone |
| |Color: clWhite |
| ... [] |
| |Cursor: ... ... TImage |Height: 128 |
| |Width: 128 |
| |Name: Image1 |
| ... True |
| |Left: 128 ... TImage |Height: 105 |
| |Width: 105 |
| |Name: Image2 |
| ... True |
| |Left: 88 ... Timer ... 8000 |
| |Name: Timer1 ... өлшемі Height (биіктік) және Width (ені) ескертусіз алынған
өлшеммен сәйкес келеді. Position қасиеті экранның ... ... ... ... ... і форманы Poscreen Center
экранның центрі бойынша ... етіп ... ... ... ... ол өзі орналасатын контейнерге салыстырмалы
орналасатын компонентті туралау тәсілін көрсетеді. Контейнер – оған ... ... ... орын ... табылады. Осындай
контейнердің бірі – Image компоненті. Біз формаға сурет орналастырдық, оның
қасиеті Align, мәні – alCustom ... Осы ... ... ... ... ... ... орналасады.
Caption (тақырып) қасиеті барлық көрінетін элементке қатысты. Форма
үшін оның ... ... ... анықтайды.
Left (солға), Top(жоғарғы жағынан) және Width (ені) қасиеттері
форманың сол жақ ... ... ... ... (аты) қасиеті программадағы форманың атын анықтайды.
BorderStile (жиек мәнері) қасиеті форманың жиек мәнерін анықтайды.
BorderStile мәнін – bsNone тағайындадық. bsNone – ... ... ... ... ... иконкасы) қасиеті бізде форманын үтінгі оң жақта
орналасқан уш батырманы (бүктеу, ... ... ... ... bsNone ... ... бул ... көрсетілмейді.
Color (түсі) қасиеті форманын, компоненттің түсін анықтайды. Бұл
жерде Color мәнін – clWhite ... ... ... ақ ... ... ... ... компонентте жүгіргінің мәнерін анықтайды.
Form1-дің Cursor мәнін – crHourGlass (кұмды сағат немесе жүктелу) қойдық.
Form1-дегі Image компонентінің Picture ... ... ... ... ... ... орналасқан қалтаны ашып,
суретті тандаймыз) арқылы біз Image компонентіне сурет орналастырамыз.
2.4 ... ... ... ... ... формада немесе мәліметтердің екпінді модулінде
орналасқан жеке ... ... ... ... ... Терезедегі кез келген компонентті белгілеу формалар терезесіндегі
сәйкес компонентті ... ... және ... инспекторы терезесінде
осы компоненттің қасиеті бейнеленеді. Екі рет ... ... ... ... ... ... әкеледі, ол OnClick оқиғасын өңдеу
үшін дайындалған код терезесіне орналастырады.
Формаға ... кез ... ... ... ... ... орналасуы, өлшемі, түсі және т.б. Мысалы,
компоненттің орналасуы мен ... ... ... ... басқара отырып, өзгерте алады. Ал, ... ... ... ... ... ... Бұл терезеде екі бет бар:
Properties (Қасиет) және Events (Оқиға). Properties беті – ... ... ... ... атқарады, Events беті – қандай да
бір оқиғаға компоненттің жауабын анықтайды.
Сурет 4. Объектілер инспекторының ... ... ... кез ... беті екі ... кесте
түрінде беріледі, сол бағанда қасиеттің немесе оқиғаның аты, ал оң жақта –
қасиеттің нақты мәні ... ... ... өңдейтін қосалқы программаның аты
болады.
Кесте жолының оң жақ бағанын тышқанмен белгілеу ... ... ... ... ... ... ... оң жақ шетінде үш нүкте (...)
немесе ↓ батырмаларының бірі пайда ... Үш ... (...) ... ... ... ... тағайындайтын сұхбат терезесін экранға
шығарады, ↓ батырмасын белгілеу қарапайым қаиеттің ... ... ... ... ... инспекторы терезесінің жоғарғы
бөлігінде формада ... ... ... ашылатын тізімі
орналасады. Форманың өзі де компонент болғандықтан, оның аты да осы ... сол жақ ... ... ... ... ... терезені түзетуге мүмкіндік беретін опциялар бар. Мысалы, Stay On
Top командасын ... ... ... ... ... ... тәуелсіз басқа терезелердің үстінде «қалықтап» жүреді.
Кестенің кез келген жолын тышқанды шерту арқылы ... ... ... ... ... ... күрделі болуы мүмкін. Қарапайымдарға бір
мәнімен анықталатын – сан, символдар жолы, True немесе False ... ... және ... ... ... ... ... Caption
(тақырыбы) қасиеті бір символдар жолымен, Enabled (қол жетерлік) – ... False ... ал Heigh ... және Width (ені) ... ... ... ... бақылаушы терезенің жоғары жағында форманың атауы және
формадағы орналасқан барлық ... ... ... ... орналасып тұрады.
2.5 Программалар коды терезесі
Код терезесі – программа мәтінін құрып, жөндеуге ... Бұл ... ... ... ... және ... ... алгоритмін
сипаттайды. Мәтінді жазу ережелерінің жиынтығы порограммалау тілі ... Delphi ... ... Pascal ... тілі тағайындалады. Ол
кеңінен таралған Pascal тілінің кеңейтілген, жетілдірілген нұсқасы, ... рет ... ... ... 1970 жылы ... және оны Borland
коорпорациясының қызметкерлері ... ... ... ... ... Borland Pascal және Object Pascal деп аталады).
Ең алғашқы Код терезесінде толыққанды Windows терезесі ретінде ... ... ... ... ... ... ... шығады. Жобамен
жұмыс барысында программист оған программаны басқаруды жүзеге ... ... ... ... ... ... құру үшін, Image1, Image2, Timer1 компоненттерін алып,
форма бетіне салдым. ... соң Image ... ...... ... (Picture) енгіздім. Timer компоненттің Properties – қасиеті
арқылы уақыт аралығын (Interval) ... ... ол ... ... ... ... TObject);
begin
Image2.Picture.LoadFromFile(' Загрузка.gif ');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=True;
Form2.Show;
Form1.Hide;
Timer1.Enabled:=False;
end;
end.
Нәтижесінде форма бетінен төмендегідей нәтиже көруге болады:
Сурет 5. Тестілеу жүйесінің ... ... ... ... ... ... Image1, CheckBox1, BitBtn1,
BitBtn2, BitBtn3, XPManifest1 объектілерін орналастырганнан кейін форма
беті мынадай бейнеде ... 6. ... ... ... ... ... ... басылғанда (орындалғанда) үшінші форма
(Form3) ашылады. Ол ... ... ... ... ... авторы)
жазылған.
BitBtn2 (Келесі) объектісінің басу (орындау) қызметі сөндірулі
болады. ... ... ... ... ... BitBtn2 ... ішке ... BitBtn2 объектісін
басылғанда (орындалғанда) төртінші форма (Form4) ашылады.
BitBtn3 (Шығу) объектісі ... ... ... терезесі
(MessageDlg) шығады.:
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then ... ... ... ... ... ... a: ... MessageDlg(Шығуды растайсызба?', mtConfirmation, [mbYes, mbNo],0);
case a of
mrYes:Form1.Close;
mrNo:Form2.Show;
end;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form4.Show;
Form2.Hide;
Form4.Edit1.Clear;
Form4.Edit2.Clear;
Form4.Edit3.Clear;
Form4.ComboBox1.Text:='1-2-3-4';
Form4.Edit4.Clear;
Form4.ComboBox2.Text:='Пән таңда;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: ... ... ... ... ... ... ... шығарады:
Сурет 7. BitBtn1-2-3 басылғанда шығатын нәтиелері
Төртінші формаға 5 – Image, 4 - Edit, 2 - ... ... BitBtn, ... ... ... тіркелу парақшасын даярлаймыз
(8 – сурет).
Бұл формада Edit1 мен BitBtn2 ғана ... ... ... қалғаны
жұмыс істеу қызметі сөндіріліп турады (Enabled:=false). Бұл ... ... ... тиіс ... ... ... соң бірі ... Барлық тармақ толғансо BitBtn1 (Бастау) батырмасы
іске қосылады.
BitBtn1 батырмасын басу кезінде толтырылған мәлеметтер ... ... ... ... файл (*.txt) ... ... пән ... тест іске қосылады.
BitBtn2 (Артқа) батырмасын басу кезінде тіркелу парақшасынан (Form4)
шығып, танысу бетіне (Form2) ... ... ... аты.txt');
rewrite(f);
write(f,edit3.text);
closefile(f);
assignfile(f,'Туган жылы.txt');
rewrite(f);
write(f,DateToStr(DateTimePicker1.Date));
closefile(f);
assignfile(f,'Курс.txt');
rewrite(f);
write(f,ComboBox1.Text);
closefile(f);
assignfile(f,'Группа.txt');
rewrite(f);
write(f,edit4.text);
closefile(f);
assignfile(f,'Пән.txt');
rewrite(f);
write(f,ComboBox2.Text);
closefile(f);
if ComboBox2.ItemIndex=0 then Form5.Show;
if ComboBox2.ItemIndex=1 then Form6.Show;
if ... then ... ... then ... ... ... ... TForm4.Edit1Change(Sender: TObject);
begin
if (edit1.Text=edit1.Text) then edit2.Enabled:=true;
if (edit1.Text='') then edit2.Enabled:=false;
end;
procedure TForm4.Edit2Change(Sender: TObject);
begin
if (edit2.Text=edit2.Text) then ... ... then ... ... ... ... then DateTimePicker1.Enabled:=true;
if (edit3.Text='') then DateTimePicker1.Enabled:=false;
if DateTimePicker1.Enabled=true then ComboBox1.Enabled:=true;
if DateTimePicker1.Enabled=false then ... ... ... (ComboBox1.Text=ComboBox1.Text) then edit4.Enabled:=true;
if (ComboBox1.Text='1-2-3-4') then edit4.Enabled:=false;
end;
procedure TForm4.Edit4Change(Sender: TObject);
begin
if (edit4.Text=edit4.Text) then ComboBox2.Enabled:=true;
if (edit4.Text='') then ComboBox2.Enabled:=false;
end;
procedure TForm4.ComboBox2Change(Sender: TObject);
begin
if (ComboBox2.Text=ComboBox2.Text) then ... ... ... then ... 8. ... беті ... жане ... нұсқасы)
Бесінші форма (тест) құрастыру үшін қолданылған компоненттер:
ScrollBox1, 20 - ... Timer1, 3 - BitBtn, ... ... беті ... ... (9 - ... – компоненттің Caption қасиетіне сурақ енгізіп, Items
қасиетіне жауап нұсқаларын жазып, ... ... ... Осы ... 19-дана RadioGroup түрлендіріледі.
Timer компоненттің Interval қасиеті арқылы ... ... ... ... ... жағдайда тестті қайтадан бастауға жане шығуда
мүмкіндік беріледі.
BitBtn2 (Қайтадан ... ... жана ... кеткендей уақыт
аяқтақталған соң шығады. Ол батырма басылған жағдайда сіз тестті басынан
белгілеп орындайсыз.
BitBtn3 ... ... ... ... растау терезесі
(MessageDlg) ... Шығу ... ... ... ... ал
расталмаса ешқандай өзгеріс болмайды.
BitBtn1 (Тексеру) батырмасын сураққа ... ... ... ... ... ... (ShowMessage) шығады. Сураққа толық жауап беріп
басқан жағдайда, бағдарлама тестті ... оның ... ... (Form9) ... Тест ... мен қоса тест ... ақпаратта, Нәтиже формасында Label компонеттеріне шығады.
Қалған пәндік тесттерде осы әдіспен құрастырылған.:
var jauap:array[1..20]of integer;
flag: boolean;
ball, durys, kate: ... ... ... ... then
begin flag:=false;
end
else begin
if jauap[1]=3 then ball:=ball+5;
if jauap[1]=3 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup2.ItemIndex=-1 then
begin flag:=false;
end
else begin
if ... then ... ... then ... else ... ... ... flag:=false;
end
else begin
if jauap[3]=3 then ball:=ball+5;
if jauap[3]=3 then durys:=durys+1 else kate:=kate+1;
end;
if ... ... ... ... ... then ... jauap[4]=0 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup5.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[5]=2 then ball:=ball+5;
if ... then ... else ... ... ... flag:=false;
end
else begin
if jauap[6]=3 then ball:=ball+5;
if jauap[6]=3 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup7.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[7]=0 then ball:=ball+5;
if jauap[7]=0 then ... else ... ... ... ... begin
if jauap[8]=3 then ball:=ball+5;
if jauap[8]=3 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup9.ItemIndex=-1 then
begin flag:=false;
end
else ... ... then ... ... then ... else ... ... then
begin flag:=false;
end
else begin
if jauap[10]=1 then ball:=ball+5;
if jauap[10]=1 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup11.ItemIndex=-1 ... ... ... ... then ... ... then ... else kate:=kate+1;
end;
if Radiogroup12.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[12]=0 then ball:=ball+5;
if jauap[12]=0 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup13.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[13]=3 then ... ... then ... else ... ... then
begin flag:=false;
end
else begin
if jauap[14]=1 then ball:=ball+5;
if jauap[14]=1 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup15.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[15]=3 then ... ... then ... else kate:=kate+1;
end;
if Radiogroup16.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[16]=2 then ball:=ball+5;
if jauap[16]=2 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup17.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[17]=1 then ... ... then ... else ... ... then
begin flag:=false;
end
else begin
if jauap[18]=3 then ball:=ball+5;
if jauap[18]=3 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup19.ItemIndex=-1 then
begin ... ... ... then ball:=ball+5;
if jauap[19]=0 then durys:=durys+1 else kate:=kate+1;
end;
if Radiogroup20.ItemIndex=-1 then
begin flag:=false;
end
else begin
if jauap[20]=2 then ball:=ball+5;
if jauap[20]=2 then ... else ... flag then ... àòû.txt');
reset(f);
read(f,s);
Form9.label3.Caption:=s;
closefile(f);
assignfile(f,'Òóãàí æûëû.txt');
reset(f);
read(f,s);
Form9.label4.Caption:=s;
closefile(f);
assignfile(f,'Êóðñ.txt');
reset(f);
read(f,s);
Form9.label5.Caption:=s;
closefile(f);
assignfile(f,'Ãðóïïà.txt');
reset(f);
read(f,s);
Form9.label6.Caption:=s;
closefile(f);
assignfile(f,'Ïàíè.txt');
reset(f);
read(f,s);
Form9.label7.Caption:=s;
closefile(f);
Form9.label8.caption:=(inttostr(ball));
Form9.label9.caption:=(inttostr(durys) + ' ñóðàêêà');
Form9.label10.caption:=(inttostr(kate) + ' ñóðàê');
end
else begin
ShowMessage('Ñóðàêêà òîëûê æàóàï áåð³í³ç!');
end;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
time:=400;
end;
procedure TForm5.Timer1Timer(Sender: TObject);
begin
time:=time-1;
label2.Caption:= IntToStr(Time) + ' ... ... time=0 then ... time=0 then ... áèòòè');
if time=0 then Form5.ScrollBox1.Enabled:=false;
if Form5.ScrollBox1.Enabled=false then BitBtn1.Visible:=false;
if BitBtn1.Visible=false then ... ... ... a: ... MessageDlg('Ñiçäií íàòèæåíèç æîéûëàäû',mtConfirmation, [mbYes,
mbNo],0);
case a ... ... ... time=0 then ... time=0 then ShowMessage('Óàêûòûíûç áèòòè');
if time=0 then Form5.ScrollBox1.Enabled:=false;
if Form5.ScrollBox1.Enabled=false then BitBtn1.Visible:=false;
if ... then ... 9. ... ... ... 3 – BitBtn, Image1, 10 – Label, Memo1, ... ... енгізілді.
Label – дар дың Caption қасиеттеріне тест орындаған адамның
мілеметтірі автоматты түрде шығады. Бұл туралы бесінші формаға анықтама
бергенде айтылған.
BitBtn 1 ... ... ... ... ... ... файл (*.txt) форматында сақтау мүмкіндігі болады. Memo1 мен
SaveDialog1 ... ... ... (Бірінші бетке оралу) батырмасын басқанда Танысу формасына
өтеді.
BitBtn3 (Шығу) батырмасы басылғанда шығуды ... ... ... Шығу ... ... бағдарлама жабылады, ал
расталмаса ешқандай өзгеріс болмайды.:
procedure TForm9.BitBtn3Click(Sender: TObject);
var a: integer;
begin
a:= MessageDlg('Øûãóäû ðàñòàéñûçáà',mtConfirmation, [mbYes, ... a ... ... ... ... ... SaveDialog1.Execute then
begin
Memo1.Lines.Add('Àòû: ' + Label1.Caption);
Memo1.Lines.Add('Òåãi: ' + Label2.Caption);
Memo1.Lines.Add('Àêåñiíií àòû: ' + Label3.Caption);
Memo1.Lines.Add('Òóãàí æûëû: ' + ... ' + ... ' + ... ïàíi: ' + ... ... ' + ... ... ' + Label9.Caption);
Memo1.Lines.Add('Êàòå æàóàïáåðãåíiíiç: ' + Label10.Caption);
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Close;
end;
end.
Сурет 10. Нәтиже ... ... ... барлық адамдық қызметтерінде керек. Олар
процестерді автоматтандыруға көмектеседі. Бұл дипломдық жобада ... ... ... ... ... ... ұсынылған.
Компьютерді пайдаланып, студенттер мен оқушыларды семестр, тоқсан
ішінде бірнеше рет ... - ... ... ... бағалаудың негізгі
әдістерінің бірі. Өзіндік жұмыстар, консультациялар ұйымдастыру және ... ... ... білім деңгейін көрсететіні сөзсіз.
Соңғы кезде тестілеу (сынақтау) ... ... алу ... ... ... ... ... және т.б. салаларда кеңінен
қолдануда. Тестілеу жұмыстарын жүргізуде компьютерді ... ... ... ... ... білімінің деңгейін ғана анықтап қана қоймайды, оның ойын
жүйелеп, жылдам есептеуіне, ... ... ... ... тез ... ... қасиетінің дамуына тиімді әсер етеді. Тест
оқушының білімін ... ... ... ... және ол ... ... ... білуін тексеруге мүмкіндік беретін тиімді жол.
Бұл курстық жобада «DELPHI программалау ортасында тест тапсырмалар
құрудың ... және ... ... ... ... ... Borland Delphi ... ортасы арқылы жүзеге
асырылады және Borland Delphi ортасының компоненттері ... ... ... ... ... ең ... тілдердің бірі болып
саналады. Borland Delphi ең ... ... оның ең ... ... және ... ... технология MS Office,
Internet Explorer ... ... ... ... идеологиясын
бойына жинақтаған.
Borland Delphi Windows-та кәсіби деңгейлі интерфейсі бар қосымшалар
жасауға мүмкіндік беретін тіл ... бұл ... ... ... ... ... және олардың қасиеттері мен оқиғалары ... ... ... ... қосымшаларды қолдану қазіргі
заманның технологиясына ... ... бірі ... ... Delphi ... түрлі мүмкіндіктері қарастырылып, оларды
өзімнің бағдарламама қолдандым. Берілген тапсырмалар арқылы және ... ... ... жұмысымды аяқтадым. Тест бағдарламасын ... ... ... ... жоқ.
Осы курстық жобада ВТиПО мамандық бойынша тест сұрақтары енгізілген.
Сондай-ақ, түрлі мүмкіндіктер қарастырып, тест бағдарлама ... ... ... ... ... ... Бұл тест ... оқытушылар, өткен тақырыпты немесе жаңа тақырыпты бекіту, сұрау
ретінде пайдаланып, ... ... ... ... ең ... Әрі ... ... үшін қызықты да тартымды өтеді. Сол сияқты
оқушылардың немесе пайдаланушылардың білімін ... ... ... ... да ... болады. Себебі, қарапайым қағаз
бетінде жазылған тесттен гөрі, арнайы бағдарламада ... ... ... ... ... А.Я. Программирование в Delphi 7. – Москва -2000г.
2. Баас Р. и ... Delphi 7. Для ... - ... ... Бобровский В.А. Delphi 7. Начальный курс. - СПб, ... ... М.Қ., ... Л.Қ. Информатика.-Астана:«Эверо», 2004ж.-
256 б.
5. А.Ә. Шайқұлова, С.Т.Аманжолова, ... ... ... ... жабдықтары «Фолтант» баспасы/Астана-2007ж.11-13б.
6. Глушаков С.В., Клевцов А.Л. – ... в ... Delphi ... ... Глинский Я.Н., В.Е.Анохин, В.А.Ряжская – TURBO PASCAL 7.0 и Delphi.
Учебное пособие. Москва – Санкт – ...... ... ... ... ... Pascal 7.0.-М:«Диалог-МИФИ»,2001г.
-----------------------
5
2
3
4
1

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 20 бет
Бұл жұмыстың бағасы: 700 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi ортасында тест бағдарламасын құру58 бет
Delphi ортасында тестілеу бағдарламасын құру жобасы39 бет
Delphi-де тест бағдарламасын құру17 бет
Delphi ортасын пайдалана отырып интернет дүкен бағдарламасын құру32 бет
«Тест» қосымшасын құру»25 бет
Е-қаржымині жүйесіне қойылатын жалпы талаптар110 бет
3DS Max3 бет
Excel-де жұмыс істеу. электронды кестелерді әзірлеу5 бет
Norton Commander бағдарламасы5 бет
«Nornot Commander бағдарламасы5 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь