roboforum.ru

'$prog &HFF , &HE0 , &HDD , &HF9                             ' для минибота 2.x
$regfile = "m88DEF.dat"
$crystal = 7372800
$baud = 115200
Config Serialin = Buffered , Size = 10

$hwstack = 64
$swstack = 64
$framesize = 64

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

Dim Text As String * 15                                     'строка для отправки/приема (длина строки 15 символов)
Dim Text_tmp As String * 15
Dim Txt_ As Byte

Config Servos = 1 , Servo1 = Portb.2 , Reload = 20
Config Pinb.2 = Output

Dim I As Byte

Print "Start Mega88 MiniBot 2.1"


Gosub Getchar

Do
   For I = 0 To 100
     Servo(1) = I
     Waitms 2
   Next
   For I = 100 To 0 Step -1
     Servo(1) = I
     Waitms 2
   Next
Loop


Getchar:
   Txt_ = Inkey()
   If Txt_ > 13 Then          'не служебные символы
      Text_tmp = Chr(txt_)
      Text = Text + Text_tmp
   End If
   If Txt_ = 13  Then'нажали ввод
         'строка в Text принята
   End If
Return

Config Serialin = Buffered , Size = 10