я делал, но на предшественике Баскома - FastAVRamv2000 писал(а):Как вариант сделать серию изображений от пустой шкалы до заполнения (какая дискретность, столько и рисунков), измеряем уровень на АЦП и в зависимости от уровня через Select case выводим нужный рисунок.selco писал(а):Кто знает,как сделать на 3310 логарифмическую шкалу
Я делал похожее, но на дисплее 1100 - делал вертикальную шкалу для термометра. Для этого я просто перерисовал ненужные символы из библиотеки (сделал вместо них разное количество горизонтальных черточек) и выводил по необходимости. Грубо говоря 0 - пробел. 1 - символ с одной чертой, 2 - с двумя и т.д... Насколько я помню библиотеку от 3310 - там это можно сделать в файле 3310end.bas.selco писал(а):Спасибо.
Согласен , пожалуй мне надо более глубоко изучить мат часть. Хотел нахаляву разъдобыть , думал мож кто уже занимался подобмными весчами . Видать прийдётся стать первооткрывателем ...ut1wpr писал(а):Читайте литературу.
Не получится. Все уже открыто до вас. Ваша проблема не в том, что НЕТУ, просто нету именно ТОГО, что вам нужно. Есть основа, а ее придется изучить понять и переделать. Обыкновенное обучение на начальном уровне. Без выхода на этот уровень, а потом и на более высокие, открытий не сделаете.dimon-790 писал(а):Видать прийдётся стать первооткрывателем ...ut1wpr писал(а):Читайте литературу.
Пример из даташита меги16:vanyap1 писал(а):Как пользоваться дифференциальным усилителем у меги16?
Точнее - как измерять ток через шунт с помощью АЦП без внешнего ОУ?
Я так понимаю, что очистка экрана идет в цикле? А если отслеживать по изменению уровня? Если уровень уменьшился, тогда очищаем экран и перерисовываем, а если увеличился, тогда очищать не надо, просто добавить к шкале n-ное количество пикселей. Наверное так будет меньше моргать. Другой вариант - увеличить частоту перерисовки экрана, только это, наверное, уже придется 32 разрядный МК использовать или ПЛИС.selco писал(а):Gordon Shumway писал(а): Всё это я понимаю,но,программа выполняет ещо и другие функции. Когда изменяется шкала то естественно чистится экран,цифры и другие надписи в этот момент мигают. нельзя ли сделать очистку определённой строки? Пробовал в end файле добавить вторую очистку,но он чистит всегда с верху,менял значение от 0 до 503 и всё равно чистит с верху. Мне нужна только нижняя строчка. Помогите.
Код: Выделить всё
$regfile = "m8535.dat"
$crystal = 8000000
$baud = 9600
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 255 ', Bytematch = All
Config Lcdpin = Pin , Db7 = Porta.3 , Db6 = Porta.2 , Db5 = Porta.5 , Db4 = Porta.4 , Rs = Porta.7 , E = Porta.6
Dim Na As Byte , Buf_count As Byte , A As Byte
'Ucsrb.5 = 0
Enable Interrupts
'Clear Serialin
'$timeout = 500000
Do
If Ischarwaiting() = 1 Then 'если байт в регистре
Inputbin Na 'Забираем Его В Na
Incr Buf_count 'увеличиваем счётчик кол-ва байт
End If
Waitms 2 'ждём немного
If Ischarwaiting() = 0 Then 'если буфер попрежнему пуст
If Buf_count > 1 Then 'а счётчик кол-ва байт больше единицы
Cls 'выдаём получиные на индикатор
Lcd Hex(na)
Lowerline
Lcd Buf_count
Buf_count = 0 '
End If
End If
LoopКод: Выделить всё
$regfile = "attiny45.dat"
$crystal = 8000000
Dim Na As String * 6
Open "comb.1:9600,8,n,1" For Output As #1
Open "comb.2:9600,8,n,1" For Input As #2
Do
Na =Waitkey (#2)
Print #1 , Na
Loop
..
естественно теряете часть посылки. 
Код: Выделить всё
$regfile = "m8535.dat"
$crystal = 8000000
$baud = 9600
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 10
'Config Serialout = Buffered , Size = 10 ', Bytematch = All
Open "comc.1:9600,8,n,1" For Input As #1
Open "comc.0:9600,8,n,1" For Output As #0
Dim Na(10)as Byte , Buf_count As Byte , A As Byte
Enable Interrupts
Clear Serialin
Buf_count = 1
Do
If Ischarwaiting() = 1 Then 'если байт в регистре
Inputbin Na(buf_count) , 1 'Забираем Его В na
Incr Buf_count 'увеличиваем счётчик кол-ва байт
End If
Waitms 2 'ждём немного
If Ischarwaiting() < 1 Then 'если буфер попрежнему пуст
If Buf_count > 1 Then 'а счётчик кол-ва байт больше единицы
For Buf_count = Buf_count To 2 Step -1
Incr A
Printbin #0 , Na(a) ; 1 'выдаём полученые данные
Next
A = 0
Clear Serialin '
End If
End If
Loop
Close #1
Close #0