Dim T As SWord 'температура в цельсиях x 10
Dim Prm As Dword 'давление в мм ртутного столба mm.rt.st
‘вывод на 1602. Работает нормально!
Print At 2,11,SDec2 T/10,".",Dec1 T, 223, "C"
Print At 2,1, Dec Prm/100,".",Dec2 Prm,"mm"'" mm.rt.st"
‘вывод температуры на nokia-1616. Работает нормально.
StrN Text_stroka=Str$(SDec2 T/10):GoSub Nokia_1616_Text
StrN Text_stroka="." :GoSub Nokia_1616_Text
StrN Text_stroka=Str$(Dec1 T) :GoSub Nokia_1616_Text
StrN Text_stroka="`C" :GoSub Nokia_1616_Text
‘вывод давления на nokia-1616. Проблема!
‘проблемка втом, что переменная Prm (DWord) не хочет отображаться на дисплее
StrN Text_stroka=Str$(Dec Prm/100):GoSub Nokia_1616_Text
StrN Text_stroka="." :GoSub Nokia_1616_Text
StrN Text_stroka=Str$(Dec2 Prm) :GoSub Nokia_1616_Text
StrN Text_stroka="mm" :GoSub Nokia_1616_Text
Если добавляю переменную, нормально выводит только целую часть (fff), подскажите как вывести значения после запятой.
Dim fff As Word
fff=Prm/100
StrN Text_stroka=Str$(Dec fff) :GoSub Nokia_1616_Text
StrN Text_stroka="." :GoSub Nokia_1616_Text
StrN Text_stroka=Str$(Dec2 Prm) :GoSub Nokia_1616_Text
StrN Text_stroka="mm" :GoSub Nokia_1616_TextДобавлено (24.02.2017, 21:02)
---------------------------------------------
Проблемка решена.
Dim ggg As Word
ggg=Prm-30000
StrN Text_stroka=Str$(Dec2 Prm) :GoSub Nokia_1616_Text
теперь все нормально.