| 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
|
| |
| |
