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

@lebid · Регистрация: 15.04.2010

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

Прива всем, ребята я написал игру, и у меня один вопрос? как можно зделать случайность вопросов при запуске игры?
вот скрин игры http://p23a.pp.ua/ZTK_P33-A/be... jannyj.png
А вот игра http://p23a.pp.ua/ZTK_P33-A/milioner.rar

@Grey · 10.06.2010, 12:59

Наведи пример двух случайних вопросов при запуске формы

lebid, а ты скачал второй архив Jafa, там это описано.Тока random при каждом запуске даёт одинаковую последовательность, при каждом запуске последовательность вопросов будет повторяться.

обезательно второй создавать?

В примере Jafa нет,в моём да(для каждого вопроса свой файл).

@lebid · 10.06.2010, 13:15 **[ТС]**

@Grey · 10.06.2010, 17:34

Не по теме:

16 Mb эт черезчур много для меня

lebid, до меня дошло . . . у тебя получается, что каждый раз нажимая кнопку, ты запускаеш рандом сначала.
А так как последовательность одинаковая, и получаеш тотже вопрос.
Так лучше

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{//Timer1->Enabled=true;Timer1->Interval=100 è ìåíüøå
nomer=random(10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//L:
int n=nomer;
//if (áûë òàêîé íîìåð) goto L;
TIniFile *ini=new TIniFile("Date\\vopros"+IntToStr(n)+".ini");
Label1->Caption=ini->ReadString("vopros1","vopros","Def");
Label2->Caption=ini->ReadString("vopros1","variant1","Def");
Label3->Caption=ini->ReadString("vopros1","variant2","Def");
Label4->Caption=ini->ReadString("vopros1","variant3","Def");
Label5->Caption=ini->ReadString("vopros1","variant4","Def");
delete ini;
}

@lebid · 10.06.2010, 21:11 **[ТС]**

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

Не по теме:

16 Mb эт черезчур много для меня

lebid, до меня дошло . . . у тебя получается, что каждый раз нажимая кнопку, ты запускаеш рандом сначала.
А так как последовательность одинаковая, и получаеш тотже вопрос.
Так лучше

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{//Timer1->Enabled=true;Timer1->Interval=100 è ìåíüøå
nomer=random(10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//L:
int n=nomer;
//if (áûë òàêîé íîìåð) goto L;
TIniFile *ini=new TIniFile("Date\\vopros"+IntToStr(n)+".ini");
Label1->Caption=ini->ReadString("vopros1","vopros","Def");
Label2->Caption=ini->ReadString("vopros1","variant1","Def");
Label3->Caption=ini->ReadString("vopros1","variant2","Def");
Label4->Caption=ini->ReadString("vopros1","variant3","Def");
Label5->Caption=ini->ReadString("vopros1","variant4","Def");
delete ini;
}

При нажатие на кнопку ваще не работает Лабели просто пустые, и все

Добавлено через 1 минуту

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <IniFiles.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
TIniFile *ini=new TIniFile("\\Date\\vopros"+IntToStr(n)+".ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
Label2->Caption=ini->ReadString("vopros1","variant1","");
Label3->Caption=ini->ReadString("vopros1","variant2","");
Label4->Caption=ini->ReadString("vopros1","variant3","");
Label5->Caption=ini->ReadString("vopros1","variant4","");
delete ini;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
n=random(10);        
}

Добавлено через 1 минуту
Grey, А ты скачал, сотрел игру

Добавлено через 1 час 23 минуты
Grey, Ты у себя проверял?

@Grey · 10.06.2010, 21:23

Ты не правельно прописываеш путь к файлу

C++
1
Label2->Caption=ini->ReadString("vopros1","variant1","это выводит в Label, когда не находит файл.а у тя тут пусто");

У меня рядом с ехе имеется папка Date.
Игру не скачивал. Слишком большая для моего мобильного соединения.

@lebid · 10.06.2010, 21:25 **[ТС]**

Grey, Я и папку создас сначало зделапл так как ти кинул код Виводило только Def

@Grey · 10.06.2010, 21:37

У меня работает

@lebid · 10.06.2010, 22:32 **[ТС]**

Grey, А можно както без Еdita обойтись и без кнопки, у меня просто в той игре одна недоработка, при запуске игры вапрос тот самый запускаетса, моя задача зделать чтобы при запуске игры тот самый вопрос не загружался, мне не нужно там использовать какието кнопки и другие обьекти, нужно чтобы только вапроси при запуске игри первого уровня менялись и все, я вот об этом говорю

Добавлено через 46 минут
Grey, Знаеш как так можно сделать, и это надо запрограммировать в события формы OnShow

@Grey · 10.06.2010, 22:57

В последнем варианте в Эдит выводится номер вопроса, и от него можно отказаться.

нужно чтобы только вапроси при запуске игри первого уровня менялись и все,

Посмотри

Добавлено через 1 минуту
В OnShow не знаю.

@lebid · 11.06.2010, 16:10 **[ТС]**

Grey, Я вот переделал тупо для кнопки,

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Button1Click(TObject *Sender)
{
n=random(9);
for(int i=0;i<9;i++){
TIniFile *ini=new TIniFile("Date\\vopros"+IntToStr(n+1)+".ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
Label2->Caption=ini->ReadString("vopros1","variant1","");
Label3->Caption=ini->ReadString("vopros1","variant2","");
Label4->Caption=ini->ReadString("vopros1","variant3","");
Label5->Caption=ini->ReadString("vopros1","variant4","");
delete ini;  }

Добавлено через 1 час 6 минут
Grey, Я уже розобрался вот такой код должен был выйти

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormShow(TObject *Sender)
{
Randomize();
int  n;
for(int i=0;i<15;i++)
n=RandomRange(10,0);
TIniFile *ini=new TIniFile("Date\\vopros"+IntToStr(n+1)+".ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
Label2->Caption=ini->ReadString("vopros1","variant1","");
Label3->Caption=ini->ReadString("vopros1","variant2","");
Label4->Caption=ini->ReadString("vopros1","variant3","");
Label5->Caption=ini->ReadString("vopros1","variant4","");
delete ini;           
}

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

@lebid 4 / 4 / 1 Регистрация: 15.04.2010 Сообщений: 134

	Игра Кто хочет стать миллионером? 06.06.2010, 12:18. Показов 8199. Ответов 29 Метки нет (Все метки) Прива всем, ребята я написал игру, и у меня один вопрос? как можно зделать случайность вопросов при запуске игры? вот скрин игры http://p23a.pp.ua/ZTK_P33-A/be... jannyj.png А вот игра http://p23a.pp.ua/ZTK_P33-A/milioner.rar 0

@lebid 4 / 4 / 1 Регистрация: 15.04.2010 Сообщений: 134
	10.06.2010, 13:15 [ТС]
	0

@lebid 4 / 4 / 1 Регистрация: 15.04.2010 Сообщений: 134
	10.06.2010, 21:25 [ТС]
	Grey, Я и папку создас сначало зделапл так как ти кинул код Виводило только Def 0

@lebid 4 / 4 / 1 Регистрация: 15.04.2010 Сообщений: 134
	10.06.2010, 22:32 [ТС]
	Grey, А можно както без Еdita обойтись и без кнопки, у меня просто в той игре одна недоработка, при запуске игры вапрос тот самый запускаетса, моя задача зделать чтобы при запуске игры тот самый вопрос не загружался, мне не нужно там использовать какието кнопки и другие обьекти, нужно чтобы только вапроси при запуске игри первого уровня менялись и все, я вот об этом говорю Добавлено через 46 минут Grey, Знаеш как так можно сделать, и это надо запрограммировать в события формы OnShow 0