Mittels VB6 die RS232 Schnittstelle abfragen - Zahlen einlesen

Gast #889030
Lesenswert?

Hallo.

Ich hab ein Problem. Und zwar hab ich meinen Atmega8 so programmiert, 
dass er im Sekundentakt die Werte 100-460 ausgibt. Und zwar an die 
Serielle Schnittstelle.

Die Daten werden so ausgegeben:

100;
101;
102;
103;
104;
...

Nun möcht ich per VB die Zahlen abfangen und weiter verarbeiten.

Die Zahlen kommen an der Seriellen Schnittst. an, dass hab ich mit dem 
Windowseigenen Hyperterminal getestet.

Allerdings tut sich nichts bei VB6.

Mein Code schaut wie folgendermaßen aus.

-----------------------------
Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comEvReceive
      Text1.Text = MSComm1.Input
  End Select
End Sub

Private Sub Form_Load()
 With MSComm1
  .CommPort = 1
  .Settings = "9600,N,8,1"
  .PortOpen = True
  .InputLen = 0
End With


End Sub
-----------------------------

Die MSComm Komponente per Projekt -> Komponenten hab ich eingefügt.

Die Form schaut ganz einfach aus. Eine Textbox ist vorhanden (Text1) und 
die MSComm Komponente.

Könnt ihr mir da bitte weiterhelfen?

Vielen Dank im voraus.

Gruß, mcccontroller

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren