Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Продам/куплю/услуги » Написать програмку помочь. ТИНИ 13


Написать програмку помочь. ТИНИ 13

Сообщений 1 страница 5 из 5

1

при замыкании любого выключателя через 2 секунды на одном из выходов должно появиться 3 импульса , при размыкании выключателей через 2 сек на другом выходе должен появиться ОДИН импульс. время имульса по пол сек (чтоб увидеть как мигнёт светодиод)http://sa.uploads.ru/t/c6do1.png
http://sa.uploads.ru/t/c6do1.png
http://sa.uploads.ru/t/c6do1.png

0

2

не в ту тему пишите, это в Работа надо
Если бы сами что-то попробовали - помогли бы
а лентяев не плодим, извините, религия тут такая

+1

3

Так я пробую, пробую уже три дня, голова кипит, код компеляцию не проходит. выкладывать его стыдно потому что точно знаю что бред.

0

4

не код надо, а алгоритм...

0

5

Сергей Жила написал(а):

Так я пробую, пробую уже три дня, голова кипит, код компеляцию не проходит. выкладывать его стыдно потому что точно знаю что бред


Люди правильно пишут тебе-нужен алгоритм. Укажи хотя бы время паузы между импульсами....

Вот простецкая прога для начинающих. Антидребезга там нету, добавишь сам ,читай матчасть по 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)

0


Вы здесь » Программирование ATMEL в BASCOM. » Продам/куплю/услуги » Написать програмку помочь. ТИНИ 13