я като и необратил внимание. Осталось после эксперементов. Правильно конечно отрубить есле ненжен выход inv OCB1 и Pwm1aedm2007 писал(а):Да, теперь все понятно.А Вы специально включили инверсный вывод OC1B в GTCCR? И PWM1A тоже.
http://pol-sem.narod.ru/muson/muson.htmvpashko писал(а):Как сюда дописать две кнопки чтоб при нажатии на одну играла музыка а второй выбирать музыку.
Код: Выделить всё
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 писал(а):Форматировал вывод так:
.... Можно и функцией 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) ,aleksandr-zh писал(а):кол-во открытых скобок не совпадает с кол-вом закрытых
Может всё-таки надо так:us5caa писал(а):с скобками ошибся когда вставлял сюда код, в исходнике всё правильно... A$=str((Frequency) , 8 )
Это недокументированная команда,Microtech писал(а):A$=str(Frequency),8) А что значат скобки запятая и цифра 8?
о которой даже Марк Альбертс не знает! 
Ну это я гдето подсмотрел, в каких то исходникахМурик писал(а):Это недокументированная команда,Microtech писал(а):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
Moto_v3x писал(а):us5caa
Это новая прошивка для Бриз-5 или синтезатора или что то новое готовится?
Это готовится новый приборчик вот только не могу понять что происходит с Bascom , 1.11.9.0 выдавал ошибку в пустой строчке.... переустановил 1.11.9.5 , появилась такая проблема, не могу расставить цыфры Как бы текущая версия 2.0.4.0.us5caa писал(а):1.11.9.0
Да исходник за основу взял именно этот, но там время счёта 1сек, уменьшил константы в 5 раз, и умножаю показания на 5.Moto_v3x писал(а):us5caa
может это из за разной длинны строки после деления, хотя если на входе делитель на 10 то надо умножать на 10 или увеличивать время счета. Хоть бы показали конфигурацию дисплея, таймера, прерываний.
Похоже что этот исходник взяли за основу.