Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 10:40
od faraon
Řekl bych že ten kdo to v tom videu losuje buď nerozezná dvojku od čtyřky nebo pěkně švindluje. Nebylo by lepší kdyby se i o to rozdílení staral program, než to nechat na ručním taháním myší? Jak to přesně chceš používat, také natáčet na video?
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 10:57
od Gizzer2
Někde jsem se dočetl že by se to dalo udělat i v excelu kde po stisknutí tlačítka by se ty týmy rozhodily do skupin. Ale mám obavu aby se nerozhazovaly pokaždé stejně. faraon máš nějaký nápad? mohlo by to být i na videu ale nemuselo by být mohlo by to být klidně i nějaké jednoduché PHP a ty čísla losované by se uložily do databáze a ostatní by je viděli potom ty losované čísla, potom by nemohlo dojít k nějakémů švindlu. Otázka je druhá pokud by padli 2 stejná čísla za sebou bylo by to k ničemu
--- Doplnění předchozího příspěvku (28 Pro 2011 16:39) ---
Prosím pomůžete mi někdo neumím programovat.
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
var i,j,r,s,f,n:integer; tymy,skupiny:array[1..4,1..4]of string[18];
procedure zobraz; begin clrscr; writeln; for i:=1 to 4 do begin write(' ',i,':'); for j:=1 to 4 do begin while length(tymy[i,j])<18 do tymy[i,j]:=tymy[i,j]+' '; write(' ',tymy[i,j]); end; writeln; writeln; end; gotoxy(32,10); write('+-------+'); gotoxy(32,11); write('| |'); gotoxy(32,12); write('| ',n,' |'); gotoxy(32,13); write('| |'); gotoxy(32,14); write('+-------+'); gotoxy(29,15); writeln('stiskni klavesu'); writeln; for i:=1 to 4 do write(' ',i,'. skupina '); writeln; writeln; for i:=1 to 4 do begin write(' '); for j:=1 to 4 do write(' ',skupiny[i,j]); writeln; end; end;
begin clrscr; writeln('Zadej nazvy tymu - max 18 znaku:'); writeln; for i:=1 to 4 do for j:=1 to 4 do begin write('zadej tym ',i,'/',j,': '); repeat readln(tymy[i,j]); until (tymy[i,j]<>'') and (tymy[i,j,1]<>' '); end;
f:=0; n:=0; for r:=1 to 4 do for s:=1 to 4 do begin zobraz; if (r=1) and (s=1) then begin gotoxy(34,12); write('START'); readkey; end;
repeat repeat n:=(n mod 4)+1; until tymy[n,r]<>' '; gotoxy(34,12); write(' ',n,' '); until KeyPressed; readkey; skupiny[r,s]:=tymy[n,r]; zobraz; tymy[n,r]:=' '; readkey;
end; zobraz; readkey; end.
Jede to sice jen v textovém režimu, ale můžeš natočit video okna a to pak vystavit jako důkaz losování:
LOSOVANI.png (11.22 KiB) Zobrazeno 1443 x
Jestli máš dvaatřicetibitový systém, můžu ti poslat i binárku, jinak bys to musel spouštět pod DOSBoxem jako já.
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 16:49
od Gizzer2
Už ho mám nainstalovaný chtěl jsem to tam zkopírovat ale nejde musím to opsat
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 17:07
od faraon
Ale ne, prostě to zkopíruj do Poznámkového bloku, ulož do adresáře PASCAL jako losovani.pas (bacha, vypni si přidávání přípony TXT!) a pak si to načti do toho Pascalu. Při opisování určitě uděláš pár chyb a pak se s tím budeš trápit. Ale i to je dobrý způsob jak se něco nového naučit
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 17:19
od Gizzer2
Díky moc funguje to dobře.
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát
Napsal: 28 pro 2011 17:26
od faraon
Měl bys to už mít zkompilované do EXE, akorát musíš najít kam to ten Pascal uložil. Podívej se do nastavení v Options/Directories, jaký adresář tam má nastavený.
Re: Poradíte někdo, jak udělat počítadlo (losovadlo)? Udělát Vyřešeno
Napsal: 28 pro 2011 17:27
od Gizzer2
Jj díky už je to ok fakt si mi pomohl. Aspoň vím příště na koho se obrátit hned ne dělám si srandu dík moc.
