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 14:33 | Zajímavý software

    Grafický správce balíčků Myrlyn pro SUSE a openSUSE, původně YQPkg, dospěl do stabilní verze 1.0.0. Postaven je nad libzypp a Qt 6. Projekt začal na SUSE Hack Weeku 24.

    Ladislav Hagara | Komentářů: 0
    dnes 13:44 | Zajímavý projekt

    Vývojáři se podařilo vytvořit patch pro Wine, díky kterému je možné na linuxovém stroji nainstalovat a spustit Adobe Photoshop (testováno s verzemi Photoshopu PS2021 a PS2025). Dalším patchem se podařilo umožnit dokonce instalaci téměř celého Adobe Creative Cloud Collection 2023, vyjma aplikací Adobe XD a Adobe Fresco. Patch řeší kompatibilitu s windowsovými subsystémy MSHTML - jádrem prohlížeče Internet exporer, a MSXML3 - parserem

    … více »
    NUKE GAZA! 🎆 | Komentářů: 0
    dnes 13:33 | IT novinky

    Hackeři zaútočili na portál veřejných zakázek a vyřadili ho z provozu. Systém, ve kterém musí být ze zákona sdíleny informace o veřejných zakázkách, se ministerstvo pro místní rozvoj (MMR) nyní pokouší co nejdříve zprovoznit. Úřad o tom informoval na svém webu a na sociálních sítích. Portál slouží pro sdílení informací mezi zadavateli a dodavateli veřejných zakázek.

    Ladislav Hagara | Komentářů: 2
    dnes 12:22 | Nová verze

    Javascriptová knihovna jQuery (Wikipedie) oslavila 20. narozeniny, John Resig ji představil v lednu 2006 na newyorském BarCampu. Při této příležitosti byla vydána nová major verze 4.0.0.

    Ladislav Hagara | Komentářů: 1
    dnes 01:33 | Zajímavý projekt

    Singularity je rootkit ve formě jaderného modulu (Linux Kernel Module), s otevřeným zdrojovým kódem dostupným pod licencí MIT. Tento rootkit je určený pro moderní linuxová jádra 6.x a poskytuje své 'komplexní skryté funkce' prostřednictvím hookingu systémových volání pomocí ftrace. Pro nadšence je k dispozici podrobnější popis rootkitu na blogu autora, případně v článku na LWN.net. Projekt je zamýšlen jako pomůcka pro bezpečnostní experty a výzkumníky, takže instalujte pouze na vlastní nebezpečí a raději pouze do vlastních strojů 😉.

    NUKE GAZA! 🎆 | Komentářů: 0
    včera 21:22 | Zajímavý projekt

    Iconify je seznam a galerie kolekcí vektorových open-source ikon, ke stažení je přes 275000 ikon z více jak dvou set sad. Tento rovněž open-source projekt dává vývojářům k dispozici i API pro snadnou integraci svobodných ikon do jejich projektů.

    NUKE GAZA! 🎆 | Komentářů: 3
    včera 03:33 | IT novinky

    Dle plánu certifikační autorita Let's Encrypt nově vydává také certifikáty s šestidenní platností (160 hodin) s možností vystavit je na IP adresu.

    Ladislav Hagara | Komentářů: 8
    17.1. 14:44 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 14.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 6
    17.1. 13:11 | Zajímavý projekt

    Just the Browser je projekt, 'který vám pomůže v internetovém prohlížeči deaktivovat funkce umělé inteligence, telemetrii, sponzorovaný obsah, integraci produktů a další nepříjemnosti' (repozitář na GitHubu). Využívá k tomu skrytá nastavení ve webových prohlížečích, určená původně pro firmy a organizace ('enterprise policies'). Pod linuxem je skriptem pro automatickou úpravu nastavení prozatím podporován pouze prohlížeč Firefox.

    NUKE GAZA! 🎆 | Komentářů: 3
    16.1. 16:44 | Nová verze

    Svobodný multiplatformní herní engine Bevy napsaný v Rustu byl vydán ve verzi 0.18. Díky 174 přispěvatelům.

    Ladislav Hagara | Komentářů: 2
    Které desktopové prostředí na Linuxu používáte?
     (18%)
     (5%)
     (0%)
     (9%)
     (20%)
     (3%)
     (5%)
     (2%)
     (11%)
     (39%)
    Celkem 518 hlasů
     Komentářů: 14, poslední včera 10:22
    Rozcestník

    Dotaz: Zvuk v Pascalu

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

    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.