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

[TRIOD]

Да, теперь все понятно. А Вы специально включили инверсный вывод OC1B в GTCCR? И PWM1A тоже.

я като и необратил внимание. Осталось после эксперементов. Правильно конечно отрубить есле ненжен выход inv OCB1 и Pwm1a

[edm2007]

Ну да, потому я и пишу всегда в двоичном виде, чтобы нагляднее было.

[aleksey_gregul]

Как сюда дописать две кнопки чтоб при нажатии на одну играла музыка а второй выбирать музыку.

http://pol-sem.narod.ru/muson/muson.htm

[vpashko]

aleksey_gregul, спасибо что ответили, я видел этот звоночек, но там исходник не на Bascom AVR написан.

[us5caa]

Подскажите, как привести к виду 00.000.000 показания частотомера
сейчас показывает "00.000000"
тренируюсь с граф 128х64
кусочек исходника:

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

Dim Frequency As Single
Dim Flag As Bit
Dim Overflow As Byte
Dim Cnt As Long
Dim Disp As String * 8

'---------------
Main:
Do
    If Flag = 1 Then
            Frequency = Overflow * 65536                    '65536
            Frequency = Frequency + Counter1
Setfont Font8x8
            Lcdat 1 , 10 , "Frequency metr" , 0
            Frequency = Frequency / 100000
Disp = Str(frequency)
            Setfont My12_16
            Disp = Fusing(frequency , "0.00000")
            Lcdat 4 , 1 , Disp , 0
'--------------------

[Microtech]

Форматировал вывод так:
Число из бинарника в строчку ASCII функцией STR, тут все ясно. Далее цикл или функция FORMAT, в котором дополняются нули перед числом и десятичные точки. Можно и функцией MID вставить точки или другие знаки, в нужных местах, затем на индикацию. Сложнее, когда индикатор сегментный, там точки надо не в текстовой строке держать, а учитывать при управлении сегментами. Строковые функции сильно жрут память, я использовал только STR 1 раз, чтобы бинарный в ASCII сделать, а затем, получив адрес этой строки в ОЗУ функцией VARPTR, все остальное на ASM вставке, но много не сэкономил.

[Alvasin]

ATmega8 имеет два 8 разрядных таймера / счетчика и один 16-разрядный таймер счетчик с различными способностями.

Особенности 8-разрядный Timer/Counter0 являются:

Одноканальный счетчик;
Частота генератора;
Внешний счетчик событий;
10 - делитель частоты немного часов.




TCNT0 является 8-битный таймер регистра счетчика. Таймер счетчик может быть синхронизирована внешним часов через контактный T0 или от внутренних через предварительно scaller. Таймер счетчик увеличивая (MAX значение 0xFF), а затем возобновляется с внизу = 0x00. После переполнении таймера, флага TOV0 записывается в 1, и если TOIE0 бит в SREG установлен, то переполнения таймера прерывания выполняется. TOV0 действует как девятый бит из регистра счетчика, который только установлен, но не очищается. При этом бис сочетается с переполнения таймера прерывания - то она автоматически снимается. Если вам нужно, чтобы начать не образуют вниз, то вы можете написать любое значение TCNT0 зарегистрироваться в любое время.

[us5caa]

Форматировал вывод так:
.... Можно и функцией MID вставить точки или другие знаки, в нужных местах, затем на индикацию. ....

можно написать кусочек, почему то такой вариант типа:

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

Dim A$ as string * 8
Dim B$ as string * 13
.
.
A$=str(Frequency) , 8)
B$=left (a$ , 2) +"."
B$=B$+Mid (a$ , 3 , 3) +"."
B$=B$ + right(a , 3) + "Hz"
Setfont My12_16
Lcdat 4, 10, B$ ,0  

не проходит, компилятор ругаветься на A$=str(Frequency),8)....
Что делаю не правильно?

[aleksandr-zh]

кол-во открытых скобок не совпадает с кол-вом закрытых

[us5caa]

кол-во открытых скобок не совпадает с кол-вом закрытых

с скобками ошибся когда вставлял сюда код, в исходнике всё правильно... A$=str((Frequency) ,

[Alex_Megavolt_79]

Уважаемые коты, а кто нибудь разбирался с датчиками давления MPX4115AP и влажности HIH-4000 группы 002 или 004. Я не совсем пойму как пересчитывать показания АЦП. И есть ли у кого пример на ВАСИКЕ?

[Microtech]

us5caa
A$=str(Frequency),8) А что значат скобки запятая и цифра 8?
может подойдет A$=str(Frequency)+"8" но не понятно, зачем там 8, или восьмерка к длине строки отношение должна иметь? Переменная A$ и так объявлена как 8 байт длиной, никаких цифр в STR подставлять не надо.

[Секретный кот]

с скобками ошибся когда вставлял сюда код, в исходнике всё правильно... A$=str((Frequency) , 8 )

Может всё-таки надо так:
A$ = str(Frequency)
A$ = Mid(A$, 1, 8 )
?

[Мурик]

A$=str(Frequency),8) А что значат скобки запятая и цифра 8?

Это недокументированная команда, о которой даже Марк Альбертс не знает!

[us5caa]

A$=str(Frequency),8) А что значат скобки запятая и цифра 8?

Это недокументированная команда, о которой даже Марк Альбертс не знает!

Ну это я гдето подсмотрел, в каких то исходниках
получилось всё таки разбить цифры точками....

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

Dim Frequency As Single
Dim Flag As Bit
Dim Overflow As Byte
Dim Cnt As Long
Dim Disp As String * 8
Dim Text$ As String * 10
Dim Prom_ch As Single
..............
.............
Main:
Do
    If Flag = 1 Then
            Frequency = Overflow * 65536                    '65536
            Frequency = Frequency + Counter1


            Frequency = Frequency / 1000000
            Frequency = Frequency * 5
            'Frequency = Frequency + Prom_ch

            Disp = Str(frequency)

            Setfont Font8x8
            'Setfont My12_16
            Disp = Fusing(frequency , "#.######")
            Text$ = Left(disp , 2) + Mid(disp , 3 , 3) + "."
            Text$ = Text$ + Right(disp , 3)
            'Print Text$
            Lcdat 4 , 1 , Text$ , 0
            Setfont Font8x8

            Lcdat 8 , 1 , "Presc=10" , 0
             Line(0 , 12) -(127 , 12) , 255
            Line(0 , 50) -(127 , 50) , 255
            Line(64 , 50) -(64 , 63) , 255
            Line(0 , 13) -(127 , 13) , 255
            Line(0 , 51) -(127 , 51) , 255
            Reset Flag
            Counter1 = 0
            Overflow = 0
            Cnt = 6950                                      ' 34750 çíà÷åíèå ïîäîáðàíî äëÿ çàõâàòà çà 1 ñåêóíäó


            Tcnt1 = 0
            Tcnt0 = 90

            Start Timer0
            Start Counter1
     End If
Loop

но... так микруха считает до 8МГц, а если использовать делитель на 10, соответственно в исходнике
Frequency = Frequency / 1000000 делить не на 1000000 а на 100000 то на дисплее опять бред... типа 86. 86.86.86. и так далее за пределы дисплея (86-это какоето случайное число из подаваемой на вход частоты )

[Moto_v3x]

us5caa
Это новая прошивка для Бриз-5 или синтезатора или что то новое готовится?

[us5caa]

us5caa
Это новая прошивка для Бриз-5 или синтезатора или что то новое готовится?

Это готовится новый приборчик вот только не могу понять что происходит с Bascom , 1.11.9.0 выдавал ошибку в пустой строчке.... переустановил 1.11.9.5 , появилась такая проблема, не могу расставить цыфры
Почему Frequency = Frequency / 1000000 выводиться нормально а Frequency = Frequency / 100000 не нормально?

[Мурик]

1.11.9.0

Как бы текущая версия 2.0.4.0.
Может и была какая-то ошибка компилятора (его люди пишут, а людям свойственно ошибаться) и возможно что ее исправили в текущих версиях.

[Moto_v3x]

us5caa
может это из за разной длинны строки после деления, хотя если на входе делитель на 10 то надо умножать на 10 или увеличивать время счета. Хоть бы показали конфигурацию дисплея, таймера, прерываний.
Похоже что этот исходник взяли за основу.

test_02.rar

[us5caa]

us5caa
может это из за разной длинны строки после деления, хотя если на входе делитель на 10 то надо умножать на 10 или увеличивать время счета. Хоть бы показали конфигурацию дисплея, таймера, прерываний.
Похоже что этот исходник взяли за основу.

test_02.rar

Да исходник за основу взял именно этот, но там время счёта 1сек, уменьшил константы в 5 раз, и умножаю показания на 5.
изменил только дисплей.