Code läuft nicht feherfrei, bitte um Hilfe! Input Capture und UART nicht gleichzeitig

[radbruch]

Hallo

Bevor ich mich da reinsteigere, bist du sicher, dass du alles wichtige in deinem gekürzten Code drin hast? Mir fehlt das:

Dim Fs20cycle1 As Word
Dim Count1 As Byte
Dim Rdy1 As Byte
Dim Rxbit1 As Byte
Dim Gesamtcode1 As Word

um den Code fehlerfrei zu übersetzen und bei "Case irgendetwas" sollte ein : am Ende stehen, oder?

Select Case Fs20cycle1
   Case Is < 599:                       'below 600µs, reset bitcounter
   Count1 = 1
   Case 600 To 1000:                    '600-1000µs, 0-bit
   Rxbit1 = 0
   Rdy1 = 1
   Case 1001 To 1400:                   '1000-1400µs, 1-bit
   Rxbit1 = 1
   Rdy1 = 1
   Case Is > 1401:                      'over 1400µs, reset bitcounter
   Count1 = 1
End Select

Gruß

mic

P.S.: Anstelle vom Speakersound würde ich bauchgefühlsmäßig besser Leds setzen/löschen.