Обычный тест

@v1nt · Регистрация: 07.01.2010

Студворк — интернет-сервис помощи студентам

вообщем, учусь делать тесты на c++ Builder, создал файл txt, с файла в Memo и в RadioButton грузятся вопросы и варианты ответов, сделал проверку таким образом:

C++
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
TStringList *s = new TStringList;
TRadioButton *Selected;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
s->LoadFromFile("vopros.txt") ; [COLOR="DarkOliveGreen"]// загрузить с файла[/COLOR]
Memo1->Lines->Text = s->Strings[0]; [COLOR="DarkOliveGreen"]// вопрос[/COLOR]
Form3->RadioButton1->Caption = s->Strings[1]; [COLOR="DarkOliveGreen"]//варианты ответов[/COLOR]
Form3->RadioButton2->Caption = s->Strings[2];
Form3->RadioButton3->Caption = s->Strings[3];
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(Selected->Caption == s->Strings[1]) ShowMessage("правильный ответ"); [COLOR="DarkOliveGreen"]// проверка на правильность ответа[/COLOR]
}
//---------------------------------------------------------------------------
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
      Selected = (TRadioButton*)Sender;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton2Click(TObject *Sender)
{
          Selected = (TRadioButton*)Sender;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton3Click(TObject *Sender)
{
Selected = (TRadioButton*)Sender;
}

Этот вариант оч неудобный, т.к адресовывание к правильному ответу происходит не по индексу а по тексту.. Прошу помочь мне сделать так, что бы адресовывание происходило по индексу, по номеру строки.

@koldun · 19.03.2010, 17:47

ну если по индексу то наверно надо использовать радиогруппу...

вот тока не знаю, можно ли там выбирать больше одного ответа...

@v1nt · 19.03.2010, 18:04 **[ТС]**

мне больше одного и не нада

@koldun · 19.03.2010, 18:08

C++
1
RadioGroup2->ItemIndex

@v1nt · 19.03.2010, 18:11 **[ТС]**

А по подробнее можно?

@MrAndrey_ka · 19.03.2010, 18:16

для RadioButton-ов в поле таг вбей 1,2 и 3;

и для всех поставь такой обработчик

C++
1
2
3
4
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
Tag = ((TRadioButton*)Sender)->Tag;
}

и тогда проверка будет выглядеть так:

C++
1
2
3
4
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(Tag==2) ShowMessage("правильный ответ"); // проверка на правильность ответа
}

или вообще убери обработчики для RadioButton-ов и проверка будет такая:

C++
1
2
3
4
void __fastcall TForm3::Button2Click(TObject *Sender)
{
if(((TRadioButton*)Sender)->Tag==2) ShowMessage("правильный ответ"); // проверка на правильность ответа
}

@v1nt · 19.03.2010, 18:40 **[ТС]**

По сути, это тоже самое что и у меня?
Т.е в тесте всегда будет только один вопрос и один ответ, а мне нужно что бы в тесте было хотя бы 5 вопросов..( Мне надо как-то задать переменную n, n-номер строки в txt файле, n0 вопрос n1 n2 n3 варианты ответов, n4 правильный, и при нажатии на кнопку след. вопрос n0+5 n1+5 и т.д. Я вот не знаю как это сделать(

@MrAndrey_ka · 19.03.2010, 19:17

для начала опиши толком что ты хочешь!!!!

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

в файле описание такое?

Цвет елки?
синий
зеленый
красный
2
Кто рыба?
кот
пес
сом
3

@v1nt · 19.03.2010, 19:37 **[ТС]**

Да тесты по 1 должны( в файле да примерно такое

@MrAndrey_ka · 19.03.2010, 19:52

вариантов всегда 3?

@v1nt · 19.03.2010, 19:58 **[ТС]**

Да всегда 3

@MrAndrey_ka · 19.03.2010, 19:58

int N; - глобальная

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm3::Button2Click(TObject *Sender)
{int n=StrToInt(s->Strings[N*5+4]);
if(Tag==n) ShowMessage("Правильно");
 
N++;
if(Tag*5>s->Count)ShowMessage("Это был последний вопрос!");
Memo1->Lines->Text = s->Strings[N*5]; // вопрос
Form3->RadioButton1->Caption = s->Strings[N*5+1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[N*5+2];
Form3->RadioButton3->Caption = s->Strings[N*5+3];
}

для RadioButton-ов в поле таг вбей 1,2 и 3;

и для всех поставь такой обработчик

C++
1
2
3
4
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
Tag = ((TRadioButton*)Sender)->Tag;
}

гдето так!

@v1nt · 19.03.2010, 21:36 **[ТС]**

Сообщение от MrAndrey_ka

вариантов всегда 3?

Да, вариантов всегда 3.

Добавлено через 23 минуты
"зеленый" is not a valid integer value
загружаю вопросы ответы, нажимаю баттон2 выскакивает вот это

Добавлено через 3 минуты
исправил, ошибка по глупости, но все равно выводит ошибку только теперь List index bound

Добавлено через 17 минут
А нет все разобрался, спасибо)

Добавлено через 47 минут
if(Tag*5>s->Count)ShowMessage("Это был последний вопрос!");
вообщем в этой строчке ошибка, т.е последний вопрос он не определяет

@MrAndrey_ka · 20.03.2010, 01:27

замени на
if(N*5>s->Count)ShowMessage("Это был последний вопрос!");

@v1nt · 20.03.2010, 20:58 **[ТС]**

if(N*5>s->Count)ShowMessage("Это был последний вопрос!"); та же ошибка List Index of bounds
я делал просто if(N*5)ShowMessage("Это был последний вопрос!");вроде работает но тоже с ошибкой, т.е ошибка выскакивает ок жму и дальше можно работать.

@MrAndrey_ka · 21.03.2010, 01:05

ой сори сделай так
if(N*5>=s->Count)ShowMessage("Это был последний вопрос!");

@v1nt · 21.03.2010, 01:32 **[ТС]**

все равно ошибка, указывает на это
if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);

@MrAndrey_ka · 22.03.2010, 00:39

все равно ошибка, указывает на это
if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);

а где такое написано?

@v1nt · 22.03.2010, 12:46 **[ТС]**

как где? когда происходит ошибка я жму break он открывает classes code. там и написанно

Добавлено через 10 минут
вообщем вот что у меня на данный момент, может быть я что-то не так сделал?

C++
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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
TStringList *s = new TStringList;
TRadioButton *Selected;
Char *i;
int N;
 
 
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)  // кнопка начать тест
{
 
s->LoadFromFile("vopros.txt") ;
 
Memo1->Lines->Text = s->Strings[0]; // вопрос
Form3->RadioButton1->Caption = s->Strings[1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[2];
Form3->RadioButton3->Caption = s->Strings[3];
 
 
 
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)    // кнопка дальше
{
int n=StrToInt(s->Strings[N*5+4]);
if(Tag==n) ShowMessage("Правильно");
N++;
if(N*5>=s->Count)ShowMessage("Это был последний вопрос!");
Memo1->Lines->Text = s->Strings[N*5]; // вопрос
Form3->RadioButton1->Caption = s->Strings[N*5+1]; //варианты ответов
Form3->RadioButton2->Caption = s->Strings[N*5+2];
Form3->RadioButton3->Caption = s->Strings[N*5+3];
 
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm3::RadioButton1Click(TObject *Sender)
{
 
  Tag = ((TRadioButton*)Sender)->Tag;
  Tag = 1;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton2Click(TObject *Sender)
{
      Tag = ((TRadioButton*)Sender)->Tag;
      Tag = 2;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::RadioButton3Click(TObject *Sender)
{
    Tag = ((TRadioButton*)Sender)->Tag;
    Tag = 3;
}

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@koldun 145 / 100 / 6 Регистрация: 11.03.2010 Сообщений: 477
	19.03.2010, 17:47
	ну если по индексу то наверно надо использовать радиогруппу... вот тока не знаю, можно ли там выбирать больше одного ответа... 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:04 [ТС]
	мне больше одного и не нада 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:11 [ТС]
	А по подробнее можно? 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 18:40 [ТС]
	По сути, это тоже самое что и у меня? Т.е в тесте всегда будет только один вопрос и один ответ, а мне нужно что бы в тесте было хотя бы 5 вопросов..( Мне надо как-то задать переменную n, n-номер строки в txt файле, n0 вопрос n1 n2 n3 варианты ответов, n4 правильный, и при нажатии на кнопку след. вопрос n0+5 n1+5 и т.д. Я вот не знаю как это сделать( 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	19.03.2010, 19:17
	для начала опиши толком что ты хочешь!!!! тесты должны по одному выдаваться или все сразу? в файле описание такое? Цвет елки? синий зеленый красный 2 Кто рыба? кот пес сом 3 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 19:37 [ТС]
	Да тесты по 1 должны( в файле да примерно такое 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	19.03.2010, 19:52
	вариантов всегда 3? 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	19.03.2010, 19:58 [ТС]
	Да всегда 3 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	20.03.2010, 01:27
	замени на if(N*5>s->Count)ShowMessage("Это был последний вопрос!"); 1

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	20.03.2010, 20:58 [ТС]
	if(N5>s->Count)ShowMessage("Это был последний вопрос!"); та же ошибка List Index of bounds я делал просто if(N5)ShowMessage("Это был последний вопрос!");вроде работает но тоже с ошибкой, т.е ошибка выскакивает ок жму и дальше можно работать. 0

@MrAndrey_ka 79 / 79 / 20 Регистрация: 13.05.2009 Сообщений: 537 Записей в блоге: 1
	21.03.2010, 01:05
	ой сори сделай так if(N*5>=s->Count)ShowMessage("Это был последний вопрос!"); 0

@v1nt 0 / 0 / 0 Регистрация: 07.01.2010 Сообщений: 17
	21.03.2010, 01:32 [ТС]
	все равно ошибка, указывает на это if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index); 0