🚀 go-pugleaf

Hallo,

ik heb zopas het onderstaande programma geschreven.  In dit programma
is het de bedoeling dat er eerst een biep klink, en dan 10 seconden
later opnieuw een biep.  20 seconden daarna herbegint het opnieuw.
Dit moet 17 keer gebeuren.

Ik had gedacht dat dit met het onderstaande programma moest lukken, en
in theorie is dat ook zo, maar op mijn nieuwste PC komt er geen
geluid.  als ik dit programma probeer op mijn oude PC, dan klinkt er
gewoon een 'tut', in plaats van een mooie 'tuut', met de frekwentie en
duur die ik zelf ingesteld heb.  Ik mag veranderen aan frekwentie en
duur wat ik wil, het blijft gewoon diezelfde 'tut'.

Blijkbaar zijn er problemen om vanuit pascal de piepgenerator (hoe
noemt zo'n ding eigenlijk) van de PC zelf aan te sturen.  Het gebeurt
dus niet via de geluidskaart.

Heeft er iemand een idee hoe ikervoor kan zorgen dat dit wel werkt?
Dit programma is geprogrammeerd in free pascal, aangezien ik enkel in
pascal kan programmeren.  Ik heb hier ook een versie van visual C en
visual basic liggen, maar daar kan ik niet mee werken.  Indien iemand
mij kan zeggen hoe ik mijn programma kan aanpassen zodat ik het in die
programmeertaal kan compileren, dan zou ik daar zeer mee geholpen
zijn.

Hier volgt het programma :

program geluid;
uses crt;
var x: real;
begin
x:=0;
repeat
  sound(200);
  delay(200);
  nosound;
  delay(9800);
  sound(200);
  delay(200);
  nosound;
  delay(200);
  sound(200);
  delay(200);
  nosound;
  delay(19400);
  x:= x+1;
Until x=17;
end.

Alvast bedankt op voorhand voor reacties,

Kris
Verwijder de spam uit het e-mail adres