roboforum.ru

'-------------------------------------------------------------------------------
'ввод и вывод информации через COM-порт
$regfile = "m32def.dat"                                     ' используем ATmega32
$crystal = 8000000                                          ' частота установленного кварца 8 mHz
$baud = 2400                                                ' скорость порта 2400 бит/с.
'-------------------------------------------------------------------------------
Config Pinc.4 = Output : Led1_red Alias Portc.4

'Constants
Const Switch_on = 1
Const Switch_off = 0

Dim A As Byte                                               'объявляем переменную – счетчик

A = 0
Do
Led1_red = Switch_on

Print "Test " ; A                                           ' вывод сообщения вместе с счетчиком

Print                                                       ' вывод пустой строки

A = A + 1                                                   ' +1

Waitms 100                                                  ' задержка A секунд
Led1_red = Switch_off
Waitms 100
Loop

End