CodeMercs Forum

Hallo,

vielen Dank an alle für die Hilfe, jetzt funktioniert alles!

Zum lesen: Der wichtige Tip war, das der IOW56 die Ergebnisse zwischenspeichert (Danke wayoda!).

Zum schreiben: Die nachgelagerte Elektronik erfordert ein zweistufiges schreiben, der IOW56 hat korrekt gearbeitet.

Wenn man weiß ...

Hallo, erstmal vielen Dank für die schnellen Antworten.

wayoda:
Ich habe den letzten Report+1 erreicht wenn RES = 0 ist ?

Christoph Jung:
Hier ist der Code. Im Prinzip ist es fast 1:1 der Code aus dem Beispielprojekt

Private Sub WriteButton_Click()
Dim Res As Long
Dim Value As Byte
Dim N As ...

Ich verwende zum lesen (leicht gekürzt):
Der Timer (Timer von VB6) ist auf 500ms eingestellt.

...
Timer1.Enabled = False

Dim Res As Long
Dim N As Long
Dim Pid As Long

ReadLabel.Caption = "Reading from IOW"
ReadLabel.Refresh
' Read from IO-Warrior
Res = IowKitReadNonBlocking(iowHandles(0 ...

Beim lesen habe ich folgendes Problem:
Ich lese die Werte per Timer aus (z.B. alle 500ms).
Das funktioniert soweit gut.
Jetzt verändere ich einzelne pins im Wert (lege 5 Volt an).
Dies funktioniert meistens auch.
Es kommt aber immer wieder vor das nachdem die 5Volt nicht mehr an einem Pin anliegen ...

Hallo,

ich habe den IOW56 vorgelegt bekommen und soll damit Werte einlesen und schreiben.
Habe mir das Basis IO Beispielprogramm unter VB6 angeschauft und einige Beiträge hier Forum gelesen.
Vom grundsätzlichen Aufbau habe ich hoffentlich die Sache verstanden.
Ich lese immer einen ganzen Port ...