Aplikasi - Pengendali Pemanas Air (Seri Pemantauan Suhu [II])

Aplikasi kali ini adalah suatu sistem yang dapat mengendalikan pemanasan air dengan jangkauan suhu air yang tetap, antara batas bawah sampai dengan batas atas suhu tersebut. Dalam kesempatan ini, batas bawah ditetapkan di 40^oC, sedangkan batas atas ditetapkan di 45^oC.

Ilustrasi:

Modul-Modul Depok Instruments yang Mendukung:

• DI-Smart AVR System (Sistem Minimum Mikrokontroler AVR ATMEGA8535)
• DI-Smart Extension Board
• DI-WLM35TS (DI-Waterproof LM35 Temperature Sensor)
• DI-Relay 2 / 2x DI-Relay 1

Blok Diagram:

Flowchart:

Skrip Program:

a.    BASCOM:

$regfile = “m8535.dat”
$crystal = 8000000
$baud = 9600

Dim Dataadc As Word
Dim Datasuhu As Single
Dim Buffs As String * 16

Const Vref = 2.5       ‘ ADC REFERENCE, nilai disesuaikan dengan hardware
Config Adc = Single , Prescaler = Auto
Start Adc

Config Portc = Output
Heater Alias Portc.0
Van Alias Portc.1

Do
Dataadc = Getadc(0)
Datasuhu = Dataadc / 1023
Datasuhu = Datasuhu * Vref
Datasuhu = Datasuhu * 100
Buffs = Fusing(datasuhu , “#.##”)
Print Buffs

If Datasuhu < 35 Then
Heater = 1
Van = 0
Elseif Datasuhu > 40 Then
Heater = 0
Van = 1
Else
Heater = 0
Van = 0
End If
Waitms 200

Loop