Просмотр исходного текста страницы Подключаем цветной графический 96х65 пикселей, 4096 цветов ЖКИ от Nokia 3510i к МиниБоту

[[Категория:МиниБот]]
[[Изображение:3510i.jpg|thumb|100px|left]]
* Даташит - [[Медиа:S1D15G14.pdf]]
* Описание подключения - http://sandiding.tripod.com/ni3510.html
<br clear="both" />
Формат цвета - RRRGGBB. В библиотеке есть небольшой баг - при использовании функции '''Pset''' координатная сетка сдвигается на один пиксель вниз-вправо, поэтому необходимо вычитание единицы из обоих её аргументов; остальные функции работают согласно документации.<br />
Приведенный пример программы печатает на дисплее всё, что принимает из уарта.
<source lang="vb">
$regfile = "m32DEF.dat"
$crystal = 7372800                                          
$baud = 115200
$hwstack = 128
$swstack = 128
$framesize = 128
Config Serialin = Buffered , Size = 20

$lib "nokialcd.lbx"               ' библиотека

' соответствие пинам меги
Config Graphlcd = Color , Controlport = Portc , Rs = 4 , Cs = 5 , Scl = 7 , Sda = 6 

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 Font_height = 8             ' высота шрифта и дисплея 
Const Display_height = 67
Setfont Color_exo                 ' устанавливаем шрифт

Cls                               ' очищаем дисплей
Enable Interrupts

Dim S As String * 20
Dim Y_pos As Byte
Y_pos = 0
Do
   Input S, Noecho
   ' ставим пиксель-фонарик в место, куда будет записана строка - точку (1, Y_Pos)
   Pset -1, Y_pos-1, Red
   ' запись строки S в позицию (3, Y_Pos) экрана,
   ' цвет шрифта - черный, цвет рамки - белый
   Lcdat Y_pos , 3 , S , Black , White    
   

   Y_pos = Y_pos + Font_height           ' делаем перенос строки
   Y_pos = Y_pos + Font_height
   If Y_pos > Display_height Then
      Y_pos = 0
      Cls
   Else
      Y_pos = Y_pos - Font_height
   End If
Loop

$include "Color_exoRus.font"   ' подключаем файл со шрифтом
</source>
Необходимые файлы: <br />
* Библиотека '''nokialcd.lbx''': [[Медиа:Color_exoRus.rar‎]]
* Шрифт 8*8 '''Color_exoRus.font''': [[Медиа:Nokialcd.rar‎]]
'''Этот ЖКИ можно приобрести в http://www.MiniBot.ru'''