bonjour,
j'ai utilisé le terminal VBRAY
qui, outre la possibilité de programmer des touches de fonctions
permet l'usage d'un langage Script = mini simili Pascal
j'ai donc testé quelques fonctionalités de ce LCD OPEN SMART SERIAL 320x240
via le script suivant :
Code : Tout sélectionner
program lcd_serial;
var datum: string;
var version1: string;
var i: integer;
var str: string;
begin
i:=0;
writeln('Reset');ComSendchr(13);ComSendchr(10);
ComSendmacro('$7E$02$05$EF');
Delay(200);
while i<4 do
begin
writeln('Clear');
ComSendmacro('$7E$04$20$00$00$EF'); Delay(100);
ComSendchr(13); writeln('Couleur=Rouge');
ComSendmacro('$7E$04$02$F8$01$EF');Delay(100);
ComSendchr(13); ComSendchr(10);
writeln('Print Hello');
ComSendmacro('$7E$07$11$48$65$6C$6C$6F$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('New Line ');
ComSendmacro('$7E$02$10$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Couleur=Jaune $FF$20 ');
ComSendmacro('$7E$04$02$FF$20$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('New Line ');
ComSendmacro('$7E$02$10$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Paulfjujo ..9 chars!');
ComSendmacro('$7E$0B$11$50$61$75$6C$46$6A$75$6A$6F$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('New Line ');
ComSendmacro('$7E$02$10$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Print 12345');
ComSendmacro('$7E$07$11$31$32$33$34$35$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('New Line ');
ComSendmacro('$7E$02$10$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Couleur=Bleu Cyan $07$FF ');
ComSendmacro('$7E$04$02$07$FF$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Print 6789z');
ComSendmacro('$7E$07$11$36$37$38$39$7A$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Fast V x=120 y=0-> 240 Line Jaune');
ComSendmacro('$7E$0A$22$00$A0$00$00$00$F0$F7$E0$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Fast H Line x->0-320 y=120 Cyan');
ComSendmacro('$7E$0A$23$00$00$00$78$01$3F$07$FF$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Rectangle jaune');
ComSendmacro('$7E$0C$25$00$10$00$10$01$00$00$80$FF$F8$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Cercle Rouge dia 100');
ComSendmacro('$7E$0A$27$00$A0$00$78$00$64$F8$01$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Cercle blanc dia 16');
ComSendmacro('$7E$0A$27$00$A0$00$78$00$10$FF$FF$EF');Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Couleur=Vert $07$E0 ');
ComSendmacro('$7E$04$02$07$E0$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Set cursor ');
ComSendmacro('$7E$06$01$00$16$00$40$EF'); Delay(100);
writeln('Print ABCDE at x=160,y=64');
writeln('Set cursor ');
ComSendmacro('$7E$06$01$00$A0$00$40$EF'); Delay(100)
ComSendmacro('$7E$07$11$41$42$43$44$45$EF'); Delay(100);
ComSendchr(13);ComSendchr(10);
writeln('Diagonale 0,0 320,240');
ComSendmacro('$7E$0C$24$00$00$00$00$01$3F$00$EF$FF$FF$EF');
Delay(100)
ComSendchr(13);ComSendchr(10);
Delay(2000);
i:=i+1;
end;
end.
fenetre Debug de VBRAY Terminal:
Reset
Clear
Couleur=Rouge
Print Hello
New Line
Couleur=Jaune $FF$20
New Line
Paulfjujo ..9 chars!
New Line
Print 12345
New Line
Couleur=Bleu Cyan $07$FF
Print 6789z
Fast V x=120 y=0-> 240 Line Jaune
Fast H Line x->0-320 y=120 Cyan
Rectangle jaune
Cercle Rouge dia 100
Cercle blanc dia 16
Couleur=Vert $07$E0
Set cursor
Print ABCDE at x=160,y=64
Set cursor
Diagonale 0,0 320,240
resultat visuel sur LCD :
LCD_Open_Smart_test_via_Terminal_VBRAY_2021-1017.jpg
OPEN-SMART Serial TFT User manual v1.0.pdf
contient:
le fichier de config des touches de fonctions (macros) : Open_Smart_LCD_Serial_2021-1017.tmf
le fichier script du programme : Cdes_Serial_LCD_Open_Smart_2021-1017.tsc
meme pas besoin d'un MikroC Pro à plus de 200 boules , pour le tester!
VBRAY_LCD_tactile_2-4p_SERIAL.zip
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.