Курсовая работа: Разработка программы с помощью языка программирования Delphi

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 – Итог