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

led berjalan 2 port degan bascom atmga 8535

led berjalan   degan bascom dan proteus

listening programnya

     'Menyalakan LED berjalan 2port barlianno
$regfile = "m8535.dat"                                      'mendeklarasikan IC yang digunakan
$crystal = 12000000             'menentukan frekuensi kerja (Kristal)
Config Portd = Output                                       'Port D digunanakan sebagai Output
Port_led1 Alias Portd
                                        'Instruksi port D menjadi Port led
Config Portb = Output                                       'Port B digunanakan sebagai Output
Port_led2 Alias Portb                                       'Instruksi port B menjadi Port led

Do


Port_led1 = &B00000001                                      'lampu portd 1 meyala
Waitms 100
Port_led2 = &B00000001                                   'lampu portb 1 meyala
Waitms 100

Port_led1 = &B00000010                                      'lampu portd 2 meyala
Waitms 100
Port_led2 = &B00000010                                      'lampu portb 2 meyala
Waitms 100

Port_led1 = &B00000100                                      'lampu portd 3 meyala
Waitms 100
Port_led2 = &B00000100                                      'lampu portb 3 meyala
Waitms 100

Port_led1 = &B00001000                                      'lampu portd 4 meyala
Waitms 100
Port_led2 = &B00001000                                      'lampu portb 4 meyala
Waitms 100

Port_led1 = &B00010000                                      'lampu portd 5 meyala
Waitms 100
Port_led2 = &B00010000                                      'lampu portb 5 meyala
Waitms 100

Port_led1 = &B00100000                                      'lampu portd 6 meyala
Waitms 100
Port_led2 = &B00100000                                      'lampu portb 6 meyala
Waitms 100

Port_led1 = &B01000000                                      'lampu portd 7 meyala
Waitms 100
Port_led2 = &B01000000                                      'lampu portb 7 meyala
Waitms 100

Port_led1 = &B10000000                                      'lampu portd 8 meyala
Waitms 100
Port_led2 = &B10000000                                       'lampu portb8 meyala
Waitms 100


  Loop

    'Ini Haya Dasar Silahkan Berkreasi Sendiri Hehehe   salam barlianno

selamat mencoba

baca selengkapnya