LCD-AG-TFT-UART TTL 800X480

[Henryk]

Witam , przedostatni lcd w mojej bazie .
Jak w temacie ciekawy wyświetlacz z komunikacją po UART TTL .
Nie sprawił mi żadnych problemow z uruchomieniem i poszło gładko .
Cała zabawa polega na przygotowaniu fotek , ikonek do wyświetlania na ekranie i załadowaniu na kartę SD .
Karta SD na pokładzie max 1GB fat 16 . Po zakupie tego typu lcd koniecznie zrobić kopię karty bo różnie bywa
Nowy wyświetlacz ma na karcie demo i aby przygotować go do normalnej pracy należy w pliku config wyłączyć demo i aktywować wysyłanie danych z panela dotykowego .
W załączniku specyfikacja z opisem jak przygotować zdjęcia na karcie .
Wesołych Świąt , pozdrawiam Henryk
Kawałek moich "wypocin "

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $regfile = "m8def.dat"
2. $crystal = 8000000
3. $hwstack = 64
4. $swstack = 64
5. $framesize = 50
6. Config Serialin = Buffered , Size = 11
7. Const _valcheck = 1
8. Dim Licznik As Byte
9. Dim Char As String * 1
10. Dim Az As String * 23
11. Dim Ax As String * 23
12. Dim Asd As String * 1
13. Dim Wartosc As String * 11
14. Dim Tekst As String * 7
15. Dim Tekst1 As String * 7
16. Dim Liczba As Word
17. Dim Liczba1 As Word
18. Dim A As Byte
19. $baud = 9600
20. Enable Interrupts
21. Wait 3
22. Licznik = 0
23. Print "CLS 31"
24. Wait 1
25. Print "PIC 1 0 0"
26. Waitms 500
27. Az = "LOAD 40 250 JPG\002.jpg"                              ' łancuch tekstowy az
28.  
29. Do
30.  
31.      Licznik = Licznik + 1
32.      Print "CLR 9 9 50 75 31"                               '31 kolor Niebieski
33.      Print "RECT 9 9 50 75 65280"
34.      Print "HZ64 12 10 65280 " ; Asd
35.  
36.    Waitms 500
37.  
38.     If Licznik = 10 Then
39.    Licznik = 0
40.    End If
41.        Asd = Str(licznik)                                   'zmienna licznik do sring asd
42.     Mid(az , 19 , 1) = Asd                                  ' podmiana asd w łancuchu az , 19 pozycja 1 znak Az="LOAD 40 250 JPG\00(ASD).jpg"
43.      Print Az
44.   If 0 < Ischarwaiting() Then
45.  
46.      For A = 1 To 11
47.      Char = Waitkey()
48.       Insertchar Wartosc , A , Char
49.          Next A
50.         Print "RECT 9 100 365 165 65280 31"
51.         Print "CLR 10 101 364 164 31"
52.         Print "HZ64 9 100 65280 " ; WARTOSC
53.         Tekst = Mid(wartosc , 5 , 3)
54.         Liczba = Val(tekst)
55.         Tekst1 = Mid(wartosc , 9 , 3)
56.         Liczba1 = Val(tekst1)
57.           Print "RECT 60 9 300 75 65280 31"
58.          Print "CLR 59 10 299 74 31"
59.          Print "HZ64 35 10 65280  " ; Liczba ; " " ; Liczba1
60.          Print "HZ48 9 175 4001 " ; "Zwrot XY z LCD"
61.  
62.         Wartosc = ""
63.         Char = ""
64.         If Liczba1 > 367 Then
65.           If Liczba1 < 407 Then
66.          Select Case Liczba
67.            Case 369 To 430 : Print "LOAD 290 360 PNG\000.png" : Print "LOAD 390 35 JPG\011.jpg"
68.            Case 458 To 522 : Print "LOAD 290 360 PNG\001.png" : Print "LOAD 390 35 JPG\012.jpg"
69.            Case 553 To 611 : Print "LOAD 290 360 PNG\002.png" : Print "LOAD 390 35 JPG\013.jpg"
70.            Case 640 To 699 : Print "LOAD 290 360 PNG\003.png" : Print "LOAD 390 35 JPG\014.jpg"
71.            Case 728 To 787 : Print "LOAD 290 360 PNG\004.png" : Print "LOAD 390 35 JPG\015.jpg"
72.          End Select
73.          End If
74.          End If
75.  
76.  
77.        If Liczba1 > 418 Then
78.          Select Case Liczba
79.            Case 368 To 430 : Print "LOAD 290 360 PNG\005.png" : Print "LOAD 390 35 JPG\016.jpg"
80.            Case 459 To 518 : Print "LOAD 290 360 PNG\006.png" : Print "LOAD 390 35 JPG\017.jpg"
81.            Case 552 To 608 : Print "LOAD 290 360 PNG\007.png" : Print "LOAD 390 35 JPG\018.jpg"
82.            Case 637 To 698 : Print "LOAD 290 360 PNG\008.png" : Print "LOAD 390 35 JPG\019.jpg"
83.            Case 730 To 789 : Print "LOAD 290 360 PNG\009.png" : Print "LOAD 390 35 JPG\020.jpg"
84.          End Select
85.          End If
86.  
87.  
88.         ' PRINT "pic 8 500 150"
89.         'Print "LOAD 290 300 PNG\00" ; Asd ; ".png"
90.   End If
91.  
92.  
93.   Loop
94.  
95.  
96. End

Krótka prezentacja działającego LCD Klik
Plików użytych w kodzie nie wstawiam bo to spory rozmiar .

UART-7.7z