Touch support in VTFT XPT2046 touch controller

[ahmed.hasib]

Hi,
Now i can use the XPT2046

first: initialize the SPI

Code: Select all

  dim x,y,bufferx,buffery as word
  dim x_val,y_val as char[8]

  PPS_MAPPING(_RPD14, _INPUT, _SDI1)    'MISO   ''SPI1 TP
  PPS_MAPPING(_RPD15, _OUTPUT, _SDO1)   'MOSI   ''SPI1 TP
  
  SPI1_INIT_ADVANCED(_SPI_MASTER, _SPI_16_BIT, 600, _SPI_SS_DISABLE, _SPI_DATA_SAMPLE_END, _SPI_CLK_IDLE_HIGH, 
  _SPI_ACTIVE_2_IDLE)
  

then

Code: Select all

SUB PROCEDURE PRESS()
  TFT_Set_Font(@TFT_defaultFont, CL_BLACK, FO_HORIZONTAL)
  TP_CS=0
  SPI1_Write(0XD0)  ''send read x to SPI
  X=SPI1_READ(BUFFERX)
  WORDTOSTR(X,X_VAL)
  TFT_WRITE_TEXT("X:", 10,10)
  TFT_WRITE_TEXT(X_VAL,20,10)

  SPI1_Write(0X90) '' send read Y to SPI
  Y=SPI1_READ(BUFFERY)
  WORDTOSTR(Y,Y_VAL)
  TFT_WRITE_TEXT("Y:",10,30)
  TFT_WRITE_TEXT(Y_VAL,20,30)
  TP_CS=1
  
delay_ms(50)
  TFT_Set_Font(@TFT_defaultFont, CL_WHITE, FO_HORIZONTAL) '' to refresh the old values of x and y
  TFT_WRITE_TEXT(X_VAL,20,10)
  TFT_WRITE_TEXT(Y_VAL,20,30)
end sub

[stefan.filipovic]

Hi Ahmed,

I'm glad that you have managed to get it works.

Thank you for sharing your code with us.

Kind regards,