ciao a tutti,
ho già postato nella sezione microcontrollori,
vorrei sapere come fare in bascom per leggere il valore della temperatura con un LM35 collegato ad un atmega16.
grazie
'*******************************************************************************
' Lettura temperatura con sensore LM35
' Range misura 0 .. 80°C
' Accuratezza: ±0.5°C
' MPU: Atmega16
' Autore: G. De Luca
'*******************************************************************************
$regfile = "m16def.dat"
$Crystal=16000000
$hwstack=40
$swstack=16
$framesize=32
$baud = 19200
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'configura ADC
Start Adc 'start ADC
'-------------------------------------------------------------------------------
Dim V As Word
Dim Volt As Word
Dim Volt_d As Byte
'-------------------------------[ Main ]---------------------------------------
Do
V = Getadc(0) 'leggi dal canale (0)
Volt = V * 5 ' moltiplica x 5
Volt_d = Volt Mod 10 ' calcola il modulo
Volt = Volt / 10 ' dividi x 10
Print Volt ; "," ; Volt_d
Waitms 500
Loop
'-------------------------------------------------------------------------------
End
Users browsing this forum: No registered users and 6 guests