Digital Thermometer Tampilan “Bargraph” dengan Mikrokontroler AVR

Pernah saya posting disini tentang membaca suhu dengan sensor LM35.  Hasilnya ditampilkan ke LCD dan dikirim ke komputer. Aplikasi mikrokontroler yang sekarang ini kita tambah tampilannya ke dalam bargraph.

Pakai LCD biasa, ukuran 16×2. Di baris pertama kita buat bargraphnya. Sensor tetep pakai LM35 ya. Masukkan ke ADC0 dari Atmega8535. Rangkaian dapat dilihat disini :
Masih mengandalkan BASCOM-AVR programnya :

$regfile = “m8535.dat”
$crystal = 16000000
Dim W As Word , T As Word , Led As Byte , Led1 As Byte , I As Byte

Declare Sub Lcd_bar()
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32        ‘ replace ? with number (0-7)
Deflcdchar 1 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16        ‘ replace ? with number (0-7)
Deflcdchar 2 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24        ‘ replace ? with number (0-7)
Deflcdchar 3 , 28 , 28 , 28 , 28 , 28 , 28 , 28 , 28        ‘ replace ? with number (0-7)
Deflcdchar 4 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30        ‘ replace ? with number (0-7)
Deflcdchar 5 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31        ‘ replace ? with number (0-7)
Deflcdchar 6 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32        ‘ replace ? with number (0-7)

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4 ,
Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2
Cls
Cursor Off
Locate 2 , 1
Lcd “Suhu:”
Start Adc
Do
W = Getadc(0)
T = W / 2
Locate 2 , 6
Lcd T ; Chr(6) ; “C  “
Waitms 200
Lcd_bar
Loop
End

Sub Lcd_bar:
Led = T / 5
Led1 = T Mod 5
If Led > 1 Then
Locate 1 , 1
For I = 1 To Led
Lcd Chr(5)
Next
If Led >= 1 Then Lcd Chr(led1) ; ”   “
Elseif Led < 1 Then
Locate 1 , 1
Lcd Chr(t) ; ”   “
Else
Locate 1 , 1
Lcd Chr(led1) ; ”   “
End If
End Sub

Hasilnya ini bro :

Modul atau hardware pakai Master Mikro. Selain dipakai untuk belajar mikrokontroler, dapat digunakan untuk aplikasi mikrokntroler.