Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
1

Тест на Delphi

07.12.2017, 11:04. Просмотров 428. Ответов 10
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста есть где нибудь лекция по создание тестовых программ
для изучения. Только не скажите пожалуйста ya.ru, google.ru или http://youtube.com.
Там все барахло. Какой нибудь книжки или лекции есть?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2017, 11:04
Ответы с готовыми решениями:

Можно ли создать тест в программе My Test Student и запустить этот тест через Delphi?
Здравствуйте! Мне нужна помощь! Я сейчас делаю курсовую, и мне нужно сделать тест, и я хотела бы...

Тест (Delphi)
Здравствуйте,сделал тест,но не совсем понимаю,как сделать так чтобы можно было рядом с каждым...

Тест на Delphi 7
Здравствуйте, у меня есть код для теста на Delphi 7 , код был переписан с видео (качество...

Тест Delphi
Здравствуйте,сделал тест,но не могу понять,как сделать так,и можно ли это сделать,чтобы справа...

Тест в Delphi
Народ помогите пожалуйста сделать Тест на дельфи в Понедельник засада Надо сделать тест чтобы...

10
Okozaoko
14 / 14 / 10
Регистрация: 27.10.2015
Сообщений: 104
Завершенные тесты: 1
07.12.2017, 11:39 2
У меня есть тест, состоящий из 5 дурацких вопросов, написанный в Лазарусе. Могу скинуть.
0
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
07.12.2017, 12:09  [ТС] 3
Okozaoko, Нет готовый много, я хочу научить.
0
Nanotentacle
736 / 347 / 150
Регистрация: 20.10.2016
Сообщений: 1,602
07.12.2017, 12:18 4
Цитата Сообщение от Maikl2020 Посмотреть сообщение
Okozaoko, Нет готовый много, я хочу научить.
Научить или научиться? Просто вопрос стоит несколько некорректно: создание программ для тестирования - это очень частный случай создания приложения, и я не уверен, есть ли материал именно по такой тематике. Тут проще придумать и воплотить свой вариант, тем более, что задача достаточно тривиальна.
0
07.12.2017, 12:18
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
07.12.2017, 12:21  [ТС] 5
Nanotentacle, Научиться извините.
Нету значить материал об создание тестов. Хотя самый легкий тест.
0
Nanotentacle
736 / 347 / 150
Регистрация: 20.10.2016
Сообщений: 1,602
07.12.2017, 12:23 6
Цитата Сообщение от Maikl2020 Посмотреть сообщение
Хотя самый легкий тест.
Научиться - это хороший мотив, я готов помочь. Чтобы было от чего оттолкнуться, вопрос: что ты уже умеешь и знаешь?
0
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
07.12.2017, 12:26  [ТС] 7
Nanotentacle, Я думаю так сложно научится на расстояниях. Вы можете проста сделать видеоурок и скинут мне?
0
Nanotentacle
736 / 347 / 150
Регистрация: 20.10.2016
Сообщений: 1,602
07.12.2017, 12:34 8
Цитата Сообщение от Maikl2020 Посмотреть сообщение
Вы можете проста сделать видеоурок и скинут мне?
Просто - это точно нет.

Вот смотри: сделать мотоцикл не сложно. Купи двигатель, колеса, раму, поставь звездочки и соедини все это. Неделя на всю работу. Но ведь это не так.

Чтобы тебе сделать грамотное приложение по тестированию (да и любое другое), тебе надо освоить следующие вещи:

1) Переменные.
2) Классы - что это такое и с чем его едят. Свойства и методы классов.
3) Записи (record) - что это такое и с чем его едят.
4) Массивы (динамические, статические).
5) Циклы и условия.
6) Визуальные компоненты и как с ними работать.
7) Мало-мальски работа с файлами и способы сохранения информации.

Возможно, в процессе понадобится что-то еще. И это все - отдельные темы для отдельных видеоуроков. И это первый шаг. В целом, по приведенным темам явно есть видеоуроки в интернете, можешь начать с них. Если хочешь быстро - начни с визуальных компонент и массивов, на первом этапе должно хватить.
0
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
07.12.2017, 12:42  [ТС] 9
Несколько из них знаю.
0
Matan!
Delphi/Java/DB Dev + Math
633 / 548 / 166
Регистрация: 31.05.2013
Сообщений: 4,480
Записей в блоге: 6
Завершенные тесты: 2
07.12.2017, 12:54 10
Цитата Сообщение от Maikl2020 Посмотреть сообщение
Несколько из них знаю.
Несколько - это какие?
В любом случае, список, приведённый выше - минимум. Есть пункт, где ты некомпетентен, - ищешь материал по нему и осваиваешь.
Так что полностью согласен с Nanotentacle.

На худой конец, на форуме в Похожих темах есть много примеров(хоть и некоторые содержат УГ-код, но, дочитав тему до конца, будешь в чём-то разбираться).
0
Maikl2020
Всегда онлайн
49 / 49 / 10
Регистрация: 13.04.2014
Сообщений: 1,276
07.12.2017, 16:38  [ТС] 11
Nanotentacle, Matan!, Кой что нашел помогите разобраться
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
implementation 
($R *.dfm} 
var 
f: TextFile; // файл теста (вопросы и варианты ответов) 
nq: integer; // количество вопросов в тесте 
right: integer; // количество правильны;< ответов 
level: array[1..4] of integer; // критерии оценок 
mes: array[1..4] of string; // комментарии 
buf: string; 
// читает вопрос из файла и выводит его 
// в поля формы 
function NextQw : boolean; 
begin 
if not EOF(f) then 
begin 
// прочитать и вывести вопрос 
Readln(f,buf); 
Forml.Labell.Caption := buf; 
// прочитать и вывести варианты ответов 
// 1-й вариант 
Readln(f,buf) ; // прочитать 1-й вариант ответа 
Forml.Label2.Caption : = buf; 
Readlnff,buf); // оценка за выбор этого ответа: 
// 1 — правильно, 0 — нет 
Forml.RadioButtonl.Tag := StrToInt(buf); 
// 2-й вариант 
Readln(f,buf); 
Forml.Label3.Caption := buf; 
Readln(f,buf) ; 
Forml.RadioButton2.Tag := StrToInt(buf); 
// 3-й вариант 
Readln(f,buf) ; 
Forml.Label4.Caption := buf; 
Readln(f,buf) ; 
Forml.RadioButton3.Tag := StrToInt(buf); 
// счетчик общего количества вопросов 
nq: = nq + 1; 
// кнопка Дальше недоступна, 
// пока не выбран один из вариантов ответа 
Forml.Buttonl.Enabled := False; 
// ни один из переключателей не выбран 
Forml.RadioButtonl.Checked := False; 
Forml.RadioButton2.Checked := False; 
Forml.RadioButton3.Checked := False; 
NextQw := TRUE; 
end 
else NextQw := FALSE; 
end; 
// событие FormCreate возникает в момент 
// создания формы 
procedure TForml.FormCreate(Sender: TObject); 
var 
i: integer; 
fname : string; 
begin 
( Если программа запускается из Delphi, 
то шля файла теста надо ввести в 
поле Parameters диалогового окна 
Run Parameters, которое становится 
доступным в результате выбора в меню 
Run команды Parameters. ) 
fname := ParamStr(l); // взять имя файла теста 
// из командной строки 
if fname = '' then 
begin 
ShowMessage('В командной строке запуска программы' +#13+ 
'надо указать имя файла теста.'); 
Application.Terminate; //' завершить программу 
end; 
AssignFile(f,fname); 
// а процессе открытия файла возможны 
// ошибки, поэтому ... 
try 
Reset(f); // эта инструкция может вызвать ошибку 
except 
on EInOutError do 
begin 
ShowMessage('Ошибка обращения к файлу теста: ' + 
fname); 
Application.Terminate; // завершить программу 
end; 
end; 
// здесь файл теста успешно открыт 
// прочитать название теста — первая строка файла 
Readln(f,buf) ; 
Forml.Caption := buf; 
// прочитать оценки и комментарии 
for i: =1 to 4 do 
begin 
Readln(f,buf); 
mes [i] := buf; 
Readln(f,buf) ; 
level[i] := StrToInt(buf); 
end; 
right := 0; // правильных ответов 
nq := 0; // всего вопросов 
NextQW; // прочитать и вывести первый вопрос 
end; 
// щелчок на кнопке Дальше 
procedure TForml.ButtonlClick(Sender: TObject); 
var 
buf: string; 
i: integer; 
begin 
if Buttonl.Caption = 'Завершить' then Close; 
// добавим оценку за выбранный вариант ответа 
// оценка находится в свойстве Button.Tag 
// Button.Tag = 1 — ответ правильный, 0 — нет 
if RadioButtonl.Checked then 
right := right + RadioButtonl.Tag; 
if RadioButton2.Checked then 
right := right + RadioButton2.Tag; 
if RadioButton3.Checked then 
right := right + RadioButton3.Tag; 
// вывести следующий вопрос 
// NextQW читает и выводит вопрос 
// NextQW = FALSE, если в файле теста 
// вопросов больше нет 
if not NextQW then 
begin 
// здесь значение NextQW = FALSE 
Buttonl.Caption := 'Завершить1; 
// скрыть переключатели и поля меток 
RadioButtonl.Visible := False; 
RadioButton2.Visible := False; 
RadioButton3.Visible := False; 
Label2.Visible := False; 
Label3.Visible := False; 
Label4.Visible := False; 
buf := 'Тестирование завершено.1 + #13 + 
'Правильных ответов: ' + IntToStr(right) + 
' из ' + IntToStr(nq) + '.' + #13; 
// выставить оценку 
// right — кол-во правильных ответов 
i:=1; // номер уровня 
while (right < level[i]) and (i < 4) do 
inc(i); 
buf := buf + mes[i]; 
Labell.AutoSize := TRUE; 
Labell.Caption := buf; 
end; 
end; 
// щелчок на переключателе выбора первого варианта ответа 
procedure TForml.RadioButtonlClick(Sender: TObject); 
begin 
Buttonl.Enabled := True; // кнопка Дальше теперь доступна 
end; 
procedure TForml.RadioButton2Click(Sender: TObject); 
begin 
Buttonl.Enabled := True; 
end; 
procedure TForml.RadioButton3Click(Sender: TObject); 
begin 
Buttonl.Enabled := True; 
end; 
end.
Добавлено через 3 минуты
Задача.
Экономика
Вы прекрасно справились с вопросами. Оценка — ОТЛИЧНО!
6
На один или несколько вопросов Вы ответили неправильно. Оценка — ХОРОШО.
5
На некоторые вопросы Вы ответили неправильно. Оценка —
УДОВЛЕТВОРИТЕЛЬНО.
4
Вы плохо подготовились к испытанию. Оценка — ПЛОХО!
3
Карл Маркс написал книгу:
"Материализм и эмпириокритицизм"
О
"Как нам бороться с инфляцией"
О
"Капитал"
1
Что означает выражение "Делать бизнес"?
обманывать и хитрить
О
учиться в школе бизнесменов
О
заниматься конкретным делом, приносящим доход
1
Когда впервые появились бартерные сделки?
при первобытнообщинном строе
1
в период общественного разделения труда
О
в наше время
О
Слово "бухгалтер" переводится с немецкого как:
человек, держащий книгу
1
человек, считающий на счетах
О
человек, работающий с большой кипой бумаг
О
Как переводится с английского "ноу-хау" и что оно обозначает?
секрет
О
новое предприятие
О
новая идея (знаю, как)
1
Конкуренция в переводе с латинского:
столкновение
1
соревнование
О
конкурс
О

Добавлено через 11 минут
Пожалуйста помогите создать проект из этого кода
0
07.12.2017, 16:38
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2017, 16:38

Тест в Delphi 7
Нужно сделать такую программу, которая будет рандомна из файла брать вопросы и составлять тест....

Тест на Delphi
Народ помогите пожалуйста сделать Тест на дельфи в Понедельник засада :( Надо сделать тест чтобы...

Тест в Delphi
Здравствуйте! Нужна помощь( По заданию нужно написать тестер для 4х школьных предметов по 20...


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

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

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