господа, подскажите как правильно менять скорость USART по ходу выполнения программы?
с помощью Config Com1 = 9600, Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0
или baud = 9600 ??????????????
скорость USART
Страница: 1
Сообщений 1 страница 8 из 8
Поделиться12015-11-13 19:09:05
Поделиться22015-11-13 19:30:51
- Администратор
- Откуда: Киев
- Зарегистрирован: 2012-10-30
- Приглашений: 0
- Сообщений: 2536
- Уважение: [+930/-17]
- Позитив: [+796/-23]
- Пол: Мужской
- Возраст: 53 [1973-08-08]
- Провел на форуме:
1 месяц 1 день - Последний визит:
2026-09-20 08:37:55
Penumbra написал(а):
Config Com1 = 9600, Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0
или baud = 9600 ??????????????
Так не получится.
Только на прямую регистрами
Examples of Baud Rate Setting - выбираете значения и вперёд.
Поделиться32015-11-13 20:40:26
э..м.. ээ.. а поподробнее можно?
Поделиться42015-11-13 21:28:40
- Администратор
- Откуда: Киев
- Зарегистрирован: 2012-10-30
- Приглашений: 0
- Сообщений: 2536
- Уважение: [+930/-17]
- Позитив: [+796/-23]
- Пол: Мужской
- Возраст: 53 [1973-08-08]
- Провел на форуме:
1 месяц 1 день - Последний визит:
2026-09-20 08:37:55
Penumbra написал(а):
э..м.. ээ.. а поподробнее можно?
Идёте сюда, качаете документацию на необходимый контроллер.
В документации ищите раздел
смотрите нужную частоту МК и данные в регистрах
например:
$crystal = 1000000
$baud = 9600
Ubrr0 = 12
Ucsr0a.u2x0 = 1
$crystal = 8000000
$baud = 38400
Ubrr0 = 12
Ucsr0a.u2x0 = 0
'или так
Ubrr0 = 25
Ucsr0a.u2x0 = 1
Поделиться52015-11-13 21:36:27
я на лету менял командой baud
да и в справке это показано 
Код:
Example $regfile = "m48def.dat" $crystal = 4000000 $baud = 19200 Config Com1 = Dummy, Synchrone = 0, Parity = None, Stopbits = 1, Databits = 8, Clockpol = 0 Print "Hello" 'Now change the baud rate in a program Baud = 9600 Print "Did you change the terminal emulator baud rate too?" End
Отредактировано Александр Д. (2015-11-13 21:37:43)
Поделиться62015-11-13 21:50:33
- Активный участник
- Откуда: Москва
- Зарегистрирован: 2011-05-11
- Приглашений: 0
- Сообщений: 2632
- Уважение: [+233/-37]
- Позитив: [+164/-62]
- Пол: Мужской
- Возраст: 50 [1976-07-28]
- Провел на форуме:
20 дней 15 часов - Последний визит:
2026-02-20 18:21:41
вообще должно работать элементарно по команде "baud = 9600", но в баскоме есть баг, на некоторых МК, на определенных портах - не работает
пробуйте
Поделиться72015-11-14 18:03:43
на атмеге8 я пробую сначало так:
Код:
Sub Set_usart_speed
Local Tmpbyte As Byte
Tmpbyte = Usart_speed
Select Case Tmpbyte
Case 1
Baudrate = 4800
Load_timer = &H00D8
Case 2
Baudrate = 9600
Load_timer = &H006C
Case 3
Baudrate = 19200
Load_timer = &H0031
Case 4
Baudrate = 38400
Load_timer = &H0018
Case 5
Baudrate = 57600
Load_timer = &H0011
Case Else
Baudrate = 9600
Load_timer = &H006C
End Select
Baud=Baudrateпотом так:
Код:
Local Tmpbyte As Byte
Tmpbyte = Usart_speed
Select Case Tmpbyte
Case 1
Baudrate = 4800
Load_timer = &H00D8
Case 2
Baudrate = 9600
Load_timer = &H006C
Case 3
Baudrate = 19200
Load_timer = &H0031
Case 4
Baudrate = 38400
Load_timer = &H0018
Case 5
Baudrate = 57600
Load_timer = &H0011
Case Else
Baudrate = 9600
Load_timer = &H006C
End Select
Config Com1 = Baudrate , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 0и так и так скорость осталась прежней, не поменялась после выполнения этого куска кода
сейчас попробую как рекомендовал sasha_1973
Поделиться82015-11-14 18:10:12
RDW написал(а):
в баскоме есть баг, на некоторых МК, на определенных портах - не работает
Речь про программный USART?
Страница: 1