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

[dimon-790]

servnt в таком виде вряд-ли . А вот если Pinb.0 = 0 заменить на Portb.0 = 0 . Ещё Else поубирать .

[servnt]

servnt в таком виде вряд-ли . А вот если Pinb.0 = 0 заменить на Portb.0 = 0 . Ещё Else поубирать .

А разве команда PORT(*) - не конфигурирование I/O? Т.е. вход/выход?

[edm2007]

За направление отвечает регистр DDR. Если 0 то пин порта настроен на вход (в этом случае запись 1 в регистр PORT подключит внутренний подтягивающий резистор, запись 0 переведет вход в высокоимпедансное состояние), если 1 - пин настроен на выход (запись в PORT, соответственно выдаст этот уровень).

А то что в баскоме пишут PORTB = Output, так к регистру PORT это никакого отношения не имеет. И если нужно выставить уровень на выходе, то конечно нужно писать PORTB.1 = 1 (либо Set PORTB.1). Регистр PIN же предназначен для считывания реального состояния вывода в режиме входа.

[servnt]

А, ну да. Я тут в трех елках заблудился
А вообще, допускается таким образом сравнивать значения на входах АЦП?:

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

If GetADC(2) > GetADC(3) Then

[servnt]

Вот таким образом работает:

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

$regfile = "attiny13.dat"
$crystal = 9600000
Ddrb = &B11100
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim A As Integer
Dim B As Integer
Do
Start Adc
A = Getadc(2)
B = Getadc(3)
If A = B Then : Portb = 0
End If
If A < B Then : Portb = 1
End If
If A > B Then : Portb = 2
End If
Loop
End

Только вот, подёргивание при равных сопротивлениях есть.

[edm2007]

А вообще, допускается таким образом сравнивать значения на входах АЦП?

Неа. Только считывание значения АЦП в переменную, и уже дальнейшие операции.

[servnt]

Неа. Только считывание значения АЦП в переменную, и уже дальнейшие операции.

Т.е., вот так, как у меня:

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

A = Getadc(2)
B = Getadc(3)
If A = B Then : Portb = 0

правильно? Тем паче - работает.

[edm2007]

Угу, только так и можно.

[servnt]

Подскажите еще, можно ли одновременно использовать в TIMER1 оба выхода, но с разной частотой ШИМа?

[pavel1979]

Подскажите еще, можно ли одновременно использовать в TIMER1 оба выхода, но с разной частотой ШИМа?

можно,только каждый порт будет 8-мибитным,гдето есть пример,найду-выложу если надо

вот http://avrproject.ru/publ/pwm_bascom/1-1-0-37

http://cxem.net/mc/mc177.php

[servnt]

Ага, спасибо, понял.
А если мне надо получить на выходе МК сигнал с постоянной длительностью, к примеру, 300 мСек, но разной частотой следования, то ШИМ уже не подходит.
Как в таком случае поступать? Длительность задавать командой Waitms 300, а частоту таймером отсчитывать?

[servnt]

Ребят, объясните, ну никак не врублюсь
Вот кусок примера:

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

Pulse:
  Stop Timer1
  Timer1 = Timer1pre
  Toggle Portb.1
  Start Timer1
Return

Toggle переключает пин 1 порта B каждый раз по переполнению порта №1, указанном в константе Timer1pre.
А почему тут не работает команда Disconnect?
Т.е мне надо бы что-то примерно такое:

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

Pulse:
  PORTB.1 = 1
  Waitms 150
  Stop Timer1
  Timer1 = Timer1pre (надо отсчитать 120 мс)
  Disconnect Portb.1
  Start Timer1
Return

Мне надо получить импульс постоянной длительности 150 мс, но с разным периодом.

ЗЫЖ Примерно разобрался:

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

  Reset Portb.1
  Waitms 150
  Stop Timer2
  Timer2 = Timer2pre
  Set Portb.1
  Start Timer2

Не знаю только, единственно верно и правильно такое решение

[Dnepr_1186]

Добрый день! Осваиваю работу с экраном НОКИА3310. С китайским дисплеем-контрастность маловата. Расскажите как ее изменить програмно?
В библиотеке есть такая строчка

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

D3310commandout &HC8 'Middle contrast

Здесь что-то менять надо? Либо в программе какая строчка добавляется? Спасибо заранее!

[vem566]

D3310commandout &HC8 'Middle contrast

Вот это значение &HC8 и регулирует контрастность. Изменяя С8 можно менять контрастность.

[Dnepr_1186]

это в шестнадцатиричном виде? в десятичном получаеться 200, а слышал это значение может быть от 0 до 125. Как здесь поступить? В каких пределах его можно менять?

[vem566]

Нужно читать даташит на экран. Может быть, что старший бит не используется. Тогда диапазон от 128 до 253 получается в десятичной системе. Можно провести эксперимент, можно почитать. Как удобнее.

[Dnepr_1186]

Посомтрел даташит на контроллер экрана... Что-то я там про контраст вообще не вижу. Посомтрите если не трудно, я в этих делах начинающий

[KOTик]

Мммрррр все неспящим котам
Пришел Вас помучить

Имеется Button1 (PINB.2) прижатая на землю, LED (PORTB.0) и висит Button2 на внешнем прерывании (PINB.1 (INT0)).
Button1 включает светодиод на некоторое время (использую wait 10 'секунд) затем выключается.
Прерывание нужно для экстренного выключения светодиода (раньше 10 секунд) и тут как бы все работает.
А вот для повторного нажатия на Button1 требуется время wait 10.

Т.е. пришло прерывание - выключили LED, вышли из прерывания в программу и там продолжаем ждать 10 секунд, после чего Button1 будет готов обработать следующее нажатие для повторного включения светика.
Я так понял, это самое wait 10 тормозит реакцию на повторное нажатие на Button1.
Наверно тут неправильно будет использовать оператор wait в качестве задержки/паузы.
Но тогда возникает вопрос - Чем его можно заменить?

[vem566]

Dnepr_1186, смотреть стр. 16 даташита. Я бы не мучился. Если все остальное работает, попробовал бы просто изменить значение той переменной.


KOTик, таймером организовать задержку. А если прерывание было, сбросить его(таймер) или остановить.

[pavel1979]

attyni2313 работа шим-насколько стабильно напряжение на выходе если сгладить его простой RC-цепью?думаю сделать блок фиксированных настроек на основе шим