Hallo liebe power user,
ich versuche seit 127,46 Stunden! die Herausforderung zu lösen - ohne Erfolg!
Kann mir wer auf die Sprünge helfen?
Im Übrigen die Nextion's eine Empfehlung, aber es sollte das enhanced sein 4,3" 43US$ in China ~40€! (viele LIB's)
NEXTION DISPLAY x.x" enhaced
nexti :byte;
{----------------------------------------------------------------------}
{ Const Declarations }
const
{-----------------------------------Steuerbefehle------------------}
ToBLE : Array[1..66] of Char =
('E','A','K','H','Z','r','S','1','2','3'
.................... );
{-----------------------------------------------------------------------}
Next : Array[1..66] of String[8]=
('040401','040301','040501','040801','040901',
................... ');
{-----------------------------------------------------------------------}
loop
if serstat = true then // Zeichen im Puffer
read(SerInp,nexti); // Nextion
65 00 06 01 ff ff ff e...ÿÿÿ // 65 & ff ff ff benötige ich nicht!
(e[00][06][01]ÿÿÿ)
// **********************************************************************
6 Zeichen xxxxxx isolieren mit Next Array vergleichen und über ToBLE Array
Steuerzeichen senden!
// **********************************************************************
For i ;= 1 to 66 do
if xxxxxxx = Next[i]; then Write(serout,ToBLE); endif;
endfor;
endif;
endloop;
ich versuche seit 127,46 Stunden! die Herausforderung zu lösen - ohne Erfolg!
Kann mir wer auf die Sprünge helfen?
Im Übrigen die Nextion's eine Empfehlung, aber es sollte das enhanced sein 4,3" 43US$ in China ~40€! (viele LIB's)
NEXTION DISPLAY x.x" enhaced
nexti :byte;
{----------------------------------------------------------------------}
{ Const Declarations }
const
{-----------------------------------Steuerbefehle------------------}
ToBLE : Array[1..66] of Char =
('E','A','K','H','Z','r','S','1','2','3'
.................... );
{-----------------------------------------------------------------------}
Next : Array[1..66] of String[8]=
('040401','040301','040501','040801','040901',
................... ');
{-----------------------------------------------------------------------}
loop
if serstat = true then // Zeichen im Puffer
read(SerInp,nexti); // Nextion
65 00 06 01 ff ff ff e...ÿÿÿ // 65 & ff ff ff benötige ich nicht!
(e[00][06][01]ÿÿÿ)
// **********************************************************************
6 Zeichen xxxxxx isolieren mit Next Array vergleichen und über ToBLE Array
Steuerzeichen senden!
// **********************************************************************
For i ;= 1 to 66 do
if xxxxxxx = Next[i]; then Write(serout,ToBLE); endif;
endfor;
endif;
endloop;