Serielle verbindung zum Mikroprozessor

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Serielle verbindung zum Mikroprozessor

    Hallo, ich habe schon lange nichts mehr mit VB gemacht und deshalb habe ich nun ein Problem.

    Ich möchte eine Serielle verbindung zu einem Mikroprozssor herstellen, was im Terminal auch wunderbar funktioniert. Wenn ich eine "1" sende Bekomme ich einen String zurück. Nur wird der nicht ganz in der Textbox angezeigt. Es sind immer nur die letzten Zeichen in der Box.
    Warum?

    Außerdem, auf dem Mikro ist ein C Programm das solange auf zeichen wartet bis ein ENTER "\r" kommt.
    Aber wenn ich "\r" sende bekomme ich eine fehler vom MikroP. Wie kann ich das machen?

    Ich habe grade den Code nicht hier sonst könnte ich den mit Posten aber vielleicht wisst ihr ja auch so wo das Problem ist.

    Mfg
    Jabberwock

    Spekulieren hilft dir nicht wirklich weiter. Der Code wäre schon hilfreich. Am sichersten fährst Du, wenn du ständig den Eingangsbuffer anfragst und dann bei >0 die Daten einliest. Denn das DataArrival Ergeignis kommt erst bei Erreichen der eingestellten Buffergröße.

    Kann sein, dass das Programm für µC in C geschrieben wurde, aber auf dem µC selbst wird ein Assembler-Programm laufen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Ok stimmt, das Programm ist dann natürlich in Assambler. Ich habe jetzt mal meinen Code hier. Ansich funkioniert das Senden und empfangen, wird halt nur das letzt Zeichen
    angezeigt.

    Quellcode

    1. Private Sub MSComm1_OnComm()
    4. Dim Eingang As String
    8. Select Case MSComm1.CommEvent
    10. Case comOverrun: MsgBox "Datenverlust!"
    12. Case comRxOver: MsgBox "Datenverlust!"
    14. Case comEvReceive: Eingang = Eingang + MSComm1.Input
    16. End Select
    18. Text3.Text = Eingang
    22. End Sub
    26. Private Sub Form_Load()
    30. 'For Portzaehler = 1 To 16
    32. ' If PortTest(Portzaehler) Then
    34. ' MsgBox "COM" + Str(Portzaehler) + " verfügbar"
    36. 'End If
    38. 'Next
    44. MSComm1.CommPort = 1
    46. MSComm1.Settings = "9600,N,8,1"
    48. MSComm1.PortOpen = True
    52. MSComm1.RThreshold = 1
    54. MSComm1.SThreshold = 1
    56. MSComm1.InputLen = 0
    58. End Sub
    61. Private Sub Command1_Click()
    62. MSComm1.Output = "1"
    63. End Sub

    Das liegt daran, dass Du Eingang im Empfangssub definierst. Setz das Dim Eingang mal im Allgemeinen Bereich der Form ab, oder leg die Variable in ein Modul. Dort dann natürlich Public Eingang as String.

    Dann Eingang nach chr$(13) durchsuchen und bis dahin auswerten und so weiter.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook