Sound mit PC-Speaker?

[alcaeus]

Es hat im guten alten Borland Turbo Pascal 7.0 den Befehl "Sound(Freq)" und "NoSound" gegeben, die waren in der Unit "Crt". Ich weiß nicht ob man die irgendwie auf Winxx-Systeme portieren kann, die sind ja schließlich für DOS gemacht worden... Viel Glück noch damit

[Chewie]

Zitat:

Zitat von alcaeus

Es hat im guten alten Borland Turbo Pascal 7.0 den Befehl "Sound(Freq)" und "NoSound" gegeben, die waren in der Unit "Crt". Ich weiß nicht ob man die irgendwie auf Winxx-Systeme portieren kann, die sind ja schließlich für DOS gemacht worden... Viel Glück noch damit

Zu der Implementierung eben dieser Funktionen hab ich in meinem ersten Beitrag verwiesen. Da diese Funktionen Interrupts benutzen, funktionieren sie auf der NT-Schiene nicht, dafür gibts dann die API-Funktion Beep().

[flomei]

Ja nun kompiliert er brav aber ich höre nichts. Woran kann das liegen???

MfG Florian :hi:

[hircusmutzus]

@ flomei: hast du vielleicht den PC-Speaker ausgeschaltet??? :mrgreen:

[Matze]

Ich hab keinen PC-Speaker. :cry:

[flomei]

:wiejetzt: Ich glaube wir reden von zwei unterschiedlichen Sachen?!?
Meinst du auch so ein Ding hier :?: Das Ding meine ich nämlich... Die sitzen meistens im Gehäuse... ;)
Und mit einem anderen Programm macht es ja auch Geräusche. Aber nicht mit

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer)

Warum? :gruebel:

MfG Florian :hi:

[Matze]

Hi!
Im Gehäuse habe ich keinen PC-Speaker. Ich habe nur die 2 normalen Boxen.

Mit

Delphi-Quellcode:

Windows.Beep(Frequenz, Dauer)

kommt auch nut Ton aus den Lautsprechern, die an der Soundkarte angeschlossen sind, und nicht aus dem Speaker im Gehäuse. ;)

[Chewie]

Noch mal: Windows.Beep erzeugt auf NT-basierten Systemen einen Speakerr-Sound, auf 9x-Systemen aber ein Soundkarten-Sound.

[Matze]

Ich hab XP und bei mir wird ien Soundkarten-Sound erzeugt! :mrgreen:

[flomei]

:gruebel: :wall: Ich werd hier noch verrückt!
Wenn ich

Delphi-Quellcode:

begin
  Beep;
end;

schreibe kommt der Standard Piiiiiing Sound.
Schreibe ich

Delphi-Quellcode:

begin
  Windows.Beep(500, 2000);
end;

höre ich nichts. Entweder ist das zu leise oder kaputt oder sonstwas geht nicht. Ich bekomme auch keinen Ton über die Soundkarte raus.
Im Anhang ist ein Programm das auch Töne über den internen Speaker ausgibt. Das läuft bei mir prima und man kann das gut hören...

Was/Wo kann das Problem sein/liegen?

Thx im Vorraus!

MfG Florian :hi:

[EDIT]

Zitat:

Zitat von Chewie

Windows.Beep erzeugt auf NT-basierten Systemen einen Speakerr-Sound, auf 9x-Systemen aber ein Soundkarten-Sound.

:roll: hm... Ich geh mal was testen...
[/EDIT]