Membuat Thermometer Digital Menggunakan ATMega8535 dan BASCOM AVR

Pada seri tutorial Micro Controller kali ini asaya akan memaparkan bagaimana membuat sebuah alat pengukur suhu secara Digital atau Thermometer Digital menggunakan Micro Controller dari seri ATMega 8535.

Selain menggunakan ATMega8535 anda juga bisa menggantinya dengan ATMega16. Manfaat dari alat ini adalah dapat mengukur suhu di ruangan ataupun bisa dipakai untuk mengukur suhu tubuh.
Komponen-komponen yang digunakan diantaranya :
1. Chip Micro Controller ATMega8535 atau ATMega16
2. Sensor suhu LM35
3. Adaptor atau Power Supply dengan tegangan keluar 5Volt
Berikut rangkaiannya yang saya buat dengan ISIS Proteus, hasilnya bisa disimulasikan setelah kita menulis programnya menggunakan BASCOM AVR.

Untuk programnya silahkan copy paste dari listing di bawah ini

'===========================================================
'Program : Termometer Digital
'Hasmi Susanto, S.T.

$regfile = "m8535.dat"   'Jika menggunakan ATMega61 ganti m8535.dat menjadi m16def.dat
$crystal = 8000000



Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4
Config Lcdpin = Pin , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0

Config Lcd = 16 * 2

Cursor Off
Deflcdchar 0 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32           ' baris-baris ini muncul setelah anda merancang
Deflcdchar 1 , 32 , 4 , 2 , 31 , 2 , 4 , 32 , 32            ' character tertentu menggunakan
Deflcdchar 2 , 17 , 10 , 4 , 32 , 32 , 32 , 32 , 32         ' LCD Designer



Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim A As Word , Volt As Word , Volt_d As Byte
Dim B As Byte

Start Adc                                                   'memulai ADC

Cls

Do
   For B = 1 To 50
   Locate 1 , 1
   Lcd "Welcome to Micro Kid Corp - Depok"
    Shiftlcd Left
   Waitms 20
   Next

   'Locate 1 , 1                                             'Karakter LCD baris 1
   'Lcd "Hasmi Susanto2014"                                   'Menampilkan teks

      A = Getadc(0)
      Volt = A * 5
      Volt_d = Volt Mod 10
      Volt = Volt / 20
      Locate 2 , 1
      Lcd "Temp.saat ini="
      Locate 2 , 16
      Lcd Volt ; "," ; Volt_d

      Locate 2 , 20
      Lcd Chr(0) ; "C"                                      'Menampilkan karakter yg dibuat pakai LCD Designer chr(0)
      Locate 2 , 22                                         'Menampilkan karakter yg dibuat pakai LCD Designer chr(1)
      Lcd Chr(1)
      Locate 2 , 24
      Lcd "Love Uya-Ayu-Icha"


Loop