Poradíte někdo, jak udělat počítadlo (losovadlo)? Uděláte? * Vyřešeno

[Gizzer2]

Zdravíčko,

neporadil by mi někdo jak a v čem vytvořit tohle jednoduchý počítadlo (losovadlo) to ve žlutém obdelníčku.


Popřípadě jestli by ho někdo nevytvořil.

[Reklama]

[Poky]

Nestačí ti prostě funkce v excelu? "RANDBETWEEN" ?

[Gizzer2]

Bohužel nemám excel :(
Mohu ho mít ale zase s ním nebudu umět

[Poky]

Hmm.. Nestačí ti proste random.org?

[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?

[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.

[faraon]

Nápad mám, stáhni si Pascal a zkompiluj si tohle:

Kód: Vybrat vše

program losovani;

uses Crt;

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 1442 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á.

[Gizzer2]

Už ho mám nainstalovaný chtěl jsem to tam zkopírovat ale nejde musím to opsat

[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

[Gizzer2]

Díky moc funguje to dobře.

[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ý.

[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.