LGM12864H - Форум Picbasic.ru
Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 212»
Модератор форума: demanik 
Форум Picbasic.ru » Программирование МК » Proton PicBasic » LGM12864H (не слушается)
LGM12864H
DNM Дата: Ср, 02.03.2016, 11:17  |                                                                                                                Сообщение # 1
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 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

Сообщение отредактировал DNM - Ср, 02.03.2016, 11:20
ЯНДЕКС Дата: 02.03.2016
Matrix252005 Дата: Ср, 02.03.2016, 11:56  |                                                                                                                Сообщение # 2
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 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
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

Николай, здравствуйте.
нет не заработало.
у меня 16 нога D/I никуда не подключена, может поэтому?
14 RES - это ведь RS?
Matrix252005 Дата: Ср, 02.03.2016, 12:29  |                                                                                                                Сообщение # 4
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 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
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 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 подтянул к питанию
не пашет. Что же не так?

Сообщение отредактировал DNM - Ср, 02.03.2016, 13:52
Matrix252005 Дата: Ср, 02.03.2016, 13:51  |                                                                                                                Сообщение # 6
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 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
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

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

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

Сообщение отредактировал DNM - Ср, 02.03.2016, 13:58
Matrix252005 Дата: Ср, 02.03.2016, 13:58  |                                                                                                                Сообщение # 8
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 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
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

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

,,,, sad
Matrix252005 Дата: Ср, 02.03.2016, 14:46  |                                                                                                                Сообщение # 10
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...
Прикрепления: LGM12864H.dsn(89Kb) · LGM12864H.bas(2Kb) · LGM12864H.hex(4Kb)


THE TRUTH IS OUT THERE.

С уважением, Николай.
DNM Дата: Ср, 02.03.2016, 15:19  |                                                                                                                Сообщение # 11
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 0   ±
Замечания:   ±
На сайте с 29.09.2011

Статус: Offline

Цитата Matrix252005 ()
Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...
спасибо, смогу попробовать только вечером, т.к. кварц на 4М дома.
а почему на 20М не работает не известно??

там в LGM12864H.dsn 7404 - зачем? у меня напрямую.
20МГц - важно потому, как GPS на 9600
Matrix252005 Дата: Ср, 02.03.2016, 15:24  |                                                                                                                Сообщение # 12
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

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

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


THE TRUTH IS OUT THERE.

С уважением, Николай.
DNM Дата: Ср, 02.03.2016, 15:29  |                                                                                                                Сообщение # 13
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 76
Репутация: 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

так и должно быть?
ведь конфига вообще нет, получается...
Matrix252005 Дата: Ср, 02.03.2016, 15:31  |                                                                                                                Сообщение # 14
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 672
Репутация: 20   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Я использовал по умолчанию...

THE TRUTH IS OUT THERE.

С уважением, Николай.
xvovanx Дата: Сб, 05.03.2016, 23:46  |                                                                                                                Сообщение # 15
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 247
Репутация: 12   ±
Замечания:   ±
На сайте с 02.05.2013

Статус: Offline

Я в своих прогах не пишу эти строки (выделены красным) и все работает
Прикрепления: 1483075.jpg(31Kb)
Форум Picbasic.ru » Программирование МК » Proton PicBasic » LGM12864H (не слушается)
Страница 1 из 212»
Поиск: