Aplikasi - Pemantau Suhu Lingkungan (Seri Pemantauan Suhu [III])

Aplikasi kali ini adalah suatu sistem yang dapat memantau suhu pada suatu lingkungan. Pemantauan dilakukan di dua tempat: lokasi pengukuran, dan juga dari tempat lain. LCD 16×2 digunakan sebagai display suhu pada lokasi pengukuran, sedangkan pada tempat lain, suhu dapat dipantau dari PC, dengan menggunakan Hyper-Terminal ataupun program sejenis. Sebagai sensor suhunya digunakan sensor LM35. Sedangkan mikrokontroler yang digunakan adalah ATmega8535 dari keluarga AVR.

Ilustrasi:

*Jalur Komunikasi dapat menggunakan kabel maupun dengan nirkabel (wireless), dengan catatan perangkat nirkabel mendukung komunikasi serial-UART RS-232.

Modul-Modul Depok Instruments yang Mendukung:

• DI-Smart AVR System (Sistem Minimum Mikrokontroler AVR ATMEGA8535) atau DI-Super Smart AVR
• DI-Smart Extension Board
• DI-Smart LCD16X2 Board
• DI-WLM35TS (DI-Waterproof LM35 Temperature Sensor)

Blok Diagram:

Flowchart:

Skrip Program:

BASCOM:
‘===========================
$regfile = “M8535.dat”
$crystal = 8000000
$baud = 9600
$lib “lcd4busy.Lbx”
Config Lcd = 16 * 2
Const _lcdport = Portb
Const _lcdddr = Ddrb
Const _lcdin = Pinb
Const _lcd_e = 2
Const _lcd_rw = 1
Const _lcd_rs = 0
Cursor Off
Cls
Dim Dataadc As Word
Dim Datasuhu As Single
Dim Buffs As String * 16
Const Vref = 4.5
Config Adc = Single , Prescaler = Auto
Start Adc
Do
Dataadc = Getadc(0)
Datasuhu = Dataadc / 1023
Datasuhu = Datasuhu * Vref
Datasuhu = Datasuhu * 100
Buffs = Fusing(datasuhu , “#.##”)
Cls
LCD Buffs
Print Buffs
Waitms 200
Loop
‘===========================
CVAVR: