midipiano_dll Files

'midipiano_dll.bas a program by NGUYEN.Chung (freeware 2020)
'compiled as windows dll with freebasic v1.05-win32



#Inclib "midipiano_dll"
Declare Function openmidiout Cdecl Alias "openmidiout" () As Integer '0=notok,1=ok
Declare Sub closemidiout Cdecl Alias "closemidiout" ()  
Declare Sub setmidiparam Cdecl Alias "setmidiparam" (ByRef param As String,ByRef value As String)  
Declare Function getmidiparam Cdecl Alias "getmidiparam" (ByRef param As String)As String   
Declare Function playmidi Cdecl Alias "playmidi" (ByRef fic As String)As Integer '0=notok,n=nbrecord  

/'
Sub setmidiparam Cdecl Alias "setmidiparam" (ByRef param As String,ByRef value As String) Export 
If param="test" Then ttest=Val(value)
If param="pause" Then tpause=Val(value)
If param="loop" Then tloop=Val(value)
If param="drum" Then tdrum=Val(value)
If param="noteonly" Then tnoteonly=Val(value)
If param="delay" Then delay=max(0.0,min(3.0,Val(value)))
If param="resonance" Then tkreso=max(0.0,min(1.0,Val(value)))
If param="volume" Then volume=max2(10,min2(127,Val(value)))
If param="position" Then iplay=max2(1,min2(irecord,Val(value)))
End Sub
function getmidiparambug Cdecl Alias "getmidiparambug" (ByRef param As String)As String  
If param="test" Then Return str(ttest)
If param="pause" Then Return str(tpause)
If param="loop" Then Return str(tloop)
If param="drum" Then Return str(tdrum)
If param="noteonly" Then Return str(tnoteonly)
If param="delay" Then Return str(delay)
If param="resonance" Then Return str(tkreso)
If param="volume" Then Return str(volume)
If param="position" Then Return str(iplay)
If param="nrecord" Then Return str(irecord)
Return "error"
End Function 
'/