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

**radbruch** · 02.06.2013, 20:36

Hallo

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

Code:

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?

Code:

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.

**Accenter** · 02.06.2013, 20:57

Lauffähig ist der Code nicht. Die ganzen DIM's habe ich rausgeschmissen damit man nicht soviel zu lesen hat. Damit passt auch alles weil die einzelnen Programmteile ja toll laufen. Es läuft eben leider nur nie der UART und der Input Capture zur selben Zeit. Hatte gehofft dafür gibts ne einfache Erklärung (die ich nicht kenne). Habe es mit ":" versucht am Ende des Casebefehls, brachte leider nichts (es funktioniert mit und ohne ":"). Dieser Teil funktioniert auch perfekt nur eben nicht zusammen mit dem UART. Es gibt da irgend ein Timingproblem, die einzelnen Codeteile laufen toll (einzeln).

**radbruch** · 02.06.2013, 21:04

Oki, es wird aber etwas dauern bis ich mich da eingelesen habe.

**radbruch** · 03.06.2013, 13:51

Hallo

Nun also endlich der erste Versuch: Bei 9600 Baud werden 150 Zeichen in 1 Sek. / 9600 * 150 oder 0,0156 Sekunden übertragen, weniger Zeichen entsprechend noch schneller. Mit

Code:

If Ischarwaiting(#2) = 1 Then                               'Wenn über den UART2 was reinkommt springe zur UART Auswertung'
Gosub UART2auswertung
End If

wird allerdings nur das erste Zeichen abgespeichert. Alle anderen werden "verschluckt", weil das Programm mit

Code:

Gosub Empfang868mhz                                         'Gehe zum 868Mhz Funkempfang'

beschäftigt ist. Ich hoffe, das ist's.

Gruß

mic

**Accenter** · 03.06.2013, 17:13

Danke für deine Hilfe! Ja das könnte sein. Sobald ich "Gosub Empfang868mhz" entferne, läuft der UART einwandfrei und alle Eingaben übers Terminal kommen sofort zurück wie es sein soll. Ich befürchte, dass ich einen eigenen "kleinen" Mikrocontroller für das Empfangsmodul brauchen werde. Dieses übernimmt dann die Input Capture Auswertung und sobald da ein Funkcode im bekannten Format angekommen ist geht ein Port von 0 auf 1. Mein Hauptmikrocontroller sieht wenn er nichts zu tun hat immer nach ob dieser Port auf 1 ist. Wenn ja geht ein anderer Port von 0 auf 1 (Code wird angefordert) und der Funkcode wird nun seriell rüber gesendet. Das wird wohl die stressfreiste Möglichkeit sein. Am Ausgang des Funkmoduls liegt halt rauschen an und drum wird der Input Capture dadurch ziemlich "befeuert" vermute ich. Falls noch jemand weiß wie ich das ohne einen zweiten Mikrocontroller lösen kann, wäre ich sehr dankbar. Bin mir ziemlich sicher, dass es eine Lösung gibt, nur leider kenne ich sie nicht. Das ist nur ne Timingsache und sollte doch irgendwie zu lösen sein.

**radbruch** · 03.06.2013, 17:34

Vielleicht funktioniert es so:

Code:

Do
   If Ischarwaiting(#2) = 1 Then        'Wenn über den UART2 was reinkommt springe zur UART Auswertung'
      Input UART2eingang Noecho
      Gosub Auswertung
   End If
   Gosub Empfang868mhz                  'Gehe zum 868Mhz Funkempfang'
Loop