ILI9341V STM32F103C8

General discussion on mikroPascal PRO for ARM.
Author
Message
Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#46 Post by Vit2 » 23 Apr 2021 09:40

Solved

Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#47 Post by Vit2 » 07 May 2021 18:42

Hey!
Help, I can not understand why it turns out so.
This code is taken from "C"

Do not pay attention to the circle

Code: Select all

TFT9341_DrawString('12345', 10, 50,1,TFT9341_WHITE,TFT9341_BLUE);



procedure TFT9341_DrawString(var txt:string; poX, poY,size,fgcolor,bgcolor:word);
var
i:word;
begin
  i := 0;
  while txt[i] do
      begin
        TFT9341_DrawChar(txt[i], poX, poY, size, fgcolor,bgcolor);
        Inc(txt[i]);
      // if(poX < MAX_X) then
       begin
        Inc(poX);
         end;
        end;
      end;
      
      
procedure TFT9341_DrawChar(txt:char; poX,poY,size,fgcolor,bgcolor:word);
var
f,j,i,temp:byte;
begin
     //  if ((txt < 32) or (txt > 127)) then
      //  begin
       //  txt := '?' - 32;
        //  end;
       for i := 0 to i < 8 do
             begin
        //temp := simpleFont[ascii - 0x20][i];
       temp :=  simpleFont[txt+i];
            end;


                for f := 0 to f < 8 do  
                  begin
                        if (( temp shr f )and 0x01 ) then
                       TFT9341_DrawPixel(poX + i * size,poY + f * size,fgcolor)
                     else
                       TFT9341_DrawPixel(poX + i * size,poY + f * size,bgcolor);
                  end;
            end;
Attachments
20210507_193403.jpg
20210507_193403.jpg (4.29 MiB) Viewed 2488 times

Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#48 Post by Vit2 » 13 May 2021 18:30

Hi Filip

How to make a height?
Help

Code: Select all

procedure TFT9341_DrawChar(txt:char; poX,poY,fgcolor:word;bgcolor:word);
const
Mask = 0x01;
var
y,x,height,width:short;
res:dword;
CharText,ch:char;
begin
  height:=20;
  width:=15;
     CharText:= txt;
    if (CharText < ' ') then
        CharText := 0
     else
      CharText := CharText-32;

             for x := 0 to  WIDTH do
             begin
             ch :=  FontRLE_19x25[(CharText*3)];
                    end;
               for y := 0 to HEIGHT  do
                  begin
                  res:= ch shr y;
                  if res and mask then
                    TFT9341_DrawPixel(poX+x ,poY+y   ,fgcolor)
                     else
                    TFT9341_DrawPixel(poX+x ,poY+y  ,bgcolor);
                  end;
            end;

Fonts

Code: Select all

const FontRLE_19x25 : array[585] of byte =
(
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0xF0, 0x00, 0x00, //   ####----------------
0xF0, 0x00, 0x00, //   ####----------------
0xF0, 0x00, 0x00, //   ####----------------
0xF0, 0x00, 0x00, //   ####----------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x07, 0xFC, 0x00, //   -----#########------
0x3F, 0xFF, 0x00, //   --##############----
0x7F, 0xFF, 0x80, //   -################---
0x7F, 0xFF, 0xC0, //   -#################--
0xF0, 0x01, 0xE0, //   ####-----------####-
0xC0, 0x00, 0x60, //   ##---------------##-
0xC0, 0x00, 0x60, //   ##---------------##-
0xC0, 0x00, 0x60, //   ##---------------##-
0xF0, 0x01, 0xE0, //   ####-----------####-
0x7F, 0xFF, 0xC0, //   -#################--
0x3F, 0xFF, 0xC0, //   --################--
0x1F, 0xFF, 0x80, //   ---##############---
0x07, 0xFC, 0x00, //   -----#########------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x02, 0x00, //   --------------#-----
0x80, 0x07, 0x00, //   #------------###----
0x80, 0x03, 0x00, //   #-------------##----
0x80, 0x01, 0x80, //   #--------------##---
0xC0, 0x01, 0x80, //   ##-------------##---
0xFF, 0xFF, 0xC0, //   ##################--
0xFF, 0xFF, 0xE0, //   ###################-
0xFF, 0xFF, 0xE0, //   ###################-
0xFF, 0xFF, 0xE0, //   ###################-
0xC0, 0x00, 0x00, //   ##------------------
0x80, 0x00, 0x00, //   #-------------------
0x80, 0x00, 0x00, //   #-------------------
0x80, 0x00, 0x00, //   #-------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0xC0, 0x03, 0xC0, //   ##------------####--
0xE0, 0x03, 0xC0, //   ###-----------####--
0xF8, 0x03, 0xC0, //   #####---------####--
0xFC, 0x00, 0xE0, //   ######----------###-
0xEE, 0x00, 0x60, //   ###-###----------##-
0xE7, 0x00, 0x60, //   ###--###---------##-
0xE3, 0xC0, 0x60, //   ###---####-------##-
0xE1, 0xF0, 0xE0, //   ###----#####----###-
0xE0, 0xFF, 0xE0, //   ###-----###########-
0xE0, 0x7F, 0xE0, //   ###------##########-
0xF8, 0x1F, 0xC0, //   #####------#######--
0xF8, 0x0F, 0x80, //   #####-------#####---
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x78, 0x03, 0xC0, //   -####---------####--
0x78, 0x03, 0xC0, //   -####---------####--
0xF8, 0x03, 0xC0, //   #####---------####--
0xE0, 0x60, 0xE0, //   ###------##-----###-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xC0, 0xF0, 0x60, //   ##------####-----##-
0xE0, 0xF8, 0xE0, //   ###-----#####---###-
0x7F, 0xDF, 0xE0, //   -#########-########-
0x7F, 0xDF, 0xC0, //   -#########-#######--
0x3F, 0x8F, 0xC0, //   --#######---######--
0x1F, 0x07, 0x80, //   ---#####-----####---
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x07, 0x00, 0x00, //   -----###------------
0x07, 0x80, 0x00, //   -----####-----------
0x07, 0xE0, 0x00, //   -----######---------
0x06, 0x70, 0x00, //   -----##--###--------
0x06, 0x3C, 0x00, //   -----##---####------
0x86, 0x0E, 0x00, //   #----##-----###-----
0x86, 0x03, 0x80, //   #----##-------###---
0xFF, 0xFF, 0xC0, //   ##################--
0xFF, 0xFF, 0xE0, //   ###################-
0xFF, 0xFF, 0xE0, //   ###################-
0xFF, 0xFF, 0xE0, //   ###################-
0x86, 0x00, 0x00, //   #----##-------------
0x86, 0x00, 0x00, //   #----##-------------
0x06, 0x00, 0x00, //   -----##-------------
0x07, 0x00, 0x00, //   -----###------------
0x00, 0x00, 0x00, //   --------------------
0x78, 0x00, 0x00, //   -####---------------
0x78, 0x7F, 0xE0, //   -####----##########-
0xF8, 0xFF, 0xE0, //   #####---###########-
0xF0, 0x60, 0xE0, //   ####-----##-----###-
0xC0, 0x60, 0xE0, //   ##-------##-----###-
0xC0, 0x60, 0xE0, //   ##-------##-----###-
0xC0, 0x60, 0xE0, //   ##-------##-----###-
0xC0, 0xE0, 0xE0, //   ##------###-----###-
0xE0, 0xE0, 0xE0, //   ###-----###-----###-
0x7F, 0xE0, 0xE0, //   -##########-----###-
0x7F, 0xC0, 0xF0, //   -#########------####
0x3F, 0x80, 0xF0, //   --#######-------####
0x1F, 0x00, 0x00, //   ---#####------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x0F, 0xE0, 0x00, //   ----#######---------
0x3F, 0xF8, 0x00, //   --###########-------
0x7F, 0xFE, 0x00, //   -##############-----
0x7F, 0xFF, 0x00, //   -###############----
0xF0, 0x6F, 0x80, //   ####-----##-#####---
0xC0, 0x23, 0x80, //   ##--------#---###---
0xC0, 0x31, 0xC0, //   ##--------##---###--
0xC0, 0x30, 0xC0, //   ##--------##----##--
0xC0, 0x30, 0xE0, //   ##--------##----###-
0xE0, 0x70, 0x60, //   ###------###-----##-
0x7F, 0xF0, 0x60, //   -###########-----##-
0x7F, 0xE0, 0x60, //   -##########------##-
0x3F, 0xE0, 0x00, //   --#########---------
0x0F, 0x80, 0x00, //   ----#####-----------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x07, 0xE0, //   -------------######-
0x00, 0x07, 0xE0, //   -------------######-
0x00, 0x03, 0xE0, //   --------------#####-
0xC0, 0x01, 0xE0, //   ##-------------####-
0xF0, 0x01, 0xE0, //   ####-----------####-
0xFC, 0x01, 0xE0, //   ######---------####-
0x7F, 0x01, 0xE0, //   -#######-------####-
0x0F, 0x81, 0xE0, //   ----#####------####-
0x03, 0xE1, 0xE0, //   ------#####----####-
0x00, 0xF9, 0xE0, //   --------#####--####-
0x00, 0x3F, 0xE0, //   ----------#########-
0x00, 0x0F, 0xE0, //   ------------#######-
0x00, 0x01, 0xE0, //   ---------------####-
0x00, 0x00, 0x60, //   -----------------##-
0x1E, 0x0F, 0x00, //   ---####-----####----
0x3F, 0x9F, 0x80, //   --#######--######---
0x7F, 0xBF, 0xC0, //   -########-########--
0x7F, 0xFF, 0xC0, //   -#################--
0xE0, 0xF0, 0xE0, //   ###-----####----###-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xC0, 0x60, 0x60, //   ##-------##------##-
0xE0, 0xF0, 0xE0, //   ###-----####----###-
0x7F, 0xFF, 0xE0, //   -##################-
0x7F, 0xDF, 0xC0, //   -#########-#######--
0x3F, 0x9F, 0xC0, //   --#######--#######--
0x1F, 0x0F, 0x80, //   ---#####----#####---
0x00, 0x00, 0x00, //   --------------------
0x00, 0x3E, 0x00, //   ----------#####-----
0x00, 0xFF, 0x80, //   --------#########---
0x00, 0xFF, 0xC0, //   --------##########--
0xC1, 0xFF, 0xC0, //   ##-----###########--
0xC1, 0xC0, 0xE0, //   ##-----###------###-
0xC1, 0x80, 0x60, //   ##-----##--------##-
0xE1, 0x80, 0x60, //   ###----##--------##-
0x61, 0x80, 0x60, //   -##----##--------##-
0x70, 0x80, 0x60, //   -###----#--------##-
0x3E, 0xC1, 0xE0, //   --#####-##-----####-
0x3F, 0xFF, 0xC0, //   --################--
0x1F, 0xFF, 0xC0, //   ---###############--
0x07, 0xFF, 0x80, //   -----############---
0x01, 0xFE, 0x00, //   -------########-----
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0xF0, 0x78, 0x00, //   ####-----####-------
0xF0, 0x78, 0x00, //   ####-----####-------
0xF0, 0x78, 0x00, //   ####-----####-------
0xF0, 0x78, 0x00, //   ####-----####-------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00, //   --------------------
0x00, 0x00, 0x00 //   --------------------

              ); code;  far;
Attachments
20210513_191818.jpg
20210513_191818.jpg (518.99 KiB) Viewed 2469 times

Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#49 Post by Vit2 » 13 May 2021 18:58

Code: Select all

ch :=  FontRLE_19x25[(CharText*3)+1];
Attachments
20210513_195233.jpg
20210513_195233.jpg (359.44 KiB) Viewed 2466 times

Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#50 Post by Vit2 » 13 May 2021 18:59

Code: Select all

ch :=  FontRLE_19x25[(CharText*3)+2];
Attachments
20210513_195320.jpg
20210513_195320.jpg (483.59 KiB) Viewed 2466 times

Vit2
Posts: 77
Joined: 15 Apr 2015 10:00

Re: ILI9341V STM32F103C8

#51 Post by Vit2 » 15 May 2021 16:36

Live people are there?

Post Reply

Return to “mikroPascal PRO for ARM General”