FQ über normalen Lautsprecher

[Andreas_S]

Hier ein Code mit dem man eine Frequenz über den Lautsprecher abspielen kann:

Code: Alles auswählen

Procedure InitDirectBeep_()
 InitSound() 
EndProcedure

Procedure DirectBeep_(fq,ms,Samplerate,Bitrate,Channels,Wait=1)
 avBytesPerSec=Channels*Bitrate/8*Samplerate
 secs.d=ms/1000
 *Mem=AllocateMemory(avBytesPerSec*secs+44)
  PokeB(*Mem+0,Asc("R"))
  PokeB(*Mem+1,Asc("I"))
  PokeB(*Mem+2,Asc("F"))
  PokeB(*Mem+3,Asc("F"))

  PokeL(*Mem+4,avBytesPerSec*secs+44)

  PokeB(*Mem+8,Asc("W"))
  PokeB(*Mem+9,Asc("A"))
  PokeB(*Mem+10,Asc("V"))
  PokeB(*Mem+11,Asc("E"))

  PokeB(*Mem+12,Asc("f"))
  PokeB(*Mem+13,Asc("m"))
  PokeB(*Mem+14,Asc("t"))
  PokeB(*Mem+15,Asc(" "))

  PokeL(*Mem+16,16)

  PokeW(*Mem+20,1)
  PokeW(*Mem+22,Channels)
  PokeL(*Mem+24,Samplerate)
  PokeL(*Mem+28,Channels*Bitrate/8*Samplerate)
  PokeW(*Mem+32,Bitrate/8*Channels)
  PokeW(*Mem+34,Bitrate)

  PokeB(*Mem+36,Asc("d"))
  PokeB(*Mem+37,Asc("a"))
  PokeB(*Mem+38,Asc("t"))
  PokeB(*Mem+39,Asc("a"))

  PokeL(*Mem+40,avBytesPerSec*secs)

  actsamplevalue.w

   For acttime=1 To samplerate*secs
    For actchannel=1 To channels
     actsamplevalue=32767*Sin(2*#PI*fq*acttime/samplerate)
     PokeW(*Mem+44+k,actsamplevalue)
     k+2
    Next
   Next

  Sound=CatchSound(#PB_Any,*Mem)
  PlaySound(Sound)
  SoundVolume(Sound,100)
   If Wait=1
    Delay(ms)
    FreeSound(Sound)
   EndIf
  FreeMemory(*Mem)
EndProcedure

InitDirectBeep_()

DirectBeep_(1000,1000,44100,16,2)

Code: Alles auswählen

Ich hoffe den kann jemand verwenden.

[Andreas_S]

Jetzt hab ich ihn in der Laberecke auf gemacht sch****!!!

[Kaeru Gaman]

kein problem...

scotty, ein topic und zwei beiträge zum beamen...

[Andreas_S]

Danke für's vershieben!

[ts-soft]

Ne wave-datei in den Speicher poken ist ja mal was feines

Die Soundnummer 9999 solltest Du vielleicht auf 0 setzen, weiß zwar nicht,
ob es wie bei Gadgets ist, weil dann würde Speicher für 10000 Sounds
reserviert.

[Andreas_S]

Nagut, hab ich nur gemacht das man nicht plötzlich mit der gleigen ID da steht. Normalerweise nimmt man ja die ID 0, oder?

[ts-soft]

Dann nimmt man #PB_Any !
Dynamische IDs sollten immer in Include-Dateien, wiederverwendbaren
Proceduren, UserLibs usw. verwendet werden.

[Andreas_S]

Gute Idee, schon geändert.

[Andreas_S]

Wenn man das apspielen lasst ist doch am Schluss so ein Knacks.

Wie bekomm ich den weg?

[ts-soft]

Gute Idee, schon geändert.

Aber nicht genau in der Hilfe nachgelesen

Code: Alles auswählen

; falsch
;   CatchSound(#PB_Any,*Mem)
;   PlaySound(#PB_Any)
;   SoundVolume(#PB_Any,100)
;    If Wait=1
;     Delay(ms)
;     FreeSound(#PB_Any)
;    EndIf 

; richtig
MySound.l = CatchSound(#PB_Any, *Mem)
PlaySound(MySound)
SoundVolume(MySound, 100)
If Wait = 1
  Delay(ms)
  FreeSound(MySound)
EndIf