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

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

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

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


Вы здесь » Программирование ATMEL в BASCOM. » Исходники » LCD LS020 от Siemens S65


LCD LS020 от Siemens S65

Сообщений 121 страница 150 из 188

121

понял большое спасибо

0

122

Не за что.

0

123

странно в протеусе запускал постоянно идут данные FF

0

124

Я проверяю все в железе.

0

125

так в железе не пошло решил протеусом проверить, просто диспл никак не риагирует кто его знает кда копать

0

126

Не знаю, у меня все с первого раза пошло.

0

127

Вообще я собрал такой модуль, плата и схема здесь.

0

128

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

Все вопросы по библиотеке к Karavan-у.

0

129

ну я понял я же для него и оставил тут вопрос

0

130

Лучше в личку, так быстрее будет.

0

131

Вставлю и свои пять копеек. Собрал второй девайсик на Сименсе 65. Первый все окей. Во втором непонятки. Картинки есть, окружности есть,
квадратики там всякие все хорошо. А со шрифтами проблемма. Я уже и так, я уже и сяк. Поигрался с библиотекой. Один черт со шрифтами никак. Дай думаю попробую хехс прописать на первый девайс. Чудо -  все нормально. Оказывается сам дисплей кривой. Вот такие бывают приколы.

0

132

Если версия баскома новее, чем 9.8, то может не работать, так как в более поздних изменен синтаксис внутри библиотек. Как правило в таких случаях выдаётся ошибка компиляции. Но иногда просто неверно компилирует и не работает без предупреждений об ошибке.

0

133

И у меня такое было.

0

134

Библиотека ни на одной версии Баскома из имеющихся (1.11.9.0/ 1.11.9.8/ 2.0.5.0) не пошла, скорее всего не проходит инициализация

Код:
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 19200

$lib "LCD-SIEMENS_S65_LS020_256_W1.LBX"

Config Graphlcd = Color , Controlport = Portd , Cs = 2 , Rs = 4 , Scl = 3 , Sda = 0 , Reset = 5

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 Violett = 199
Const Brown = 192

Do

Box(0 , 0) -(131 , 176) , Blue
Wait 1
Box(0 , 0) -(131 , 176) , Yellow
Wait 1
Box(0 , 0) -(131 , 176) , Red
Wait 1
Box(0 , 0) -(131 , 176) , Green
Wait 1
Box(0 , 0) -(131 , 176) , Black
Wait 1
Box(0 , 0) -(131 , 176) , White
Wait 1
Box(0 , 0) -(131 , 176) , Brightgreen
Wait 1
Box(0 , 0) -(131 , 176) , Darkgreen
Wait 1
Box(0 , 0) -(131 , 176) , Darkred
Wait 1
Box(0 , 0) -(131 , 176) , Darkblue
Wait 1
Box(0 , 0) -(131 , 176) , Brightblue
Wait 1
Box(0 , 0) -(131 , 176) , Orange
Wait 1
Box(0 , 0) -(131 , 176) , Violett
Wait 1
Box(0 , 0) -(131 , 176) , Brown
Wait 1

Loop
End

0

135

Есть у кого готовый рабочий пример под мегу8 на LS020?

0

136

По моему проще взять другой МК.

0

137

В пакете, который я загрузил на форум есть всё, что нужно. Всё проверялось на реальном железе и работало. Открой библиотеку в текстовом редакторе. Коды инициализации там представлены в явном виде. Сравни их с теми которые ты вводишь вручную. Совпадают - должно работать. Удачи!

0

138

Фьюз-биты могут повлиять на работу библиотеки?

0

139

Фьюзы влияют на работу МК в целом.

0

140

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

Фьюз-биты могут повлиять на работу библиотеки?

Разумеется могут, если активируется ненужная в данный момент функция вывода.

0

141

Вот мои фьюзы
http://s2.uploads.ru/t/et67L.png
хотя когда я пишу вручную инициализацию все работает

Отредактировано thorus (2013-03-12 12:34:50)

0

142

Для внутреннего генератора на 8 МГц у меня такие:
http://s2.uploads.ru/t/oz0Qj.png

0

143

какая версия баскома?

0

144

Есть еще LPH8694 пробовал кто то?

0

145

Напиши инициализацию которая у тебя проходит. На досуге посмотрю что там не так.

0

146

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

какая версия баскома?

2.0.7.1

0

147

Код:
Init:
Data &HFD , &HEF , &H00 , &HEE , &H04 , &H1B , &H04 , &HFE , &HFE , &HFE , &HFE
Data &HEF , &H90 , &H4A , &H04 , &H7F , &H3F , &HEE , &H04 , &H43 , &H06 , &HEF
Data &H90 , &H09 , &H83 , &H08 , &H00 , &H0B , &HAF , &H0A , &H00 , &H05 , &H00
Data &H06 , &H00 , &H07 , &H00 , &HEF , &H00 , &HEE , &H0C , &HEF , &H90 , &H00
Data &H80 , &HEF , &HB0 , &H49 , &H02 , &HEF , &H00 , &H7F , &H01 , &HE1 , &H81
Data &HE2 , &H02 , &HE2 , &H76 , &HE1 , &H83 , &H80 , &H01 , &HEF , &H90 , &H00
Data &H00 , &HE8 , &H00 , &H05 , &H04 , &H0A , &H00 , &H0B , &HAF , &H08 , &H00
Data &H09 , &H83

первый &hFD  повторяется 4 раза
еще там стоит задержка в 700 мкс после каждой отосланной команды

Отредактировано thorus (2013-03-12 13:01:05)

0

148

Приведу код целиком

Код:
$regfile = "m8def.dat"
$crystal = 8000000
Dim A As Byte
Dim R As Xram Byte , X As Byte , I As Byte , Z As Byte , Y As Byte , B(30) As Byte
Config Portd.4 = Output , Portd.5 = Output , Portd.7 = Output


Config Spi = Soft , Din = Pind.1 , Dout = Portd.0 , Ss = Portd.2 , Clock = Portd.3
Spiinit
Portd.5 = 0                           'RESET
Waitms 200
Portd.5 = 1                           'off RESET
Portd.4 = 1                           ' command/data


Restore Init
Read A
For I = 1 To 4
Spiout A , 1
Next I

For I = 1 To 78
Read A
Waitus 700
Spiout A , 1
Next I
I = 0
R = &HFF
Portd.4 = 0
For Y = 1 To 132
For X = 1 To 176
Spiout R , 1


Next X
Next Y

Y = 10

Zer:
X = 10
Z = 0
Restore Aa
Razv:
Portd.4 = 1
'выделение области под символы
A = &HEF
Spiout A , 1
A = &H90
Spiout A , 1
A = &H05
Spiout A , 1
A = &H00
Spiout A , 1
A = &H08
Spiout A , 1
A = X                                                       'X1
Spiout A , 1
A = &H09
Spiout A , 1
A = X + 4                                                   'X2
Spiout A , 1
A = &H0A
Spiout A , 1
A = Y                                                       'Y1
Spiout A , 1
A = &H0B
Spiout A , 1
A = Y + 5                                                   'Y2
Spiout A , 1

Portd.4 = 0


If Z = 19 Then Y = Y + 8
If Z = 19 Then Goto Zer
If Y > 120 Then End

For I = 1 To 30
Read B(i)
Spiout B(i) , 1
Next I
X = X + 6
Z = Z + 1
Goto Razv

End

Init:
Data &HFD , &HEF , &H00 , &HEE , &H04 , &H1B , &H04 , &HFE , &HFE , &HFE , &HFE
Data &HEF , &H90 , &H4A , &H04 , &H7F , &H3F , &HEE , &H04 , &H43 , &H06 , &HEF
Data &H90 , &H09 , &H83 , &H08 , &H00 , &H0B , &HAF , &H0A , &H00 , &H05 , &H00
Data &H06 , &H00 , &H07 , &H00 , &HEF , &H00 , &HEE , &H0C , &HEF , &H90 , &H00
Data &H80 , &HEF , &HB0 , &H49 , &H02 , &HEF , &H00 , &H7F , &H01 , &HE1 , &H81
Data &HE2 , &H02 , &HE2 , &H76 , &HE1 , &H83 , &H80 , &H01 , &HEF , &H90 , &H00
Data &H00 , &HE8 , &H00 , &H05 , &H04 , &H0A , &H00 , &H0B , &HAF , &H08 , &H00
Data &H09 , &H83





Aa:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00

Bb:
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF

Cc:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &HFF , &H00 , &H00 , &H00 , &HFF

Dd:
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF

Ee:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &H00 , &H00 , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &H00 , &H00 , &H00 , &H00

Ff:
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &H00 , &H00 , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF

Gg:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &HFF , &H00 , &H00 , &H00 , &HFF

Hh:
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00

Ii:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &H00 , &H00 , &H00 , &HFF

Jj:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &HFF , &H00 , &HFF , &HFF
Data &HFF , &H00 , &HFF , &HFF , &HFF

Kk:
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00

Ll:
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &H00 , &H00 , &H00 , &H00

Mm:
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &HFF , &H00 , &H00
Data &H00 , &HFF , &H00 , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00

Nn:
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &HFF , &HFF , &H00
Data &H00 , &HFF , &H00 , &HFF , &H00
Data &H00 , &HFF , &HFF , &H00 , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00

Oo:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &HFF , &H00 , &H00 , &H00 , &HFF

Pp:
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF
Data &H00 , &HFF , &HFF , &HFF , &HFF

Qq:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &H00 , &H00 , &H00
Data &HFF , &H00 , &H00 , &H00 , &H00

Rr:
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00

Ss:
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &HFF , &H00 , &H00 , &H00 , &HFF
Data &HFF , &HFF , &HFF , &HFF , &H00
Data &H00 , &HFF , &HFF , &HFF , &H00
Data &HFF , &H00 , &H00 , &H00 , &HFF

Отредактировано thorus (2013-03-12 13:05:25)

0

149

Ок. Сейчас некогда. Позже отпишусь.

0

150

ок спасибо большое
И еще там есть xRAM в объявлении переменной не обращайте внимание его можно убрать)

Отредактировано thorus (2013-03-12 13:17:47)

0


Вы здесь » Программирование ATMEL в BASCOM. » Исходники » LCD LS020 от Siemens S65