Soundproblem in Vers. 3.80

[dl5ndh]

Hallo,
kann mir jemand helfen, einen kleinen Beepton hörbar zu machen.
Ich benutze für ein älteres Projekt noch die alte Vers. 3.80.
Nun wollte ich einen kurzen Beep als Sound erzeugen und zwar wie folgt:

Code: Alles auswählen

erg=InitSound()
;messagerequester("",str(erg))
SoundFrequency(1,1000)
SoundVolume(1, 100)
PlaySound(1)

Der Sound wird initialisiert, kann ich mit dem MessageRequester feststellen.
Trotzdem höre ich nichts, nicht mal einen Beep, obwohl die 1000 Hz doch hörbar sein
müßten. Die Lautstärke habe ich auch aufgedreht. Weiß jemand Rat? Habe
Win7 64 Bit auf dem Rechner, denke aber das dürfte nicht das Problem sein, oder?

Gruß Gerhard

[Kaeru Gaman]

er sollte dir Melden, dass der angeforderte Sound mit der ID 1 nicht geladen wurde.

Ein Sound ist ein WAVETABLE, wie das FileFormat WAV, kein BEEP wie vor zehn Jahren.
den kann man in der Tonhöhe verändern, aber nicht mit zwei Befehlen erzeugen.

schau dir mal den API-Call MessageBeep_() an.

[dl5ndh]

Hallo Kaeru Gaman,
danke für die Antwort. Aha, also WAV-Files hatte ich schon geladen, das geht ganz
ausgezeichnet, also mit LoadSound und CatchSound. Ich wollte in diesem speziellem
Fall nur einen Beep haben und dachte, dass geht so vonstatten.
Also dann muß ich mir erste ein passendes WAV-File mit einem reinen Sinus besorgen.
Das wußte ich nicht, danke für den Hinweis, Kaeru Gaman.

Ein schönes Wochenende und bis bald mal...DANKE
mfg Gerhard

[ts-soft]

Code: Alles auswählen

Beep_(1000, 1000)

sollte für Dein vorhaben genügen

[c4s]

Code: Alles auswählen

Beep_(1000, 1000)

sollte für Dein vorhaben genügen

Wurde Beep_() nicht mit Windows 7 entfernt?

Edit: Ok, scheint doch noch vorhanden zu sein. Hier ein interessanter (englischer) Artikel dazu:
http://blogs.msdn.com/larryosterman/arc ... ows-7.aspx

[Fluid Byte]

Warum genau 3.80? Ich meine 3.30 könnt ich verstehen weil das die A****f***-Version von Topos ist aber 3.80?

[Kaeru Gaman]

soweit ich mich entsinne daddelt er schon seit Jahren an einem größeren Projekt herum, das er nicht portieren will.
(steht doch auch angedeutet in seinem ersten Posting?)

verbietet dir ja auch keiner, die alte parallel zu benutzen.

[HeX0R]

und ausserdem is es sch....egal.

[xperience2003]

könnt ich verstehen weil das die A****f***-Version von Topos ist

muhahahaaarr...nope das sind die amiga versionen 2.2-4.0