[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: RD3AVJ 
Форум » форумы » Общие вопросы по Bascom-AVR » Переключение кнопкой светодиодов
Переключение кнопкой светодиодов
mpxДата: Понедельник, 04.03.2013, 20:43 | Сообщение # 1
Группа: Пользователи
Сообщений: 4

Статус: Offline
$regfile = "m8def.dat"
$Crystal=4000000
$hwstack=40
$swstack=50
$framesize = 50
Dim A As Byte

Config Portb = Output

Config Pinb.0 = Input
Do
Debounce Pinb.0 , 0 , En , Sub
Loop
A = 5
Incr A
A = Portb
En:

Toggle A
Return

End
Не получается с одной кнопки переключать поочередно каждый светодиод (светодиодов 5). Программу написал но она упорно не хочет работать. PortB назначил на выход тут сидят светодиоды, а на порт PortB.0 кнопка переключающая их. Пробовал оператор For .... Next там то же выползали ошибки Подскажите пожалуйста, что не так делаю, я только учусь...




Сообщение отредактировал mpx - Понедельник, 04.03.2013, 20:44
 
maxДата: Понедельник, 04.03.2013, 20:58 | Сообщение # 2
Группа: Друзья
Сообщений: 170

Статус: Offline
У тебя сама программа построена не правильно. На радиокоте тебе ведь предлагали написать прогу, и там указали на ошибки. Почитай это: BASCOM за 1 день! Там как раз почти что тебе нужно.

 
mpxДата: Вторник, 05.03.2013, 22:20 | Сообщение # 3
Группа: Пользователи
Сообщений: 4

Статус: Offline
Цитата (max)
У тебя сама программа построена не правильно. На радиокоте тебе ведь предлагали написать прогу, и там указали на ошибки. Почитай это: BASCOM за 1 день! Там как раз почти что тебе нужно.
Спасибо, я потихоньку начал разбираться, понял свои ошибки.........


 
maxДата: Среда, 06.03.2013, 07:48 | Сообщение # 4
Группа: Друзья
Сообщений: 170

Статус: Offline
Не за что.

 
Форум » форумы » Общие вопросы по Bascom-AVR » Переключение кнопкой светодиодов
Страница 1 из 11
Поиск: