Parallelport: Motor mit "Taster-Verriegelung"

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Parallelport: Motor mit "Taster-Verriegelung"

    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.

    VB.NET-Quellcode

    1. Public Class parallelport
    2. Public Declare Function Inp Lib "inpout32.dll" Alias _
    3. "Inp32" (ByVal PortAddress As Integer) As Integer
    5. Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
    6. (ByVal PortAddress As Integer, ByVal Value As Integer)
    9. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    10. If e.KeyCode = Windows.Forms.Keys.Up Then
    11. PictureBox2.Visible = True
    12. Out(888, 1)
    13. ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
    14. PictureBox3.Visible = True
    15. Out(888, 2)
    16. ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
    17. PictureBox1.Visible = True
    18. Out(888, 4)
    19. ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
    20. PictureBox4.Visible = True
    21. Out(888, 8)
    23. End If
    24. End Sub
    25. Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    26. If e.KeyCode = Windows.Forms.Keys.Up Then
    27. PictureBox2.Visible = False
    28. Out(888, 0)
    29. ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
    30. PictureBox3.Visible = False
    31. Out(888, 0)
    32. ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
    33. PictureBox1.Visible = False
    34. Out(888, 0)
    35. ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
    36. PictureBox4.Visible = False
    37. Out(888, 0)
    39. End If
    40. End Sub
    45. End Class


    so hab ich probiert nur klappt das leider nicht


    VB.NET-Quellcode

    1. Public Class parallelport
    2. Public Declare Function Inp Lib "inpout32.dll" Alias _
    3. "Inp32" (ByVal PortAddress As Integer) As Integer
    5. Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
    6. (ByVal PortAddress As Integer, ByVal Value As Integer)
    9. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    10. If e.KeyCode = Windows.Forms.Keys.Up Then
    11. If e.KeyCode = Windows.Forms.Keys.Down Then
    12. PictureBox2.Visible = False
    13. Out(888, 0)
    14. Else
    15. PictureBox2.Visible = True
    16. Out(888, 1)
    17. End If
    18. ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
    19. If e.KeyCode = Windows.Forms.Keys.Up Then
    20. PictureBox3.Visible = False
    21. Out(888, 0)
    22. Else
    23. PictureBox3.Visible = True
    24. Out(888, 2)
    25. End If
    26. ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
    27. PictureBox1.Visible = True
    28. Out(888, 4)
    29. ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
    30. PictureBox4.Visible = True
    31. Out(888, 8)
    33. End If
    34. End Sub
    35. Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    36. If e.KeyCode = Windows.Forms.Keys.Up Then
    37. PictureBox2.Visible = False
    38. Out(888, 0)
    39. ElseIf e.KeyCode = Windows.Forms.Keys.Down Then
    40. PictureBox3.Visible = False
    41. Out(888, 0)
    42. ElseIf e.KeyCode = Windows.Forms.Keys.Left Then
    43. PictureBox1.Visible = False
    44. Out(888, 0)
    45. ElseIf e.KeyCode = Windows.Forms.Keys.Right Then
    46. PictureBox4.Visible = False
    47. Out(888, 0)
    49. End If
    50. End Sub
    55. End Class


    der schaltet trotzdem beide gleichzeitig

    gruss dohr83

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

Facebook
Telefonspende