Pascal - Zvuk z PC speakera

Zdravím.

Pokúšam sa v pascale (free pascal) o vylúdenie tónu cez PC speaker, pomocou Sound();



ale bez úspechu. Dočítal som sa, že to je spôsobené asi tým, že to spúštam vo Windowse. Dá sa prosím nejak zabezpečiť v prípade, že som daný zdroj zapísal bez chyby, aby mi to fungovalo, alebo som odkázaný iba na DOS respektíve na DOS-BOX?

Ďakujem za odpoveď.

Je to sposobene tym, ze to skusas pravdepodobne na notebooku. Ten nema vyvedeny speaker repracik z dosky(cez piny). Keby si si to spustil na dajakom desktope, malo by to normalne ist. Ak nejde, nemas zapojeny speaker v tych pinoch ani na tom desktope. Potrebujes min. nieco vid. obrazok. Alebo ten DosBox, ktory speaker emuluje cez zvukovku. Tam Ti to bude hrat na 100%. Avsak nebude to mat realny zvuk. Syntax programu je spravna. Odporucam pouzit ten DosBox, nakolko Ti pojdu programy i v grafickom rezime.

Robím to na desktope. Speaker tam je funkčný. Pípne aj pri zapínaní PC a aj keď spustím nejakú starú hru, ktorú netreba emulovať (Mario - pod XP-čkom ide v pohode a speaker vydáva zvuky pri skákaní a pod.).

A Windows pouzivas XP?
edit: teraz citam, ze FreePascal nepodporuje funkcie Sound a NoSound.

Nepodporuje? Nemalo by ma to, tak trochu upozorniť pri kompilácii? (alebo som iba rozmaznaný zo zvyku na Flash kompilátor) Však jednotka crt, ktorú používam obsahuje Sound() rovnako ako aj ClrScr (ktorý normálne funguje). Alebo na tom nezáleží? Teraz som ostal zmätený.

Skor to ma byt tak, ze tie funkcie su prazdne(neuplne). Nic nevykonavaju.

Inak nerozumiem, preco kopu z Vas voli FreePascal. Ked je to nekompatibilny software ohladne Pascalu? Je uplne pohodlne a plne funkcne riesenie DosBox + TurboPascal7 + PATCH. Stiahni si to a len daj v DosBoxe napr.: mount C: D:\TP7\ (kde na C namapujes cestu D:\TP7).
stiahni napr. tu: http://www.programosy.pl/program,turbo-pascal.html

No tak nakoniec ma nemá rád ani DOS-BOX

Zeby preto, ze si to kompiloval v tom free pascale? Pouziva win funkcie, ktore dos nepozna. Preto som Ti pisal, pouzi TurboPascal7.

FreePascal pro Windows ti v DOSBoxu určitě fungovat nebude, ale existuje verze FP pro DOS: http://freepascal.org/down/i386/go32v2.var

TurboPascal je super, jenže má velikou chybu, je totiž jen šestnáctibitový, takže nevyužiješ schopnosti procesorů novějších než 286... A programy v něm kompilované už se v novějších systémech než XP spouštějí jen s problémy, musíš oželet grafiku, a pokud máš 64bitový Windows, tak je nespustíš vůbec.

FP je s TP téměř stoprocentně kompatibilní, až na pár vyjímek, je možné že právě s tím zvukem jsi na jednu z nich narazil.

Ja toto samozrejme viem. Ale naco si vybera programovaci jazyk Pascal, ked chce vyuzivat 32b windows funkcie, instrukcie? Preco si nevoli najjednoduchsie riesenie (ak teda inklinuje k pascalu) Delphi? Verzia 7 je najvhodnejsie riesenie pre domace kutilstvo. Nepotrebuje to este nastastie .NET.
Bud to chce mat v Pascale a nech ide do Turbo Pascalu 7 a tam to i programuje, kompilujue, alebo nech zvoli plnohodnotny 32b programovaci jazyk a tam uz je to napr. to Delphi 5-7. Tam vytvori konzolovy projekt.

Chlapi, takto:
Do Pascalu vŕtam iba preto aby som ako tak vedel pomôcť mladšej sestre v pochopení učiva na Gympli. (Oni používajú free pascal a preto ho mám nahodený)

Danú vec so Sound(), sa snažím urobiť pre seba, lebo ako som začal vŕtať do Pascalu, tak som si uvedomil, že síce viem vo Flashi vyrobiť pekné AIR aplikácie ale nedokážem vytvoriť aplikácu s nízko úrovňovým prístupom, teda aspoň tak nízko ako je to možné v Pascale. Takže ma napadlo skúsiť niečo, čo sa vo Flashi nedá a to vydávať Beep tóny cez speaker.

Vyskúšam za týmto účelom ten Turbo Pascal, poprípade sa poobzerám po jazyku, ktorého výsledné aplikácie nebude za týmto účelom potrebné emulovať.

Ďakujem.