-
-
Erfahrener Benutzer
Roboter-Spezialist
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 38400
On Urxc Rs232int
Enable Urxc
Enable Interrupts
Rs232int:
If Udr = 13 Then 'return?
Instring = Buf + Chr(udr)
Bc = Len(instring)
Bc = Bc - 1
Instring = Mid(instring , 2 , Bc)
Buf = ""
'Print "instring: " ; Instring
Else
Buf = Buf + Chr(udr)
'add to buffer
End If
Return
Nur so ca. halt lässt sich noch vereinfachen in Instring steckt dann die der aktuelle Inhalt der bis zum letztn Chr(13) gekommen ist
Fehlen halt noch die Dims der Variablen aber das wirst du hinbekommen oder?
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen