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