RS232 daten empfangen, senden und auswerten

[Willa]

Okay, ich kanns gerne nochmal genauer erklären:
Der Serialport wird in einem Timer abgerufen (Interval z.B. 15ms)

Sub Timer1Tick(ByVal sender As Object, ByVal e As EventArgs)
   if serialport1.BytesToRead > 0 then
      Do
         readvar=SerialPort1.ReadLine

         ContainsA = readvar.Contains("A")
         ContainsB = readvar.Contains("B")
         ContainsC = readvar.Contains("C")

         if ContainsA = true then
            A_Daten=readvar.TrimStart("A")
            Textbox1.text=A_Daten
         end if

         if ContainsB = true then
            B_Daten=readvar.TrimStart("B")
            Textbox2.text=B_Daten
         end if   

         if ContainsC = true then
            C_Daten=readvar.TrimStart("C")
            Textbox3.text=C_Daten
         end if			

         If SerialPort1.BytesToRead = 0 Then
            Exit Do
         end if

      loop
   end if
end sub

Ich glaube so sollte das klappen. Vorher müsst ihr natürlich die Variablen noch deklarieren und den Serialport öffnen (so wie im Wiki beschrieben).