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

[[Категория:МиниБот]]
[[Изображение:appn1.jpg|thumb]]
1. Выкладываю с позволения очень хорошего и правильного человека под ником '''Karavan''' библиотеку с примерами для цветного графического 131x175 ЖКИ '''LCD LS020''' от '''Siemens S65''' который можно приобрести вместе с МиниБотом в http://minibot.webasyst.net/shop/.<br />
Использует '''стандартные''' команды Bascom AVR Basic. <br />
Выводит:<br />
'''точки'''<br />
'''линии'''<br />
'''окружности'''<br />
'''текст''' в т.ч. и '''русский'''<br />
'''картинки'''<br />
'''прямоугольники''' (заполненные произвольным цветом).<br />
стирает командой CLS чёрным цветом. Минус: цвет 8-битный.<br />
[[Медиа:Test_Lcd-siemens_s65_ls020.rar]]<br />
[[Изображение:Pins LCD.JPG|thumb]]
'''2. Распиновка цветного графического 131x175 ЖКИ '''LCD LS020''' от '''Siemens S65''''''<br />
--- на выводы 2.9В и 1.8В подаем бортовое пинтание МиниБота, а именно 3.3В <br />
--- выводы подсветки отсавляем не подкюченными<br />
--- остальные выводы подключаем согласно конфигурации в васике, а именно следующим порядком: <br />

{| class="wikitable"
|-
! Пин ЖКИ
! Порт Меги32
! Пин разъема МиниБота
|-
| RS
| PortB.4
| 4
|-
| Reset
| PortB.5
| 5
|-
| CS
| PortB.6
| 6
|-
| CLK
| PortB.7
| 8
|-
| DAT
| PortB.5
| 9
|-
| 2.9V & 1.8V
| 3.3V
| 2
|-
| GND
| GND
| 1
|}
[[Изображение:3.1-3.2.jpg|thumb]]
[[Изображение:3.3.jpg|thumb]]
'''3. Теперь нужно внести 3 изменения в схему МиниБота'''<br />
--- 3.1 выпаять два резистора<br />
--- 3.2 впаять первую перемычку<br />
--- 3.3 впаять вторую перемычку<br />
'''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]]