Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



3.2" TFT LCD

Сообщений 151 страница 165 из 165

151

Пичальбида, в протеусе с инициализацией для 9331 есть картинка

0

152

Вот и мне не верится. Осциллом смотрел,  на пинах порта данных сигнал есть, rs дрыгается, wr дрыгается, reset к питанию подтягивается, cs на массе,  rd на питании.
Единственное, что по реккомендации даташита я не сажал неиспользуемые пины на землю. Попробую так

0

153

Mrshilov Спасибо, работает!

Единственное, цветной шрифт и BGC картинка отображаются зеркально и повернуты на 90 градусов относительно общей ориентации. Текст получилось "раззеркалить" заменой ориентации в подпрограмме цветного шрифта. Но вот повернуть не получается. С остальными шрифтами все в порядке.

Код:
   Reset_window
   #if Portrait = 0                    ' меняю 0 на 1  - текст не зеркалится.
      R65123_write_reg &H36 , Portrait_mode
   #else
      R65123_write_reg &H36 , Landscape_mode
   #endif

http://s3.uploads.ru/t/pWv7r.jpg

P.S. 36x56 это максимально возможный шрифт? Попробовал сделать больше  - одни кразозябры.

Отредактировано nooby (2015-12-06 17:06:11)

0

154

Приветствую всех. Никто не пользовал тфт на камне нх8357в . Аналогом какой существующей библиотеки он является?  ds пока не читал, может тайминги какие поменятьили еще что.  Уж  очень нехочется работающие библиотеки переписывать.  Хотел сначала в протеусе  программу отладить ,потом в железе(ардуино 2560). А тут присмотрелся ,а контролер китайский. Конечно можно посмотреть отличия в ардуиновских библиотеках, но тяжко вникать в их язык.

0

155

Большое спасибо. Для протеуса еще бы модель. Но я думаю основу можно отладить на любой имеющийся модели, а потом  ,перенеся в железо доделывать на нем. Наверняка команды для примитивов те же. Еще раз спасибо.

0

156

Люди, помогите пожалуйста!!!Есть дисплей Samsung S5230.Решил запустить но! вот спустя неделю все-таки я его запустил,но изображение и текст никак не поворачивалось в книжной ориентации. Но попалась как-то небольшая "шпаргалка" с какого-то польского сервиса и все пошло как по маслу-все получилось. Но вопрос у меня следующий - с той библиотекой, что прилагалась как тестовая-она не хочет работать в других "решениях", ну проектах как например вольтметр, терморегулятор, GPS ну и т.д. Пример кода _расчет дистанции и курса (на L2F50 работает и на Nokia6610 тоже ): После проведения инициализации,подключение библиотеки она выводит ПРОСТО ТЕКСТ,ОЧИЩАЕТ,РИСУЕТ, и получается больше ничего? Или я ошибаюсь? Как изменить что бы могла работать и с другими переменными как например отображало температуру датчика, координаты GPS, напряжение,ток и т.д. Помогите пожалуйста разобраться!!!!!!!!!!!!!!!

Код:
'chip config
$regfile = "m644pdef.dat"
$crystal = 8000000
$hwstack = 200
$swstack = 200
$framesize = 200

$lib "double.lbx"
$lib "double_trig.lbx"

Declare Sub Drawscreen()

Declare Sub Inputddmmmmm()
Declare Sub Inputddmmmmm1()
Declare Sub Inputddmmsss()
Declare Sub Inputdddddd()


Declare Function Gps2decimal(byval Daten As String) As Single
Declare Function Dec2ggmmmmm(byval Daten As Single , Byval Type As String) As String
Declare Function Dec2ggmmsss(byval Daten As Single , Byval Type As String) As String
Declare Function Distance(byval La1 As Single , Byval Lo1 As Single , Byval La2 As Single , Byval Lo2 As Single) As Single
Declare Function Course(byval La1 As Single , Byval Lo1 As Single , Byval La2 As Single , Byval Lo2 As Single) As Single

Dim Koorfrmt As Byte

Dim Clat As Single                                          'Aktuelle Position
Dim Clon As Single

Dim Dlat As Single
Dim Dlon As Single
Dim Dlat1 As Single
Dim Dlon1 As Single

Dim Lon2 As Single                                          'tempor�e LON des vorpunktes
Dim Lat2 As Single                                          'tempor�e LAT des vorpunktes
Dim Dist As Single


Dim Tmpstr As String * 80
Dim Tmpstr2 As String * 10
Dim Crs As Single


'===============================================================================

'Define IN/OUT Ports

Config Portb.7 = Output                                     'Backlight
Backlight Alias Portb.7
Backlight = 0

'Steuerkreuz

Config Portd.0 = Input                                      'ok
Config Portd.4 = Input                                      'up
Config Portd.5 = Input                                      'left
Config Portd.6 = Input                                      'right
Config Portd.7 = Input                                      'down

Portd.0 = 1
Portd.4 = 1
Portd.5 = 1
Portd.6 = 1
Portd.7 = 1


Links Alias Pind.5
Rechts Alias Pind.6
Runter Alias Pind.7
Ok Alias Pind.0
Rauf Alias Pind.4



'First we define that we use a graphic LCD        Nokia6610
$lib "lcd-pcf8833.lbx"   
Config Graphlcd = Color , Controlport = Portb , Cs = 6 , Rs = 0 , Scl = 1 , Sda = 4


'here we define the colors

Const Blue = &B00000011
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Const Brightgreen = &B00111110
Const Darkgreen = &B00010100
Const Darkred = &B10100000
Const Darkblue = &B00000010
Const Brightblue = &B00011111
Const Orange = &B11111000
Const Violett = 143
Const Brown = 136
Const Magenta = &HF0F

'clear the display
Cls

Setfont Color8x8

'Gosub Distance
'Gosub Course

Lcdat 30 , 40 , " WAIT... " , Red , White

Line(10 , 55) -(120 , 55) , Magenta                         ' _______________________
Line(10 , 75) -(120 , 75) , Magenta                         ' I                     I
Line(10 , 55) -(10 , 75) , Magenta                          ' I_____________________I
Line(120 , 55) -(120 , 75) , Magenta                        '

Line(20 , 60) -(20 , 70) , Blue
Waitms 100
Line(35 , 60) -(35 , 70) , Blue
Waitms 100
Line(50 , 60) -(50 , 70) , Blue
Waitms 100
Line(65 , 60) -(65 , 70) , Blue
Waitms 100
Line(80 , 60) -(80 , 70) , Blue
Waitms 100
Line(95 , 60) -(95 , 70) , Blue
Waitms 100
Line(110 , 60) -(110 , 70) , Blue
Wait 3


Do


Box(0 , 0) ,(130 , 130) , White
Lcdat 10 , 10 , "This device" , Darkblue , White
Lcdat 20 , 10 , "will calculate" , Darkblue , White
Lcdat 30 , 10 , "the distance" , Darkblue , White
Lcdat 40 , 10 , "between GPS" , Darkblue , White
Lcdat 50 , 10 , "coordinates" , Darkblue , White
Lcdat 60 , 10 , "and course" , Darkblue , White

Wait 2


   Cls
   Box(0 , 0) ,(130 , 130) , Brightblue
   Lcdat 55 , 1 , "  Enter Coord 1 " , Brown , White
   Lcdat 65 , 1 , "  then press OK " , Brown , White

Wait 1

  Call Inputddmmmmm

Wait 1

   Cls
   Box(0 , 0) ,(130 , 130) , Brightblue
   Lcdat 55 , 1 , "  Enter Coord 2 " , Brown , White
   Lcdat 65 , 1 , "  then press OK " , Brown , White
Wait 1

 Call Inputddmmmmm1

Wait 1

Lcdat 10 , 40 , "*LAT*" , Blue , White
Lcdat 30 , 40 , "*LON*" , Blue , White
Lcdat 50 , 40 , "*LAT2*" , Blue , White
Lcdat 70 , 40 , "*LON2*" , Blue , White

Lcdat 20 , 10 , Dlat , Brown , White                         А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
Lcdat 40 , 10 , Dlon , Brown , White                         А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д,
Lcdat 60 , 10 , Dlat1 , Brown , White                        А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д,  
Lcdat 80 , 10 , Dlon1 , Brown , White                       А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д,

Wait 2

    Call Drawscreen

Wait 2


Loop

End

Sub Drawscreen:

      Local Tmplat As String * 15
      Local Tmplon As String * 15
      Local Tmpdist As Single
      Local Tmpcrs As Single

      Local Tmpint As Integer
      Local Pfeil As String * 5


         Tmpcrs = Course(dlat , Dlon , Dlat1 , Dlon1)
         Tmpstr2 = Fusing(tmpcrs , "#.#")
         Lcdat 90 , 20 , "Course  " , Green , White
         Lcdat 100 , 10 , Tmpstr2 ; " Deg." , Blue , White


         Tmpdist = Distance(dlat , Dlon , Dlat1 , Dlon1)
         Tmplat = Fusing(tmpdist , "#.###")
         Lcdat 110 , 20 , "Distance" , Green , White
         Lcdat 120 , 10 , Tmplat ; "km " , Blue , White

   Wait 10

 End Sub


'Input Functions
Sub Inputddmmmmm()
   Disable Interrupts

   Local Tmplat As String * 10
   Local Tmplon As String * 10
   Local Tmpstrx As String * 1
   Local La1 As Byte , La2 As Byte
   Local La3 As Byte , La4 As Byte
   Local La5 As Byte , La6 As Byte
   Local La7 As Byte , La8 As Byte
   Local Lo1 As Byte , Lo2 As Byte
   Local Lo3 As Byte , Lo4 As Byte
   Local Lo5 As Byte , Lo6 As Byte
   Local Lo7 As Byte , Lo8 As Byte
   Local Lo9 As Byte
   Local Cx As Byte
   Local Cy As Byte
   Cx = 50
   Cy = 50


   Tmplat = Dec2ggmmmmm(dlat , "lat")
   Tmplon = Dec2ggmmmmm(dlon , "lon")
   'lat zerlegen
   Tmpstrx = Mid(tmplat , 1 , 1)
   La2 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 2 , 1)
   La3 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 4 , 1)
   La4 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 5 , 1)
   La5 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 7 , 1)
   La6 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 8 , 1)
   La7 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat , 9 , 1)
   La8 = Val(tmpstrx)
   'lon zerlegen
   Tmpstrx = Mid(tmplon , 1 , 1)
   Lo2 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 2 , 1)
   Lo3 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 3 , 1)
   Lo4 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 5 , 1)
   Lo5 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 6 , 1)
   Lo6 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 8 , 1)
   Lo7 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 9 , 1)
   Lo8 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon , 10 , 1)
   Lo9 = Val(tmpstrx)



   Cls
   Box(0 , 0) ,(130 , 130) , Brightblue
   'Lcdat 10 , 1 , "Enter Coordinate" , Violett , White
   'Lcdat 20 , 1 , " then press OK " , Brown , White
   Lcdat 20 , 10 , " Coordinate 1 " , Brown , White

   Lcdat 40 , 10 , "N" , Blue , Brightblue
   Lcdat 60 , 10 , "E" , Blue , Brightblue

   Do
      'Zeichne Koordinaten
      Lcdat 40 , 40 , La2 , Black , Brightblue   А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д,  ниже по тесту  тоже самое                            
      Lcdat 40 , 50 , La3 , Black , Brightblue
      Lcdat 40 , 60 , "'" , Black , Brightblue
      Lcdat 40 , 70 , La4 , Black , Brightblue
      Lcdat 40 , 80 , La5 , Black , Brightblue
      Lcdat 40 , 90 , "." , Black , Brightblue
      Lcdat 40 , 100 , La6 , Black , Brightblue
      Lcdat 40 , 110 , La7 , Black , Brightblue
      Lcdat 40 , 120 , La8 , Black , Brightblue

      Lcdat 60 , 30 , Lo2 , Black , Brightblue
      Lcdat 60 , 40 , Lo3 , Black , Brightblue
      Lcdat 60 , 50 , Lo4 , Black , Brightblue
      Lcdat 60 , 60 , "'" , Black , Brightblue
      Lcdat 60 , 70 , Lo5 , Black , Brightblue
      Lcdat 60 , 80 , Lo6 , Black , Brightblue
      Lcdat 60 , 90 , "." , Black , Brightblue
      Lcdat 60 , 100 , Lo7 , Black , Brightblue
      Lcdat 60 , 110 , Lo8 , Black , Brightblue
      Lcdat 60 , 120 , Lo9 , Black , Brightblue

      'Curosr Zeichnen
      Lcdat Cy , Cx , "^" , Red , Brightblue                           А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 

      'Bewege Cursor rechts
      If Rechts = 0 Then
         Waitms 30
         Lcdat Cy , Cx , " " , Red , Brightblue                        А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
         If Cy = 50 Then
            Select Case Cx
               Case 40 : Cx = Cx + 10
               Case 50 : Cx = Cx + 20
               Case 70 : Cx = Cx + 10
               Case 80 : Cx = Cx + 20
               Case 100 : Cx = Cx + 10
               Case 110 : Cx = Cx + 10
               Case 120 : Cy = 70
                           Cx = 30
     .............................
....................................    
      If Links = 0 Then
         Waitms 30
         Lcdat Cy , Cx , " " , Green , Brightblue                А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
         If Cy = 50 Then
            Select Case Cx
               Case 120 : Cx = Cx - 10
               Case 110 : Cx = Cx - 10
               Case 100 : Cx = Cx - 20
               Case 80 : Cx = Cx - 10
               Case 70 : Cx = Cx - 20
 ....................
...........................
................................
.......................
   'Best�ige Koordinate
   Loop Until Ok = 0
   Do
   Loop Until Ok = 1
   'Koordinate zusammenbauen

   Tmplat = Str(la2) + Str(la3) + Str(la4) + Str(la5) + "." + Str(la6) + Str(la7) + Str(la8) + "0"
   Tmplon = Str(lo2) + Str(lo3) + Str(lo4) + Str(lo5) + Str(lo6) + "." + Str(lo7) + Str(lo8) + Str(lo9) + "0"

   Dlat = Gps2decimal(tmplat)
   Dlon = Gps2decimal(tmplon)
   'Targnr = 0
   'Target = "Manual"
   'Screen = 2
   'koordinate umrechnen und speichern
   'Wait 10

   Cls
   Enable Interrupts
End Sub


Sub Inputddmmsss()
   Disable Interrupts
   Enable Interrupts
End Sub



Sub Inputdddddd()
   Disable Interrupts
   Enable Interrupts
End Sub



'Input Functions


Sub Inputddmmmmm1()
   Disable Interrupts

   Local Tmplat1 As String * 10
   Local Tmplon1 As String * 10
   Local Tmpstrx As String * 1
   Local La1 As Byte , La2 As Byte
   Local La3 As Byte , La4 As Byte
   Local La5 As Byte , La6 As Byte
   Local La7 As Byte , La8 As Byte
   Local Lo1 As Byte , Lo2 As Byte
   Local Lo3 As Byte , Lo4 As Byte
   Local Lo5 As Byte , Lo6 As Byte
   Local Lo7 As Byte , Lo8 As Byte
   Local Lo9 As Byte
   Local Cx As Byte
   Local Cy As Byte
   Cx = 50
   Cy = 50


   Tmplat1 = Dec2ggmmmmm(dlat1 , "lat")
   Tmplon1 = Dec2ggmmmmm(dlon1 , "lon")
   'lat zerlegen
   Tmpstrx = Mid(tmplat1 , 1 , 1)
   La2 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 2 , 1)
   La3 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 4 , 1)
   La4 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 5 , 1)
   La5 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 7 , 1)
   La6 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 8 , 1)
   La7 = Val(tmpstrx)
   Tmpstrx = Mid(tmplat1 , 9 , 1)
   La8 = Val(tmpstrx)
   'lon zerlegen
   Tmpstrx = Mid(tmplon1 , 1 , 1)
   Lo2 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 2 , 1)
   Lo3 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 3 , 1)
   Lo4 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 5 , 1)
   Lo5 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 6 , 1)
   Lo6 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 8 , 1)
   Lo7 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 9 , 1)
   Lo8 = Val(tmpstrx)
   Tmpstrx = Mid(tmplon1 , 10 , 1)
   Lo9 = Val(tmpstrx)



   Cls
   Box(0 , 0) ,(130 , 130) , Brightblue
   'Lcdat 10 , 1 , "Enter Coordinate" , Violett , White                      
   'Lcdat 20 , 1 , "then press OK-1" , Brown , White

   Lcdat 20 , 10 , " Coordinate 2 " , Brown , White
   Lcdat 40 , 10 , "N" , Blue , Brightblue
   Lcdat 60 , 10 , "E" , Blue , Brightblue

   Do
      'Zeichne Koordinaten
      Lcdat 40 , 40 , La2 , Black , Brightblue               А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
      Lcdat 40 , 50 , La3 , Black , Brightblue
      Lcdat 40 , 60 , "'" , Black , Brightblue
      Lcdat 40 , 70 , La4 , Black , Brightblue
      Lcdat 40 , 80 , La5 , Black , Brightblue               А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
      Lcdat 40 , 90 , "." , Black , Brightblue
      Lcdat 40 , 100 , La6 , Black , Brightblue                 А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
      Lcdat 40 , 110 , La7 , Black , Brightblue
      Lcdat 40 , 120 , La8 , Black , Brightblue

      Lcdat 60 , 30 , Lo2 , Black , Brightblue
      Lcdat 60 , 40 , Lo3 , Black , Brightblue
      Lcdat 60 , 50 , Lo4 , Black , Brightblue
      Lcdat 60 , 60 , "'" , Black , Brightblue
      Lcdat 60 , 70 , Lo5 , Black , Brightblue
      Lcdat 60 , 80 , Lo6 , Black , Brightblue
      Lcdat 60 , 90 , "." , Black , Brightblue
      Lcdat 60 , 100 , Lo7 , Black , Brightblue
      Lcdat 60 , 110 , Lo8 , Black , Brightblue
      Lcdat 60 , 120 , Lo9 , Black , Brightblue

      'Curosr Zeichnen
      Lcdat Cy , Cx , "^" , Red , Brightblue                   А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
.................................
      'Bewege Cursor rechts
      If Rechts = 0 Then
         Waitms 30
         Lcdat Cy , Cx , " " , Red , Brightblue               А ВОТ ТУТ ПРИ КОМПТЛЯЦИИ С S5230 (где не просто текст) ПИШЕТ ОШИБКА ПАРАМЕТРА И Т.Д, 
         If Cy = 50 Then
            Select Case Cx
               Case 40 : Cx = Cx + 10
               Case 50 : Cx = Cx + 20
               Case 70 : Cx = Cx + 10
               Case 80 : Cx = Cx + 20
               Case 100 : Cx = Cx + 10
               Case 110 : Cx = Cx + 10
               Case 120 : Cy = 70
                           Cx = 30
            End Select
          Else
            Select Case Cx
               Case 30 : Cx = Cx + 10
               Case 40 : Cx = Cx + 10
               Case 50 : Cx = Cx + 20
               Case 70 : Cx = Cx + 10
               Case 80 : Cx = Cx + 20
               Case 100 : Cx = Cx + 10
               Case 110 : Cx = Cx + 10
               Case 120 : Cy = 50
                           Cx = 40
            End Select
          End If
          Do
          Loop Until Rechts = 1
          Waitms 30
      End If

      'Bewege Cursor Links
      If Links = 0 Then
         Waitms 30
         Lcdat Cy , Cx , " " , Green , Brightblue
 .....................    
 ....................          
   'Best�ige Koordinate
   Loop Until Ok = 0
   Do
   Loop Until Ok = 1
   'Koordinate zusammenbauen

   Tmplat1 = Str(la2) + Str(la3) + Str(la4) + Str(la5) + "." + Str(la6) + Str(la7) + Str(la8) + "0"
   Tmplon1 = Str(lo2) + Str(lo3) + Str(lo4) + Str(lo5) + Str(lo6) + "." + Str(lo7) + Str(lo8) + Str(lo9) + "0"

   Dlat1 = Gps2decimal(tmplat1)
   Dlon1 = Gps2decimal(tmplon1)
   'Targnr = 0
   'Target = "Manual"
   'Screen = 2
   'koordinate umrechnen und speichern
   'Wait 10

   Cls
   Enable Interrupts
End Sub


' End of File Stuff
'############################ GPS MATH ROUTINES
..........
............
..........

$include "color8x8.font"

0

157

Привет, всем!

Помогите запустить дисплей на контроллере ILI9341. Китайцам похоже по-фигу что продавать, похож- да и ладно. Покупал как SSD1289, а прислали ILI9341. Теперь я счастливый обладатель 3-х "чемоданов без ручки" на ILI9341. Дисплеи внешне неотличимы кроме надписи: на SSD1289 написано "TFT_320QVT", a на ILI9341 "TFT_320QVT_9341".

0

158

Спасибо, но на сколько я понял, там речь идёт про 2,2 дюйма и 8 бит или SPI подключение. А мне нужно 16 бит и 3,2 дюйма.

Отредактировано marss70 (2016-05-18 10:33:27)

0

159

https://hubstub.ru/tags/TFT/
Вот здесь пример для ILI9341.

0

160

Tsoyvi
Спасибо, почитаю!

0

161

На буржуйском сайте нашёл такое http://bascom-forum.de/showthread.php?7 … 16bit-mode Вроде работает. Единственный момент, у меня режим работы с тачскрином Const Use_touch = 1 не работает.

Отредактировано marss70 (2016-09-16 23:04:44)

0

162

Экран попался:
-3.5inch RPI Display 480[320 Pixel.
-тачскрин на XPT2046
Гугла сказала Pi用の液晶パネルはこれで使用可能になります。 :D

Код:
Raspberry Pi 液晶パネルの接続方法
 LCD0 ------ RPi
 SDI(MOSI) -- MOSI/GPIO10 _ Pin 19
 SDO(MISO) - MISO/GPIO9 __ Pin 21
 SCK ------- CLK/GPIO11 __ Pin 23
 D/C ------- GPIO24 ______ Pin 18
 RESET ----- GPIO25 ______ Pin 22
 CS -------- CE0/GPIO8 ___ Pin 24
 LED ------- 5V through 1k resistor, Pin 2
 VCC ------- 3.3V __ Pin 1
 GND ------- GND ___ Pin 6

ILI9488 480x320
ILI9486L 320x480 262K
ILI9353 ?
ILI9341 320x240
ILI9340 320x240
ILI9327 432x240
ILI9325 320x240 ILI9328

Есть у кого информация по быстрому старту с ILI9486L?
http://s3.uploads.ru/t/IDTsd.jpg
http://s2.uploads.ru/t/t83vU.jpg
На плате xpt2046
и 2шт. 74hc4094D
1шт. 74HC040D
1шт. 74HC04D

http://s7.uploads.ru/t/7gjBX.jpg

Отредактировано Ev3658 (2016-11-30 09:59:07)

0

163

Я приобрел пару таких же экранов, а теперь пытаюсь их подключить к stm32f4 discovery, пока все безрезультатно.
Пока нашел github.com/notro/fbtft/wiki/SPI-interface-circuit.
Если я правильно понял, то частота spi должна быть не менее 20MHz.

Получилось ли у Вас подключить данный дисплей?

Отредактировано Алексей78 (2017-06-07 07:31:18)

0

164

Всем привет!
Сталкивался кто с 3,5 дюйма экраном на базе контроллера HX8357C?
Вот такой вот:
http://s7.uploads.ru/t/X8Yky.jpg
http://s3.uploads.ru/t/mVDel.png

Свернутый текст

Description:

3.0 Inch TFT LCD with 262K color 480x 320 resolutions.The controller of this LCD module is HX8357C, it supports 16-wires DataBus interface.Moreover, this module includes the 5V-3.3V power conversion circuit and Level conversion circuit, This Module can Directly inserted into the Arduino Mega2560 Board ,it also includes the SD card socket and SPI FLASH circuit

Feature:

Support Arduino Mega2560 Directly inserted
With Full-angle IPS TFT panel
OnBorad level conversion chip for 5V/3.3V MCU
Compatible with 3.3/5V operation voltage level
Compatible with Arduino-Series development Board.
.(Please notice:This Screen is not touch screen)
Provided 12-examples with Arduino ,3-examples with STM32
With SD Card Socket
With SPI FLASH circuit

Parameter:

Display Type:  3.0 inch a-si TFT LCD Module
Glass Type:  TFT IPS(Full-Angle)
Display Resolution:  480 X RGB X 320 Pixels
Back light:  6 chip HighLight white LEDs
Control IC:  HX8357C
Interface:  16Bit parallel interface
PCB Module size:  89.92mm X 54.25mm
LCD Area(WxHxT):  50.74mm X 78.35mm X 1.88mm
Active Area(WxH):  67.68mm X 45.12mm

0

165

https://www.mcselec.com/index2.php?opti … mp;t=13303

+1