Переключение кнопкой светодиодов

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

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)

Спасибо, я потихоньку начал разбираться, понял свои ошибки.........

max

Дата: Среда, 06.03.2013, 07:48 | Сообщение # 4

Группа: Друзья

Сообщений: 170

Статус: Offline

Не за что.

Переключение кнопкой светодиодов

Страница 1 из 1
1