Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
2 из 2 « 1 2
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
1

Реализация загрузки тестов

29.09.2016, 17:43. Показов 3020. Ответов 37
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Есть оболочка выглядит вот так:
Реализация загрузки тестов

Есть вопрос, можно ли как нибудь загрузить в оболочку тесты с txt файла(знаю что можно).
Есть возможность загрузить и дать ответы с RadioGroup, но он не работает с двумя ответами сразу(у меня просто есть некоторые(2 или 3) вопросы и в них два ответа.
Думал сделать через CheckBox но не знаю как, подскажет кто?
p.s. Писать такое не над:"Почему не использовать ДБ,html"; "Почему именно txt " и т.п.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 29.09.2016, 17:43
Ответы с готовыми решениями:

Реализация тестов с отправкой данных на сервер
Вот уже завтра мне дадут исходный код проекта и мне нужно будет туда вписать еще модуль тестов.Как...

Реализация тестов
Реализовать небольшие тесты проверяющие корректность. Также реализовать набор тестов для...

Реализация редактора тестов
Реализация редактора тестов (ввод тестовых вопросов и вариантов ответов, сохранение данных в файл, ...

Реализация тестов по просмотренным темам
Я хочу написать программу с тестами. Задача такая: создать область для изучения материала к...

37
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,129
Записей в блоге: 3
07.10.2016, 15:56 21
Author24 — интернет-сервис помощи студентам
Цитата Сообщение от DummyGirl Посмотреть сообщение
поможет кто?
а сами перевести не можете?
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
07.10.2016, 16:56  [ТС] 22
Цитата Сообщение от qwertehok Посмотреть сообщение
а сами перевести не можете
Я то знаю как переводится, а как исправить хз.
0
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,129
Записей в блоге: 3
07.10.2016, 17:01 23
и как же это переводится?
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
07.10.2016, 17:46  [ТС] 24
Цитата Сообщение от qwertehok Посмотреть сообщение
и как же это переводится?
'__' не явл. допустимым значением
0
5395 / 4323 / 1060
Регистрация: 29.08.2013
Сообщений: 27,129
Записей в блоге: 3
07.10.2016, 17:48 25
да, и вы это значение хотите сконвертировать в int

значит ищите у вас в коде операцию StrToInt() которая обрабатывает данную строку
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
07.10.2016, 18:15  [ТС] 26
Цитата Сообщение от qwertehok Посмотреть сообщение
значит ищите у вас в коде операцию StrToInt() которая обрабатывает данную строку
Может быть что это из-за этого?
Delphi
1

AnswerQuestion[h]:=strtoint(s.Strings[j+5]);
Добавлено через 2 минуты
Это вычисление ответа, такое же у меня для второго используется,
Delphi
1

AnswerQuestion[h]:=strtoint(s.Strings[j+6]);
Но вот в чем не задача, если убрать из кода
Delphi
1

AnswerQuestion[h]:=strtoint(s.Strings[j+6]);
, то все отлично работает:0

Добавлено через 1 минуту
Так же есть здесь, но это уже для оценки:
Delphi
1

b1:=StrToInt(b)*g;
Кликните здесь для просмотра всего текста
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

procedure TForm1.LoadQuestion(Index: integer);
var a,b:string; b1,g:real;
begin
  g:=0.55555555555;
 if QuestionText[Index]<>'' then
  begin
  chklst1.Items.Clear;
  label6.Caption:=QuestionText[Index];
  chklst1.Items.Add(QuestionText1[index]);
  chklst1.Items.Add(QuestionText2[index]);
  chklst1.Items.Add(QuestionText3[index]);
  Label5.Caption:=('Кол-во отвеченных: '+inttostr(now));
  end
  else
  begin
    Label5.Caption:=('Кол-во отвеченных: '+inttostr(now));
    button2.Enabled:=false;
    Timer1.Enabled:=false;
    a:=('Правильных ответов: '+inttostr(ball));
    b:=Copy(a,20,2);
    // ShowMessage(b);
    b1:=StrToInt(b)*g;
    lbl1.Caption:=('ОЦЕНКА: '+FloatToStrF(b1,ffFixed,1,1));
 
  end;
end;


Добавлено через 6 минут
Цитата Сообщение от DummyGirl Посмотреть сообщение
Delphi
1

b1:=StrToInt(b)*g
;
Заменил на StrToFloat, но ошибка всё та же
0
142 / 40 / 14
Регистрация: 16.06.2016
Сообщений: 239
07.10.2016, 20:03 27
Цитата Сообщение от DummyGirl Посмотреть сообщение
Но вот в чем не задача, если убрать из кода
AnswerQuestion[h]:=strtoint(s.Strings[j+6]);
, то все отлично работает:0
Очевидно, у тебя в строке j+6 хранится строка "____", которая не является числом.
Думай, откуда у тебя появляется эта строка и на что её нужно заменить, чтобы всё работало.

Цитата Сообщение от DummyGirl Посмотреть сообщение
a:=('Правильных ответов: '+inttostr(ball));
b:=Copy(a,20,2);
b1:=StrToInt(b)*g;
Вопрос: нахрена ты это делаешь???
Delphi
1

b1:=ball*g;
Так не проще?

Или тебе нужно вырезать несколько цифр из длинного числа? Обычно это делается через div и mod.

А g логичнее объявлять как константу (в блоке const), если ты ей ничего кроме начального значения не присваиваешь.
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
07.10.2016, 20:50  [ТС] 28
Цитата Сообщение от TimKruz Посмотреть сообщение
Очевидно, у тебя в строке j+6 хранится строка "____", которая не является числом.
Кликните здесь для просмотра всего текста

Delphi
__________
Как называется окно, в котором отображаются возможные события и свойства объекта? //1
Object Inspector //2
Object TreeView //3
Form1 //4
1 //5
3 //6
__________


Добавлено через 19 минут
Немного допер, т.к. у меня строка привязана к s.String[j], то он сначала находит "___" и начинает прибавлять по одной строке к j, тогда же должно быть так?
Кликните здесь для просмотра всего текста

__________
Поле редактирования – …
Label
Caption
Edit
3
4

__________
Элемент Button находится на вкладке:
Additional;
Standard;
Win32.
2


__________

Не по теме:

с формулировкой моих мыслей у меня очевидно проблема.



Добавлено через 3 минуты
Если делать вот так:
Кликните здесь для просмотра всего текста
__________
Как называется окно, в котором отображаются возможные события и свойства объекта?
Object Inspector
Object TreeView
Form1
1
3

__________
то будет ошибка с "", если так:
Кликните здесь для просмотра всего текста
__________
Как называется окно, в котором отображаются возможные события и свойства объекта?
Object Inspector
Object TreeView
Form1
1
3
__________

то уже про "__"
0
142 / 40 / 14
Регистрация: 16.06.2016
Сообщений: 239
07.10.2016, 23:16 29
Цитата Сообщение от DummyGirl Посмотреть сообщение
Если делать вот так:
то будет ошибка с "", если так:
то уже про "__"
Очевидно, нужно останавливаться на предыдущем элементе, т.к. последний уже является лишним.
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
09.10.2016, 15:00  [ТС] 30
Не знаю как ост. на пред. элементе
0
97 / 97 / 25
Регистрация: 25.04.2016
Сообщений: 525
09.10.2016, 15:46 31
Давайте по-порядку.
Вы с форматом файла, в котором содержатся вопросы, определились?
Если да, то образец в студию.
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
09.10.2016, 16:00  [ТС] 32
Цитата Сообщение от MyEternity Посмотреть сообщение
Вы с форматом файла, в котором содержатся вопросы, определились?
txt:Te1st_0.txt
0
97 / 97 / 25
Регистрация: 25.04.2016
Сообщений: 525
09.10.2016, 20:55 33
Не читал целиком тред, посему у меня возникает вопрос - а как вы отделяете вопросы от ответов?
Смотрю в файл, вижу в нем самый первый вопрос:
В каком варианте ответа правильно указаны все цифры,на месте которых пишется НИ?(1)когда (2)следует одеваться слишком пестро, если (3)хотите выглядеть(4)почём
1,2,3
4
1,2
1
2
1
И не могу понять, а сколько всего вариантов ответов у вас?
Следовательно - сразу уточняющий вопрос - формат файла только такой, и никакой иначе? Если это также будет txt но в нормальном виде? Пример я вам приведу, если хотите.
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
09.10.2016, 22:34  [ТС] 34
Вообще, это первая строчка:В каком варианте ответа правильно указаны все цифры,на месте которых пишется НИ?(1)когда (2)следует одеваться слишком пестро, если (3)хотите выглядеть(4)почём
потом 4 ответа:
Кликните здесь для просмотра всего текста
1,2,3
4
1,2
1

и два последних правильные ответы

Добавлено через 4 минуты
Тему можно закрыть, сделал через БД с АДО
0
97 / 97 / 25
Регистрация: 25.04.2016
Сообщений: 525
09.10.2016, 23:17 35
Цитата Сообщение от DummyGirl Посмотреть сообщение
Писать такое не над:"Почему не использовать ДБ,html"; "Почему именно txt " и т.п.
Сами героически преодолели созданные проблемы Это не может не радовать)
0
3 / 3 / 1
Регистрация: 12.10.2015
Сообщений: 212
10.10.2016, 10:26  [ТС] 36
Цитата Сообщение от MyEternity Посмотреть сообщение
Сами героически преодолели созданные проблемы Это не может не радовать)

Не по теме:

Да как то пригорело с ошибки уже

0
142 / 40 / 14
Регистрация: 16.06.2016
Сообщений: 239
10.10.2016, 21:38 37
Цитата Сообщение от DummyGirl Посмотреть сообщение
Тему можно закрыть, сделал через БД с АДО
А вот неправильно решать проблему другим способом, если не можешь разобраться с ошибкой первого способа.
Да, есть множество готовых решений, но парсить текст вручную тоже нужно уметь, чтоб если что - разобраться.
0
MyEternity
11.10.2016, 21:52     Реализация загрузки тестов
  #38

Не по теме:

Цитата Сообщение от TimKruz Посмотреть сообщение
А вот неправильно решать проблему другим способом, если не можешь разобраться с ошибкой первого способа.
Да, есть множество готовых решений, но парсить текст вручную тоже нужно уметь, чтоб если что - разобраться.
Автор сам себе выстрелил в ногу, помучил всех жалобами "больно, елы-палы", потом сам себя перебинтовал и успокоился :)

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 11.10.2016, 21:52

Реализация тестов с выбором на одну или более тем
Добрый вечер. Помогите пожалуйста) Вообщем у меня есть база Access в ней есть темы, вопросы,...

Программа для тестов - как грамотно подойти к редактированию тестов
Что я пишу: Вот пишу приложение для создания тестов, dll с классами самих тестов и приложение,...

Реализация задачи загрузки
Такая задача. Человек,регестрируется на сайте и у него появляется возможность закачать один файл в...

Реализация загрузки контента в WinForms из БД
Добрый вечер! Хочу сделать программку с электронными курсами и очень нужно, что бы все курсы...


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

Или воспользуйтесь поиском по форуму:
38
Ответ Создать тему
2 из 2 « 1 2
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru