LGM12864H - Форум Picbasic.ru

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 2 1 2 »
Модератор форума: demanik, ivan_fd

Форум Picbasic.ru » Программирование МК » Proton PicBasic » LGM12864H (не слушается)

LGM12864H

DNM

Дата: Ср, 02.03.2016, 11:17 | Сообщение # 1

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

Здравствуйте! графический LGM12864H.
Подключаю вроде правильно: контрастность регулируется, программа ниже. На экране пусто. Что делаю не так?

Device = 18F452
Xtal = 20

@Config_REQ
@__Config Config1H, OSCS_OFF_1 & HS_OSC_1
@__Config Config2L, BOR_OFF_2 & BORV_20_2 & PWRT_ON_2
@__Config Config2H, WDT_OFF_2 & WDTPS_128_2
@__Config Config3H, CCP2MX_OFF_3
@__Config Config4L, STVR_OFF_4 & LVP_OFF_4 & DEBUG_OFF_4

'-----------------------------------------------------------
All_Digital = TRUE
'-----------------------------------------------------------
'------------------------------------------Íàñòðîéêè ïîäêëþ÷åíèÿ ÆÊÈ------------------------------------------
Declare LCD_Type = Graphic
' Ïðèìåíèòü ãðàôè÷åñêèé ÆÊÈ c êîíòðîëëåðîì Samsung
' KS0108
Declare LCD_DTPort = PORTD ' Îïðåäåëèòü ïîðò äàííûõ
Declare LCD_RSPin = PORTC.1 ' Ïîäêëþ÷åíèå öåïè RS
Declare LCD_ENPin = PORTE.0 ' Ïîäêëþ÷åíèå öåïè E
Declare LCD_RWPin = PORTC.0 ' Ïîäêëþ÷åíèå öåïè R/W
Declare LCD_CS1Pin = PORTE.1 ' Ïîäêëþ÷åíèå öåïè CS1
Declare LCD_CS2Pin = PORTE.2 ' Ïîäêëþ÷åíèå öåïè CS2
'Declare GLCD_CS_Invert On ' Èíâåðòèðîâàòü ïîðÿäîê ñëåäîâàíèÿ áóêâ â ñòðîêå
Declare Internal_Font off

' Èñïîëüçîâàòü øðèôò çàãðóæàåìûé èç âíåøíåãî ôàéëà
' FONT.Inc
TRISA=%00000000
TRISB=%00000000
TRISC=%00000000
TRISD=%00000000
TRISE=%0000
ADCON1 = 001111

'---------------------------------------------Îáùèå íàñòðîéêè ïîðòîâ----------------------------------------------
Declare All_Digital = True ' Ñäåëàòü âñå ðàçðÿäû PORTA è PORTE öèôðîâûìè
'---------------------------------------------Îáúÿâëåíèå ïåðåìåííûõ----------------------------------------------
Dim VAR1 As Byte ' Ñîçäàòü ïåðåìåííóþ VAR1 òèïà Byte
'------------------------------------------------Ãëàâíàÿ ïðîãðàììà-------------------------------------------------

Dim Xpos As Byte
Dim Ypos As Byte
Dim Size As Byte
Dim SetClr As Byte

Main:
Cls
Print At 0,1,"Hello World"
DelayMS 5000
Cls
Xpos = 63
Ypos = 32
Size = 20
SetClr = 1
Box SetClr,Xpos,Ypos,Size
DelayMS 100
Stop

Более подробно здесь: http://asemlab.net/

Сообщение отредактировал DNM - Ср, 02.03.2016, 11:20


ЯНДЕКС	Дата: 02.03.2016

Matrix252005

Дата: Ср, 02.03.2016, 11:56 | Сообщение # 2

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Приятного времени суток!!!

DNM, не могу понять, зачем Вы 2 раза делаете:

'-----------------------------------------------------------
All_Digital = TRUE
'-----------------------------------------------------------
.......
Declare All_Digital = True ' Ñäåëàòü âñå ðàçðÿäû PORTA è PORTE öèôðîâûìè

У меня немного другой экран 12864, настройка такая:

Device = 18F4520
....
Declare LCD_DTPort = PORTB
Declare LCD_RSPin = PORTD.5
Declare LCD_ENPin = PORTD.7
Declare LCD_RWPin = PORTD.6
Declare LCD_CS1Pin = PORTD.3
Declare LCD_CS2Pin = PORTD.4

Declare LCD_Type = Graphic
Internal_Font = On
Font_Addr = 0

Declare GLCD_CS_Invert = 1 ' работает с 1

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 12:19 | Сообщение # 3

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

Николай, здравствуйте.
нет не заработало.
у меня 16 нога D/I никуда не подключена, может поэтому?
14 RES - это ведь RS?

Более подробно здесь: http://asemlab.net/

Matrix252005

Дата: Ср, 02.03.2016, 12:29 | Сообщение # 4

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Здравствуйте, Дмитрий!!!

Нет, RS у меня это DI... А RES = RST и она подтянута к + питания..

Добавлено (02.03.2016, 12:29)
---------------------------------------------
У меня экран WG12864A:
http://easyelectronics.ru/rabota-....07.html

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 13:33 | Сообщение # 5

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

Переподключил как у вас, программа вот:
Device = 18F452
Xtal = 20

@Config_REQ
@__Config Config1H, OSCS_OFF_1 & HS_OSC_1
@__Config Config2L, BOR_OFF_2 & BORV_20_2 & PWRT_ON_2
@__Config Config2H, WDT_OFF_2 & WDTPS_128_2
@__Config Config3H, CCP2MX_OFF_3
@__Config Config4L, STVR_OFF_4 & LVP_OFF_4 & DEBUG_OFF_4

'-----------------------------------------------------------

All_Digital = TRUE

Declare LCD_DTPort = PORTB
Declare LCD_RSPin = PORTD.5
Declare LCD_ENPin = PORTD.7
Declare LCD_RWPin = PORTD.6
Declare LCD_CS1Pin = PORTD.3
Declare LCD_CS2Pin = PORTD.4

Declare LCD_Type = Graphic
Declare Internal_Font = On
Declare Font_Addr = 0
Declare GLCD_CS_Invert = 1 ' ðàáîòàåò ñ 1
Dim Xpos As Byte
Dim Ypos As Byte
Dim Size As Byte
Dim SetClr As Byte

Main:
Cls
Print At 0,1,"Hello World"
DelayMS 5000
Cls
Xpos = 63
Ypos = 32
Size = 20
SetClr = 1
Box SetClr,Xpos,Ypos,Size
DelayMS 100
Include "FONT.INC"
Stop

RES подтянул к питанию
не пашет. Что же не так?

Более подробно здесь: http://asemlab.net/

Сообщение отредактировал DNM - Ср, 02.03.2016, 13:52

Matrix252005

Дата: Ср, 02.03.2016, 13:51 | Сообщение # 6

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Попробуйте добавить светик, для визуальной работы МК и программы:

....
Dim SetClr As Byte

Main:
      for i = 0 to 4
            Led = ~Led
            DelayMs 500
      Next i
....

Если светик не будет мигать, значит что то Вы не так сделали...

Добавлено (02.03.2016, 13:51)
---------------------------------------------
И еще:Цитата DNM16315Device = 18F452
Xtal = 20А где настройка PLL???

Device = 18F4520

Config_Start
OSC = INTIO67
FCMEN = OFF ' Fail-Safe Clock Monitor disabled
IESO = OFF ' Oscillator Switchover mode disabled
PWRT = OFF ' PWRT enabled
BOREN = OFF ' Brown-out Reset disabled in hardware and software
WDT = OFF ' WDT disabled (control is placed on the SWDTEN bit)
MCLRE = On ' RE3 input pin enabled; MCLR disabled
LPT1OSC = OFF ' Timer1 configured for higher power operation
PBADEN = OFF ' PORTB<4:0> pins are configured as digital I/O on Reset
STVREN = OFF ' Stack full/underflow will not cause Reset
LVP = OFF ' Single-Supply ICSP disabled
XINST = OFF ' Instruction set extension and Indexed Addressing mode disabled (Legacy mode)
Debug = OFF ' Background debugger disabled, RB6 and RB7 configured as general purpose I/O pins
Config_End

OSCCON = %01110100

Declare PLL_Req = On

Declare Xtal 32

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 13:58 | Сообщение # 7

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

RB0 ==> DB0
RB1 ==> DB1
RB2 ==> DB2
RB3 ==> DB3
...
RB7 ==> DB7
ВЕРНО?

тогда все по схеме

Более подробно здесь: http://asemlab.net/

Сообщение отредактировал DNM - Ср, 02.03.2016, 13:58

Matrix252005

Дата: Ср, 02.03.2016, 13:58 | Сообщение # 8

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Попробуйте запустить Вашу программу на:

Device = 18F452
Xtal = 4
...

Добавлено (02.03.2016, 13:58)
---------------------------------------------
ДА!!

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 14:40 | Сообщение # 9

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

Да не, с конфигурацией все норм. все другие примеры с ней работают.

,,,, sad

Более подробно здесь: http://asemlab.net/

Matrix252005

Дата: Ср, 02.03.2016, 14:46 | Сообщение # 10

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...

Прикрепления: LGM12864H.dsn (89.1 Kb) · LGM12864H.bas (1.6 Kb) · LGM12864H.hex (4.4 Kb)

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 15:19 | Сообщение # 11

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

Цитата Matrix252005 (

)

Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...

спасибо, смогу попробовать только вечером, т.к. кварц на 4М дома.
а почему на 20М не работает не известно??

там в LGM12864H.dsn 7404 - зачем? у меня напрямую.
20МГц - важно потому, как GPS на 9600

Более подробно здесь: http://asemlab.net/


ЯНДЕКС	Дата: 02.03.2016

Matrix252005

Дата: Ср, 02.03.2016, 15:24 | Сообщение # 12

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

7404 - то только для протеуса!!! Почему то, когда подключаешь напрямую, прот не верно работает с GLCD... Так что, не обращайте внимание на 7404...

Добавлено (02.03.2016, 15:24)
---------------------------------------------
А Вы пробовали со светодиодом??? Мигает???

THE TRUTH IS OUT THERE.

С уважением, Николай.

DNM

Дата: Ср, 02.03.2016, 15:29 | Сообщение # 13

Группа: Проверенные

Ранг: Понимаю

Сообщений: 75

Репутация: 0 ±

Замечания: ±
На сайте с 29.09.2011

Статус: Offline

нет, вечером проверю.
вы отключили

'@Config_REQ
'@__Config Config1H, OSCS_OFF_1 & HS_OSC_1
'@__Config Config2L, BOR_OFF_2 & BORV_20_2 & PWRT_ON_2
'@__Config Config2H, WDT_OFF_2 & WDTPS_128_2
'@__Config Config3H, CCP2MX_OFF_3
'@__Config Config4L, STVR_OFF_4 & LVP_OFF_4 & DEBUG_OFF_4

так и должно быть?
ведь конфига вообще нет, получается...

Более подробно здесь: http://asemlab.net/