OK, I got the current version of bass.dll and bassnet.dll from the downloads section and now theres no latency any more, even without BASS_ChannelGetLevel(s).
I am doing it this way now:
peak = Bass.BASS_ChannelGetLevels(MikroInput)
If peak(0) > 0.15 Then
Timer1.Interval = 1750
If WirdGesprochen = False Then
Dim success As Boolean = Bass.BASS_ChannelSlideAttribute(streamA, BASSAttribute.BASS_ATTRIB_VOL, 0.2, 100)
Debug.WriteLine("leiser stellen erfolgreich" & CStr(success))
WirdGesprochen = True
End If
Else
Timer1.Interval = 100
If WirdGesprochen = True Then
Dim success As Boolean = Bass.BASS_ChannelSlideAttribute(streamA, BASSAttribute.BASS_ATTRIB_VOL, 1, 300)
Debug.WriteLine("lauter stellen erfolgreich" & CStr(success))
WirdGesprochen = False
End If
End If
For my mono mic, I guess you recommend BASS_LEVEL_MONO, right? What would you recommend for length? You can see my timer's interval in the code... And is it important in this case to use peak(0) (mono channel returns value in index 0 right?)