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

[Magicanin]

Я не могу проверить на работоспособность, просто смотрю в симуляторе где зацыкливается.
Вводи функцию обнуления S, ато он переполняется до 255.

[Magicanin]

Попробуй так:

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

Do
If X = 1 Then Gosub Label1
If X = 0 Then Gosub Label2
S = 0
Loop

Buttons:
If Knopka = 0 Then
  Waitms 100
  Incr S
  If S <= 5 Then
  X = 1
  S = 0
  Else
  X = 0
  End If
End If
Return

[Smokeman]

Спасибо Magicanin, буду пробывать..

[kip96]

Попробуй так:

Не пойму, если Config Int0 = Falling, то когда же S станет больше 5-ти ?
опять-же:

If Knopka = 0 Then 
Waitms 100 
Incr S 
If S <= 5 Then 
X = 1 
S = 0 
Else....

Она вообще станет больше 5-ти?

[kip96]

Устройство сделано в железе, по внешним признакам переходит сразу на Label2. На кнопки ни как не реагирует.

Железа-то не видно! Где у Вас кнопки? Их две или одна?
Инт0 вро-де бы на ПинБ2
Сделайте в первоночальном коде
Knopka Alias Pinb.2

[Smokeman]

Че то вы меня еще больше запутали.. Вот схема по которой собрано устройство.

IMG_4976.jpg

(96.37 КБ) 547 скачиваний

Вообще кнопки - 2, но тут бы хотя бы с одной разобраться!

[kip96]

Ну так, блин, Инт0 же на седьмой ноге !!! Внимательней!

[kkozyrev]

Пример на дисплее LS020
http://robozone.su/2009/03/02/modul-dlja-podkljuchenija-graficheskogo-lcd-ls020.html

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

жаль они свой сайт забросили, такой хороший проект был

[Magicanin]

Сайт отличнейший для начинающих. Я с него и начинал знакомство с AVR и программированием.
Был...
Форум замер, новых проектов нет.
Но для развития интереса самое то.

[kkozyrev]

а можно схемку посмотреть подключения?

или может просто в линии данных воткнуть резисторы по 10к ???

С ноги МК на вывод индикатора идет резисторЮ а с вывода индикатора на землю - еще один. Отношение сопротивлений как (Rна инд. + Rна земл.)/Rна земл = 5/3,3. Выбирал для тока через делитель миллиампер 5 - что-б зело фронты не валились.

спаибо

[suslogon]

вопрос такой: мог бы кто небесплатно разумеется (но и не очень дорого) написать программку для мега32 для термометра на дс18б20 с несколько хитрой индикацией?

[Magicanin]

На сколько хитра индикация?

[Aleks8383]

Поприветствую всех,начал изучать Баском(второй день идёт )пробую АЦП так в принципе всё понятно вот только как вывести на индикатор нормальное значение напряжения,а не цифровой код АЦП и ещё пытался выполнить кое какие арифметические операции ,в частности эту формулу U^2/ 50 (ВЧ мощность передатчика высчитывает это так к примеру)так там опять что то не выходит,что я не так делаю подскажите????

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

$regfile = "m8def.dat"                                      ' atmega8

$crystal = 1000000                                          ' частота установленного кварца 1 mHz

'указываем конфигурацию подключения дисплея к портам МК

Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0

Config Lcd = 16 * 2                                         'используем дисплей на 2 строчки по 16 знакомест в каждой

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'конфигурация АЦП

'объявляем переменные
Dim W As Word
Dim W1 As Word
Dim W2 As Word

Start Adc                                                   'запускаем аналого-цифровое преобразование

'---------- заставку-------------------------------

Wait 1                                                      'задержка 1 секунда

Cursor Off                                                  'отключаем отображение курсора на ЖК

Cls                                                         'очитка дисплея

Deflcdchar 0 , 4 , 14 , 27 , 17 , 17 , 31 , 17 , 17

Deflcdchar 1 , 18 , 18 , 18 , 18 , 18 , 18 , 30 , 3

Deflcdchar 2 , 31 , 17 , 17 , 17 , 17 , 17 , 17 , 17

Deflcdchar 3 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4

Deflcdchar 4 , 31 , 16 , 16 , 31 , 31 , 16 , 16 , 31

Deflcdchar 5 , 31 , 16 , 16 , 16 , 16 , 16 , 16 , 31

Deflcdchar 6 , 31 , 4 , 4 , 4 , 4 , 4 , 4 , 4

Cls

Locate 1 , 4

Lcd Chr(0) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(4) ; Chr(5) ; Chr(6)

Wait 2                                                      'задержка 2 секунды

'----------

'главный цикл программы


Do

  W = Getadc(0)

   Locate 1 , 1 : Lcd "" ; W ; "V"

   W1 = W * W

   W2 = W1 / 50 :

   Lcd "; " ; W2 ; "Wt"

Waitms 100                                                  ' зедержка 0,1 секунды

Loop

End

[amv2000]

Я делаю так: Разбиваю диапазон измеряемого напряжения на 1023 ( АЦП,имеет разрешение 10 бит. Соответственно каждый канал выдает 1024 дискретных значений от 0 до 1023.)
ввожу переменную Uper типа Single
Uper = 0.0489 'коэф для 50В (5/1023)*10 где 10 это делитель
W = Getadc(0)
Ulcd = Uper *W
Locate 1 , 1
Lcd "U=" ; Fusing(ulcd , "##.#") ; " B "
как то так....
хотите целое число
Locate 1 , 1 : Lcd "" ; Ulcd ; "V"
подробнее тут http://robozone.su/index.php?newsid=40
и тут http://bascomavr.3bb.ru/viewtopic.php?id=62

[Aleks8383]

Честно так и не понял как коэф.берутся??? 0.0489 это откуда взято из практики?А как на счёт арифметики?

[xaker-man]

делал как то вольтметр. Во первых нужно определиться сколько максимально ток нужно мерить, от этого нужно смотреть точность и резисторный делитель. Если нужно можно на транзах сделать многоуровневый измеритель напряжения. Сообщите сколько вольт нужно мерить максимум,от этого и будем отталкиваться.
почитайте http://avrproject.ru/publ/zadejstvuem_a ... r/1-1-0-13 там все понятно.

[amv2000]

Честно так и не понял как коэф.берутся??? 0.0489 это откуда взято из практики?А как на счёт арифметики?

Расчет переменной я же давал коэф для 50В (5/1023)*10 где 10 это делитель
это для опорного 5 вольт, а 10 коэффициент усиления у меня , у Вас может быть другой это зависит от резистивных делителей

[Aleks8383]

Примерно понял,завтро буду разбираться,спасибо.

[kkozyrev]

доброго всем.
для отсылки команды в телефон ввод команды должен заканчиваться символом перевода строки.
т.е. я пишу в uart
print "AT" и долженбыть символом перевода строки.
подскажите как это в баскоме выглядит?

[selco]

Доброго всем ЗДОРОВИЦА.Подскажите как сделать s-metr на дисплее от сименса ls020.
покажите на маленьком примере ,СПАСИБО.