тест пишу

[Predator]

формулирую

у меня грубо говоря есть 20 форм
в каждой из них есть вопрос и ответ
ответ написан на кнопках нажал на кнопку форма исчезла и в памяти отметила что выбрал пользователь (ну и в этот код не тяжело вписать чтоб после своего закрытия он показывала следущую)

мне надо

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

если непонятно что надо спрашивайте

[RayShade]

Не переформулируешь вопрос, так чтобы было понятно, тему закрою.

[Лёха_Virus]

сделай блин одну форму и лист экселя или там блокнот с вопросами и ответами на худой конец. [исправлено RayShade. Нечего потому что нецензурные слова в форуме писать]
Или лучче сделай невидимую флексгрид с вопросами и ответами на форме и на той же форме лист для выбора ответа...

[Predator]

нет таким образом нельзя

все ответы и вопросы должны быть в разных формах

поэтому и спрашиваю

[Ducis]

Если правильно понял, то можно так:
Кнопки на формах вызывают функцию, а в функции генеришь случайное число от 0 до 1. А потом так:
целочисленная_переменная = число_твоих_форм * случайное_число
select case целочисленная_переменная
case 0
form1.show
case 1
form2.show
....
case число_твоих_форм_минус_один
...
end select

[RayShade]

Мда....... вопрос неясен, смысл не понятен.

Единственное что могу посоветовать - MDIForm и в ней 20 дочерних.

[Predator]

Если правильно понял, то можно так:
Кнопки на формах вызывают функцию, а в функции генеришь случайное число от 0 до 1. А потом так:
целочисленная_переменная = число_твоих_форм * случайное_число
select case целочисленная_переменная
case 0
form1.show
case 1
form2.show
....
case число_твоих_форм_минус_один
...
end select

непонял немного
если сгенерится ноль то я егоже и получу
или чего-то не понимаю

[Ducis]

Или чего-то не понимаешь
Пишу сходу, проверишь сам:

const FORMS as integer = 20 ' число форм
dim sngVar as single
sngVar=rnd(Second(Time))'это чтобы последовательность случайных чисел не повторялась часто, вместо Second(Time) можно так Second(Time)/Minute(Time) повторятся будет реже
на этом этапе в sngVar имеем число от 0 включительно до 1 не включительно
теперь вспоминаем математику 5-й класс:
dim infForm as integer
infForm=FORMS*sngVar
в infForm имеем число от 0 включительно до FORMS не включительно

select case infForm
case 0
form1.show
case 1
form2.show
....
case 19
form20.show
end select

[RayShade]

А что, массив не завести из форм и показывать просто Form(infForm).Show ?

[Ducis]

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

[Ducis]

А что, массив не завести из форм и показывать просто Form(infForm).Show ?

Согласен если формы одинаковы и генерятся кодом. Но во время разработки дизайна массив форм не сделаешь.
К тому же у Predator все формы уже готовы, как я понял.

[RayShade]

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

Зачем делать 20 форм? А елси тест придется расширить? Тогда перелопачиванию подвергнется куча кода.

Не проще ли сделать 1 форму, в которой показывать варианты вопросов и ответов?

[Predator]

задача у меня такая

вот и прошу помощи именно так криво и тупо сделать
то что надо
немогу я кодом в одной форме сделать(нельзя-сказали хотят так и все )

[Ducis]

Не проще ли сделать 1 форму, в которой показывать варианты вопросов и ответов?

Двумя руками за. Кроме перелопачивания кода еще уйма ресурсов в трубу.

[Ducis]

вот и прошу помощи

Дык, получилось?

[Predator]

вот и прошу помощи

Дык, получилось?

непонял

[seelts]

у меня структура немного другая, но шмысел тот же:
ЗЫ: эту прогу я только начал, поэтому не судите по коду... здесь только намётки.

[v-adix]

а не легче сделать 1 форму и в ini файл писать вопрос и ответ? а потом выводить вопрос случайным образом?

[general]
totalquestions=x
[q1]
question=вопрос
answer1=ответ1
answer2=ответ2
answer3=ответ3
answer4=ответ4
rightanswer=3
[qx]
.......

[Ducis]

а не легче сделать 1 форму и в ini файл писать вопрос и ответ? а потом выводить вопрос случайным образом?

[general]
totalquestions=x
[q1]
question=вопрос
answer1=ответ1
answer2=ответ2
answer3=ответ3
answer4=ответ4
rightanswer=3
[qx]
.......

А вдруг злобные студенты все вопросы и ответы подсмотрят и отличниками станут?

[v-adix]

ну блин! а зашифровать что нельзя?
я думал вы сами догадаетесь

dim encoded as string
dim source as string
for i = 1 to len(source)
encoded = encoded & chr(asc(mid(source,i,1)) + 1)
next i

самый простой алгоритм шифрования строки! можно использовать и XOR вместо минуса. а раскодировать - тот же код только вместо минуса плюс надо поставить