Hallo, ich möchte einen Equalizer für mein Micro machen.
Der soll z.B. einen Ton empfangen und ihn bearbeitet wieder geben.
Ich hab einen Anfang obwohl das nicht einmal von mir ist ...
Spoiler anzeigen
#include "BASS.au3"#include "BASSEXT.au3"
OnAutoItExitRegister("_FreeBass")HotKeySet("{ESC}", "_Exit")
_BASS_Startup()_BASS_EXT_Startup()
_BASS_RecordInit(-1)
$hRecord = _BASS_RecordStart(44100, 2, 0, $BASS_EXT_RecordProc)$tFFT = DllStructCreate("float[4096]")$pFFT = DllStructGetPtr($tFFT)
While 1 _BASS_ChannelGetData($hRecord, $pFFT, $BASS_DATA_FFT8192) $fMax = 0 $fFreq = 0 ;~ hier soll der ton bearbeitet werden und wider gegeben werden. For $i = 1 To 4096 If DllStructGetData($tFFT, 1, $i) > $fMax Then $fMax = DllStructGetData($tFFT, 1, $i) $fFreq = $i * 44100 / 8190 EndIf Next ToolTip("Frequency: " & Round($fFreq, 1) & "Hz") Sleep(50)WEnd
Func _Exit() ExitEndFunc ;==>_Exit
Func _FreeBass() _BASS_RecordFree()EndFunc ;==>_FreeBass
ich wäre für jede hilfe dankbar