Text von Mikrocontroller empfangen und in Textbox schreiben

  • VB6

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

    Text von Mikrocontroller empfangen und in Textbox schreiben

    Hallöle

    kurze Frage mal

    ich habe einen Microcontroller der von VB Daten bekommt(was funktioniert) und daten empfangen soll was aber net funktioniert

    es sieht folgender Massen aus.

    Ich drücke einen Taster am µC aufgrund dessen wird ein Text über die serielle Schnittstelle gesendet (Mit HyperTerminal überprüft, der Text kommt)

    Im Forum habe ich bereits die Lösung gefunden mit dem OnComm()-Event (Quellcode siehe unten)
    , das Funktioniert aber nicht.

    Einfach gesagt ist das Problem das ich einen Text über die Serielle Schnittstelle 1 bekomme und den einfach in ein Textfeld schreiben möchte

    so wie geht das?


    hier ist der Code der nicht läuft:

    Quellcode

    1. Private Sub Com1_OnComm()
    2. Static buffer As String
    3. Dim i
    5. i = 0
    7. If Com1.CommEvent = comEvReceive Then
    8. buffer = buffer & Replace(Com1.Input, Chr(10), "")
    10. i = InStr(1, buffer, Chr(13))
    12. If i > 0 Then
    13. Text1 = i
    14. Tasksymbol False
    15. End If
    16. End If
    17. End Sub


    Vielen Dank schon mal im vorraus

    meins läuft über timer.

    dieses in die form.load als erstes:
    MSComm1.InputLen = 0


    Private Sub Timer1_Timer()
    If MSComm1.InBufferCount Then
    st = MSComm1.Input
    Label1 = st
    End If
    End Sub

    so schreibe ich die daten z.b. in einem labelfeld1.
    du musst nur mscomm öffnen:

    MSComm1.PortOpen = False oder True

    mfg pebisoft

Facebook