RxBuff_E0 ?

1
2
3
Seite 1 von 3

TheBeginner

Schreiberling

Geschlecht: keine Angabe
Herkunft: Wunsiedel Bayern
Alter: 68
Beiträge: 776
Dabei seit: 06 / 2013

Betreff:

RxBuff_E0 ?

· Gepostet: 16.04.2022 - 13:02 Uhr · #1

Hallo zusammen und Frohe Ostern

Woher weiß ich wieviele Zeichen jetzt im RxBuff_E0 sind ?

Code

Process Read_E0($150 , $150 : iData);
Begin
WaitPipe(RxBufferE0);
SerInpBlockP_TO(UsartE0, @RxBuff_E0, 254, 10);

Gruß Frank

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1344
Dabei seit: 02 / 2009

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 13:49 Uhr · #2

Hallo Frank,

das mache ich mit einer While Schleife in Verbindung mit einer SerStat_xx Funktion, aber es gibt mehrere Wege.

Einer meiner Codes als Beispiel:

Code

  if WaitPipe( RxBufferC0, 30 ) then
     inZKS[79]:=0; // lösche EingangsBuffer Zähler auf 0
         rxCnt:= 0;

       while SerStatC0  do  //Daten vorhanden dann abarbeiten

         if not SerInpBlock_TO( UsartC0, inByte, 1) then
          // in TimeOut gelaufen, keine Daten verwerten!!!
           zksClearIn();
             return(0);
         endif;

          inZKS[rxCnt]:= inByte; // lege Daten im Empfangsspeicher ab und zähle
           inc(rxCnt);

          // Bereits Telegramm vorhanden? Dann raus, rest im nächsten Aufruf abholen
          if    (inByte1=$10) AND  (inByte=$06)  then break;
          elsif (inByte1=$10) AND  (inByte=$15)  then break;
          elsif (inByte3=$10) AND  (inByte2=$03) then break;
          Endif;
           // Versatz für Auswertung...
           inByte3:=inByte2; inByte2:=inByte1; inByte1:=inByte;      // hier evtl Prüfen!!!
       endwhile;

       inZKS[79]:= rxCnt; // setze Datenmenge in den Empfangsbuffer

        return(rxCnt);

  else // Waitpipe
   inZKS[79]:=0; // lösche EingangsBuffer Zähler auf 0
    return(0);  // TimeOut WaitPipe

  endif; // Waitpipe

Gruß
Thorsten

TheBeginner

Schreiberling

Geschlecht: keine Angabe
Herkunft: Wunsiedel Bayern
Alter: 68
Beiträge: 776
Dabei seit: 06 / 2013

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 17:14 Uhr · #3

Hallo Thorsten, ich habe es jetzt so gemacht und
es geht 100%

Danke für deine Hilfe.

Code

//==============================================================================
Process Read_E0($150 , $150 : iData);
Begin
  if WaitPipe( RxBufferE0 ) then
    rxCnt:= 0;
    while SerStatE0  do
      RxBuff_E0[rxCnt]:= byte(SerInpE0);
      rxCnt:= rxCnt + 1;
    endwhile;
    rxCnt:= rxCnt - 1;
    SerOutBlock_P(UsartCDC, @RxBuff_E0, rxCnt);
  endif;
end;

Gruß Frank

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1344
Dabei seit: 02 / 2009

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 17:36 Uhr · #4

Hallo Frank,

freut mich.

Gruß
Thorsten

Harry

Moderator

Geschlecht:
Herkunft: zwischen Augsburg und Ulm
Alter: 60
Beiträge: 2155
Dabei seit: 03 / 2003

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 19:20 Uhr · #5

Es gibt eine interne Variable, die das beinhaltet.

Harry

TheBeginner

Schreiberling

Geschlecht: keine Angabe
Herkunft: Wunsiedel Bayern
Alter: 68
Beiträge: 776
Dabei seit: 06 / 2013

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 20:21 Uhr · #6

Ja Harry die hätte ich gerne gewusst, dann wäre es doch einfacher.

Gruß Frank

pvs-deck

PowerUser

Geschlecht:
Alter: 54
Beiträge: 1344
Dabei seit: 02 / 2009

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 22:48 Uhr · #7

Zitat geschrieben von Harry

Es gibt eine interne Variable, die das beinhaltet.

Harry

Hallo Harry,

wo ist das dokumentiert?

Gruß
Thorsten

Gunter

Administrator

Geschlecht:
Herkunft: Frankfurt Main / Germany
Beiträge: 1697
Dabei seit: 02 / 2003

Betreff:

Re: RxBuff_E0 ?

· Gepostet: 16.04.2022 - 23:59 Uhr · #8

INTERNE Variablen sind nicht dokumentiert.
Im .asm sollte der Name leicht erkennbar sein
Gunter

1
2
3
Seite 1 von 3

RxBuff_E0 ?

Registrierte in diesem Topic