Problem mit Serial Port (empfang)

[Tredory]

Hallo,

Ich bin dabei nen Schrittmotor vom PC aus über einen Atmega 32 anzusteuern.
Die Controllersoftware habe ich soweit fertig und funktionieren tuts auch.
Naja, jedenfalls vom Terminal aus.

Ich muss dem Controller nacheinander 3 Daten übermitteln:

- ein l oder ein r für die Drehrichtung
- eine ganzzahl für die Drehzahl in U/min
- die Anzahl der Schritte die er laufen soll.

Mit dem Terminal läuft das ganze wie folgt:

ich verbinde das Terminal ganz normal mir den passenden com port einstellungen.
Dann drücke ich l und anschließend enter. Daraufhin antwortet mir der Controller mit O für OK.
dann gebe ich eine Zahl z.b.200 ein und drücke wieder enter.
Er antwortet wieder mit O.
Zuletzt geb ich dann wieder ne zahl (z.b.1000) ein gefolgt von enter und er Antwortet wieder mit O. Und nun macht der Motor auch genau das, was er soll:
Mit 200 U/min 1000 Schritte nach Links drehen.

Nun versuche ich mit VB2008 ein Programm zu erstellen, das halt genau diese befehle ausgibt, erst habe ich versucht direkt ein programm zu erstellen das zeilenweise eine textbox ausließt, und die Daten dann übertträgt, da das allerdings nicht wirklich klappen wollte will ich erstmal ganz einfach anfangen.:

Module Module1
    Dim myport As New System.IO.Ports.SerialPort
    Dim Daten() As Byte
    Sub Main()
        myport.PortName = "COM2"
        myport.BaudRate = 9600
        myport.Parity = IO.Ports.Parity.None
        myport.StopBits = IO.Ports.StopBits.One
        myport.DataBits = 8

        myport.Open()

        Do
            myport.Write("r")
            myport.Write(Chr(13))
            'Threading.Thread.Sleep(500)
            Checkinput()
            myport.Write("300")
            myport.Write(Chr(13))
            'Threading.Thread.Sleep(500)
            Checkinput()
            myport.Write("1000")
            myport.Write(Chr(13))

            MsgBox("Durchgang fertig")

        Loop
    End Sub

    Private Sub Checkinput()
        Dim Buffer As String = ""
        Do 
            Buffer = Buffer + myport.ReadLine
            If Buffer = "O" + Chr(13) Then
                Exit Do
            Else
                MsgBox("Aktueller empfang = " + Buffer)
            End If
        Loop
    End Sub

End Module

der Hauptteil läuft, wenn ich die momentan auskommentierten 'Threading.Thread.Sleep(500) benutze. Aber da ich das mc programm extra so erstellt habe, dass er immer antwortet wenn was da ist, möchte ich diese Antworten auf dem Pc auch benutzen um ihm zu sagen wann er das nächste losschicken darf.

Dazu hab ich nun die Sub Checkinput() eingebaut, die aber leider irgendwie garnicht das macht was ich will
Nach dem Starten des Programms erknnt der Kontroller seine laufrichtung und gibt O aus, am PC im checkinput kommt aber eine messagebox
mit dem Text "Aktueller empfang = l ". Nach klick auf OK kommt dann die 2te messagebox mit dem Text "Aktueller empfang = lO ".
Nach bstätigung hängt er dann in der Do Loop schleife Fest.
Was ich nicht verstehe, warum erkennt der im eingang ein l ?? der Kontroller gibt definitiv nur das O als antwort aus, zumindest wird nur das O als Antwort im Terminal angezeigt.

Was könnt ihr mir dazu sagen ? Was ist Falsch, ich bin hier jetzt 2 Tagen am rumprobieren und bekomme es einfach nicht hin.
Ich hoffe ihr könnt mir helfen, ich habe noch kein Tutorial oder Hinweise gefunden die mit da weiterhelfen konnten



mfg
Jens R.

[Tredory]

So nach einigen weiteren Stunden des rumprobierens hab ichs nun endlich geschafft
Meine Fehler:

-Ich wusste nicht das der mc deim Input ein echo sendet, deswegen immer die mysteriösen rückmeldung die ich nicht auswerten konnte.

-mc Programm hatte ich warum auch immer als baudrate 9400 statt 9600 programmiert.

-Die abfrage der Rückmeldungen mache ich nun durch das DataReceived Event des Com Ports.

-im mc programm hab ich nun noch eine bestätigungsmeldung eingebaut die gesendet wird, wenn der Motor die Schritte abgeschlossen hat.

Hier nochmal der aktuelle code des PC-Programms:

Module Module1
    Dim WithEvents myport As New System.IO.Ports.SerialPort
    Dim Daten() As Byte
    Dim buffer As Byte

    Sub Main()
        myport.PortName = "COM2"
        myport.BaudRate = 9600
        myport.Parity = IO.Ports.Parity.None
        myport.StopBits = IO.Ports.StopBits.One
        myport.DataBits = 8

        myport.Open()

        Do
            myport.Write("l")
            myport.Write(Chr(13))
            Checkinput()
            MsgBox("Richtung empfangen")
            myport.Write("400")
            myport.Write(Chr(13))
            Checkinput()
            MsgBox("Geschwindigkeit empfangen")
            myport.Write("2000")
            myport.Write(Chr(13))
            Checkinput()
            MsgBox("Schrittzahl empfangen")
            Checkinput()
            MsgBox("Motorlauf Fertig")

        Loop
    End Sub

    Private Sub Checkinput()
        Do
            If buffer = 79 Then
                buffer = 0
                Exit Do
            End If
        Loop
    End Sub

    Private Sub myport_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles myport.DataReceived
        buffer = myport.ReadByte
    End Sub

End Module