MSComm Event Deklaration

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    MSComm Event Deklaration

    Hallo.

    Ich habe ein Problem mit meinem Programm, welches eigentlich den RS232 Eingang auslesen soll.

    VB.NET-Quellcode

    1. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadWith MSComm1
    5. .CommPort = 1
    6. .Settings = "19200,n,8,1"
    7. .RThreshold = 1
    8. .SThreshold = 1
    9. .InputLen = 0
    10. End With
    12. End Sub
    13. Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MSComm1.OnComm
    14. Dim Eingang As StringSelect Case MSComm1.CommEvent
    15. Case comOverrun : MsgBox("Datenverlust!")
    16. Case comRxOver : MsgBox("Datenverlust!")
    17. Case comEvReceive : Eingang = MSComm1.Input
    18. TextBox1.Text = Eingang
    19. End Select
    20. End Sub
    21. Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
    22. Dim Ausgang As String
    23. Ausgang = "ACK"
    24. If (MSComm1.PortOpen = False) Then
    25. MSComm1.PortOpen = True
    26. End If
    27. MSComm1.Output = Ausgang
    28. End Sub
    29. Private Sub Ende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ende.Click
    30. If (MSComm1.PortOpen = True) Then
    31. MSComm1.PortOpen = False
    32. End If
    33. End Sub
    34. End Class


    Undzwar meckert VB bei mir rum, dass "comOverrun", "ComRxOver" und "ComEvReceive" nicht deklariert seien.

    Aber dies ist doch eigentlich gar nicht nötig oder? Ich habe es zumindest in keinem Beispielprogramm gesehen, dass dort diese Ereignisse deklariert wurden.

    Danke für die schnelle Antwort.
    Mir wäre es natürlich am liebsten, wenn ich mit MSComm weiterarbeiten könnte, damit komme ich jetzt grade mal halbwegs zurecht, und die Aufgabe, die das Programm macht ist ja auch recht simpel.

    Wo könnte ich mir denn angucken, wie das SerialPort Element funktioniert?

Facebook
Telefonspende