Hallo zusammen,
ich bräuchte mal wieder Hilfe von den Profis!
Bin dabei eine Relaiskarte zu bauen bzw. 2 Relais mit dem LPT Port zu schalten, da ich aber seit 2 Jahren nichts mehr mit VB gemacht habe, bin ich eingerostet bzw. mein Wissen reicht für das Projekt nicht aus. Beim Code komme ich nicht mehr weiter, suche schon Stunden im Forum und im Netz nach Infos und Hilfestellungen finde aber keine brauchbaren Infos.
Bestimmt ist es für euch ganz einfach, und zwar möchte ich wie schon erwähnt zwei Relais ansteuern, dazu verwende ich zwei Datenleitungen, einmal PIN 2 für Relais 1 und PIN 3 für Relais 2 mit PIN 18 auf GND ( LPT Pinbelegung ).
Um das Ganze mal zu testen habe ich folgenden Code:
Im Code verwende ich den Befehl "Out(&H378, 1)" für Datenleitung PIN2 EIN und "Out(&H378, 0)" für Datenleitung PIN2 AUS.
Soweit geht alles, doch jetzt zu meiner Denkblockade, wie kann ich die anderen Leitungen wie PIN 3, PIN 4 .... ein/aus schalten
Habe zwar einige andere Befehle wie "Out(1, 0) oder dergleichen gefunden, das aber in meinem Code umgesetzt nicht funktioniert!
Könnt ihr mir sagen, wie die Befehle für die anderen Datenleitungen aussehen?
Vielen Dank im Voraus!!
Gruss Chris
ich bräuchte mal wieder Hilfe von den Profis!
Bin dabei eine Relaiskarte zu bauen bzw. 2 Relais mit dem LPT Port zu schalten, da ich aber seit 2 Jahren nichts mehr mit VB gemacht habe, bin ich eingerostet bzw. mein Wissen reicht für das Projekt nicht aus. Beim Code komme ich nicht mehr weiter, suche schon Stunden im Forum und im Netz nach Infos und Hilfestellungen finde aber keine brauchbaren Infos.
Bestimmt ist es für euch ganz einfach, und zwar möchte ich wie schon erwähnt zwei Relais ansteuern, dazu verwende ich zwei Datenleitungen, einmal PIN 2 für Relais 1 und PIN 3 für Relais 2 mit PIN 18 auf GND ( LPT Pinbelegung ).
Um das Ganze mal zu testen habe ich folgenden Code:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- 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)
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Out(&H378, 1)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Out(&H378, 0)
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- End Sub
- End Class
Im Code verwende ich den Befehl "Out(&H378, 1)" für Datenleitung PIN2 EIN und "Out(&H378, 0)" für Datenleitung PIN2 AUS.
Soweit geht alles, doch jetzt zu meiner Denkblockade, wie kann ich die anderen Leitungen wie PIN 3, PIN 4 .... ein/aus schalten
Habe zwar einige andere Befehle wie "Out(1, 0) oder dergleichen gefunden, das aber in meinem Code umgesetzt nicht funktioniert!
Könnt ihr mir sagen, wie die Befehle für die anderen Datenleitungen aussehen?
Vielen Dank im Voraus!!
Gruss Chris