Сурет 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 (Орындау) – жасалған тіркемелерді іске қосуға, оған параметрлер жолын беруге, жөндеу жүргізуге, тоқтау нүктелерін беруге, адамдық орындауларды жүзеге асыруға, айнымалы мәндерін құруға және оларды өзгертуге мүмкіндік береді.
Үш нұсқаның бірін таңдау арқылы тест тапсырмаларына өте аламыз, Мұндағы Delphi бағдарламалау тіліне арналған сұрақтар берілген:
Сурет 2.9 Тест тапсырмасына өту терезесі
Нұсқа таңдалған соң, тест тапсырмасы шығады, әрбір сұрақтарды шығару арқылы, яғни ілгері батырмасын басу барысында, келесі кезектегі сұрақтар ашылады. Олардың дұрыс жауабын басу арқылы, берілген сұрақтарға жауап бере алады:
Достарыңызбен бөлісу: |