ёёё.... моё.. и я эта когда то писал
неее... чёрт голову сломет я уже не помню как там и чего работает, но работать должно 100%. Правда проверь подключение на верняка перепутал чёнить.Добавлено (27.02.2010, 11:21)
---------------------------------------------
Ладно ща ради собственного интереса покопаюсь, заодно упращу малость
Добавлено (27.02.2010, 11:37)
---------------------------------------------
На пробуй. Я ток на счёт цикла For не уверен, но должно по идеи работать
Code
'Cветофор
'Robotsspace.ucoz.ru
$regfile = "m32def.dat" ' используем ATmega32 (уневирсальный робо-контроллер-http://robotsspace.ucoz.ru/publ/2-1-0-27)
$crystal = 8000000 ' частота установленного кварца 8 mHz
' Для машин
Config Porta.0 = Output : Red 0 Alias Porta.0 ' Вывод 0 порта A на ВЫХОД - присваиваим имя
Config Porta.1 = Output : Yellow Alias Porta.1 ' Вывод 1 порта A на ВЫХОД - присваиваим имя
Config Porta.2 = Output : Green 0 Alias Porta.2 ' Вывод 2 порта A на ВЫХОД - присваиваим имя
' Для пешеходов
Config Porta.3 = Output : Red 1 Alias Porta.3 ' Вывод 3 порта A на ВЫХОД - присваиваим имя
Config Porta.4 = Output : Green 1 Alias Porta.4 ' Вывод 4 порта A на ВЫХОД - присваиваим имя
Dim Q As Integer , W As Integer , E As Integer , R As Integer
Q = 500 : W = 3 : E = 1
Do
' Зажигаем красный для машин и зелёный для пешеходов на 3 секунды
Red 0 = 1 : Green 1 = 1 : Wait W
' Зажигаем жёлтый на 3 секунды
Yellow = 1 : Wait W
' Моргаем зелёным для пешиходов 3 раза
For R = 1 To 3
Green 1 = 1 : Waitms Q
Green 1 = 0 : Waitms Q
Next
' Гасим красный и жёлтый для машин. Зажигаем зелёный для машин. Гасим зелёный для пешеходов и зажигаем для них красный.
Red 0 = 0 : Yellow = 0
Green 0 = 1 : Green 1 = 0
Red 1 = 1 : Waitms W
' Гасим зелёный для машин и зажигаем красный для пешеходов и жёлтый.
Green 0 = 0 : Yellow = 1
Red 1 = 1 : Wait E
' Гасим жёлтый и красный(для пешиходов)
Yellow = 0 : Red 1 = 0 : Waitms Q
Loop