roboforum.ru

$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"