roboforum.ru

Подскажите как вывести данные на жки графический

Я вывожу командой Lcdat 3 , 1 , Adc1 на дисплей данные и у меня получается число типа - 2.2261561238. А как сделать чтоб отображалось типа 2.22 ?
Помогите я чет не могу понять?

Z = Fusing(Adc1 , "#.##") и Adc1 = Format(Adc1 , "0.00") чет не работают пишет ошибку....Помогите..

ммм, сейчас бригадир телепатов устраивается на новую работу, так что можно сказать канонические "ТЕЛЕПАТЫ В ОТПУСКЕ".

Может результат с помощью ftoa() в строчку перегнать и строчку выводить (если на С пишете)?

что бы в бейсике работала функция Формат, для начала эту переменную надо перевести в переменную типа String при помощи команды STR. Посмотри в хелпе эту команду там пример с ней есть, все понятно.

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

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


$regfile = "m128def.dat"                                    ' файл спецификации Меги128
$crystal = 14745600                                         ' указываем на какой частоте будем работать
$lib "glcdKS108.lib"
'-------------------------------------------------------------------------------
'----------------- Конфигурация дисплея МТ-12864А ------------------------------
'-------------------------------------------------------------------------------
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
'-------------------------------------------------------------------------------
'-------------------------- Подключаем шрифт -----------------------------------
'-------------------------------------------------------------------------------
Setfont Font8x8
'-------------------------------------------------------------------------------
'----------------------------------- АЦП ---------------------------------------
'-------------------------------------------------------------------------------
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config 1wire = Pind.6

Start Adc

Cls

Dim Volt As Single
Dim W As Word
Dim Dw As Single
Dim T As String * 10

Dim Ar As Byte
Dim Temperatur As Integer


Dw = 5 / 480


Do

W = Getadc(0)
Volt = W * Dw


  1wreset                                                   
  1wwrite &HEE                                             
Waitms 100                                               
  1wreset                                                   
  1wwrite &HAA                                             
Ar = 1wread()                                             
  1wwrite &H22                                             
  Temperatur = Ar                                         
  If Temperatur > 127 Then                                 
Lcdat 2 , 1 , "-"                                           
    Temperatur = 256 - Temperatur                           
  Else                                                     
Lcdat 2 , 1 , "+"                                           
  End If
Lcdat 2 , 15 , Temperatur ;                                 
Lcdat 2 , 30 , " C "                                       
T = Fusing(volt , "#.#") ------->  вот и
Lcdat 1 , 1 , T    --------------->  вот

Loop


End
$include "font8x8.font"



пользуйтесь.....

на зарубежных форумах нашол за сутки больше чем на руских за месяц...жесть я нипонимаю нас руских..... че тяжело или ктот здесь высказвается ес не хочет че отвечать (..... религия не позволяет ....)
я в ужосе...

Не волнуйся ты так, расслабься мне кажется я тебе дал довольно таки точный ответ на твой вопрос и не через месяц, а всего через 5 дней и то потому что тока сегодня эту тему увидел. Ты лучше конкретно по делу

Ну дык если сам можешь найти и разобраться, то какого, простите, рожна надо спрашивать, а потом еще слюной брызгать на тех, кто тебя подтолкнуть к верному ответу хотел, а не как идиоту готовое дать?

2 MOHTEP2

• Когда говорят о телепатах, значит вопрос поставлен некорректно.
  В данном случае недостаточно данных. Вот никто и не стал отписываться.
• Если вы сами(воспользовавшись поиском) нашли ответ, то зачем спрашивать на форуме?

ПС: Вспомнилась брошура "Как правильно задавать вопросы"...