hallo zusammen
ich habe vor zwei motoren mit den pfeiltasten anzusteuern.
das programm selber läuft auch, nur bevor ich tatsächlich die motoren anschliesse,will ich das programm so verändern, das wenn ich z.b.
links und rechts drücke, nur links aktiv ist.das gleiche für hoch und runter.
es soll halt immer nur die erste eingabe funktionieren.
so hab ich probiert nur klappt das leider nicht
der schaltet trotzdem beide gleichzeitig
gruss dohr83
ich habe vor zwei motoren mit den pfeiltasten anzusteuern.
das programm selber läuft auch, nur bevor ich tatsächlich die motoren anschliesse,will ich das programm so verändern, das wenn ich z.b.
links und rechts drücke, nur links aktiv ist.das gleiche für hoch und runter.
es soll halt immer nur die erste eingabe funktionieren.
VB.NET-Quellcode
- Public Class parallelport
- 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 Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If e.KeyCode = Windows.Forms.Keys.Up Then
- PictureBox2.Visible = True
- Out(888, 1)
- ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
- PictureBox3.Visible = True
- Out(888, 2)
- ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
- PictureBox1.Visible = True
- Out(888, 4)
- ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
- PictureBox4.Visible = True
- Out(888, 8)
- End If
- End Sub
- Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
- If e.KeyCode = Windows.Forms.Keys.Up Then
- PictureBox2.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
- PictureBox3.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
- PictureBox1.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
- PictureBox4.Visible = False
- Out(888, 0)
- End If
- End Sub
- End Class
so hab ich probiert nur klappt das leider nicht
VB.NET-Quellcode
- Public Class parallelport
- 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 Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If e.KeyCode = Windows.Forms.Keys.Up Then
- If e.KeyCode = Windows.Forms.Keys.Down Then
- PictureBox2.Visible = False
- Out(888, 0)
- Else
- PictureBox2.Visible = True
- Out(888, 1)
- End If
- ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
- If e.KeyCode = Windows.Forms.Keys.Up Then
- PictureBox3.Visible = False
- Out(888, 0)
- Else
- PictureBox3.Visible = True
- Out(888, 2)
- End If
- ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
- PictureBox1.Visible = True
- Out(888, 4)
- ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
- PictureBox4.Visible = True
- Out(888, 8)
- End If
- End Sub
- Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
- If e.KeyCode = Windows.Forms.Keys.Up Then
- PictureBox2.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
- PictureBox3.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
- PictureBox1.Visible = False
- Out(888, 0)
- ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
- PictureBox4.Visible = False
- Out(888, 0)
- End If
- End Sub
- End Class
der schaltet trotzdem beide gleichzeitig
gruss dohr83
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()