ich habe eine LED Matrix aus bisher 8*8 LEDs mithilfe der Micrel Chips an den IO-Warrior angeschlossen. Die Funktionstüchtigkeit konnte ich auch mit dem LED Matrix Beisspielprogramm in Delphi testen...die LEDs blinken vor sich hin.
Nun kann ich aber leider kein Delphi und wollte mir ein Programm in VB6 schreiben. Hier bekomm ich aber keine LED zum leuchten.
Habe nun mal den Code auf das meiner Meinung nach Nötigste gekürzt und alle möglichen Kombinationen aus Reihen und Bytes verwendet, aber es geht immer noch nicht. Fehlermeldungen erhalte ich auch keine.
Kann mir bitte jemand sagen, ob ich was vergessen habe/ob die Sache zum scheitern verurteilt ist? Danke im Vorraus.
Code: Select all
Dim iowHandle As Long
Dim Res As Long
' Initialize everything
' Open device
iowHandle = IowKitOpenDevice()
' Fail if can't open
If (iowHandle = 0) Then
' Exit from program
MsgBox "Can not open device!", 0, "Error"
End
End If
' Initialize LED Matrix
Dim initdata(7) As Byte
initdata(0) = 14
'1=enable 0=disable
initdata(1) = 1
Res = IowKitWrite(iowHandle, IOW_PIPE_SPECIAL_MODE, initdata(0), 8)
' Write to LED Matrix
Dim data(7) As Byte
data(0) = 15
'rows 0 to 7
data(1) = 0
'bytes
data(2) = 128
data(3) = 128
data(4) = 128
data(5) = 128
Res = IowKitWrite(iowHandle, IOW_PIPE_SPECIAL_MODE, data(0), 8)