при замыкании любого выключателя через 2 секунды на одном из выходов должно появиться 3 импульса , при размыкании выключателей через 2 сек на другом выходе должен появиться ОДИН импульс. время имульса по пол сек (чтоб увидеть как мигнёт светодиод)
Написать програмку помочь. ТИНИ 13
Страница: 1
Сообщений 1 страница 5 из 5
Поделиться12016-09-04 19:04:10
Поделиться22016-09-04 20:49:20
- Активный участник
- Откуда: Московская область
- Зарегистрирован: 2009-04-14
- Приглашений: 0
- Сообщений: 2055
- Уважение: [+230/-12]
- Позитив: [+366/-62]
- Пол: Мужской
- Возраст: 45 [1978-11-18]
- Провел на форуме:
1 месяц 7 дней - Последний визит:
Вчера 21:51:37
не в ту тему пишите, это в Работа надо
Если бы сами что-то попробовали - помогли бы
а лентяев не плодим, извините, религия тут такая
Поделиться32016-09-04 21:34:05
Так я пробую, пробую уже три дня, голова кипит, код компеляцию не проходит. выкладывать его стыдно потому что точно знаю что бред.
Поделиться42016-09-04 23:50:41
- Активный участник
- Откуда: Московская область
- Зарегистрирован: 2009-04-14
- Приглашений: 0
- Сообщений: 2055
- Уважение: [+230/-12]
- Позитив: [+366/-62]
- Пол: Мужской
- Возраст: 45 [1978-11-18]
- Провел на форуме:
1 месяц 7 дней - Последний визит:
Вчера 21:51:37
не код надо, а алгоритм...
Поделиться52016-09-06 05:23:59
Сергей Жила написал(а):
Так я пробую, пробую уже три дня, голова кипит, код компеляцию не проходит. выкладывать его стыдно потому что точно знаю что бред
Люди правильно пишут тебе-нужен алгоритм. Укажи хотя бы время паузы между импульсами....
Вот простецкая прога для начинающих. Антидребезга там нету, добавишь сам ,читай матчасть по Bascom.
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16
Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Output
Config Portb.3 = Output
Portb.0 = 1
Portb.1 = 1
Portb.2 = 0
Portb.3 = 0
Do
If Pinb.0 = 0 Then 'если нажата кнопка порта B.0
Wait 2 'пауза 2 сек
Portb.2 = 1 '1 на выходе B.2
Waitms 500 'держим её 0,5 сек
Portb.2 = 0 'Сбросить ногу порта в 0
End If
If Pinb.1 = 0 Then 'если нажата кнопка порта B.1
Wait 2
Portb.3 = 1 'первый импульс
Waitms 500
Portb.3 = 0
Waitms 500
Portb.3 = 1 'второй импульс
Waitms 500
Portb.3 = 0
Waitms 500
Portb.3 = 1 'третий импульс
Waitms 500
Portb.3 = 0
End If
Loop
Отредактировано tolnov (2016-09-06 05:27:14)
Страница: 1