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 11:22 | Zajímavý článek

    IuRe (Iuridicum Remedium) v rámci programu Digitální svobody zveřejnila analýzu dopadů a efektivity systémů ověřování věku v digitálním prostoru, která srovnává implementace ověřování věku v Austrálii, Velké Británii a Evropské unii.

    |🇵🇸 | Komentářů: 0
    dnes 04:22 | Nová verze

    Multiplatformní emulátor terminálu Ghostty byl vydán ve verzi 1.3 (𝕏, Mastodon). Přehled novinek a vylepšení v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    dnes 03:55 | Nová verze

    Byla vydána nová verze 14.4 svobodného unixového operačního systému FreeBSD. Podrobný přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 4
    včera 23:22 | Nová verze

    Databáze DuckDB (Wikipedie) byla vydána ve verzi 1.5.0. S kódovým názvem Variegata (husice rajská). Přináší řadu vylepšení, včetně nového ergonomičtějšího CLI klienta nebo podporu pro typ VARIANT a vestavěný typ GEOMETRY.

    Ladislav Hagara | Komentářů: 0
    včera 13:44 | Zajímavý software

    V pátek 6. a sobotu 7. března proběhl v pražském sídle Nejvyššího kontrolního úřadu (NKÚ) Hackathon veřejné správy 7.1. Publikovány byly vytvořené aplikace. V kategorii projektů rozvíjených z krajského kola zvítězil tým „Mackokládi“. Čtyři středoškoláci ze Dvora Králové uspěli s aplikací KompaZ. Jde o digitálního průvodce, který pomůže s rychlou a srozumitelnou orientací v životních i krizových situacích „krok za krokem“. Aplikace

    … více »
    Ladislav Hagara | Komentářů: 4
    včera 13:33 | Nová verze

    QGIS, svobodný desktopový GIS, byl vydán v nové hlavní verzi 4.0. Změny zahrnují několik nových analytických a editačních funkcí, rozšíření podpory 3D, více možností úprav uživatelského rozhraní či mnoho dalších zlepšení použitelnosti. Řada 3.44 má aktualizace plánovány do září.

    |🇵🇸 | Komentářů: 0
    včera 05:11 | Komunita

    Dan Blanchard vydal knihovnu pro Python chardet v nové verzi 7.0.0. S novou verzí byla knihovna přelicencována z LGPL na MIT. Souhlasili s tím všichni přispěvatelé? Dan Blanchard souhlasy vůbec neřešil. Zaúkoloval umělou inteligenci (Claude), aby knihovnu zcela přepsala a výslovně jí nařídil, aby nepoužila žádný LGPL kód. Dan Blanchard tvrdí, že se jedná o clean room design. Protistrana argumentuje, že umělá inteligence byla trénována

    … více »
    Ladislav Hagara | Komentářů: 17
    8.3. 18:44 | Komunita

    Andy Nguyen si na svou herní konzoli PlayStation 5 (PS5) pomocí exploitu Byepervisor nainstaloval Linux (Ubuntu). V Linuxu si spustil Steam a PS5 tak proměnil v Steam Machine. Na PS5 může hrát hry, které jsou vydané pouze pro PC a jsou na Steamu [Tom's Hardware].

    Ladislav Hagara | Komentářů: 12
    8.3. 12:22 | Nová verze

    Správce sbírky fotografií digiKam byl vydán ve verzi 9.0.0. Jedná se o větší vydání provázené aktualizacemi knihoven. Mnoho dílčích změn se vedle oprav chyb týká uživatelského rozhraní, mj. editace metadat.

    |🇵🇸 | Komentářů: 1
    7.3. 13:55 | Nová verze

    Byla vydána verze 2026 distribuce programu pro počítačovou sazbu TeX s názvem TeX Live (Wikipedie). Přehled novinek v oficiální dokumentaci.

    Ladislav Hagara | Komentářů: 58
    Které desktopové prostředí na Linuxu používáte?
     (16%)
     (7%)
     (0%)
     (11%)
     (29%)
     (2%)
     (5%)
     (2%)
     (13%)
     (25%)
    Celkem 1045 hlasů
     Komentářů: 25, poslední 3.2. 19:50
    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.