Технический форум по робототехнике.
$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 дней и то потому что тока сегодня эту тему увидел. Ты лучше конкретно по делу 
