Config Serialin = Buffered , Size = 20 , Bytematch = 60                         'Konfiguration desINput UART mit 20 Bytes Puffer und einem Bytemacht von "<"


'Interrupt: Bytematch = 60 "<"
'-----------------------------
Serial0charmatch:
  Empfangene_daten = ""                                                         'Wenn das Zeichen "<" an der seriellen Schnittstelle empfangen wurde, wird die Variable zurückgesetzt
Return




Sub Serieller_datenempfang()                                                    'Anfang seriellen Datenempfang
   If Ischarwaiting() = 1 Then                                                  'Wenn ein Zeichen im Buffer der RS232 ansteht
      Empfangenes_byte = Waitkey()                                              'Das empfangene Zeichen zwischenspeichern
      Empfangene_daten = Empfangene_daten + Empfangenes_byte                    'Zusammensetzen des empfagnenen Strings
      Empfangene_daten = Ucase(empfangene_daten)                                'Den String in Grossbuchstaben umwandeln

      If Empfangene_daten_bytes(14) > 0 Then                                    'Wenn die maximale Anzahl von 14 Zeichen empfangen worden sind,
         Empfangene_daten = ""                                                  'werden die beiden Variablen zurückgesetzt
         Empfangene_daten_bytes(14) = 0
      End If

      'SET-Parameter +X
      Vergleich_ok = Instr(empfangene_daten , "<SET+X:")                   'Vergleich des Empfangs mit einer Variablen, die den festgelegten String enthält
      If Vergleich_ok = 1 And Empfangene_daten_bytes(12) = 13 Then              'Ist der Vergleich 1, und das Byte(12) ein CR(CarrigeReturn) enthält
            Parameter_wert = Chr(empfangene_daten_bytes(8)) + Chr(empfangene_daten_bytes(9)) + Chr(empfangene_daten_bytes(10))       'Zusammensetzen der 3 Zeichen zu einem String
            Schwelle_x_pos = Val(parameter_wert)                                'Den String in eine numerische Variable umwandeln
            If Schwelle_x_pos > 0 Then                                          'Ist der empfangene Wert grösser 0, dann... ansonsten bleibt der alte Wert bestehen
               Writeeeprom Schwelle_x_pos , 2                                   'Speichern des neuen Wertes in das EEPROM
               Schwelle_x_pos = Offset_x + Schwelle_x_pos                       'Dem neuen Wert wird noch der Offset hinzuaddiert / subtrahiert
               Waitms 50
               Print Back_set_pos_x_text                                        'Senden der Rückmeldung für ein erfolgreiches speichern
            End If
            Empfangene_daten = ""                                               'Rücksetzen des empfangenen Textes
            Empfangene_daten_bytes(12) = 0                                      'Rücksetzen des Bytes(12) "CR"
      End If

      Vergleich_ok = Instr(empfangene_daten , "<EIN>")
      If Vergleich_ok = 1 And Messfahrt_ein = 0 Then
         Waitms 50
         Print Back_ein_text
         Sensor_ein = 1
         Empfangene_daten = ""
         Empfangene_daten_bytes(12) = 0
      End If
   End If
End sub