04 November, 2011

SENSOR SUHU LM35 dg Micro ATmega8535 + LCD display + Buzzer

wah..,dah lama gak posting nih. n skarang coba lagi utk ngblog stelah kian lama mati suri...he he he.,

ok bro kli ni gue dapet job buat pengukur suhu kolam pake sensor LM35 n gue pake micro ATmega8535
  
lom tu lo kudu siapin komponen pendukung bro, karna mustahil tanpa komponen soalnya ni dunia nyata bukan magic, ha ha ha  relaks bro just kidding.,n_n

komponen : (saran : lo mesti nyari di toko komponen elektronik, jngan d pasar buah. ya iya lah)
- microcontroller AVR ATmega8535
- Crystal 12 MHz
- kapasitor 33 pF
- PCB
- sensor suhu LM35 
- buzzer 
- LCD display (20x4 / 16x2 trgantung kbutuhan lo bro)
- pin male & female
- kabel (pelangi utk permudah hafal jalur)
- resistor variabel 50 ohm

tu ane kira utk kompenen utamanya bro, selebihnya kreasi pribadi, anak indonesia kan kreatif 
          ^^^^^hidup anak indonesia^^^^^

go action :

rangkai komponen tadi kyak gambar dbwah ni,



pastiin bro rangkaian lo gak salah..,OK

nah klu dah dirakit tu smua komponen lo mesti buat listing programnya, tersrah lo mo pake program apa, n kali ni gue pake BASCOM (Basic Compiler)

'######################################################'
'*** LISTING PROGRAM SENSOR SUHU LM35                    ***'
'*** NAMA               = qabulbee.blogspot.com                            ***'
'*** JUR & ANG      = TEKNIK ELEKTRO 2007               ***'
'*** UNIVERSITAS SRIWIJAYA                                                ***'
'######################################################'


$regfile = "M8535.dat"
$crystal = 12000000

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2

Buzzer Alias Portb.0
Aman Alias Portc.7
Bahaya Alias Portc.6

Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Dataadc As Word , Datasuhu As Single
Const Vreff = 5.00
Start Adc

Cls
Cursor Off
Locate 1 , 1
Lcd "*qabulbee.blogger*"
Locate 2 , 14
Lcd Chr(223) ; "C"
Locate 2 , 1
Lcd "SUHU ="

Do

Dataadc = Getadc(5)
Datasuhu = Dataadc / 1024
Datasuhu = Datasuhu * Vreff
Datasuhu = Datasuhu * 100
Locate 2 , 8
Lcd "" ; Fusing(datasuhu , "#.##")

If Datasuhu > 30 Then
Aman = 0
Bahaya = 1
Buzzer = 1

Elseif Datasuhu < 30 Then
Aman = 1
Bahaya = 0
Buzzer = 0
End If

Waitms 100
  Loop
End

nah slesai deh ni listing programnnya, loh kog gak jlan alat gue, tenang bro lo kan blum masukin ni listing programnya ke micro ATmega8535. yg jelas jngan pake gancu bro

so pake downloader karena ni alat didesain tanpa downloader klu pengen skalian downloader lo bisa kembangin sendiri bro., OK

 ni Downloader yg ane pake pabrikan dari Micro+ TRAINING..,nah ni jga butih driver usbnya biar detect di PC.
 dah sbuah software lagi yaitu KHAZAMA AVR programmer yg bisa BroLek (bro elektro) lihat di khazama.com

nih tampilan softwarenya :



 tretet..,tretet..,tretet..,tretet download program selesai..,nah ni alat ane BROLEK.