Подключаем цветной графический 131x175 ЖКИ от Siemens S65 к МиниБоту — различия между версиями
EdGull (обсуждение | вклад) |
MiBBiM (обсуждение | вклад) м (ссылка на инет магазин) |
||
(не показано 7 промежуточных версий 3 участников) | |||
Строка 1: | Строка 1: | ||
− | 1. Выкладываю с позволения очень хорошего и правильного человека под ником '''Karavan''' | + | [[Категория:МиниБот]] |
+ | [[Изображение:appn1.jpg|thumb]] | ||
+ | 1. Выкладываю с позволения очень хорошего и правильного человека под ником '''Karavan''' библиотеку с примерами для цветного графического 131x175 ЖКИ '''LCD LS020''' от '''Siemens S65''' который можно приобрести вместе с МиниБотом в http://www.MiniBot.ru.<br /> | ||
Использует '''стандартные''' команды Bascom AVR Basic. <br /> | Использует '''стандартные''' команды Bascom AVR Basic. <br /> | ||
Выводит:<br /> | Выводит:<br /> | ||
Строка 11: | Строка 13: | ||
[[Медиа:Test_Lcd-siemens_s65_ls020.rar]]<br /> | [[Медиа:Test_Lcd-siemens_s65_ls020.rar]]<br /> | ||
[[Изображение:Pins LCD.JPG|thumb]] | [[Изображение:Pins LCD.JPG|thumb]] | ||
− | 2. Распиновка цветного графического 131x175 ЖКИ '''LCD LS020''' от '''Siemens S65'''<br /> | + | '''2. Распиновка цветного графического 131x175 ЖКИ '''LCD LS020''' от '''Siemens S65''''''<br /> |
--- на выводы 2.9В и 1.8В подаем бортовое пинтание МиниБота, а именно 3.3В <br /> | --- на выводы 2.9В и 1.8В подаем бортовое пинтание МиниБота, а именно 3.3В <br /> | ||
--- выводы подсветки отсавляем не подкюченными<br /> | --- выводы подсветки отсавляем не подкюченными<br /> | ||
Строка 19: | Строка 21: | ||
|- | |- | ||
! Пин ЖКИ | ! Пин ЖКИ | ||
− | |||
! Пин разъема МиниБота | ! Пин разъема МиниБота | ||
|- | |- | ||
| RS | | RS | ||
− | |||
| 4 | | 4 | ||
|- | |- | ||
| Reset | | Reset | ||
− | |||
| 5 | | 5 | ||
|- | |- | ||
| CS | | CS | ||
− | |||
| 6 | | 6 | ||
|- | |- | ||
| CLK | | CLK | ||
− | |||
| 8 | | 8 | ||
|- | |- | ||
| DAT | | DAT | ||
− | |||
| 9 | | 9 | ||
|- | |- | ||
| 2.9V & 1.8V | | 2.9V & 1.8V | ||
− | |||
| 2 | | 2 | ||
|- | |- | ||
− | |||
| GND | | GND | ||
| 1 | | 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]] |
Текущая версия на 09:10, 6 января 2009
1. Выкладываю с позволения очень хорошего и правильного человека под ником Karavan библиотеку с примерами для цветного графического 131x175 ЖКИ LCD LS020 от Siemens S65 который можно приобрести вместе с МиниБотом в http://www.MiniBot.ru.
Использует стандартные команды Bascom AVR Basic.
Выводит:
точки
линии
окружности
текст в т.ч. и русский
картинки
прямоугольники (заполненные произвольным цветом).
стирает командой CLS чёрным цветом. Минус: цвет 8-битный.
Медиа:Test_Lcd-siemens_s65_ls020.rar
'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. Теперь нужно внести 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