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

Nadace The Document Foundation (TDF) zastřešující vývoj svobodného kancelářského balíku LibreOffice zveřejnila čtyřiačtyřicetistránkovou výroční zprávu za rok 2016. K dispozici je ve formátu pdf ve vysokém (21,68 MB) a nízkém (7,1 MB) rozlišení. Zpráva byla vytvořena ve Scribusu.

Ladislav Hagara | Komentářů: 0
dnes 14:40 | Zajímavý software

Mozilla.cz informuje, že Firefox Focus pro Android, velmi jednoduchý prohlížeč zaměřený na anonymní prohlížení, dosáhl milionu stažení. Firefox Focus blokuje sledující prvky a reklamy a při ukončení automaticky smaže všechna uložená data stránek, historii prohlížení a cookies.

Ladislav Hagara | Komentářů: 0
dnes 14:20 | Komunita

Vyplněním dotazníku na Formuláře Google lze ovlivnit výběr výchozích aplikací v Ubuntu 18.04 LTS. Podrobnosti v příspěvku Dustina Kirklanda na Ubuntu Insights [reddit].

Ladislav Hagara | Komentářů: 0
včera 11:30 | Komunita

Etherpad (Wikipedie), svobodný online webový textový editor umožnující spolupráci v reálném čase, se stal oficiálním projektem organizace Software Freedom Conservancy (Wikipedie). Vývojáři Etherpadu se tak mohou stejně jako vývojáři dalších projektů soustředit pouze na vývoj softwaru a vše kolem zařídí Software Freedom Conservancy. Spuštěna byla instance Etherpadu pad.sfconservancy.org.

Ladislav Hagara | Komentářů: 2
včera 10:40 | Zajímavý článek

Lukáš Růžička se v článku Workrave ve Fedoře aneb jak si nevytunelovat karpál na MojeFedora.cz věnuje aplikaci Workrave (Wikipedie) na sledování času stráveného na počítači, která může pomoci vyhnout se negativním účinkům práce s počítačem (RSI, CTS), nebo je alespoň výrazně zmírnit.

Ladislav Hagara | Komentářů: 1
včera 10:00 | Komunita

Na Humble Bundle lze získat počítačovou hru Shadow Warrior: Special Edition běžící také v Linuxu zdarma. Speciální akce končí v sobotu v 19:00.

Ladislav Hagara | Komentářů: 2
20.7. 23:11 | Nová verze

Byla vydána verze 2.4.0 analyzátoru síťového provozu Wireshark. Jedná se o první stabilní verzi nové řady 2.4. Podrobný přehled novinek v poznámkách k vydání. V červnu proběhla konference SharkFest’17 US věnovaná Wiresharku. Záznamy přednášek jsou k dispozici na YouTube.

Ladislav Hagara | Komentářů: 0
20.7. 13:11 | Pozvánky

Spolek OpenAlt zve příznivce otevřeného přístupu na 142. brněnský sraz, který proběhne v pátek 21. července od 18:00 hodin ve Sport Centru Srbská (Srbská 4). Od 19:00 je pro zájemce zamluveno hřiště na plážový volejbal.

Ladislav Hagara | Komentářů: 0
20.7. 12:34 | Bezpečnostní upozornění

V GNOME Soubory, původně Nautilus, konkrétně v generování náhledů exe, msi, dll a lnk souborů byla nalezena a opravena bezpečnostní chyba CVE-2017-11421 s názvem Bad Taste. Při otevření složky obsahující tyto soubory může být spuštěn VBScript obsažen v názvech těchto souborů.

Ladislav Hagara | Komentářů: 2
20.7. 11:00 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 308 bezpečnostních chyb. V Oracle Java SE je například opraveno 32 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 28 z nich. V Oracle MySQL je opraveno 30 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 9 z nich.

Ladislav Hagara | Komentářů: 0
Těžíte nějakou kryptoměnu?
 (9%)
 (0%)
 (36%)
 (55%)
Celkem 11 hlasů
 Komentářů: 0
    Rozcestník

    Dotaz: Zvuk v Pascalu

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

    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: 74 | blog: Výlevníček | 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: 79 | 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: 33 | 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).
    Pokecajte si s umelou stupiditou na http://www.kernelultras.org/
    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: 33 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    Tazatel napísal Zvuk v Pascalu
    Pokecajte si s umelou stupiditou na http://www.kernelultras.org/
    Jendа avatar 6.2.2012 14:38 Jendа | skóre: 74 | blog: Výlevníček | 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: 33 | 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.
    Pokecajte si s umelou stupiditou na http://www.kernelultras.org/
    Jendа avatar 6.2.2012 14:46 Jendа | skóre: 74 | blog: Výlevníček | 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: 33 | blog: Žumpa | Horňany
    Rozbalit Rozbalit vše Re: Zvuk v Pascalu
    V tomto kontexte máš pravdu.
    Pokecajte si s umelou stupiditou na http://www.kernelultras.org/
    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.