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



жүктеу 1,89 Mb.
бет5/10
Дата25.12.2017
өлшемі1,89 Mb.
#6126
түріБағдарламасы
1   2   3   4   5   6   7   8   9   10
Сурет 2.7 Шығу батырмасы
BitBtn3 компонентінің Caption қасиетін «Нәтиже» деп өзгертіп оған процедурасын жазамыз:

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

Label2.Caption:= ''+ inttostr(n) + ' дұрыс жауап бердіңіз';



end;

Бағдарламаны орындау барысында форма бетінен төмендегідей нәтиже алдым


BitBtn7 компонентінің Caption қасиетін «>>» деп өзгертіп оған процедурасын жазамыз:

procedure TForm4.BitBtn7Click(Sender: TObject);

begin

k:=k+1;


if k=1 then begin richedit1.Lines.LoadFromFile('тест1\11.rtf');end;

if k=2 then begin richedit1.Lines.LoadFromFile('тест1\12.rtf');end;

if k=3 then begin richedit1.Lines.LoadFromFile('тест1\13.rtf');end;

if k=4 then begin richedit1.Lines.LoadFromFile('тест1\14.rtf');end;

if k=5 then begin richedit1.Lines.LoadFromFile('тест1\15.rtf');end;

if k=6 then begin richedit1.Lines.LoadFromFile('тест1\16.rtf');end;

if k=7 then begin richedit1.Lines.LoadFromFile('тест1\17.rtf');end;

if k=8 then begin richedit1.Lines.LoadFromFile('тест1\18.rtf');end;

if k=9 then begin richedit1.Lines.LoadFromFile('тест1\19.rtf');end;

if k=10 then begin richedit1.Lines.LoadFromFile('тест1\20.rtf');end;

if k=11 then begin richedit1.Lines.LoadFromFile('тест1\21.rtf');end;

if k=12 then begin richedit1.Lines.LoadFromFile('тест1\22.rtf');end;

if k=13 then begin richedit1.Lines.LoadFromFile('тест1\23.rtf');end;

if k=14 then begin richedit1.Lines.LoadFromFile('тест1\24.rtf');end;

if k=15 then begin richedit1.Lines.LoadFromFile('тест1\25.rtf');end;

end;


Бағдарламаны орындау барысында форма бетінен төмендегідей нәтиже береді.


Сурет 2.8 Келесі сұраққа шығу батырмасы
BitBtn4 компонентінің Caption қасиетін «<<» деп өзгертіп оған процедурасын жазамыз:

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

k:=k-1;


if k=1 then begin richedit1.Lines.LoadFromFile('тест3\11.rtf');end;

if k=2 then begin richedit1.Lines.LoadFromFile('тест3\12.rtf');end;

if k=3 then begin richedit1.Lines.LoadFromFile('тест3\13.rtf');end;

if k=4 then begin richedit1.Lines.LoadFromFile('тест3\14.rtf');end;

if k=5 then begin richedit1.Lines.LoadFromFile('тест3\15.rtf');end;

if k=6 then begin richedit1.Lines.LoadFromFile('тест3\16.rtf');end;

if k=7 then begin richedit1.Lines.LoadFromFile('тест3\17.rtf');end;

if k=8 then begin richedit1.Lines.LoadFromFile('тест3\18.rtf');end;

if k=9 then begin richedit1.Lines.LoadFromFile('тест3\19.rtf');end;

if k=10 then begin richedit1.Lines.LoadFromFile('тест3\20.rtf');end;

if k=11 then begin richedit1.Lines.LoadFromFile('тест3\21.rtf');end;

if k=12 then begin richedit1.Lines.LoadFromFile('тест3\22.rtf');end;

if k=13 then begin richedit1.Lines.LoadFromFile('тест3\23.rtf');end;

if k=14 then begin richedit1.Lines.LoadFromFile('тест3\24.rtf');end;

if k=15 then begin richedit1.Lines.LoadFromFile('тест3\25.rtf');end;

end;


2.6 Тестілеу бағдарламасының орындалуы
Delphi- де Run (Орындау) – жасалған тіркемелерді іске қосуға, оған параметрлер жолын беруге, жөндеу жүргізуге, тоқтау нүктелерін беруге, адамдық орындауларды жүзеге асыруға, айнымалы мәндерін құруға және оларды өзгертуге мүмкіндік береді.

  1. Үш нұсқаның бірін таңдау арқылы тест тапсырмаларына өте аламыз, Мұндағы Delphi бағдарламалау тіліне арналған сұрақтар берілген:



Сурет 2.9 Тест тапсырмасына өту терезесі


  1. Нұсқа таңдалған соң, тест тапсырмасы шығады, әрбір сұрақтарды шығару арқылы, яғни ілгері батырмасын басу барысында, келесі кезектегі сұрақтар ашылады. Олардың дұрыс жауабын басу арқылы, берілген сұрақтарға жауап бере алады:



жүктеу 1,89 Mb.

Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау