Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
1

Тестовая оболочка

22.01.2016, 10:23. Просмотров 2042. Ответов 12
Метки нет (Все метки)

помогите написать тестовую оболочку , вопросы и варианты приветствуются! или скиньте ссылку
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2016, 10:23
Ответы с готовыми решениями:

как работает тестовая оболочка?
Я знаю основы делфи. Вопрос состоит в том чтобы написать тестовую оболочку, подскажите с чего...

Тестовая программа
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls,...

тестовая система
привет всем. Есть тестовая система, в нее можно добавлять текстовые вопросы, а как можно сделать...

Тестовая программа
Есть тест. На стартовой форме расположены 2 кнопки для выбора темы теста (всего 2 темы). Так вот,...

12
Житель Земли
2793 / 2576 / 368
Регистрация: 26.07.2011
Сообщений: 10,507
Записей в блоге: 1
22.01.2016, 10:45 2
Цитата Сообщение от Nastyaaaj Посмотреть сообщение
или скиньте ссылку
https://www.cyberforum.ru/sear... d=10573740
0
446 / 413 / 164
Регистрация: 11.12.2013
Сообщений: 2,226
22.01.2016, 11:33 3
можно узнать подробности задания и что уже сделано?
0
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
26.01.2016, 04:35  [ТС] 4
У меня дипломная и я должна создать тестовую оболочку с помощью делфи
0
497 / 353 / 231
Регистрация: 29.03.2015
Сообщений: 675
26.01.2016, 06:47 5
Тест с конструктором тестов.
0
Вложения
Тип файла: zip test.zip (286.6 Кб, 77 просмотров)
497 / 353 / 231
Регистрация: 29.03.2015
Сообщений: 675
26.01.2016, 06:48 6
Тест на не русском языке.
0
Вложения
Тип файла: zip Test1.zip (220.3 Кб, 45 просмотров)
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
27.01.2016, 03:58  [ТС] 7
Спасибо, можете отправить пароль?)
0
497 / 353 / 231
Регистрация: 29.03.2015
Сообщений: 675
27.01.2016, 04:14 8
Архивы без пароля. Пароль в конструкторе тестов: KGTU
1
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
27.01.2016, 04:17  [ТС] 9
Спасибо
0
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
11.02.2016, 06:24  [ТС] 10
Можете пожалуйста отправить пошаговое создание тестовой оболочки? если есть
0
0 / 0 / 0
Регистрация: 22.01.2016
Сообщений: 9
13.02.2016, 06:47  [ТС] 11
unifikator, Можете пожалуйста отправить пошаговое создание тестовой оболочки Test1.zip ? если есть
0
497 / 353 / 231
Регистрация: 29.03.2015
Сообщений: 675
14.02.2016, 05:42 12
Я делал только окраску фигуры в тесте из архива Test1.zip. Но я написал инструкцию по созданию этого теста и исправил его ошибки. Тест без ошибок с инструкцией "Создание Test1.txt" в архиве Test1.zip следующего сообщения.
Инструкция:
1. Выбираем в главном меню File\New\Application.
2. Создаётся новый проект. Откомпилировав его получим программу теста.
3. Переносим с палитры Standard компонент Memo на форму. В нём будет задаваться вопрос.
4. Если нужно, то задаём свойство Name как "mmo1".
5. Растягиваем Memo по ширине.
6. Устанавливаем Memo ближе к верхнему левому углу формы.
7. Переносим с палитры Additional компонент Shape на форму. Он будет зелёным при правильном ответе и красным при неправильном.
8. Если нужно, то задаём свойство Name как "Shape1".
9. Устанавливаем его на равне с Memo.
10. Устанавливаем в Shape высоту и длину равными высоте Memo.
11. Переносим с палитры Standard 4 компонента RadioButton на форму. Они будут содержать возможные ответы на вопрос.
12. Если нужно, то задаём свойства Name как "rb1", "rb2", "rb3" и "rb4".
13. Перетаскиваем компоненты RadioButton в столбик под компонентом Memo.
14. Переносим с палитры Standard компонент Button на форму. При нажатии на него будет выводится следующий вопрос с воможными ответами.
15. Если нужно, то задаём свойство Name как "btn1".
16. Перейдём в редактор кода модуля Unit1. Будем записывать код для работы теста.
17. Перейдём в раздел var модуля Unit1.
18. Запишем "i:integer;" для указания в i номера текущего вопроса.
19. Запишем "right:integer;" для указания в right числа правильных ответов.
20. После раздела uses модуля Unit1 запишем "const kolvo=15;" для указания в kolvo количества вопросов.
21. Перейдём в раздел var модуля Unit1.
22. Запишем "questions:array[1..kolvo] of string;" для указания в массиве questions текста вопросов.
23. Запишем "Otvet1:array [1..kolvo] of string;" для указания в массиве Otvet1 текста первого возможного ответа.
24. Запишем "Otvet2:array [1..kolvo] of string;" для указания в массиве Otvet2 текста второго возможного ответа.
25. Запишем "Otvet3:array [1..kolvo] of string;" для указания в массиве Otvet3 текста третьего возможного ответа.
26. Запишем "Otvet4:array [1..kolvo] of string;" для указания в массиве Otvet4 текста четвёртого возможного ответа.
27. Перейдем на форму.
28. Дважды кликнем форму и создадим обработчик события создания формы, для задания начальных значений переменных и компонентов:
procedure TForm1.FormCreate(Sender: TObject);
begin

end;
29. Перейдем к месту между begin и end этого обработчика.
30. Запишем "i:=1;" для задания первого номера вопроса в тесте.
31. Запишем "right:=0;", чтобы количество правильных ответов вначале было равно 0.
32. Запишем "Questions[1]:='<текст первого вопроса>';" для задания текста первого вопроса.
33. Запишем "Otvet1[1]:='<текст первого ответа>';" для задания текста первого возможного ответа.
34. Повторим пункт 33 для Otvet2, Otvet3 и Otvet4 для задания текстов с второго по четвёртый возможного ответа.
35. Повторим пункты 32 - 34 для индексов массивов со 2 по 15 для задания остальных 14 вопросов и возможных ответов.
36. Запишем "Mmo1.Lines.Text:=Questions[1];" для задания текста первого вопроса в Memo.
37. Запишем "Rb1.Caption:=Otvet1[1];" для задания текста первого возможного ответа в первом компоненте RadioButton.
38. Запишем "Rb2.Caption:=Otvet2[1];" для задания текста второго возможного ответа во втором компоненте RadioButton.
39. Запишем "Rb3.Caption:=Otvet3[1];" для задания текста третьего возможного ответа в третьем компоненте RadioButton.
40. Запишем "Rb4.Caption:=Otvet4[1];" для задания текста четвёртого возможного ответа в четвёртом компоненте RadioButton.
41. Перейдем на форму.
42. Дважды кликнем Button и создадим обработчик события нажатия на кнопку, для задания перехода к следующему вопросу:
procedure TForm1.btn1Click(Sender: TObject);
begin

end;
43. Перейдем к месту между begin и end этого обработчика.
44. Если пользователь не выбрал ни один ответ, то нужно вывести соответствующее сообщение.
45. Запишем условие того, что пользователь не выбрал ни один ответ. То есть все RadioButton не отмечены. Если компонент RadioButton не отмечен, то его свойство checked равно false.
if (Rb1.checked = false) and (Rb2.checked = false)
and (Rb3.checked = false) and (Rb4.checked = false)
then
46. Предстоит записать вывод сообщения и выход из обработчика. То есть две инструкции. Для этого после then запишем:
begin

end;
47. Перейдем к месту между begin и end.
48. Запишем "ShowMessage('Выберите ответ!');" для вывода сообщения "Выберите ответ!".
49. Запишем "abort;" для выхода из обработчика.
50. Перейдем к месту после end условия.
51. Обработаем ответ на первый вопрос. Если номер вопроса равен 1, то выполним инструкции:
If i=1 then
begin

end;
52. Перейдем к месту между begin и end.
53. Для первого вопроса правильный ответ 1. Поэтому проверим отмечен ли первый RadioButton:
If Rb1.Checked=true then
54. Если он отмечен, то нужно увеличить число правильных ответов на 1 и сделать цвет Shape зелёным. То есть две инструкции. Для этого после then запишем:
begin

end;
55. Перейдем к месту между begin и end.
56. Запишем "inc(right);" для увеличения числа правильных ответов на 1.
57. Запишем "shape1.Brush.Color:=clgreen;" для установки цвета Color кисти Brush в зелёный clgreen.
58. Перейдем к месту после end условия If Rb1.Checked=true then.
59. Нужно чтобы в случае неправильного ответа цвет Shape был красным. То есть не соблюдалось условие Rb1.Checked=true.
60. Сотрём после end знак ";" и запишем "else".
61. Запишем "shape1.Brush.Color:=clred;" для установки цвета Color кисти Brush в красный clred.
62. Перейдем к месту после end условия If i=1 then.
63. Повторим пункты 51 - 62 для остальных 14 вопросов. Заменим i=1 на от i=2 до i=15. Заменим Rb1 на свойство Name компонента RadioButton с правильным ответом на текущий вопрос.
64. Перейдем к месту перед end условия If i=15 then.
65. Запишем "mmo1.text:='Количество правильных ответов: '+IntToStr(right);" для вывода числа правильных ответов в конце теста.
66. Запишем "btn1.visible:=false;" для того чтобы Button стал невидимым.
67. Запишем "Abort;" для выхода из обработчика.
68. Перейдем к месту после end условия If i=15 then.
69. Если вопрос не пятнадцатый, то нужно увеличить номер текущего вопроса и задать значения коспонентам.
70. Запишем "inc(i);" для увеличения номера вопроса на 1.
71. Запишем "Mmo1.Lines.Text:=Questions[i];" для вывода текста i-ого вопроса в Memo.
72. Запишем "Rb1.Checked:=False;" для того, чтобы убрать отметку с первого RadioButton.
73. Запишем "Rb2.Checked:=False;" для того, чтобы убрать отметку со второго RadioButton.
74. Запишем "Rb3.Checked:=False;" для того, чтобы убрать отметку с третьего RadioButton.
75. Запишем "Rb4.Checked:=False;" для того, чтобы убрать отметку с четвёртого RadioButton.
76. Запишем "Rb1.Caption:=Otvet1[i];" для вывода текста первого ответа на i-ый вопрос в первый RadioButton.
77. Запишем "Rb2.Caption:=Otvet2[i];" для вывода текста второго ответа на i-ый вопрос во второй RadioButton.
78. Запишем "Rb3.Caption:=Otvet3[i];" для вывода текста третьего на i-ый вопрос в третий RadioButton.
79. Запишем "Rb4.Caption:=Otvet4[i];" для вывода текста четвёртого ответа на i-ый вопрос в четвёртый RadioButton.
80. Выберем из главного меню File\Save All и сохраним модуль Unit1 и проект Project2.
81. Выберем из главного меню Run\Run для компиляции и запуска проекта.
82. Проект готов.
0
497 / 353 / 231
Регистрация: 29.03.2015
Сообщений: 675
14.02.2016, 05:44 13
Тест без ошибок с инструкцией "Создание Test1.txt".
0
Вложения
Тип файла: zip Test1.zip (222.3 Кб, 72 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2016, 05:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нужна тестовая программа
Люди добрые!!! Пожалуйста помогите, я совсем начинающий в программировании, и мне срочно нужна...

Тестовая система в делфи
Кто может дайте пожалуйста рабочий пример тестируещей системы в делфи

Оболочка архива
Всем доброго времени суток и со всеми новогодними праздниками! Давно не писал. У меня вот такой...

оболочка Delphi
Установил компоненту SevenZipVCL появилась на панели компонент при создании нового проекта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.