| Wave-Composer von ??? |
| Hier ein kleines Programm, welches mit mathematischen funktionen eine Wave-Datei erstellt. Ich hoffe, dass man durch den Code den Aufabu einer Wavedatei einigermaßen erkennen kann und somit das ganze etwas ausreifen kann :-) [code:1:33d51be4cd] AppTitle "Wave Composer 1.0" SeedRnd MilliSecs () Graphics 640,480,16,2 Cls ;---------- Music Data Path$ = "Test.Wav" ;--- Header Length = 4750 Speed = 65537 Rate = 22500 ;---------- File = WriteFile (Path$) InternalLength = Length Length = Length * 2 ; 2 Kanäle Length = Length * 4 ; je 4 Bytes ;--- Header WriteInt (File,1179011410) WriteInt (File,Length + 36) WriteInt (File,1163280727) WriteInt (File,544501094) WriteInt (File,16) WriteInt (File,Speed) WriteInt (File,Rate) WriteInt (File,176400) WriteInt (File,1048580) WriteInt (File,1635017060) WriteInt (File,Length) ;--- Tmp# = 85 For Temp = 1 To InternalLength Tmp# = Tmp# + 0.0025 If Tmp# > 95 Then Tmp# = 85 Kanal_L = (Tan# (Tmp#) * 200000) Kanal_R = Kanal_L * 2 WriteInt (File,Kanal_L) WriteInt (File,Kanal_R) Next CloseFile File Print "Wavefile composed ..." WaitKey End [/code:1:33d51be4cd] |