Программирование AVR, FUSE и все что с этим связано

[ua3rad]

txt1:= 'VOLTAGE=';

buff:= ADC_Read (0);
U:= buff*5/1023;
FloatToStr(U, txt4);
LCD_Out(1,1,txt1+txt4+'V');

на экране (VOLTAGE=0.15151V)

[tempora]

Так я и думал, что с числом ничего не происходит. Используйте sprintf для форматирования вывода.

[ua3rad]

в микропаскале нет такой функции

[akegor]

Значит, искусственно. Умножить на 1000, присвоить значение целой переменной, округлить. Разделить 1000 с присвоением "плавающей" переменной. Незначащие нули рисовать не будет.
А что делать, если нету? Наслаждаться извращениями.

ПС. Я бы сделал так.

INTU:= buff*500/1023;
FloatToStr(INTU/100.0, txt4);

Пардоньте, ежели чего не так, с Паскалем стараюсь дела не иметь, только по большой нужде.

[tempora]

в микропаскале нет такой функции

Значит, нужно было иначе формулировать этот вопрос:

Есть ли какая нибудь функция или процедура в mikroPascale или в mikroC для ...

Паскалем для АВР не пользуюсь, так как его обсудить не с кем.

[ua3rad]

Спасибо за совет!!!

[ua3rad]

Все получилось.
var
txt4 : array[9] of char;
U_txt : array[9] of char;
i,h: byte;
buff: word;
U: real;

buff:= ADC_Read (0);
U:= buff*5/1023;

// Округляем до сотых----------------------------
U:= Ceil(U*100)/100;
FloatToStr(U, txt4);
h:= length (txt4);
for i:=0 to h-4 do U_txt[i]:= txt4[i];
//---------------------------------------------------------------------

[ua3rad]

Осваиваю LCD. Столкнулся с такой проблемой?
var
txt3 : array[5] of char;
ADC_txt : array[4] of char;
i,j: byte;
buff: word;

txt2:= 'Kod ADC=';
buff:= ADC_Read (0);
WordToStr(buff, txt3); (например '','','3','1','2','' )


if buff ‹ 10 then k:= 4 else
if buff ‹ 100 then k:= 3 else
if buff ‹ 1000 then k:= 2 else k:= 1;
j:= k;
for i:= 0 to 4 do
begin
if i‹= 4-k then
begin
ADC_txt[i]:= txt3[j];
inc(j);
end
else ADC_txt[i]:= '';
end;

теперь ('3','1','2','','','')

LCD_Out(2,1,txt2+ADC_txt);
Если код ацп увеличивается, то результат (Kod ADC=1 увеличиваем Kod ADC=12 увеличиваем Kod ADC=123 увеличиваем Kod ADC=1023 увеличиваем)-все хорошо
Когда я начинаю уменьшать код, то (Kod ADC=1023 уменьшаем Kod ADC=8903 уменьшаем Kod ADC=0023 уменьшаем), т.е. было число 4-х значное, потом стало 3-х значное, а последний знак от 4-х значного числа остался и т.д.

как это исправить

[tempora]

ua3rad, я, признаться, не писал про "умножить на сто / отбросить др.часть / разделить на сто" чтобы не обидеть, и вдруг - "спасибо за совет"... программу из топора пишете?

[ua3rad]

Спасибо за то, что откликнулись. как придумал, так и написал код. Я просто осваиваю LCD. Вывожу на индикатор напряжение с АЦП. Может вопросы и тупые, так форум для вопросов и ответов создан.