Игра "Кто хочет стать миллионером?"

@kh1opets · Регистрация: 25.10.2021

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

Здраствуйте создаю игру "Кто хочет стать миллионером?". Нужна помощь! сделал саму тестовую часть но незнаю как сделать чтобы при нажатии светился правильный ответ и соответственно неправильный ответ.

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "time.h"
 
#include "IniFiles.hpp"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
TIniFile *Questions = new TIniFile("./gamedata/questions.ini");
 
int solve = 0;
int solved = 0;
int current = 1;
int total = 13;
bool activeLight = false;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void grabQuestion() {
        TStringList *iniSections = new TStringList;
        Questions -> ReadSections(iniSections);
 
        int q = (rand() % iniSections -> Count) + 1;
        int o = (rand() % 4) + 1;
        solve = o;
 
 
        Form3 -> Label1 -> Caption = Questions -> ReadString(IntToStr(q), "vopros", "Ничего");
        Form3 -> RadioGroup1 -> Items -> Clear();
 
        if (o == 1) {
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "pravilnoe",  "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe1", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe2", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe3", "Ничего"));
        }
        if (o == 2) {
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe1",  "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "pravilnoe", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe2", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe3", "Ничего"));
        }
        if (o == 3) {
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe1",  "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe2", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "pravilnoe", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe3", "Ничего"));
        }
        if (o == 4) {
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe1",  "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe2", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "nepravilnoe3", "Ничего"));
                Form3 -> RadioGroup1 -> Items -> Add(Questions -> ReadString(IntToStr(q), "pravilnoe", "Ничего"));
        }
 
        //Form3 -> Label4 -> Caption = IntToStr(current) + "/" + IntToStr(total);
}
void __fastcall TForm3::Button1Click(TObject *Sender)
{
        if (RadioGroup1 -> ItemIndex == (solve - 1)) solved++;
        current++;
 
        if (current-1 >= total) {
                Label5 -> Caption = IntToStr(solved);
                Label6 -> Caption = IntToStr(total);
                                Form4 -> ShowModal();
        } else {
                grabQuestion();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
        time_t t;
        srand((unsigned) time(&t));
        grabQuestion();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormActivate(TObject *Sender)
{
        solved = 0;
        current = 1;
        total = 13;
 
        grabQuestion();
}
//---------------------------------------------------------------------------

Вот как выглядит интерфейс:

@Lelik-pahan · 11.11.2022, 23:15

Вот тут volvo показал, как перекрасить строку в RadioGrup. Но это работает только при отключенных темах (в настройках проекта для приложение параметр Runtime Themes установлен в None).

Добавлено через 5 минут
как-то так...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void grabQuestion()
{
    ...
    for (int i = 0; i < 4; i++)
    {
        if (i == o)
            Form3->RadioGroup1->Items->Add(Questions->ReadString(IntToStr(q), "pravilnoe", "Ничего"));
        if (i < 3)
            Form3->RadioGroup1->Items->Add(Questions->ReadString(IntToStr(q), "nepravilnoe" + IntToStr(i + 1), "Ничего"));
    }
    Form3->RadioGroup1->Tag = o;  //индекс item`а с правильным ответом
}
 
void __fastcall TForm3::RadioGroup1Click(TObject *Sender)
{
    //это работает только при отключенных темах!!!
    dynamic_cast<TRadioButton*>(RadioGroup1->Controls[RadioGroup1->ItemIndex])->Font->Color = RadioGroup1->ItemIndex == RadioGroup1->Tag ? clGreen : clRed;
}

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .