roboforum.ru

Технический форум по робототехнике.

Помогите настроить LCD

Программирование микроконтроллеров AVR, PIC, ARM.
Разработка и изготовление печатных плат для модулей.

Помогите настроить LCD

Сообщение VIRUS_V8 » 19 окт 2008, 14:46

LCD - WH0802A-NYG-CT 8x2
Программу пишу в bascom-avr
Вот собственно программа
Код: Выделить всёРазвернуть
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 2400
$hwstack = 32
$swstack = 10
$framesize = 40


Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.2 , Rs = Porta.0
Config Lcd = 16 * 2


Cls

Locate 1 , 2
Lcd "LCD"

End


На дисплее ни чего не выводиться!
И почему в начтройках LCD в компиляторе только: 16x1,16x2,...,40x4 и нет настройки линии RW?
Мне кажется, но я не уверен - не правильно задан адрес сомого LCD, в настройках компилятора стоит LCD-adres : C000, RS-adres: 8000

пробовал написать на си в CodeVision все работает отлично, LCD рабочий.
Большая прозьба не говорите что, "чем меня си не устраивает, типа пиши на си", помогите разобраться что я делаю не так на Байсике.
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел

Re: Помогите настроить LCD

Сообщение EdGull » 19 окт 2008, 15:18

СХЕМУ В СТУДИЮ!
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите настроить LCD

Сообщение VIRUS_V8 » 19 окт 2008, 15:43

Подключение по даташиту
123.JPG
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел

Re: Помогите настроить LCD

Сообщение EdGull » 19 окт 2008, 15:58

сам-то пробывал смотреть свою схему?
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите настроить LCD

Сообщение VIRUS_V8 » 19 окт 2008, 16:35

С качеством схемы ты прав, очень плохо просто жуть - выризал из даташита.
Приношу извинения, что так рано поднял панику - все заработало.

Код: Выделить всёРазвернуть
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 2400
$hwstack = 32
$swstack = 10
$framesize = 40

$lib "lcd4busy.lbx"
'$sim
'Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.2 , Rs = Porta.0
Const _lcdport = Porta
Const _lcdddr = Ddra
Const _lcdin = Pina
Const _lcd_e = 2                                            '1
Const _lcd_rw = 1                                           '2
Const _lcd_rs = 0                                           '3


Config Lcd = 16 * 2


Cls
Wait 1
Lcd "LCD"
Wait 1
Lowerline
Lcd "Hello"
End
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел


Вернуться в Микроконтроллеры

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing [Bot] и гости: 4