DNM |
Дата: Ср, 22.06.2016, 11:16 | Сообщение # 1 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
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). = 18F452 Код • 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
|
|
|
|
DNM |
Дата: Ср, 22.06.2016, 14:11 | Сообщение # 3 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
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
Статус:
Online
|
А конфигурацию контроллера Вы делаете. Биты конфигурации.?
|
|
|
|
DNM |
Дата: Чт, 23.06.2016, 10:23 | Сообщение # 5 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
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/
|
|
|
|