Создание Устройства На Мк(Срочно Нужна Помощь)

[Гость Александр]

Здравствуйте, нужна срочно Ваша помощь! Полетел блок управления горелкой гбж-0,8, было принято решение создать подобный на мк attiny2313, но никак не могу довести до ума программный код, алгоритм работы таков:

старт устройства

приветствие на жк

жк "продувка"

продувка горелки (portb.4 = 1)

ждем 1сек

открываем заслонку (portd.6 = 1)

ждем 10 сек

закрываем заслонку (portd.6 = 0)

ждем 6 сек

жк "розжиг"

Включаем розжиг (portb.3 = 1)

ждем 1сек

открываем клапан малого огня (portb/2 = 1)

ждем 4 сек

отключаем розжиг (portb.3 = 0)

ДАЛЕЕ (Самое интересное) НАЧИНАЕМ СЛЕДИТЬ за портом pd.4, если там появилась 1(до этого там был 0 ), то продолжаем выполнение программы, если 0,(топливо не загорелось) то отключаем подачу топлива (portb.2 = 0) и врубаем тревогу на pb.0, через 10 сек 0 на рв.4

если 0 на pd.4 не появился, то начинаем следить за pd.5, если там 1, то ничего не делаем, а если 0, то пишем на жк "большой огонь" и включаем 1 на pb.1, при появлении 1 на pd.5, переключаемся на малый огонь (portb.1 = 0, portd.6 = 0 жк "малый огонь")

помогите пожалуйста, очень срочно нужно запустить горелку, вот код который я писал в bascom avr , подскажите пожалуйста чего не хватает, чего доработать, заранее спасибо!!!)))

$regfile = "attiny2313.dat"

$Crystal=4000000

Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.2 , Rs = Portd.3

Config Lcd = 16 * 1a

Config Portb.4 = Output

Config Portb.3 = Output

Config Portb.2 = Output

Config Portb.1 = Output

Config Portb.0 = Output

Config Portd.1 = Output

Config Portd.4 = Input

Config Portd.5 = Input

Cls

Lcd "¡ope»ºa ¡ £-0.8" горелка гбж08

Wait 2

Cls

Lcd "A³¿op K»ÆÁo³ A.A." автор клюшов а а

Wait 2

Cls

Lcd "¨poãy³ºa ´ope»º¸" продувка горелки

Portb.4 = 1 вкл вентилятора

Wait 1

Portd.6 = 1 открытие заслонки

Wait 10

Portd.6 = 0 закрытие заслонки

Wait 6

Lcd "Po·¶¸´" розжиг

Portb.3 = 1 вкл трансформатор искры

Wait 1

Portb.2 = 1 вкл клапан малого огня

Wait 4

Portb.3 = 0 откл трансформатор. искры

Wait 1

If Portd.4 = 0 Then следим за пламенем через фотоэлемент, если лог1, то пламя

Portb.2 = 0 горит, если 0, то отключаем клапан, и вкл тревогу

Portb.0 = 1

Lcd "a³ap¸Ç" авария

End If

If Portd.5 = 1 Then (И ДАЛЬШЕ Я ЗАВИС))))

LCD "²o»ÄÁo¹ o´o½Ä"

Wait 5

Portd.6 = 1

Wait 1

Portb.1 = 1

End If

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321