DMX mit dem Laptop
Der kleine Pocket Scan von GLP versteht sich prima auf DMX. Wem DMX-Controller zu unintuitiv und DMX-USB-Konverter zu teuer sind, für den hält das Netz einige Lösungen bereit.
Unter http://www.freedmx.com/ gibts eine Bauanleitung für einen sehr einfachen Konverter für den Parallelport, der falls gewünscht sogar die DMX-Leitung galvanisch vom PC trennt. Bauteile bei Reichelt, PIC-Programmierung für 5 Euro bei Segor in Charlottenburg.
Fehlt nur noch eine vernünftige Software. FreeStyler unterstützt leider die Magnulator-UART-Version des Interfaces nicht, DMXControl funktioniert zwar, gefällt mir aber in der Oberfläche nicht. Also schnell selbst was gestrickt…
Um den Parallelport unter VB anzusprechen, wird entweder die DlPortIO- oder InpOut32-DLL benötigt.
Der Code zum Senden des DMX-Signals sieht dann so aus:
Private Sub sendDMX()
Static sbWorking As Boolean
Dim n As Long
If Not sbWorking Then
sbWorking = True
Out iPortAddr + 2, 1 'put pin 14 of the printerport high, pin 1 low
Out iPortAddr + 2, 1 'repeat instead of Sleep() or delay loop
Out iPortAddr + 2, 1
'
Out iPortAddr + 2, 3 'put pin 14 low, pin 1 low
Out iPortAddr + 2, 3
Out iPortAddr + 2, 3
For n = 1 To 256
Out iPortAddr, cDMX(n) 'put the channel data on the printerport
Out iPortAddr, cDMX(n)
Out iPortAddr, cDMX(n)
'
Out iPortAddr + 2, 2 'put pin 14 low, pin 1 high
Out iPortAddr + 2, 2
Out iPortAddr + 2, 2
'
Out iPortAddr + 2, 3 'put pin 14 low, pin 1 low
Out iPortAddr + 2, 3
Out iPortAddr + 2, 3
Next n
sbWorking = False
End If
End Sub