Thermometer Digital berbasis mikrokontroler atmega8535 untuk mengakses sensor suhu lm 35 dan mengontrol kecepetan Kipas DC( digital thermometer using at mega 8535 and controlling dc motor fan speed)

Thermometer Digital berbasis mikrokontroler atmega8535, termometer digital ini hanya sebagai sample saja, berikut ini adalah tampilannya :

sensor suhu

video nya adalah sebagai berikut :

jika berminat untuk memiliki aplikasi dengan sensor sebagai mana di atas, silakan hubungi 085743320570 (taufik)


source code untuk mengakses sensor suhu pada at mega 8535 + mengontrol kecepatan motor dc adalah sebagai berikut

$regfile = "8535def.dat"
$crystal = 12000000

Porta = &B00000000



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




'Dim Pwm As Integer

Dim Pwm_eprom As Eram Integer

Dim Pwm As Integer


Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1

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


Wait 1


Cls
Locate 1 , 1
Lcd "input adc"

Locate 2 , 1
Lcd "Suhu"






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 100

If I = 20 Then
Rata2 = Jml / I

Cls
Locate 1 , 1
Lcd "input adc" ; Insuhuadc

Locate 2 , 1
Lcd "Suhu" ; Rata2

Locate 2 , 10
Lcd "PWM" ; Pwm


Elseif I > 20 Then
Jml = 0
 I = 0



'SEDANG
'Pwm = Pwm_eprom

If Rata2 < 25 Then : Pwm = 180 : Waitms 10
End If
' panas
If Rata2 > 30 Then : Pwm = 220 : Waitms 10
End If

If Rata2 > 40 Then : Pwm = 255 : Waitms 10
End If


'If Pwm > 255 Then : Pwm = 0 : Waitms 10

'End If

'If Pwm < 0 Then : Pwm = 255 : Waitms 10

'End If

Pwm1a = Pwm
Pwm1b = Pwm






End If

Loop KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI