abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    včera 14:22 | Bezpečnostní upozornění

    Byly zveřejněny informace o kritické zranitelnosti CVE-2026-64600 pojmenované RefluXFS (technické detaily) v XFS. Je tam již od verze Linuxu 4.11, tj. rok 2017. Jedná se o lokální eskalaci práv. Neprivilegovaný uživatel může editovat libovolný soubor, například klidně zrušit rootovské heslo v /etc/passwd. Videoukázka na Vimeo. V upstreamu je zranitelnost opravena.

    Ladislav Hagara | Komentářů: 0
    včera 13:46 | IT novinky

    OpenAI / ChatGPT má dnes výpadky (OpenAI Status, DownDetector).

    Ladislav Hagara | Komentářů: 0
    včera 13:00 | Komunita

    Poskytovatel hostingu svobodných/open-source projektů Codeberg po hlasování na valné hromadě vydal stanovisko k využívání LLM. Kvůli vytěžování infrastruktury a rostoucím cenám hardwaru, ale také hrozbám pro spolupráci v komunitě se k LLM staví kriticky. Nebude poskytovat hosting projektů vytvářených LLM agenty.

    |🇵🇸 | Komentářů: 0
    24.7. 14:22 | Zajímavý projekt

    Jack Dorsey představil (𝕏) open source týmovou komunikační platformu Buzz (GitHub) s cílem snížit závislost na Slacku a GitHubu.

    Ladislav Hagara | Komentářů: 18
    23.7. 23:00 | Nová verze

    Poštovní klient Thunderbird byl vydán v nové verzi 153 s kódovým názvem Meadow. Jedná se o ESR (Extended Support Release) vydání. Přehled novinek v poznámkách k vydání. Vylepšuje OAuth. Thundermail lze používat bez instalace doplňku.

    Ladislav Hagara | Komentářů: 0
    23.7. 22:22 | Zajímavý článek

    AI tento rok naplno vtrhla do vývoje softwaru a výrazně ovlivňuje také open source projekty. Jiří Eischmann v příspěvku Jak mění AI open source na svém blogu rozebírá několik trendů, které v open source v poslední době v souvislosti s AI pozoruje, a jak tyto trendy svět otevřeného softwaru mění (Inflace projektů, Zahlcení kontroly, Klesající motivace zveřejňovat kód).

    Ladislav Hagara | Komentářů: 16
    23.7. 22:00 | IT novinky

    Evropská komise (EK) vyměřila americké internetové společnosti Google pokutu 890 milionů eur (21,5 miliardy Kč) za porušení unijního nařízení o digitálních trzích (DMA). Firma se podle unijní exekutivy provinila tím, že ve vyhledávači Google Search upřednostňovala vlastní služby a že podnikům ukládala omezení, která jim bránila nasměrovat spotřebitele k alternativním, často levnějším nákupním kanálům na platformě Google Play.

    … více »
    Ladislav Hagara | Komentářů: 2
    22.7. 19:44 | IT novinky

    Samsung na akci Galaxy Unpacked July 2026 (YouTube) představil své nové telefony Galaxy Z Fold8 Ultra, Fold8 a Flip8, hodinky Galaxy Watch Ultra2 a Watch9 a chytré brýle ve spolupráci s Gentle Monster a Warby Parker.

    Ladislav Hagara | Komentářů: 0
    22.7. 16:11 | IT novinky

    Po pěti letech vývoje vyšla česká počítačová hra Scarlet Deer Inn (ProtonDB). Scarlet Deer Inn je vyšívaná temná středověká pohádka. Zatímco život ve zdánlivě obyčejné vesnici se točí kolem běžných povinností a sousedských drbů, v podzemí se skrývají zlověstná tajemství.

    Ladislav Hagara | Komentářů: 2
    22.7. 13:33 | IT novinky

    Představen byl Raspberry Pi Touch Display 2 s uhlopříčkou 10 palců a rozlišením 1200 × 1920 pixelů. Cena je 80 dolarů.

    Ladislav Hagara | Komentářů: 11
    Které desktopové prostředí na Linuxu používáte?
     (11%)
     (7%)
     (2%)
     (17%)
     (30%)
     (5%)
     (6%)
     (2%)
     (15%)
     (24%)
    Celkem 2223 hlasů
     Komentářů: 30, poslední 3.4. 20:20
    Rozcestník


    Dotaz: Zvuk v Pascalu

    4.2.2012 19:04 Martin
    Zvuk v Pascalu
    Přečteno: 889×

    Dobrý den, co dělá příkaz "delay (1)" a "sound (5000)" v tomoto programu:


    Program houkacka;
    uses crt;
    begin
      clrscr;
      repeat
          sound (5000);
          delay (1);
      until keypressed;
      readln;
      nosound;
    end.

    Děkuji.

    Řešení dotazu:


    Odpovědi

    Jendа avatar 4.2.2012 19:13 Jendа | skóre: 78 | blog: Jenda | JO70FB
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Program houkacka;
    uses crt;
    begin
     clrscr;
     repeat
         sound (5000);
         delay (1);
     until keypressed;
     readln;
     nosound;
    end.
    Tipnul bych si, že funkce sound() má jako parametr frekvenci tónu a delay() bude pozastavení běhu na zadaný počet milisekund.
    4.2.2012 19:32 Petr Šobáň | skóre: 80 | blog: soban | Olomouc
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Hledání zase nefunguje ?

    Turbo Pascal: část II. - vytvoření programu, který ovládá vnitřní reproduktor PC

    Příkaz sound(800); slouží k posílání dat reproduktoru, ten začne vydávat zvuk. Číslo v závorce znamená, jak vysokým tónem bude zvuk hrán v Hz.

    Ovšem pozor některé moderní PC už nemají reproduktorek na MB.

    delay(1) je čekání.

    Turbo Pascal: část X. - Upcase, kombinace více podmínek if a repeat
    4.2.2012 22:05 l4m4
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Ono to celkově asi udělá něco definovaného akorát na historickém počítači s historickým Borland (Trubo) Pascalem...

    Např. FreePascal explicitně říká, že to nemusí být vůbec implementováno, a když je, tak to prostě udělá ,něco`:
    Under Windows, a system sound is played and the frequency parameter is ignored. On other operating systems, this routine may not be implemented.
    Bedňa avatar 6.2.2012 11:27 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Pozri sa napréklad na http://www.freebyte.com/music_player/ je to napísané v Lazaruse (FreePascal).
    KERNEL ULTRAS video channel >>>
    6.2.2012 13:58 l4m4
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Ano, ten určitě používá sound() k přehrávání zvuků z interního reproduktoru...
    Bedňa avatar 6.2.2012 14:33 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Tazatel napísal Zvuk v Pascalu
    KERNEL ULTRAS video channel >>>
    Jendа avatar 6.2.2012 14:38 Jendа | skóre: 78 | blog: Jenda | JO70FB
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    V těle příspěvku je také nějaký obsah a dokonce i ukázka kódu (i když špatně zformátovaná)…
    Bedňa avatar 6.2.2012 14:42 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Určite nechce ovládať systémový reproduktor, to by napísal rovno, ale chce vylúdiť nejakú peknú znelku.
    KERNEL ULTRAS video channel >>>
    Jendа avatar 6.2.2012 14:46 Jendа | skóre: 78 | blog: Jenda | JO70FB
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Ptal se, co dělá funkce sound(), na což mu bylo odpovězeno. Tvůj komentář na tuto otázku neodpovídá ;).
    Bedňa avatar 6.2.2012 15:26 Bedňa | skóre: 34 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    V tomto kontexte máš pravdu.
    KERNEL ULTRAS video channel >>>
    6.2.2012 15:25 l4m4
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    A kde je tedy zdrojový kód toho programu, aby se tazatel mohl podívat, jak se to dělá?

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.