Program ATmega8535 ADC, alarm buzzer dan RS232 dengan Bascom AVR

Berikut merupakan contoh sederhana untuk membuat alarm buzzer dari ADC atmega8535 dengan bahasa basic,,,sederhana saja jika suhunya dah mencapai 28 dan lebih tinggi maka buzzer akan berbunyi

Kali ini saya menggunakan bahasa basic dengan bascom avr….silakan dicoba yah teman-teman.

$regfile = "m8535.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single, Prescaler = Auto, Reference = Avcc
Config Portc = Output    ' = mengeset port c sebagai output
untuk membunyikan buzzer
' misal kan vref (tegangan referensi ADC adalah 5 Volt)
' di mana karakteristik LM35 = 10mV/Celcius
' nilai suhu 5000 mV /  10mV = 500 Celcius, yaitu nilai maksimum bit ADC = 1024 = suhu pada 500 derajat celcius
' maka Suhu ADC = (nilai bit pembacaan ADC) * 500 / (1024 - 1)
Dim A As Word
Dim X As Word
Start Adc
Do
X = Getadc(0) * 500      ' = pembacaan adc
A = X / 1023  ' = mengirim nilai A (pembacaan ADC ke serial)
Print "Temperature = " ; A ; " Celcius"
Waitms 200
If A < 28 Then
 Portc.0 = 1
  Waitms 200
End If
If A => 28 And A <= 40 Then
  Portc.0 = 0
  Waitms 200
End If
If A > 40 Then
  Portc.0 = 1
  Waitms 200
End If
  Loop
  End



ini simulasinya yah

5 thoughts on “Program ATmega8535 ADC, alarm buzzer dan RS232 dengan Bascom AVR

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s