Подскажите как сделать тест

@slava.seraph · Регистрация: 31.05.2012

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

Делаю тест Да или нет.Поискал в нете нашел только вот эту статью http://h-l-l.ru/publ/28-1-0-114.
проблема в том что я подсчитал что мне нужно создать около 64 Form

Хочу спросить можно это сделать по другому в 1 Form ?

@Gremlin · 31.05.2012, 15:58

зачем 64 формы???
опиши немного по подробней свой тест

@BRcr · 31.05.2012, 16:00

Здесь на форуме этих тестеров делалось уже... просто поищи.

И откуда такой вывод насчет количества форм? Все на одной делается, просто информация на ней меняется.

@slava.seraph · 31.05.2012, 16:13 **[ТС]**

Вот я не могу понять как мне сделать на одно форме?у меня есть Lable на котором пишется вопрос и две кнопики да,нет.При нажатии на любую кнопку на Lable появляется новый вопрос,и так далее. Я понимаю как должно это выглядеть и работать но как написать в коде не понимаю так как C Builder можно сказать практически не знаю.Если не трудно можете кунуть сылку или кусок кода?

@slava.seraph · 31.05.2012, 16:30 **[ТС]**

Грубо говоря вот по такой блок схеме.
Извеняюсь что такая корявая.

@slava.seraph · 31.05.2012, 19:16 **[ТС]**

Неужели никто не может подсказать как это написать???

@Gremlin · 31.05.2012, 19:29

у тебя следующий вопрос зависит от предыдущего? да? ))))))

@slava.seraph · 31.05.2012, 19:35 **[ТС]**

Ну да.

cpp_developer · 31.05.2012, 19:36

Например, при нажатии на Button1 (ButtonStart, заголовок кнопки "Начать тестирование").

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if(MessageBox(0,"Начать тестирования?","Тест",MB_YESNO)==IDYES) {
  if(MessageBox(0,"Вы slava.seraph?","Вопрос 1",MB_YESNO)==IDYES) {
    if(MessageBox(0,"Вы уверены?","Вопрос 2",MB_YESNO)==IDYES) {
      if(MessageBox(0,"Вы действительно уверены?","Вопрос 3",MB_YESNO)==IDYES) {
        ShowMessage("Вы таки slava.seraph...");
      }
    }
  }
}
else if(MessageBox(0,"Начать тестирования?","Тест",MB_YESNO)==IDNO) {
  if(MessageBox(0,"Вы не slava.seraph?","Вопрос 1",MB_YESNO)==IDNO) {
    if(MessageBox(0,"Вы уверены, что не slava.seraph?","Вопрос 2",MB_YESNO)==IDNO) {
      if(MessageBox(0,"Вы действительно не slava.seraph?","Вопрос 3",MB_YESNO)==IDNO) {
        ShowMessage("Да... Вы таки не slava.seraph...");
      }
    }
  }
}

Дальнейшие всевозможные ветвления - по образцу.

@slava.seraph · 31.05.2012, 20:01 **[ТС]**

спсибо большое.
А можно както подругому без MessageBox?

@Gremlin · 31.05.2012, 20:02

структура файла с вопросами
ВОПРОС(TAB)(индекс строки со следующим вопросом, если ответили ДА)(TAB)(если ответили НЕТ)

C++
1
2
3
4
5
6
7
У вас есть дети?    3   1
А хотели бы?   6   2
Повторяю вопрос: А хотели бы?    6   2
Вы люите своих детей (ребенка)? 6   4
Давайте попробуем заново: У вас есть дети?    3   5
Зря, зря, давайте попробуем заново: У вас есть дети?    3   1
Спасибо, ВСЕ!!!, начинаем сначала )))))))))))) 0   0

@Avazart · 31.05.2012, 20:02

Ну если очень приблизительно то как то так:

@Gremlin · 31.05.2012, 20:03

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String TAB = "  ";
TStringList *list = new TStringList;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    String f = ExtractFilePath(Application->ExeName) + "voprosi.txt";
    list->LoadFromFile(f);
 
    int vop = 0;
    Label1->Tag = vop;
    Label1->Caption = list->Strings[vop].SubString(1, list->Strings[vop].Pos(TAB) - 1);
}
//---------------------------------------------------------------------------
void MyFunction(bool otvet)
{
    int vop_inxex = Form1->Label1->Tag;
    String temp = list->Strings[vop_inxex];
    temp = temp.SubString(temp.Pos(TAB) + 1, temp.Length());
    int yes = temp.SubString(1, temp.Pos(TAB)-1).ToInt();
    int no  = temp.SubString(temp.Pos(TAB) + 1, temp.Length()).ToInt();
 
    int vop = 0;
    if(otvet == true)
    {
        vop = yes;
    }
    else
    {
        vop = no;
    }
 
    Form1->Label1->Tag = vop;
    Form1->Label1->Caption = list->Strings[vop].SubString(1, list->Strings[vop].Pos(TAB) - 1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    MyFunction(true);    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     MyFunction(false);    
}
//---------------------------------------------------------------------------

@slava.seraph · 31.05.2012, 20:16 **[ТС]**

о большое спасибо.
еще такой маленький вопросик если мне нужно будет сделать возврат к какомуту сообщению,как это можно сделать?

@Gremlin · 31.05.2012, 20:23

Подскажите как сделать тест там же написанно например (Повторяю вопрос: А хотели бы? 6 2)

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9

	Подскажите как сделать тест 31.05.2012, 15:52. Показов 13902. Ответов 14 Метки нет (Все метки) Делаю тест Да или нет.Поискал в нете нашел только вот эту статью http://h-l-l.ru/publ/28-1-0-114. проблема в том что я подсчитал что мне нужно создать около 64 Form Хочу спросить можно это сделать по другому в 1 Form ? 0

@Gremlin 519 / 307 / 58 Регистрация: 30.07.2008 Сообщений: 607
	31.05.2012, 15:58
	зачем 64 формы??? опиши немного по подробней свой тест 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	31.05.2012, 16:00
	Здесь на форуме этих тестеров делалось уже... просто поищи. И откуда такой вывод насчет количества форм? Все на одной делается, просто информация на ней меняется. 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 16:13 [ТС]
	Вот я не могу понять как мне сделать на одно форме?у меня есть Lable на котором пишется вопрос и две кнопики да,нет.При нажатии на любую кнопку на Lable появляется новый вопрос,и так далее. Я понимаю как должно это выглядеть и работать но как написать в коде не понимаю так как C Builder можно сказать практически не знаю.Если не трудно можете кунуть сылку или кусок кода? 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 16:30 [ТС]
	Грубо говоря вот по такой блок схеме. Извеняюсь что такая корявая. Миниатюры 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 19:16 [ТС]
	Неужели никто не может подсказать как это написать??? 0

@Gremlin 519 / 307 / 58 Регистрация: 30.07.2008 Сообщений: 607
	31.05.2012, 19:29
	у тебя следующий вопрос зависит от предыдущего? да? )))))) 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 19:35 [ТС]
	Ну да. 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 20:01 [ТС]
	спсибо большое. А можно както подругому без MessageBox? 0

@slava.seraph 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 9
	31.05.2012, 20:16 [ТС]
	о большое спасибо. еще такой маленький вопросик если мне нужно будет сделать возврат к какомуту сообщению,как это можно сделать? 0

@Gremlin 519 / 307 / 58 Регистрация: 30.07.2008 Сообщений: 607
	31.05.2012, 20:23
	Подскажите как сделать тест там же написанно например (Повторяю вопрос: А хотели бы? 6 2) 0