| DNM |
Дата: Ср, 22.06.2016, 11:16 | Сообщение # 1 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
HSERIAL_BAUD = 9600 ' Set baud rate to 9600
HSERIAL_RCSTA = %10010000 ' Enable serial port and continuous receive
HSERIAL_TXSTA = %00100000 ' Enable transmit and asynchronous mode
HSERIAL_CLEAR = On ' Enable Error clearing on received characters
не передает и не принимает (ESP8266)/
причем на 18F452 и 18F1320 - все работает.
вот столкнулся с такой зигагулиной.
как правильно настроить usart на этом контроллере??
Более подробно здесь: http://asemlab.net/
Сообщение отредактировал
DNM - Ср, 22.06.2016, 11:17
|
|
|
|
| anatol |
Дата: Ср, 22.06.2016, 13:12 | Сообщение # 2 |
Группа:
Проверенные
Ранг:
Помогаю всем
Сообщений:
471
Замечания:
±
На сайте с 10.02.2010
Статус:
Offline
|
А документацию на контроллеры почитать и сравнить
Код • bit SPEN (RCSTA<7>) must be set (= 1),• bit TRISC<6> must be cleared [b](= 0), and• bit TRISC<7> must be set (=1).
Код • bit SPEN (RCSTA<7>) must be set (=1)• bit TRISC<7> must be set (=1)• bit TRISC<6> must be set [b](=1)
Да и регистры немного разнятся. К примеру у 18F4550 есть BAUDCON: BAUD RATE CONTROL REGISTER
|
|
|
|
| DNM |
Дата: Ср, 22.06.2016, 14:11 | Сообщение # 3 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
Цитата anatol (  ) bit SPEN (RCSTA<7>) must be set (=1)• bit TRISC<7> must be set (=1)• bit TRISC<6> must be set [b](=1)
= 18F4550
Да и регистры немного разнятся. К примеру у 18F4550 есть BAUDCON: BAUD RATE CONTROL REGISTER
Выставлял уже и BAUDCON.3=1
Не работает.
Более подробно здесь: http://asemlab.net/
|
|
|
|
| ivan_fd |
Дата: Ср, 22.06.2016, 16:24 | Сообщение # 4 |
Группа:
Модераторы
Ранг:
Специалист
Сообщений:
894
Замечания:
±
На сайте с 12.01.2009
Статус:
Offline
|
А конфигурацию контроллера Вы делаете. Биты конфигурации.?
|
|
|
|
| DNM |
Дата: Чт, 23.06.2016, 10:23 | Сообщение # 5 |
![]( "DNM")
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
75
Замечания:
±
На сайте с 29.09.2011
Статус:
Offline
|
Цитата ivan_fd ( ) А конфигурацию контроллера Вы делаете. Биты конфигурации.?
Declare Reminders = off
' select MCU and clock speed
Device = 18F4550
Xtal = 48
Config_Start
PLLDIV = 5 ; Divide by 5 (20 MHz oscillator input)
CPUDIV = OSC1_PLL2 ; [OSC1/OSC2 Src: /1][96 MHz PLL Src: /2]
USBDIV = 2 ; USB clock source comes from the 96 MHz PLL divided by 2
FOSC = HSPLL_HS ; HS oscillator, PLL enabled, HS used by USB
FCMEN = OFF ; Fail-Safe Clock Monitor disabled
IESO = OFF ; Oscillator Switchover mode disabled
PWRT = On ; PWRT enabled
BOR = On'OFF ; Brown-out Reset disabled in hardware and software
BORV = 3'2 ;
VREGEN = On ; USB voltage regulator enabled
WDT = OFF ; HW Disabled - SW Controlled
WDTPS = 32768'2 ; 1:2
MCLRE = On ; MCLR pin enabled; RE3 input pin disabled
LPT1OSC = OFF ; Timer1 configured for higher power operation
PBADEN = OFF ; PORTB<4:0> pins are configured as digital I/O on Reset
CCP2MX = On 'off ; CCP2 input/output is multiplexed with RB3
STVREN = On ; 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
'-----------------------------------------------------------
All_Digital = TRUE
Declare LCD_Type=0 ' Тип ЖКИ - буквенно-цифровой
Declare LCD_DTPin PORTB.4 ' Порт данных ЖКИ
Declare LCD_ENPin PORTB.3 ' Управление цепью E
Declare LCD_RSPin PORTB.2 ' Управление цепью RS
Declare LCD_Interface 4 ' 4-х битная разрядность шины данных
Declare LCD_CommandUs 2000 ' Задержка перед посылкой команды
Declare LCD_DataUs 50 ' Задержка перед посылкой данных
Declare LCD_Lines 2 ' Количество строк ЖКИ
' настроим аппаратный RX/TX модуль
Declare Hserial_Baud = 9600 ' Set baud rate to 9600
Declare Hserial_RCSTA = %10010000 ' Enable continuous receive
Declare Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Declare Hserial_Clear = On ' Clear the buffer before receiving
TRISC.7 = 1
TRISC.6 = 1
'
Dim dummy[100] As Byte
Dim nn As Word
Dim ll As Byte
Dim STRING1 As String * 20 'AT - команда посылки данных "AT+CIPSEND=0,N", N - количество посылаемых символов
Dim STRING2 As String * 20 'Длина посылаемой строки
Print At 1,1,"ESP => TRANSMIT"
DelayMS 30000
Cls
Print At 1,1,"Send"
' настроим модуль ESP8266
Main:
HSerOut["AT", 13, 10]
HSerIn [Wait ("OK"), dummy[0]]
Print At 1,1,"AT"
Print At 2,1,"OK"
DelayMS 1000
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Более подробно здесь: http://asemlab.net/
|
|
|
|
