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

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

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

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



3.2" TFT LCD

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

31

Да ну... AVR ISP льет секунд 6 прошивку с верификацией на мегу8.

0

32

Уважаемый Skull!
Спорить не стану, но спрошу - не пробовали программатором зашить 128 или 256 Мегу?
Собственно, и отказался - то от использования программатора (в большинстве случаев) только по этой причине.
Да, и просто это - дело вкуса, Как кому нравится, но на этапе отладки, загрузчик, на мой взгляд, удобнее.

0

33

Пробовал, если кварц стоит выше 4 мГц, то недолго , до 10 сек на макс скорости 1,8 мГц мега 128.

0

34

Вот, уже здоровый спор разгорелся :D
Только одно забыли, заливка идёт через разные интерфейсы.
И в случае с программатором частоту выставляет он и от кварца CPU здесь
мало что зависит. Разве что если у проца очень низкая частото и не каждый
программатор может его залить.  А в случае с загрузчиком скорость обмена
устанавливаете вы сами, задавая скорость USART.
И по теме, кто нибудь использовал Алгоритм Брезенхе́ма на бейсике, что то
наклонные не идут.

0

35

alex_r61 -- я с удовольствием купил-бы саму печатку. без элементов. Но где купить не знаю. Прошерстил ebay там только готовые (собранные ) платы ARDUINO. Если Вы покупали сами печатки, подскажите адресс.

0

36

Посмотрите здесь, по моему встречались.

0

37

Сам не покупал, нет смысла. Ну вот пример
http://rutaobao.com/pages/item_detail.aspx?ItemId=wTGWPjaiCUmvcesfp/wzVw==&Nick=itead
С этого сайта заказывал.

0

38

По-моему, все -таки, дешевле купить готовую Ардиину.
По ссылке alex_r61, плата стоит 10 долларов + FT232RL (160 рублей=5 долларов) + ATmega1280 (около 200 рублей = 6 долларов) уже всего 21 доллар. Я покупал на ebay, какое - то время  назад,  Ардуину на 1280 за 23 доллара. Ждать, правда, особенно последнее время, долго приходится.
И еще момент такой - те Ардуины, которые используют FT232RL (обычно на Мега1280), легко прошиваются прямо из Bascom, а те, которые используют атмеловский контроллер на входе, не помню сейчас какой, уже не так просто заливаются из Bascom. Но и эта проблем достаточно легко обходится.

0

39

За 21 доллар его можно собрать и еще на пиво останется ))

Вот Ардуино на меге 8
http://diy-blog.net/kak-sdelat-arduino-svoimi-rukami/
Вот 168
http://cxem.net/arduino/arduino61.php

Думаю, и побольше найти при желании можно. Я например, считаю, что просто хороший маркетинговый ход- удобство, чтобы не шевелить ленивому юзеру клешнями, и сторонник вот такого мнения про ардуину :
http://habrahabr.ru/post/146489/

PS На Ардуино.ру лежат все необходимые файлы плат (в формате Eagle) и схемы к ним, также прошивки бутов.

Отредактировано Skull (2013-01-28 18:13:27)

0

40

Skull написал(а):

чтобы не шевелить ленивому юзеру клешнями, и сторонник вот такого мнения про ардуину :

Статья ни о чём, большой дядя зашёл в детсад и начал всё критиковать и всех учить...
Есть те кому больше нравиться с железом возиться, а другим программировать.
Ещё есть любители, а есть профи. Каждому своё, и спорить можно до хрипоты.
Ну и по теме, дисплей я кажись добил реально. Линии рисует а текст только в одной половине экрана.
Так что жду следующий.

0

41

alex_r61!
А можно увидеть Ваш код, особенно, работу с тачскрином?
Там какой контроллер тачскрина стоит реально?
По поводу дисплея не расстраивайтесь, я их тоже много пожег...
А по первому вашему замечания, скажу так - просто человек не слышит никого кроме себя.
Мне много лет и заниматься перепалкой по электронной почте  нет времени. Есть много других куда более интересных занятий.

0

42

У меня в дисплее стоит контроллер xtp2046, у него есть аналог ads7846.
А дисплей я не сжёг, а с регистрами что то намутил. Вот как это восстановить?
Рабочие исходники для тачскрина у меня пока на С. Как перепишу выложу.

0

43

Короче дурка полная, кого больше повело меня или китайца?  :tired:
При выводе на полный экран справа мусор, при выводе в окно нормально.
Да и тач немного "мусорит".

0

44

alex_r61!
Размер и расположение окна?
Ориентация дисплея?

0

45

Ориентация дисплея - портрет. На видео при выводе начального сообщения мусор.
В меню разбил на зоны пока нормально.
http://www.youtube.com/watch?v=Am1dSwEw … e=youtu.be

0

46

Народ, а с кем можно заколхозиться на покупку такого же диспа ??

0

47

alex_r61!
Вы - молодец!
Я такой же дисплей тоже запустил, только вот с интерфейсом таким же красивым, как у Вас, не получается!
Может быть, исходниками поделитесь?
Этот же контроллер стоит в одной из модификаций КИТАЙСКОЙ Nokia N95, именно, китайской!
На шлейфе у этого  дисплея маркировка - TFT8K0594FPC-A2-E, только у него нет контроллера тача, сам тач имеется.
Но эти же (как в ролике) дисплеи есть на eBay, стоят порядка 12-14 долларов

Отредактировано forter (2013-02-02 14:14:02)

0

48

Ребята, а случайно вот тут :  http://members.home.nl/bzijlstra/softwa … li9325.htm  не такой же дисплейчик ??

2.4" TFT LCD Screen Module: ITDB02-2.4

http://members.home.nl/hobbycorner/images/ili9325_displ.jpg

Отредактировано Skull (2013-02-03 01:15:56)

0

49

Нет другой контроллер, я себе такой тоже заказал.
Сейчас на бейсике мормально реализованы прямоугольники с
закраской и без, и с закруглёнными углами. Из них меню и строиться.
Горизонтальные и вертикальные линии. А вот с наклоном слегка завяз.
И шрифт не очень устраивает. И DOS надо "допилить".

P.S. у меня ITDB02-3.2S

Отредактировано alex_r61 (2013-02-03 01:32:39)

0

50

Skull!
В этом дисплее контроллер iLi9325, хорошая штука, только его почему - то заменяют на другой (S6D1121), хотя и пишут, что это  iLi9325!
Я уже натолкнулся на такой дисплей, написано один, а реально - другой контроллер и платы похожие как две капли воды. Столько времени убил, хотел даже выбросить, но Интернет помог!

0

51

Надо заводить RD на контроллер и читать его тип.

0

52

forter написал(а):

Этот же контроллер стоит в одной из модификаций КИТАЙСКОЙ Nokia N95, именно, китайской!


А вот это не такой ? А то руки чешутся ))
http://gsmserver.com.ua/shop/spares/lcd … 37_pin.php
http://gsmserver.com.ua/shop/spares/lcd … 8k0023.php

Отредактировано Skull (2013-02-03 01:41:45)

0

53

Я бы за таким не гонялся, на форумах есть по ним темы, и не у всех они заводятся.

0

54

Дешево и сердито вроде ) А ссылки дадите на исходники на  такие диспы ?

Отредактировано Skull (2013-02-03 01:54:23)

0

55

Сначала брал здесь http://devicter.ru/catalog/elementy-tft
Сейчас заказал из Китая.
Ксати о "птичках". В дисплеях 2'4 стоит S6D1121,
а в 2'8 - ili9325.

http://imall.iteadstudio.com/display/tft-lcm.html
А это окуда они приходят, там и исходники, но под Arduino.

Отредактировано alex_r61 (2013-02-03 02:00:37)

0

56

alex_r61 написал(а):

Ориентация дисплея - портрет. На видео при выводе начального сообщения мусор.
В меню разбил на зоны пока нормально.
http://www.youtube.com/watch?v=Am1dSwEw … e=youtu.be


Здравствуйте, уважаемый!
Можно ли попросить вас поделится исходниками для этого дисплея?

0

57

Это основные процедуры.

Код:
Sub Write_command(byval Cmd As Word)
   Rs = 0
   Porta = High(cmd)
   Portc = Low(cmd)
   Wr = 0
   Wr = 1
End Sub

Sub Write_data(byval Ldata As Word)
   Rs = 1
   Porta = High(ldata)
   Portc = Low(ldata)
   Wr = 0
   Wr = 1
End Sub

Sub Write_command_data(byval Cmd As Word , Byval Ldata As Word)
   Call Write_command(cmd)
   Call Write_data(ldata)
End Sub

Sub Lcd_init(byval Orientation As Byte)

   Orient = Orientation
   Config Rs = Output
   Config Wr = Output
   Config Cs = Output
   Config Rst = Output
   Config Rd = Output
   Ddra = $ff
   Ddrc = $ff

   Rst = 1
   Waitms 15
   Rst = 0
   Waitms 15

   Wr = 1
   Cs = 1
   Rst = 1
   Rd = 1
   Waitms 20
   Cs = 0

   Call Write_command_data(&H0000 , &H0001)
   Call Write_command_data(&H0003 , &HA8A4)
   Call Write_command_data(&H000c , &H0000)
   Call Write_command_data(&H000d , &H080C)
   Call Write_command_data(&H000e , &H2B00)
   Call Write_command_data(&H001e , &H00B7)
   Call Write_command_data(&H0001 , &H2B3F)
   Call Write_command_data(&H0002 , &H0600)
   Call Write_command_data(&H0010 , &H0000)
   Call Write_command_data(&H0011 , &H6070)
   Call Write_command_data(&H0005 , &H0000)
   Call Write_command_data(&H0006 , &H0000)
   Call Write_command_data(&H0016 , &HEF1C)
   Call Write_command_data(&H0017 , &H0003)
   Call Write_command_data(&H0007 , &H0233)
   Call Write_command_data(&H000b , &H0000)
   Call Write_command_data(&H000f , &H0000)
   Call Write_command_data(&H0041 , &H0000)
   Call Write_command_data(&H0042 , &H0000)
   Call Write_command_data(&H0048 , &H0000)
   Call Write_command_data(&H0049 , &H013F)
   Call Write_command_data(&H004a , &H0000)
   Call Write_command_data(&H004b , &H0000)
   Call Write_command_data(&H0044 , &HEF00)
   Call Write_command_data(&H0045 , &H0000)
   Call Write_command_data(&H0046 , &H013F)
   Call Write_command_data(&H0030 , &H0707)
   Call Write_command_data(&H0031 , &H0204)
   Call Write_command_data(&H0032 , &H0204)
   Call Write_command_data(&H0033 , &H0502)
   Call Write_command_data(&H0034 , &H0507)
   Call Write_command_data(&H0035 , &H0204)
   Call Write_command_data(&H0036 , &H0204)
   Call Write_command_data(&H0037 , &H0502)
   Call Write_command_data(&H003a , &H0302)
   Call Write_command_data(&H003b , &H0302)
   Call Write_command_data(&H0023 , &H0000)
   Call Write_command_data(&H0024 , &H0000)
   Call Write_command_data(&H0025 , &H8000)
   Call Write_command_data(&H004f , &H0000)
   Call Write_command_data(&H004e , &H0000)
   Call Write_command(&H0022)
   Cs = 1

   My_inc = Black
   My_paper = White
End Sub

Sub Set_xy(byval X1 As Word , Byval Y1 As Word , Byval X2 As Word , Byval Y2 As Word)
Local I As Word , J As Word , Temp As Word

   If Orient = Landscape Then
     Temp = X1
     X1 = Y1
     Y1 = Disp_y_size - Temp
     Temp = X2
     X2 = Y2
     Y2 = Disp_y_size - Temp
     Swap Y1 , Y2
   End If

   I = X2
   Shift I , Left , 8
   J = I + X1
   Call Write_command_data(&H0044 , J)                      ' Horizontal RAM address position
   Call Write_command_data(&H0045 , Y1)                     ' Vertical RAM address start position
   Call Write_command_data(&H0046 , Y2)                     ' Vertical RAM address end position
   Call Write_command_data(&H004e , X1)                     ' Set GDDRAM X address counter
   Call Write_command_data(&H004f , Y1)                     ' Set GDDRAM Y address counter
   Call Write_command(&H0022)
End Sub

Остальное выложу как приведу в нормальный вид.
И ещё вопрос, как лучше указывать координаты x1,y1,x2,y2 или x1,y1,длина x,длина y.
Никак не определюсь.

0

58

alex_r61 написал(а):

И ещё вопрос, как лучше указывать координаты x1,y1,x2,y2 или x1,y1,длина x,длина y.
Никак не определюсь.


Поясните, что значит, как лучше указывать?

Отредактировано forter (2013-02-15 22:59:58)

0

59

Нашёл одну странность функция Sub Set_xy(byval X1 As Word , Byval Y1 As Word , Byval X2 As Word , Byval Y2 As Word)
с линиями работает неправильно,  рисуются только горизонтальные линии.
А если указываю Dim X_st As Word , X_end As Word , Y_st As Word , Y_end As Word как глобальные, то тогда нормально.

Код:
Sub Set_xy()
Local I As Word , J As Word , Temp As Word

   If Orient = Landscape Then
     Temp = X_st
     X_st = Y_st
     Y_st = Disp_y_size - Temp
     Temp = X_end
     X_end = Y_end
     Y_end = Disp_y_size - Temp
     Swap Y_st , Y_end
   End If

   I = X_end
   Shift I , Left , 8
   J = I + X_st
   Call Write_command_data(&H0044 , J)                      ' Horizontal RAM address position
   Call Write_command_data(&H0045 , Y_st)                   ' Vertical RAM address start position
   Call Write_command_data(&H0046 , Y_end)                  ' Vertical RAM address end position
   Call Write_command_data(&H004e , X_st)                   ' Set GDDRAM X address counter
   Call Write_command_data(&H004f , Y_st)                   ' Set GDDRAM Y address counter
   Call Write_command(&H0022)
End Sub

forter, можете это проверить.

0

60

Попробуйте скомпилировать в другой версии Bascom, очень похоже, что я с этим сталкивался.
Но точно не помню, как вышел из этого положения.

0