@Nastyaaaj

помогите написать тестовую оболочку , вопросы и варианты приветствуются! или скиньте ссылку

0

DenNik

https://www.cyberforum.ru/sear... d=10573740

0

@Алекcей

можно узнать подробности задания и что уже сделано?

0

@Nastyaaaj

У меня дипломная и я должна создать тестовую оболочку с помощью делфи

0

@unifikator

Тест с конструктором тестов.

0

Вложения

test.zip (286.6 Кб, 77 просмотров)

@unifikator

Тест на не русском языке.

0

Вложения

Test1.zip (220.3 Кб, 45 просмотров)

@Nastyaaaj

Спасибо, можете отправить пароль?)

0

@unifikator

Архивы без пароля. Пароль в конструкторе тестов: KGTU

1

@Nastyaaaj

Спасибо

0

@Nastyaaaj

Можете пожалуйста отправить пошаговое создание тестовой оболочки? если есть

0

@Nastyaaaj

unifikator, Можете пожалуйста отправить пошаговое создание тестовой оболочки Test1.zip ? если есть

0

@unifikator

Я делал только окраску фигуры в тесте из архива 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

@unifikator

Тест без ошибок с инструкцией "Создание Test1.txt".

0

Вложения

Test1.zip (222.3 Кб, 72 просмотров)