Подключаем цветной графический 131x175 ЖКИ от Siemens S65 к МиниБоту

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
Appn1.jpg

1. Выкладываю с позволения очень хорошего и правильного человека под ником Karavan библиотеку с примерами для цветного графического 131x175 ЖКИ LCD LS020 от Siemens S65 который можно приобрести вместе с МиниБотом в http://www.MiniBot.ru.
Использует стандартные команды Bascom AVR Basic.
Выводит:
точки
линии
окружности
текст в т.ч. и русский
картинки
прямоугольники (заполненные произвольным цветом).
стирает командой CLS чёрным цветом. Минус: цвет 8-битный.
Медиа:Test_Lcd-siemens_s65_ls020.rar

Pins LCD.JPG

'2. Распиновка цветного графического 131x175 ЖКИ LCD LS020 от Siemens S65'
--- на выводы 2.9В и 1.8В подаем бортовое пинтание МиниБота, а именно 3.3В
--- выводы подсветки отсавляем не подкюченными
--- остальные выводы подключаем согласно конфигурации в васике, а именно следующим порядком:

Пин ЖКИ Пин разъема МиниБота
RS 4
Reset 5
CS 6
CLK 8
DAT 9
2.9V & 1.8V 2
GND 1
3.1-3.2.jpg
3.3.jpg

3. Теперь нужно внести 3 изменения в схему МиниБота
--- 3.1 выпаять два резистора
--- 3.2 впаять первую перемычку
--- 3.3 впаять вторую перемычку
4. Собственно весь код <source lang="vb"> $hwstack = 128 $swstack = 128 $framesize = 128

$regfile = "m32def.Dat" $crystal = 8000000 $baud = 1200

$include "LCD_Siemens_S65.cfg"

Config Adc = Single , Prescaler = Auto , Reference = Internal Dim W As Word , J As Single

Cls Box(0 , 0) ,(176 , 131) , White

Do

  Lcdat 1 , 0 , "MiniBot спецом" , Blue , White
  Lcdat 8 , 0 , "для Roboforum.ru" , Blue , White
  Start Adc : W = Getadc(7) : Stop Adc : J = W / 400 : J = J * 2
  Lcdat 16 , 0 , "Akb=" ; J , 0 , 255
  Lcdat 24 , 0 , "4" , Blue , White
  Lcdat 32 , 0 , "5" , Blue , White
  Lcdat 40 , 0 , "6" , Blue , White
  Lcdat 48 , 0 , "7" , Blue , White
  Lcdat 56 , 0 , "8" , Blue , White
  Lcdat 64 , 0 , "9" , Blue , White
  Lcdat 72 , 0 , "10" , Blue , White
  Lcdat 80 , 0 , "11" , Blue , White
  Lcdat 88 , 0 , "12" , Blue , White
  Lcdat 96 , 0 , "13" , Blue , White
  Lcdat 104 , 0 , "14" , Blue , White
  Lcdat 112 , 0 , "15" , Blue , White
  Lcdat 120 , 0 , "16" , Blue , White
  Lcdat 128 , 0 , "17" , Blue , White
  Lcdat 136 , 0 , "18" , Blue , White
  Lcdat 142 , 0 , "19" , Blue , White
  Lcdat 150 , 0 , "20" , Blue , White
  Lcdat 158 , 0 , "21" , Blue , White
  Lcdat 166 , 0 , "22" , Blue , White
  Wait 1

Loop

</source>

5. архив с всеми необходимыми файлами и библиотеками Медиа:MINIBOT LCD-SIEMENS_S65_LS020.rar