Membuat thermometer digital dengan tampilan LCD dan tampilan pada komputer berbasis mikrokontroller at mega 16 /at mega 8535 atau at mega 32 menggunakan bahasa pemrograman bascom (interface dengan software yang dibangun menggunakan Delphi 7)

 Membuat thermometer digital dengan tampilan LCD dan tampilan pada komputer berbasis mikrokontroller at mega 16 /at mega 8535 atau at mega 32 menggunakan bahasa pemrograman bascom (interface dengan software yang dibangun menggunakan Delphi 7)

Judul diatas bagi pemula mungkin kedengaran sangat keren dan menakjubkan, namun bagi level menengah akan dikatakan sepele dan sangat mudah 5 menit kelar (koding nya)

Thermometer merupakan alat ukur besaran suhu. Thermometer digital yang akan dibuat pada postingan kali ini memanfaatkan sensor suhu LM 35 yang dijual dengan harga kisaran 15 ribu rupiah. Sensor suhu akan di antar muka kan ke pin adc (analog to digital converter). Adc pada at mega 16 /at mega 8535 atau at mega 32 merupakan adc 10 bit, namun dapat pula di set menjadi 8 bit. Namun lebih di sarankan menggunakan mode 10 bit, supaya ketelitian pembacaan data suhu lebih baik.

 Oke ndak perlu bertele-tele tulisan ini saya buat,

Pertama , silakan download dan cetak ke pcb file pcb berikut ini, dibuka dengan software pcb wizard, pilih menu file-print artwork :

KLIK DI SINI untuk download file PCB

 

Selanjutnya, silakan install software bascom, software ini yang akan kita pergunakan dalam proses pemrograman mikrokontroller untuk membaca sensor suhu

Berikut ini adalah source code pembacaan sensor suhu dengan menggunakan software bascom untuk kemudian di tampilkan pada LCD

$regfile = "m16def.dat"

$crystal = 12000000

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

Cursor Off

Cls

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

Dim Insuhuadc As Word , Suhu As Word , Insuhuadcolah As Word , Insuhuadcprescalerx5 As Word

Dim I As Word , Jml As Word , Rata2 As Word

Cls

Locate 1 , 1

Lcd "input adc"

Locate 2 , 1

Lcd "Suhu"

Wait 1

Do

Start Adc

Insuhuadc = Getadc(0)

Insuhuadcolah = Insuhuadc * 5000

Insuhuadcprescalerx5 = Insuhuadcolah / 1023

Suhu = Insuhuadcprescalerx5 * 1

Jml = Jml + Suhu                                            '  data masuk di simpan ke dalam variable jml. kemudian jumlahkan setiap data masuk dengan variable jml

I = I + 1                                                   ' tiap ada data masuk, nilai ini akan di naikkan untuk perhitungan rata-rata

Waitms 1000

If I = 20 Then

Rata2 = Jml / I

Cls

Locate 1 , 1

Lcd "input adc" ; Insuhuadc

Locate 2 , 1

Lcd "Suhu" ; Rata2

Print rata2;

Elseif I > 20 Then

Jml = 0

 I = 0

Elseif Rata2 > 38 Then

Portb.0 = 0

Elseif Rata2 < 20 Then

Portb.0 = 1

End If

Loop

Baris – baris sorce code program di atas berfungsi untuk  menamilkan data sensor suhu serta mengaktifkan (meng- high-kan ) serta menonaktifkan (me-low-kan) pinb.0 jika suhu mencapai titik tertentu, aplikasinya dapat diterapkan pada oven otomatis, mesin penetas telur, sensor trjadinya kebakaran dan sebagainya

NB : jika membutuhkan kit mikrokontroller sebagai mana judul di atas, silakan contact  ( hubungi 085743320570 / taufik adi sanjaya)

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI