|
LGM12864H
|
|
| DNM |
Дата: Ср, 02.03.2016, 11:17 | Сообщение # 1 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 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
|
|
|
|
| Matrix252005 |
Дата: Ср, 02.03.2016, 11:56 | Сообщение # 2 |
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 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 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
Николай, здравствуйте.
нет не заработало.
у меня 16 нога D/I никуда не подключена, может поэтому?
14 RES - это ведь RS?
Более подробно здесь: http://asemlab.net/
|
|
|
|
| Matrix252005 |
Дата: Ср, 02.03.2016, 12:29 | Сообщение # 4 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 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 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 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
Замечания:
±
На сайте с 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 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 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
Замечания:
±
На сайте с 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 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
Да не, с конфигурацией все норм. все другие примеры с ней работают.
,,,, 
Более подробно здесь: http://asemlab.net/
|
|
|
|
| Matrix252005 |
Дата: Ср, 02.03.2016, 14:46 | Сообщение # 10 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
| DNM |
Дата: Ср, 02.03.2016, 15:19 | Сообщение # 11 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
Цитата Matrix252005 (  ) Дмитрий, я попробовал в протеусе Вашу программу.... На 20М она не заработала, а вот на 4М все норм...
а почему на 20М не работает не известно??
там в LGM12864H.dsn 7404 - зачем? у меня напрямую.
20МГц - важно потому, как GPS на 9600
Более подробно здесь: http://asemlab.net/
|
|
|
|
| Matrix252005 |
Дата: Ср, 02.03.2016, 15:24 | Сообщение # 12 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
7404 - то только для протеуса!!! Почему то, когда подключаешь напрямую, прот не верно работает с GLCD... Так что, не обращайте внимание на 7404... Добавлено (02.03.2016, 15:24)
---------------------------------------------
А Вы пробовали со светодиодом??? Мигает???
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
| DNM |
Дата: Ср, 02.03.2016, 15:29 | Сообщение # 13 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 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/
|
|
|
|
| Matrix252005 |
Дата: Ср, 02.03.2016, 15:31 | Сообщение # 14 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
Я использовал по умолчанию...
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
| xvovanx |
Дата: Сб, 05.03.2016, 23:46 | Сообщение # 15 |
Группа:
Модераторы
Ранг:
Помогаю всем
Сообщений:
328
Замечания:
±
На сайте с 02.05.2013
Статус:
Offline
|
Я в своих прогах не пишу эти строки (выделены красным) и все работает
|
|
|
|
