Bascom und UART wiedermal

Frame(i) = ..

geh schief wenn i größer als 4 wird... das mußt du abfangen in deinem 
receive

Weil I 5 wird wenn nicht deine gewünschte Bytefolge in der IF Abfrage 
ankommt und dein Array nur 4 Byte groß ist.

Mach mal das hier:

1

On Urxc Receive

2

Enable Urxc

3

4

Enable Interrupts

5

6

Dim I as Byte

7

Dim Frame(4) as Byte

8

Dim Byte1 as Byte

9

Dim Byte2 as Byte

10

Dim Byte3 as Byte

11

Dim Byte4 as Byte

12

13

Main:

14

Do

15

  If I = 4 then

16

    If Byte1 = &H10 and Byte2 = &H20 and Byte4 = &H40 Then

17

      Select Case Byte3

18

        Case &H01 :

19

20

        Case &H02 :

21

      End Select

22

    End If

23

    I = 0

24

  End If

25

Loop

26

27

Receive:

28

  Incr I

29

  Frame(i) = UDR

30

  Byte1 = Frame(1)

31

  Byte2 = Frame(2)

32

  Byte3 = Frame(3)

33

  Byte4 = Frame(4)

34

Return

omg... vorab ich kann kein BASCOM..

Programmier erstmal ein LED blinken und so...

Receive:
  Incr I
  If I < 4 then
     Frame...
     ...
  End If
Return

vlt. noch ein Dummy readout von udr im else zweig aber sonst

Diese ganze Auswertung ist ziemlicher Müll, weil der Empfänger nie 
wieder synchronisiert, wenn er einmal ausser Tritt gekommen ist (zb. 
weil der Sender mal 5 Bytes statt 4 gesendet hat)

Frag dich einfach mal (bzw. spiels in Gedanken durch) was passiert wenn 
der Sender

  &H00 &H80 &H10 &H20 &H01 &H40 &H10 &H20

sendet (zb. weil dein Mega mitten in eine laufende Übertragung 
einsteigt). Wie kann er aus dem Datenstrom den gültigen Frame  &H10 &H20 
&H01 &H40 rausfiltern und darauf reagieren?
Die Antwort darauf ist nicht: indem er darauf wartet, dass jeweils 4 
Bytes zusammen gekommen sind. Denn dann würde deine Erkennung die ersten 
4 Bytes

 &H00 &H80 &H10 &H20

untersuchen, feststellen dass das kein gültiger Frame war und auf die 
nächsten 4 Bytes warten

 &H01 &H40 &H10 &H20

ebenfalls kein gültiger Frame. Und so gehts dann weiter (Genau das was 
ich oben sagte: Dein Empfänger synchronisiert sich nicht mehr, wenn er 
einmal ausser Tritt gekommen ist)

Funktionieren tut das nur, indem man nach jedem empfangenen Byte die 4 
zuletzt Empfangenen untersucht (wenn denn schon 4 Empfangen wurden) und 
nachsieht ob das ein gültiger Frame war.

Das erste Byte kommt rein: &H00

  &H00            (noch keine 4 vorrätig, daher keine Analyse möglich)

Das nächste kommt rein: &H80

  &H00 &H80            (erst 2, 4 sind aber notwendig)

Das nächste: &H10

  &H00 &H80 &H10       (erst 3, immer noch keine 4)

Nächster Empfang: &H20

  &H00 &H80 &H10 &H20   jetzt sinds 4, aber das ist kein gültiger Frame
                        -> keine Aktion

Nächster Empfang: &H01
Das erste zwischengespeicherte Byte wird verworfen, alle anderen rücken 
nach

  &H80 &H10 &H20 &H01   immer noch kein gültiger Frame

Nächster Empfang: &H40

  &H10 &H20 &H01 &H40   holla, diese 4 Bytes sind ein gültiger Frame
                        -> Auswerten und den Empfangsbuffer löschen

Nächster Empfang: &H10

  &H10                  noch keine 4 Bytes empfangen

Nächster Empfang: &H20

  &H10 &H20

....


Und wozu das Frame-Array gut sein soll, ist mir auch nicht wirklich 
klar.

> Und wozu das Frame-Array gut sein soll, ist mir auch nicht wirklich
> klar.
Mir auch nicht...
Es reicht die Erkennung der Startsequenz:

1

Main:

2

Do

3

  If datensindda=1 then

4

    Select Case datenbyte

5

      Case &H01 :

6

7

      Case &H02 :

8

    End Select

9

    datensindda=0   <-- Daten verarbeitet

10

  End If

11

Loop

12

13

14

Receive:

15

  rcvbyteold = rcvbyte

16

  rcvbyte = UDR

17

  if getbyte=1 then

18

     datenbyte=rcvbyte     

19

     datensindda=1   <-- Handshake

20

     getbyte=0;

21

  end if

22

  if rcvbyte=&H10 and rcvbyteold=&H20 then   <-- auf Startsequenz synchronisieren

23

     getbyte=1   <-- nächstes Byte einlesen

24

  end if

25

Return