викторина

[мацак]

народ помогите, замучился. нужна программка на java чтоб на мобиле работала. викторина как в icq чате. задает вопрос (например, автор"тихого дона")и подсказку на ответ ****х**, каждую минуту вылазят новые буквы, пока не ответишь правильно. нужно чтоб вопросы в эту прогу мб загружать через txt файл. реально ли ее сделать? помогите чем можете

[мацак]

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

[мацак]

уже на 4 форуме пишу, а в ответ везде тишина.

[Carbon]

Геморно писать. А если во фриланс - ради Бога.
А что за платформа? J2ME или андроид?

[мацак]

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

[Carbon]

Вряд ли кто-то писал здесь под именно j2me.

[мацак]

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

program pr;//
var data: resource;//наш ресурс
i,x,y,z,o,fName,fl,fm,fm2,r,q,v: integer;
A: array[0..4] of string;
B,C,E: array[0..30] of string;
t,f,n,d,otv,w,g1,g2,g3,j,l,m: string;
cmd,cmd2: Command;
begin
i:=0;
data:= OpenResource('/data.txt');//открытие ресурса
if (resourceAvailable(data)) then // Если файл существует
begin
repeat
t:=ReadLine(data);
x:=length(t);
if x>1 then
begin
A[i]:=t;
i:=i+1;
end;
repaint;
until x<2;
CloseResource(data);
end;
repeat
begin
y:=random(5);
n:=A[y];
z:=Pos(n,'|');
f:=Copy(n,0,z);
o:=length(n);
d:=Copy(n,z+1,o);
q:=length(d);
fl:=1;
for r:=0 to (q-1) do
begin
C[r]:='*';
end;
repeat
showForm;
cmd:=createCommand('enter',CM_OK,1) ;// Создаем
команду "ввод"
cmd2:=createCommand('exit',CM_STOP ,2);
addCommand(cmd);
addCommand(cmd2);
fName:= formAddTextField(f,'',15,TF_ANY);
fl:=0;
for r:=0 to (q-1) do
begin
B[r]:=Copy(d,fl,fl+1);
fl:=fl+1;
end;
v:=random(q);
C[v]:=B[v];
l:=c[0]+c[1]+c[2]+c[3]+c[4]+c[5]+c[6]+c[7]+c[8]+c[9]+c[10]+c[11]+c[12]+c[13]+c[14]+c[15]+c[16]+c[17]+c[18]+c[19]+c[20];
fm:=formaddstring(l);
while (getClickedCommand <> Cmd) do
delay(100);//Ждем нажатия на кнопку enter
otv:= formGetText(fName); // Помещаем в переменную otv значение, введенное в редактируемое
clearform;
until otv=d;
for r:=0 to (20) do
begin
C[r]:='';
end;
clearform;
end;
until otv='t';
Delay(5000);//задержка
end.

[мацак]

вот текст txt файла:
okno|window
dver|door
stena|woll
kniga|book
voda|woter
1