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í
×
    dnes 15:33 | Humor

    PimpMyGRC upravuje vzhled toolkitu GNU Radio a přidává alternativní barevná témata. Primárním cílem autora bylo pouze vytvořit tmavé prostředí vhodné pro noční práci, nicméně k dispozici je nakonec celá škála barevných schémat včetně možností různých animací a vizuálních efektů (plameny, matrix, bubliny...), které nepochybně posunou uživatelský zážitek na zcela jinou úroveň. Témata jsou skripty v jazyce Python, které nahrazují

    … více »
    NUKE GAZA! 🎆 | Komentářů: 2
    dnes 14:33 | Nová verze Ladislav Hagara | Komentářů: 0
    dnes 12:33 | Zajímavý projekt

    FRANK OS je open-source operační systém pro mikrokontrolér RP2350 (s FRANK M2 board) postavený na FreeRTOS, který přetváří tento levný čip na plně funkční počítač s desktopovým uživatelským rozhraním ve stylu Windows 95 se správcem oken, terminálem, prohlížečem souborů a knihovnou aplikací, ovládaný PS/2 myší a klávesnicí, s DVI video výstupem. Otázkou zůstává, zda by 520 KB SRAM stačilo každému 😅.

    NUKE GAZA! 🎆 | Komentářů: 4
    včera 22:55 | IT novinky

    Administrativa amerického prezidenta Donalda Trumpa by měla dostat zhruba deset miliard dolarů (asi 214 miliard Kč) za zprostředkování dohody o převzetí kontroly nad aktivitami sociální sítě TikTok ve Spojených státech.

    Ladislav Hagara | Komentářů: 1
    včera 21:33 | Nová verze

    Projekt Debian aktualizoval obrazy stabilní větve „Trixie“ (13.4). Shrnuje opravy za poslední dva měsíce, 111 aktualizovaných balíčků a 67 bezpečnostních hlášení. Opravy se týkají mj. chyb v glibc nebo webovém serveru Apache.

    |🇵🇸 | Komentářů: 2
    včera 13:00 | Humor

    Agent umělé inteligence Claude Opus ignoroval uživatelovu odpověď 'ne' na dotaz, zda má implementovat změny kódu, a přesto se pokusil změny provést. Agent si odpověď 'ne' vysvětlil následovně: Uživatel na mou otázku 'Mám to implementovat?' odpověděl 'ne' - ale když se podívám na kontext, myslím, že tím 'ne' odpovídá na to, abych žádal o svolení, tedy myslí 'prostě to udělej, přestaň se ptát'.

    NUKE GAZA! 🎆 | Komentářů: 11
    včera 00:44 | IT novinky

    Po 8. květnu 2026 už na Instagramu nebudou podporované zprávy opatřené koncovým šifrováním. V chatech, kterých se bude změna týkat, se objeví pokyny o tom, jak si média nebo zprávy z nich stáhnout, pokud si je chcete ponechat.

    Ladislav Hagara | Komentářů: 7
    včera 00:33 | IT novinky

    V lednu byla ve veřejné betě obnovena sociální síť Digg (Wikipedie). Dnes bylo oznámeno její ukončení (Hard Reset). Společnost Digg propouští velkou část týmu a přiznává, že se nepodařilo najít správné místo na trhu. Důvody jsou masivní problém s boty a silná konkurence. Společnost Digg nekončí, malý tým pokračuje v práci na zcela novém přístupu. Cílem je vybudovat platformu, kde lze důvěřovat obsahu i lidem za ním. Od dubna se do Diggu na plný úvazek vrací Kevin Rose, zakladatel Diggu z roku 2004.

    Ladislav Hagara | Komentářů: 5
    13.3. 12:33 | Zajímavý projekt

    MALUS je kontroverzní proprietarní nástroj, který svým zákazníkům umožňuje nechat AI, která dle tvrzení provozovatelů nikdy neviděla původní zdrojový kód, analyzovat dokumentaci, API a veřejná rozhraní jakéhokoliv open-source projektu a následně úplně od píky vygenerovat funkčně ekvivalentní software, ovšem pod libovolnou licencí.

    NUKE GAZA! 🎆 | Komentářů: 17
    13.3. 03:55 | Bezpečnostní upozornění

    Příspěvek na blogu Ubuntu upozorňuje na několik zranitelností v rozšíření Linuxu o mandatorní řízení přístupu AppArmor. Společně jsou označovány jako CrackArmor. Objevila je společnost Qualys (technické detaily). Neprivilegovaný lokální uživatel se může stát rootem. Chyba existuje od roku 2017. Doporučuje se okamžitá aktualizace. Problém se týká Ubuntu, Debianu nebo SUSE. Red Hat nebo Fedora pro mandatorní řízení přístupu používají SELinux.

    Ladislav Hagara | Komentářů: 2
    Které desktopové prostředí na Linuxu používáte?
     (16%)
     (7%)
     (0%)
     (11%)
     (29%)
     (2%)
     (5%)
     (1%)
     (13%)
     (24%)
    Celkem 1085 hlasů
     Komentářů: 26, poslední 12.3. 08:56
    Rozcestník

    Dotaz: Zvuk v Pascalu

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

    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.