Разработка программы с помощью языка программирования Delphi (стр. 4 из 4)
217. BNewtest. Visible:=true;
218. exit;
219. end;
220. // отображаем следующий вопрос на форме
221. StaticText1. Caption:=BasaV.test[curN].vopr;
222. RGroup1. Items[0]:=BasaV.test[curN].ans[0];
223. RGroup1. Items[1]:=BasaV.test[curN].ans[1];
224. RGroup1. Items[2]:=BasaV.test[curN].ans[2];
225. RGroup1. Items[3]:=BasaV.test[curN].ans[3];
226. RGroup1. ItemIndex:=0;
227. LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);
228. end;
229. // ***************************
230. // закрыте формы с тестами
231. // ***************************
232. procedure TFormTest.BNewTestClick (Sender: TObject);
233. begin
234. Close;
235. end;
236. // ***************************
237. // активизация формы с авторизации
238. // ***************************
239. procedure TFormTest. FormClose (Sender: TObject; var Action: TCloseAction);
240. begin
241. FormAvto. Show;
242. end;
243.
244. end.
Моя программа выполняет тестирование студентов по программированию. При открытии программы появляется окно (рис В.1), тестирования в котором нужно вести Фамилию Имя и Группу. Тестирование состоит из 20 вопросов, в каждом вопросе четыре варианта ответа необходимо выбрать один правильный (рис В.2). В конце тестирования появляется окно в котором выводится бал за количество ответов по 12 бальной системе (рис В.3).
Рисунок В.1 – Окно авторизации
Рисунок В.2 – Внешний вид формы FormTest
Рисунок В.3 – Итог