Программирование BASCOM
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » BASCOM » Вопросы-ответы » Attiny13 запуск двух программ
Attiny13 запуск двух программ
jumboДата: Воскресенье, 28.02.2016, 22:32 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
Есть такая схема (как вставить схему), должно работать так: при отпускании кнопки должен мигать светодиод и играть звук,
длительностью одна минута, после этого программа должна переходить в
начало опроса кнопки. Как сделать чтобы светодиод и звук работали
одновременно, и как написать чтобы мигание и звук продолжались только 1
минуту. Вот что удалось написать самому. Спасибо.

$regfile = "attiny13.dat"
$crystal = 8000000

Config Pinb.3 = Input
Config Portb.2 = Output

Do

If Pinb.3 = 0 Then Portb.2 = 0
If Pinb.3 = 1 Then Portb.2 = 1
If Portb.2 = 1 Then Goto Metka1

Loop

Metka1:

Waitms 1000
If Portb.2 = 1 Then Portb.2 = 0
Waitms 1000
If Portb.2 = 0 Then Portb.2 = 1
Waitms 1000

Sound , Portb.0 , 65 , 1274 'C2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 87 , 954 'F2(1/16)
Sound , Portb.0 , 117 , 715 'Ais2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 110 , 758 'A2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 98 , 850 'G2(1/16)
Waitms 125 'P(1/16)
Sound , Portb.0 , 110 , 758 'A2(1/16)
Sound , Portb.0 , 87 , 954 'F2(1/16)
Waitms 125 'P(1/16)
Wait 2

End

 
Форум » BASCOM » Вопросы-ответы » Attiny13 запуск двух программ
Страница 1 из 11
Поиск:

Copyright Radan Studio © 2017