ILI9341V STM32F103C8

[Vit2]

Hello!
I trust you, but I don't trust the development team.

[Pelikan]

APB1 -> low-speed -> HCLK divided by 2 !
APB2 -> high-speed -> HCLK not divided !
if ( HSE clock not divided ) and ( XTAL = 8MHz ) -> PLL input clock x 9 !

Clock <= 72MHz
APB1 <= 36MHz
APB2 <= 72MHz

Peter

[Vit2]

Thank you, Peter!

[Vit2]

Hello!
What does the support group say?

[Vit2]

mikroPascal PRO for ARM
$319.00

[filip]

Hi,

What exactly is your issue here ?
Is it the redrawing speed ?

Regards,
Filip.

[Vit2]

Hi!
Yes. I'm waiting for a fix

[filip]

Hi,

The redrawing method is implemented in the Visual TFT and is currently as is, I don't think any changes to this will be made in the near future.
I know that it might be slow in certain situation and I am sorry for this.

Thank you for the understanding.

Regards,
Filip.

[Vit2]

Hello!
I did not expect another answer.
IDE to the trash!

[corado]

Hi,
where is the ILI9341V driver for Pascal?
I didn't find it in libstock

[Vit2]

Hello
How can I solve this problem?

Code: Select all

const
 TFT9341_BLUE = 0x001F;
 TFT9341_WHITE = 0xFFFF;
 var
  BLUE, WHITE :byte;

//---------------------------------------------------------------------------------------------
  BLUE := Lo(CL_BLUE);
  WHITE := Lo(CL_WHITE);

 TFT9341_WriteString(50,50, '1234567890',WHITE,BLUE); <<<------

//-------------------------------------------------------------------------------------------------------
Constant argument cannot be passed by reference ILI9341VTest.mpas
Operator "@" not applicable to these operands "?1234567890-705697730" ILI9341VTest.mpas

Thank you

[Vit2]

Hello
How can I solve this problem?

Code: Select all

const
 TFT9341_BLUE = 0x001F;
 TFT9341_WHITE = 0xFFFF;
 var
  BLUE, WHITE :byte;

//---------------------------------------------------------------------------------------------
  BLUE := Lo(CL_BLUE);
  WHITE := Lo(CL_WHITE);

 TFT9341_WriteString(50,50, '1234567890',WHITE,BLUE); <<<------

//-------------------------------------------------------------------------------------------------------
Constant argument cannot be passed by reference ILI9341VTest.mpas
Operator "@" not applicable to these operands "?1234567890-705697730" ILI9341VTest.mpas

The problem remains how to fix?

[Vit2]

https://www.hexcolortool.com/#3527f1

[Vit2]

No error

[Vit2]

Hello
What am I doing wrong? No initialization.

Code: Select all

procedure TFT9341_SendCommand(cmd:word);
begin
TFT_DC:= 0;
  SPI1_Write(cmd);
end;

 procedure TFT9341_SendData(dt:word);
begin
        TFT_DC:=1;
        SPI1_Write(dt);
end;

procedure TFT9341_reset();
begin
     TFT_RST:= 0;
     Delay_ms(2);
     TFT_RST:= 1;
end;

procedure TFT9341_ini(w_size:word; h_size:word);
begin

  TFT_CS:= 0; 
  TFT9341_reset();

  //Software Reset
         TFT9341_SendCommand(0x01);//Software Reset
        Delay_us(1000);
        TFT9341_SendCommand(0xCB);//Power Control A
        TFT9341_SendData(0x39);
        TFT9341_SendData(0x2C);
        TFT9341_SendData(0x00);
        TFT9341_SendData(0x34);
        TFT9341_SendData(0x02);
        Delay_us(1);
        TFT9341_SendCommand(0xCF);//Power Control B
        TFT9341_SendData(0x00);
        TFT9341_SendData(0xC1);
        TFT9341_SendData(0x30);
        Delay_us(1);
        TFT9341_SendCommand(0xE8);//Driver timing control A
        TFT9341_SendData(0x85);
        TFT9341_SendData(0x00);
        TFT9341_SendData(0x78);
        Delay_us(1);
        TFT9341_SendCommand(0xEA);//Driver timing control B
        TFT9341_SendData(0x00);
        TFT9341_SendData(0x00);
        Delay_us(1);
        TFT9341_SendCommand(0xED);//Power on Sequence control
        TFT9341_SendData(0x64);
        TFT9341_SendData(0x03);
        TFT9341_SendData(0x12);        
        TFT9341_SendData(0x81);
        Delay_us(1);
        TFT9341_SendCommand(0xF7);//Pump ratio control
        TFT9341_SendData(0x20);
        Delay_us(1);
        TFT9341_SendCommand(0xC0);//Power Control 1
        TFT9341_SendData(0x10);
        Delay_us(1);
        TFT9341_SendCommand(0xC1);//Power Control 2
        TFT9341_SendData(0x10);
        Delay_us(1);
        TFT9341_SendCommand(0xC5);//VCOM Control 1
        TFT9341_SendData(0x3E);
        TFT9341_SendData(0x28);
        Delay_us(1);
        TFT9341_SendCommand(0xC7);//VCOM Control 2
       TFT9341_SendData(0x86);
        Delay_us(1);
       // TFT9341_SetRotation(0); ///-------------------------------------------------------------------
      // TFT9341_SendCommand(0x36);
      // TFT9341_SendData(0x48); ///----------------------------------------------------------------------
        Delay_us(1);
        TFT9341_SendCommand(0x3A);//Pixel Format Set
        TFT9341_SendData(0x55);//16bit
        Delay_us(1);
        TFT9341_SendCommand(0xB1);
        TFT9341_SendData(0x00);
        TFT9341_SendData(0x18);
        Delay_us(1);
        TFT9341_SendCommand(0xB6);//Display Function Control
        TFT9341_SendData(0x08);
        TFT9341_SendData(0x82);
        TFT9341_SendData(0x27);
        Delay_us(1);
        TFT9341_SendCommand(0xF2);//Enable 3G 
        TFT9341_SendData(0x00);
        Delay_us(1);
        TFT9341_SendCommand(0x26);//Gamma set
        TFT9341_SendData(0x01);//Gamma Curve (G2.2)
        Delay_us(1);
        TFT9341_SendCommand(0xE0);//Positive Gamma  Correction
        TFT9341_SendData(0x0F);
        TFT9341_SendData(0x31);
        TFT9341_SendData(0x2B);
        TFT9341_SendData(0x0C);
        TFT9341_SendData(0x0E);
        TFT9341_SendData(0x08);
        TFT9341_SendData(0x4E);
        TFT9341_SendData(0xF1);
        TFT9341_SendData(0x37);
        TFT9341_SendData(0x07);
        TFT9341_SendData(0x10);
       TFT9341_SendData(0x03);
       TFT9341_SendData(0x0E);
        TFT9341_SendData(0x09);
        TFT9341_SendData(0x00);
        Delay_us(1);
        TFT9341_SendCommand(0xE1);//Negative Gamma  Correction
        TFT9341_SendData(0x00);
        TFT9341_SendData(0x0E);
        TFT9341_SendData(0x14);
        TFT9341_SendData(0x03);
        TFT9341_SendData(0x11);
        TFT9341_SendData(0x07);
        TFT9341_SendData(0x31);
        TFT9341_SendData(0xC1);
       TFT9341_SendData(0x48);
        TFT9341_SendData(0x08);
        TFT9341_SendData(0x0F);
        TFT9341_SendData(0x0C);
        TFT9341_SendData(0x31);
        TFT9341_SendData(0x36);
        TFT9341_SendData(0x0F);
        Delay_us(1);
        TFT9341_SendCommand(0x11);
        Delay_ms(150);
        TFT9341_SendCommand(0x29);
       // TFT9341_SendData(0x2C);
       Delay_ms(150);