meyalakan lampu degan sensor lm45atmga 8535 bascom

meyalakan lampu degan sensor lm45atmga 8535 bascom

listening program bascom

'modipay barlianno
$regfile = "m8535.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Portc = Output                                       ' = mengeset port c sebagai output
'  untuk meyalakan led
' 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
 


selamat mencoba dan berkreasi