menghidupkan led dengan sensor lm35 atmga 8535

menghidupkan led dengan sensor lm35,dilengkapi dengan lcd 16X2 memakai program bascom

listening bascom

'meyalan led degan sensor suhu barlianno
$regfile = "m8535.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Portc = Output
 Dim D As Word , V As Word , T As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 ,
Config Lcdpin = Pin , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2

Cls
Cursor Off
Lcd "barlianno"                                             'akanmuncul dilayar atas
Lowerline
Lcd "Temp="
Start Adc
Do
D = Getadc(0)
V = D * 5
T = V / 10
Locate 2 , 6
Lcd T ; " C "
'Lcd "C"
Waitms 10                                                   ' = 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

X = Getadc(0) * 5                                           ' = pembacaan adc
A = X / 10                                                  ' = mengirim nilai A (pembacaan ADC ke serial)

Waitms 20
If A < 28 Then
 Portc.0 = 1                                                'lampu kuning meyala
 Portc.3 = 0                                                'lampu merah mati
  Waitms 20
End If
If A => 28 And A <= 40 Then
  Portc.0 = 0                                               'lampu kuning mati
  Portc.3 = 0                                               'lampu merah mati
  Waitms 20
End If
If A > 40 Then
  Portc.0 = 1                                               'lampu kuning meyala
  Portc.3 = 1
  Waitms 20                                                 'lampu merah meyala
End If

   Loop

   End                                                      'end program

program ini bisa dikembankan untuk mesin penetas telor selamat mencoba

baca selengkapnya

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

baca selengkapnya