' ***************************************************************************
' *
' * Title : LCD Thermometer LM35.bas
' * Version : 1.0
' * Last Updated : 17.04.2006
' * Target : AT Mega8
' * Author : www.avrprojects.net
' * Program code : BASCOM AVR
' * Hardware req. : LM35
' * Description : read analog value from LM 35 temperature sensor, show the result on a LCD
' * display with bar-graph
' ***************************************************************************
$regfile = "M8def.dat" ' use the Mega8
$crystal = 10000000
Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32 'delenie
Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 'palka sprava
Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16 'palka sleva
Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16 'palka sleva i delenie
Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1 'palka sprava i delenie
Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32 'polovina delenia
Deflcdchar 6 , 1 , 1 , 29 , 29 , 29 , 29 , 1 , 1 'palka sprava i polovina delenia
Deflcdchar 7 , 16 , 16 , 28 , 28 , 28 , 28 , 16 , 16 'palka sleva i polovina delenia
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7
Config Lcd = 20 * 4
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config ADC
Start Adc
Dim W As Word , Perc As Word , Volt As Word , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte , T As Byte , Cols_1 As Byte
Cls
Cursor Off
Locate 3 , 1
Lcd "0"
Locate 3 , 5
Lcd "10"
Locate 3 , 10
Lcd "20"
Locate 3 , 15
Lcd "30"
Locate 3 , 19
Lcd Chr(223) ; "C"
Do
W = Getadc(0)
Volt = W * 5
Volt_d = Volt Mod 10
Volt = Volt / 10
Locate 1 , 1
Lcd Volt ; "," ; Volt_d
Cols = Volt / 2
Cols_d = Volt Mod 2
Cols_1 = Cols + 1
Locate 2 , 1
If Cols = 0 Then
If Cols_d = 0 Then
Lcd Chr(2)
Else
Lcd Chr(7)
End If
Else
Lcd Chr(3)
End If
For I = 2 To 20
T = I Mod 5
If T = 0 Then
If Cols_1 = I Then
If Cols_d = 1 Then
Lcd Chr(6)
Else
Lcd Chr(1)
End If
End If
If Cols < I And Cols_1 < I Then Lcd Chr(1)
If Cols >= I And Cols_1 > I Then Lcd Chr(4)
Else
If Cols_1 = I Then
If Cols_d = 1 Then
Lcd Chr(5)
Else
Lcd Chr(32)
End If
End If
If Cols < I And Cols_1 < I Then Lcd Chr(32)
If Cols >= I And Cols_1 > I Then Lcd Chr(0)
End If
Next I
Waitms 1000
Loop
End
