roboforum.ru

$prog &HFF , &HE4 , &HD9 , &H00
$regfile = "m32def.dat"
$crystal = 8000000                                         
$baud = 115200

$framesize = 16
$hwstack = 24
$swstack = 16
'Принимаемый символ
Dim Comchar As Byte

On Urxc Getchar                                             'переопределяем прерывание на передачу по usart
Enable Urxc
Enable Interrupts
'Основной цикл
Do
Loop

Getchar:
   Comchar = Inkey()
Return

$regfile = "m32def.dat"
$crystal = 7372800
$baud = 115200

'Принимаемый символ
Dim Comchar As Byte

On Urxc Getchar                               
Enable Urxc
Enable Interrupts

Do

Loop

Getchar:
   Comchar = Inkey()
   Print Comchar
Return

114
111
109
13

'------------------------------------------------------------------
' flyroman by roboforum.ru ®2010
' Программа приема и отправки сообщений по UART/ Bascom AVR
'------------------------------------------------------------------
$regfile = "m32def.dat"
$crystal = 7372800
$baud = 115200

$framesize = 16
$hwstack = 24
$swstack = 16


Dim Comchar As Byte                                         'принимаемый символ
Dim Buff As String * 20                                     'переменная буфер
Dim Bcount As Byte                                          'счетчик принятых байтов
Dim Flagbuf As Bit                                          'переменная Флаг конца приема сообщения

On Urxc Getchar                                             'переопределяем прерывание на передачу по usart
Enable Urxc                                                 'включаем прерывание uart
Enable Interrupts

Reset Flagbuf

'Основной цикл
Do

If Flagbuf = 1 Then
Disable Serial

'If Mid(buff , 1 , 5) = "hello" Then     'проверка на приход определенного сообщения, в данном случае "hello"
'
'  .....
'
'End If

Print Buff      'отправляем принятое сообщение
Print Bcount      'тправляем количество принятых байт
Buff = ""      'сбрасываем буфер

Reset Flagbuf             'сбрасываем флаг приема сообщения
Enable Serial
End If

Loop


Getchar:
   Comchar = Inkey()  'принимаем 1 символ

   If Comchar <> 13 Then 'проверяем является ли этот символ Enter'ом
   Buff = Buff + Chr(comchar) 'если нет, то добавляем его в буфер
   Incr Bcount   'увеличиваем на 1 счетчик байтов
   Else
      Flagbuf = 1  'если символ оказался "Enter", тогда флаг устанавливаем в 1. "Enter"- конец сообщения
   End If

Return