Post by Rod on May 4, 2020 6:43:59 GMT -5
This is in response to a question on another forum. It was about using the keyboard or mouse to output morse code. The problem was latency. Re running a .wav file took time. This just leaves the .wav running and blips the volume on and off.
I post it here because it uses API and also I discovered that if you use winmm and waveOutSetVol() Windows remembers the volume setting even after the program ends. So you can switch off your audio forever, inadvertently. The trick is to set it back on before you close. Ideally you should use waveOutGetVol() to record the current volume on startup and leave it that way on exit.
But I think the morse works well. son.wav is just a 440hz tone that loops. Press Space bar to output morse, press Esc to quit. No latency, or very little.
I post it here because it uses API and also I discovered that if you use winmm and waveOutSetVol() Windows remembers the volume setting even after the program ends. So you can switch off your audio forever, inadvertently. The trick is to set it back on before you close. Ideally you should use waveOutGetVol() to record the current volume on startup and leave it that way on exit.
But I think the morse works well. son.wav is just a 440hz tone that loops. Press Space bar to output morse, press Esc to quit. No latency, or very little.
'open the winmm.dll
open "winmm.dll" for dll as #winmm
playwave "son.wav",loop
[keyCheck]
if keyState(27)>0 then goto [quit]
if keyState(32) >0 then nul=stereo(100,100)
if keyState(32) =0 then nul=stereo(0,0)
goto [keyCheck]
[quit]
playwave ""
nul=stereo(100,100)
close #winmm
print "program ended"
end
function keyState(keycode)
calldll #user32, "GetAsyncKeyState", _
keycode AS long, _
keyState AS long
end function
function stereo(left,right)'set left or right 0 - 100 %
left=int(left*655.35)
right=int(right*655.35)
dwVol=right*65536+left
calldll #winmm, "waveOutSetVolume", 0 as long, _
dwVol as long, stereo as long
end function
