BASCOM AVR в вопросах и ответах

[mr4ester]

так в чем проблема?, опрашиваете по очереди ножки, ножка=1? старт таймерХ, и так далее.

[implex]

так в чем проблема?, опрашиваете по очереди ножки, ножка=1? старт таймерХ, и так далее.

На ножке следующий расклад: 10мс единица, 10мс ноль. Необходим сброс таймера в момент перехода с ноля на единицу и наоборот. При вашем варианте, как мне кажется, первые 10 мс таймер будет постоянно сбрасываться, а вторые 10 мс будет работать так как надо. Всё равно спасибо. Свой вариант уже написал, должно получиться, завтра проверю. Если получится отпишусь.

[implex]

Вообщем всё заработало правильно следующим способом:

Код: Выделить всё

Dim A As Bit
A = 1
Do
If Pinb.3 = A Then
Else
A = Pinb.3
Stop Timer0
Timer0 = 0
Start Timer0
.........
loop
End If

Если есть возможность проще реализовать такую же функцию, прошу отписаться.

[mr4ester]

вам не кажется что вы не правильно описали функцию. зачем вам else, у вас сейчас написано ели пин=А тогда, иначе ......, зачем это иначе?, и зачем вот это A = Pinb.3 действие?, и вообще не до конца понятно, что вам нужно считать.

[purgen]

Добрый день уважаемые коты. Никак не могу скомпилить прилагаемый код, слишком мало опыта. Пожите кто чем может. Спасибо!

[edm2007]

Добрый.

Откуда код-то? Для начала все кавычки в коде неправильные. Например, подключаться файл должен так:

Код: Выделить всё

$regfile = "m168def.dat"

а не так:

Код: Выделить всё

$regfile = “m168def.dat”

Комментарии опять же:

Код: Выделить всё

'configure lcd screen

[implex]

вам не кажется что вы не правильно описали функцию. зачем вам else, у вас сейчас написано ели пин=А тогда, иначе ......, зачем это иначе?, и зачем вот это A = Pinb.3 действие?, и вообще не до конца понятно, что вам нужно считать.

Случайно не правильно скопировал:

Код: Выделить всё

Dim A As Bit
A = 1
Do
If Pinb.3 = A Then
Else
A = Pinb.3
Stop Timer0
Timer0 = 0
Start Timer0
.........
loop

Изначально требовалось следующее: сброс таймера при изменении состояния ножки. Я ввожу переменную, которая хранит состояние ножки. Программа выполняет следующее: сравнивает состояние порта с предыдущим состоянием, если состояние равно предыдущему, то ничего не происходит и таймер продолжает считать, если состояние изменилось то записывем новое состояние, останавливаем таймер, записываем внего 0 и запускаем. Так же и для других таймеров, только другая переменная и сравнивается с состоянием другой ножки. Then потом сразу else - я догадывался что это не совсем корректно, но программа заработала именно так как нужно. Если есть способ сделать более правильно эту часть, тогда подскажите, пожалуйста. Нужно следующее: если порт не равен переменной то....

[edm2007]

Нужно следующее: если порт не равен переменной то....

А, вот откуда эта ерунда с Else. Если нужна проверка на неравенство:

Код: Выделить всё

If Pinb.3 <> A Then
A = Pinb.3
Stop Timer0
Timer0 = 0
Start Timer0
.........

[implex]

Edm 2007 огромное спасибо! Именно то, что нужно. Вводил в гугл "неравно в bascom" и не нашел - плохо искал. По этому думал, что знака неравно нету. В исходниках по ходу то же редко встречается.

[dimon-790]

кто подскажет как переменную типа word , вытащить на 4х разрядный led индикатор ?. Пробовал разбить её на два байта , с помощью high и low и последующим делением на 10 но получается какято хрень . Кто и как это победил ?

[edm2007]

Какая разница сколько разрядов на индикаторе и какой тип переменной? Есть масса вариантов по разносу переменной по разрядам, и тип / разряды тут не имеют никакого значения. Можно оформить все это в цикл, который сам разобьет переменную по разрядам, а можно просто разнести руками, используя элементарно деление / остаток от деления. Будьте добры пример кода, в котором у Вас возникли затруднения.

[dimon-790]

Dim Razdisp(4)as Byte , N As Byte , L As Byte , Displ As Byte , Dat_adc As Word , R As Byte , G As Byte
Patcon:
Dat_adc = 256
'Razdisp(4) = High(dat_adc)
'Razdisp(3) = Low(dat_adc)

R = Dat_adc / 10
Razdisp(1) = Dat_adc Mod 10 '5
Razdisp(2) = R Mod 10
Razdisp(3) = R / 10
'razdisp(4) = Dat_adc / 10
Return

вот этот кусок программы , если в Dat_adc положитьчисло до 255 то всё нормально а если больше начинаются чудеса .

[edm2007]

Для начала разберитесь с типами переменных, у Вас Dat_adc имеет тип Word, а переменная R всего лишь Byte, в которой этот Word Вы пытаетесь делить. Та же история происходит в операциях с массивом Razdisp. Разумеется, будут чудеса если значение больше 255, оно же превышает значение типа Byte.

[dimon-790]

Согласен с переменными бардак , давно не баскомил позабывал многое , спасибо edm2007 . Дальше я уже сам .

[edm2007]

Да это всего лишь с типами переменных немного ошибка. Ерунда совсем. Конечно R не может нормально разделить переменную, она просто не в состоянии вместить тип Word. Та же история с Razdisp(..). А в остальном все верно.

[pavel123]

Если уже было, извините...
Вот еще сайт с обучалками и примерами.
Может кому пригодится.
http://avr.ru/beginer/bascom

[vanyap1]

Подскажите пожалуйста как отключить опрос датчиков на шине I2C если они отсутствуют? Потому как если я отключу от МК датчик температуры то схема останавливается полностью.

[edm2007]

Потому как если я отключу от МК датчик температуры то схема останавливается полностью.

Это с чего вдруг?

[vanyap1]

Схема работает стабильно, все в полном порядке, но если отключить датчик температуры или часы и не убрать опрос с программы то вся схема становится нерабочей. Все датчики и часы находятся на одной шине I2C, МК - Atmega8.
Можно как то установить флаг отсутствия устройства при первом опросе и не опрашивать последующий раз?

[edm2007]

Если не был получен импульс присутствия, то Err возвращает 1.

Код: Выделить всё

1wreset                                                     ' сбрасываем линию

If Err = 1 Then                                             ' если датчик не отозвался...
..........................