PureBoard

Code: Alles auswählen

; Declare Function senddmx Lib "DMX120.dll" Alias "OutDMX" (ByVal a As Byte, ByVal b As Byte) As Boolean
; Declare Function getmc Lib "DMX120.dll" Alias "GetMaxChannels" () As Integer
; Declare Function getintf Lib "DMX120.dll" Alias "GetDMXInterface" () As String

#dmxlib=1
Lib=OpenLibrary(#dmxlib,"DMX120.dll") ;Öffnen der Library
If Lib
 ;Funktionen bestimmen
 OutDMX=IsFunction(#dmxlib,"OutDMX")
 GetMaxChannels=IsFunction(#dmxlib,"GetMaxChannels")
 GetDMXInterface=IsFunction(#dmxlib,"GetDMXInterface")

 Debug OutDMX
 Debug GetMaxChannels
 Debug GetDMXInterface


 ;version anzeigen
 Result=CallFunctionFast(GetDMXInterface)
 If Result
  Debug PeekS(Result)
 EndIf
 
 Result=CallFunctionFast(GetMaxChannels)
 If Result
  Debug "Channels="+Str(Result)
 EndIf
 
 
 ;dieser Bereich crasht wenn man keine Hardware dranhat :)
 OnErrorGoto(?Weiter)
 
 ;Einen Kanal ansteuern
 Channel=1
 Wert=12
 Result=CallFunctionFast(OutDMX,Wert)

 Result=CallFunctionFast(119,0)
 
 
Weiter:
 CloseLibrary(#dmxlib) ;Library schliesen

Else
 Debug "DMY DLL not found!" 
EndIf