closed

Loginbox

Please enter your username and password into the following fields to log in.


  • Username:
  • Password:
  •  
  • Auto log in on every visit.


  •  

Nextion Display

Datenkonvertierung

rh offline
Administrator
Avatar
Gender: male
Location: GERMANY  Germany
Age:
Posts: 5169
Registered: 03 / 2002
Homepage Private message
Subject: Re: Nextion Display  -  Posted: 10.02.2018 - 19:38   -  
Und so wird ein Schuh draus, wenn auch ein seltsamer
Code
NEXTION DISPLAY 3,5" enhaced
const
  ToBLE : Array[1..66] of Char = ('E','A',.......................

  Next : Array[1..66] of String[4]= ('e[00][06][01]','e[00][05][01]',..........'65000601'.....
{-----------------------------------------------------------------------}
var
{ Var Declarations }
{$IDATA}
  count,len1,len2,len3 : byte;
  nexti : string[7];
// -----------------------------------------------------------------------
begin
  EnableInts; // Interrupt zulassen
// -----------------------------------------------------------------
  loop
    read(SerInp,nexti);
    nexti := copy(nexti,1,4);
    write(serout,nexti + ' = ' + next[1]);
    e[00][06][01] = e[00][06][01] // ok! hatte ich gedacht! aber in hex!

   65 00 06 01 3d 65 5b 30 30 5d 5b 30 36 5d 5b 30 e...=e[00][06][031 5d

Die ersten 4 Zeichen passen, aber danach? entweder spinnt mein Term Programm oder
ich schön langsam!

  for count := 1 to 2 do
    if nexti = next[count] then // ????
      write(serout,ToBLE[count]); // A od E
    endif;
  endfor;
endloop;
Cars don't buy cars -- Autos kaufen keine Autos.
Henry Ford
go down go up
tbegle offline
Benutzer
Avatar
Gender: n/a
Location: n/a 
Age: 57
Posts: 14
Registered: 01 / 2018
Private message
Subject: Nextion macht mit mir was es will  -  Posted: 11.02.2018 - 12:23   -  
Hallo,
mein garantiert letzter Versuch um mit meinen trivialen Herausforderungen das Portal nicht zuzumüllen!
Hallo NEXTION Power User,

.... auch der Vergleich vom Terminal(kopiert) klappt nicht!
nexti = '65 00 04 01' oder nexti = 'e[00][04][01]' klappt nicht!
nur 1. Zeichen!
copy(nexti,1,1); = e mit next[.] 'e'
// -------------------------------------------------------
nexti : string[11];
Next : Array[1..80] of string[8]=
('????????',.....................
// ----------------------------------------------------
read(SerInp,nexti); // vom NEXTION
write(serout,nexti); // HEX 65 00 04 01 ff ff ff - Char e[00][04][01]ÿÿÿ
nexti := copy(nexti,1,4); // auf 4 Zechen eingedampft
write(serout,nexti); // HEX 65 00 04 01 - Char e[00][04][01]

if nexti = next[1] then // aus Next Array[1..] ??
writeln(serout,'CODE ok!'); // ??
endif;
// ************************************************************************
Vielleicht könnte man ein eigenes FORUM für NEXTION aufmachen?
Wie schon gesagt, gibt es für die fossilen(Steinzeit) LCDs 2x16 ...mit enormen PIN Verbrauch!
manchmal sogar upgrade auf >Proz! obwohl ... -jede Menge Beispiele!- elab(Steuerbefehle)
Zum ~gleichen Preis bekommt man ein Display mit 2PIN! + Grafik! + touch!
Daten & Steuerzeichen von elab-Pascal <-> NEXTION - das nicht jeder! immer wieder!
sich alles selbst erarbeiten muss! - BEISPIEL "ARDUINO-Plattform"
Ich denke das wäre eigentlich der tiefere Sinn eines Portal's
// *************************************************************************
go down go up
miparo offline
Schreiberling
Avatar
Gender: male
Location: GERMANY  Germany
Age:
Posts: 585
Registered: 09 / 2007
Private message
Subject: Re: Nextion Display  -  Posted: 11.02.2018 - 15:44   -  
Bei aller Hilfsbereitschaft aber hier ist doch einfach Hopfen und Malz verloren.

Es muss doch irgendwann mal Klick machen.

Du postest jetzt zum x mal den gleichen zerfletterten Code. Niemand kann den lesen bzw. verstehen was du möchtest.


Schreibe doch einfach ein mini Beispiel was man compilieren kann und in zwei klaren Sätzen was nicht funktioniert.

So werden aus den 127 Stunden 1270 Stunden.


miparo
Kein Support per PN! | No support via PM!
go down go up
 


Registered users in this topic
Currently no registered users in this section

Delete cookies of this forum  •  FAQ / Help  •  Team page  •  Imprint   |  Local time: 22.02.2018 - 13:52