Hi, kein Problem
habe gestern mein Tutorial angefangen, dauert aber doch wesentlich länger da ich mir jetzt überlegt habe noch eine Digitale In/Out Karte zubauen. Die KArte hat dann 64 Eingänge und 64 Ausgänge.
Also um in VB den Drucker port anzusprechen brauchst du die InpOut32.dll (habe ich als Anhang eingefügt.
Die fügst du in dein Projekt ein. Dann kannst du in VB 8 Kanäle ansteuern (Pin 1 - 8).
Damit also alle 8 Relais.
Hier der Code um die DLL einzubinden:
Code:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Das machst du am besten in ein Modul.
Hier der Code um die Ports anzusprechen:
Code:
Dim A,B,C,D,E,F,G,H,J As Byte
Dim Port as String
Port = "h378"
J = A+B+C+D+E+F+G+H
Out Port, J
Für die Variable Port setzt du deinen Port.
J ist die Ausgabevariable.
A = Ausgang 1
B = Ausgang 2
C = Ausgang 3
D = Ausgang 4
E = Ausgang 5
F = Ausgang 6
G = Ausgang 7
H = Ausgang 8
Um nun einen Ausgang auf 1 zu setzen, weißt du ihm den richtigen Wert zu:
0 bedeutet das der Ausgang Aus ist. (z.B.: A = 0 / B = 0)
A = 1 bedeutet Ausgang 1 An.
B = 2 beduetet Ausgang 2 An
C = 4 bedeutet Ausgang 3 An.
D = 8 bedeutet Ausgang 4 An.
E = 16 bedeutet Ausgang 5 An.
F = 32 bedeutet Ausgang 6 An
G = 64 bedeutet Ausgang 7 An.
H = 128 bedeutet Ausgang 8 An.
J = A+B+C+D+E+F+G+H (Es werden alle Ausgänge zusammen gezählt)
Wenn alle Aus sein sollen, reicht folgendes: J = 0
Wenn alle An sein sollen, reicht folgendes: J = 255
Ich hoffe ich habs erklären können, ansonsten einfachnochmal fragen.