Casovac na pc

Cenayus

servus nepoznate niekto casovac na Pc..nieco kde by som si mohol nastavit chod dookola ze 30s a 10s a zas dookola....idu 30sekund skoncia upozorni a nasleduje 10s upozornia o5 zacina 30s a tak dookola

Áno, samozrejme, mal som, volalo sa to nejak "dookolacitamchujarozumiem.exe". Stačí ti verzia 3.2?

ades

erytro, nie je to take hrozne ked to precitas tak 10x

on chce program, ktory zacne odpocitavat 30s, ked skonci zacne odznova odpocitavat ale teraz uz 10s, potom zase 30s a tak dokola

1C3 · Príspevok od používateľa **1C3** » 27 jún 2008, 19:31

Vobec ale voebc neviem co chce a naco mu to je...Nech to citam kolkokrat chcem stale neviem...

ades

ja sa z toho poseriem, vy ste retardi? tak podme na to spolu:
1- mame pc
2- v tom pc je program X
3- spustime program X
4- program X nam zacne odpocitavat 30 sekund
5- program X po skonceni odpocitavania 30s zacne odpocitavanie znova, ale pozor, tu je pes zakopany: odpocitava iba 10s!!!
6- program X odpocita do konca 10s a zacne zase odpocitavat 30s
7- opakujte kroky 4 az 6

1C3 · Príspevok od používateľa **1C3** » 27 jún 2008, 21:08

ades napísal:ja sa z toho poseriem, vy ste retardi? tak podme na to spolu:
1- mame pc
2- v tom pc je program X
3- spustime program X
4- program X nam zacne odpocitavat 30 sekund
5- program X po skonceni odpocitavania 30s zacne odpocitavanie znova, ale pozor, tu je pes zakopany: odpocitava iba 10s!!!
6- program X odpocita do konca 10s a zacne zase odpocitavat 30s
7- opakujte kroky 4 az 6

A naco je to dobre??

Sagittarius

ades napísal:ja sa z toho poseriem, vy ste retardi? tak podme na to spolu:
1- mame pc
2- v tom pc je program X
3- spustime program X
4- program X nam zacne odpocitavat 30 sekund
5- program X po skonceni odpocitavania 30s zacne odpocitavanie znova, ale pozor, tu je pes zakopany: odpocitava iba 10s!!!
6- program X odpocita do konca 10s a zacne zase odpocitavat 30s
7- opakujte kroky 4 az 6

To sme pochopili. Ale nevidím žiadny dôvod na čo by bol tento program dobrý?

ades napísal:erytro, nie je to take hrozne ked to precitas tak 10x on chce program, ktory zacne odpocitavat 30s, ked skonci zacne odznova odpocitavat ale teraz uz 10s, potom zase 30s a tak dokola

Ty génius

. Ja som pochopil čo chce. Ja len nerozumiem tomu, načo je taký program dobrý. To nech si zaobstará kuchynské hodiny

mirak2

mozno to chce na trening masturbacie...30sekund honit 10 sekund pauza....alebo naopak

sak taka blbost sa da nakodit hocikde, aj v pascale

mirak2 napísal:mozno to chce na trening masturbacie...30sekund honit 10 sekund pauza....alebo naopak sak taka blbost sa da nakodit hocikde, aj v pascale

no davaj, som zvedavý ako sa v pascale popasuješ s tým timerom

Sagittarius

mirak2: Dá, len tam je napr. problém s delayom a mne konkrétne ešte nešli zvuky. Ale zo srandy som to spravil.

Takže Cenayus, niečo v takomto zmysle?

správa sa ti to dosť zvláštne, odráta 30, potom 10, potom 10+30, potom 10...

Sagittarius

No veď ako som to pochopil má tam byť 30-10-30-10-......-30-10-30-10.

áno, aj ja. Ale nemáš to tak. Tebe odráta 30 sekúnd, pípne. Potom odráta 10 sekúnd, pípne. Do tohto bodu je to ok. Ale potom znovu odrátava 10 sekún, no na konci nepípne ale začne odrátavať 30 sekúnd...

//edit: som unavený, je vela hodín a už nemám chuť. Skús si to pustiť alebo počkaj nech ti to vysvetlí niekto iný, mne sa už nechce. Proste ti idú dve desiatky zasebou, čomu nerozumieš?

Sagittarius

To pípanie mne vôbec nešlo...takže neviem ako to pípa...ale nastavil som to tak, že pípať by to malo keď tam je desiatka, presne tak ako s tou červenou farbou...

mirak2

ono je to divne ale mne to odpocitavalo od 30, na 10 piplo, pocitalo dalej, na nule to prebehlo na 10 piplo a potom uz nepipalo ...
hod sem zdrojak, tam bude nejaka logicky bug...

Sagittarius

Kód: Vybrať všetko

program countdown;
uses crt;
var i:byte;
    max:integer;
procedure odpocitaj(cas:byte);
          var i:byte;
          begin
           for i:=cas downto 0 do
            begin
             if i<10 then write(' ');
             if i=10 then textcolor(red) else textcolor(white);
             write(i);
             gotoxy(1,1);
             if i=10 then sound(4000) else nosound;
             delay(8000);
            end;
          end;


begin
 clrscr;
 writeln('COUNTDOWN');
 writeln('Press any key.');
 readln;
 clrscr;
 writeln('Napiste pocet opakovani.');
 readln(max);
 clrscr;
 for i:=1 to max do
  begin
   odpocitaj(30);
   odpocitaj(10);
  end;
 readln;
 writeln('Made by Sagittarius (c) :P');
 readln;
end.

tá premenná i tam nie je najšťastnejšie použitá, neviem ako sa s tým pascal pasuje. A tiež neviem prečo porovnávaš či je i rovné 10 a nie nula

Sagittarius

Lebo 10 sekúnd pred koncom to má upozorniť...

mirak2

asi si to zle pochopil, odpocita 30 sekund, urobi BU, odpocitava 10 sekund, urobi BU, odpocitava 30 sekund, urobi BU a tak dookola a nie ze ide 30 sekund a ked je 10 tak BU