Kontrol Suhu Otomatis mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Kontrol Suhu Otomatis mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian Kontrol Suhu Otomatis mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Kontrol Suhu Otomatis mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "m16def.dat"

$crystal = 16000000

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

Relay Alias Portd.0

Ddrd.0 = 1

Relay = 0

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

Dim W As Word , Volt As Word , Temp As Word

Dim Ch As Byte , Sp_uper As Byte , Sp_lower As Byte

Start Adc

Cls

Sp_uper = 45

Sp_lower = 40

Do

W = Getadc(0)

Volt = W * 5

Temp = Volt / 10

Temp = 50

Locate 1 , 1

Lcd "Suhu=" ; Temp ; Chr(&Hdf) ; "C"

If Temp > Sp_uper Then

Relay = 0

Locate 2 , 1

Lcd "HEATER OFF"

Elseif Temp < Sp_lower Then

Relay = 1

Locate 2 , 1

Lcd "HEATER ON "

End If

Wait 1

Loop

End