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

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

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

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


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


LCD LS020 от Siemens S65

Сообщений 91 страница 120 из 188

91

Странно

0

92

А какой версией компилируешь?

0

93

1.11.9.8

У меня подозрение, что MEGA странно работает.

0

94

попробуй версией 1.11.9.0

+1

95

Karavan

Помогло! Спасибо!

Уважение +1

0

96

Не за что. Удачи.

0

97

Вопрос о ресете дисплея. В мануале от Christian Kranz (октябрь 2005)  говорится что специальная команда для сброса дисплея неизвестна. Чтобы продлить жизнь дисплею автор предлагает делать ресет, затем отключать питание. Кто может подсказать ресет дисплея или, может быть, уже команда выключения дисплея известна??

0

98

Всем привет!!! Всех кто может мне помочь - Есть GPS навигатор(Схема, исх. код на Bascome) но вот беда в нем используется LCD-EA DOGM128W-6. Хотелось бы переписать под LCD Nokia 6100 или simens S65- это реально сделать или нет. Пробовал сам но не получается!!! Пожалуйста помогите.......

0

99

сначала б глянуть исходник..

0

100

Подскажите, а для LPH8836 есть библиотека? А то в наличии только дисплей с данным контроллером.

0

101

У меня нет.

0

102

Запустил LS020 привожу свой топорный код инициализация + заполнение экрана

Код:
$regfile = "m8def.dat"
$crystal = 8000000
Dim A As Byte
Dim R As Byte , G As Byte , I As Byte
Config Portd.4 = Output , Portd.5 = Output


Config Spi = Soft , Din = Pind.0 , Dout = Portd.1 , Ss = Portd.2 , Clock = Portd.3
Spiinit
Portd.5 = 0
Waitms 200
Portd.5 = 1
Portd.4 = 1

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
R = &HFF
'переход в режим передачи данных
Portd.4 = 0
'заполнение экрана пикселями после шума
For I = 1 To 176
For G = 1 To 132
 'задержка для более видимого заполнения экрана
Waitms 1
Spiout R , 1
Next G
Next I
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

0

103

Всем добрый день, надеюсь форум еще жив, как использовать библиотеку, точнее какие команды прописывать чтоб допустим написать тот же текст, а то инфы толком не нашел, спс всем

0

104

Первое сообщение темы:

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

Использует стандартные команды Bascoma.

0

105

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

0

106

и кстати брл ваш пример

Код:
$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 = 1 , 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

только подставил свою мег и порты поменял
Вот только не вижу тут команды инициализации

Отредактировано thorus (2013-03-08 18:05:30)

0

107

Все таки форум умер

так оживите: никто за вас делать вашу работу не станет
если у кого совпали с вами интересы - вам повезло
а так у всех своих дел хватает...
модератор

Отредактировано Александр Д. (2013-03-08 20:12:08)

-1

108

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

Все таки форум умер

Если сразу не ответили, это не значит что форум умер. У каждого есть свои дела, а сегодня как ни как праздник.

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

Вот только не вижу тут команды инициализации

Значит эта команда в библиотеке, у меня все работает нормально.
Если есть вопросы по библиотеке, то лучше связаться с ее автором.

0

109

можете пожалуйста  написать рабочий примерчик, а то с библиотекой не хочет работать, экран пуст даже не знаю инициализация прошла или нет, вручную написанные примеры без библиотеки работают

0

110

Сейчас посмотрю.

0

111

И ещ забыл спросить, библиотека работает и с программным spi и с вшитым?

0

112

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

И ещ забыл спросить, библиотека работает и с программным spi и с вшитым?

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

0

113

спс что уделили время, и тут провал тот пример отказывается компилироваться выдает ошибку

0

114

Что за ошибка?

0

115

error 344 program will overwrite bootloader [10982 too long]

Отредактировано thorus (2013-03-08 20:56:17)

0

116

да и hex создался размером 53 кБ я его в мегу8 никак не запхну)

0

117

Все нормально, так и должно быть. Этот пример влезет только минимум в М32 или М328.

0

118

придется тогда с примером мудрить резать и пытаться запускать на меге8, других мег просто нету) спс большое за помощ буду разбираться

0

119

и на последок
вот я прописал порт
Config Graphlcd = Color , Controlport = Portd , Cs = 2 , Rs = 4 , Scl = 3 , Sda = 1 , Reset = 5
или там только те порты использовать что в примере, только порт С?

0

120

Порт можно любой использовать.

0


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