Kendali ON - OFF peralatan listrik dengan Bascom berdasarkan sensor suhu LM 35

Kendali ON - OFF peralatan listrik dengan Bascom berdasarkan sensor suhu LM 35

source code berikut ini berfungsi untuk mengendalikan ON -OFF peralatan listrik dengan berdasarkan data pembacaan sensor suhu ,  dan menampilkan data suhu pada LCD, dalam hal ini juga terdapat perhitungan rata-rata (untuk mengatasi pembacaan sensor suhu yang terkadang / sering tidak stabil)

berikut ini adalah source codenya :

$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

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

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI