DAFTAR ISI

1. Rangkaian Simulasi

2. Flowchart

3. Listing Program

4. Video

5. Link Download

1. Rangkaian Simulasi [kembali]


2. Flowchart [kembali]


3. Listing Program [kembali]

$regfile = "m8535.dat"                                      'memanggil library ATmega 8535
$crystal = 16000000                                         'menentukan kecepatan crystal
Config Portc = Output                                       'PORTC sebagai output
Config Porta = Output                                       'PORTA sebagai output
Ddrb = &B0000                                               'PORTD sebagai input

Do                                                          'fungsi utama
 If Pinb.0 = 1 Then                                         'pemilihan kondisi pada PORTB
   Portc = &B0000000                                        'PORTC mati
   Porta = &B00001                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0110110                                        'keluaran pada PORTC
   Porta = &B00010                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0110110                                        'keluaran pada PORTC
   Porta = &B00100                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0110110                                        'keluaran pada PORTC
   Porta = &B01000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0110110                                        'keluaran pada PORTC
   Porta = &B10000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
  Elseif Pinb.1 = 1 Then                                    'pemilihan kondisi pada PORTB
   Portc = &B0111111                                        'keluaran pada PORTC
   Porta = &B10000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B00001                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111111                                        'keluaran pada PORTC
   Porta = &B00010                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111111                                        'keluaran pada PORTC
   Porta = &B00100                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111111                                        'keluaran pada PORTC
   Porta = &B01000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111111                                        'keluaran pada PORTC
   Porta = &B10000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Elseif Pinb.2 = 1 Then                                   'pemilihan kondisi pada PORTB
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B00001                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Waitms 0.1
   Portc = &B0111110                                        'keluaran pada PORTC
   Porta = &B00010                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111110                                        'keluaran pada PORTC
   Porta = &B01000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0111110                                        'keluaran pada PORTC
   Porta = &B00100                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B00001                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B10000                                          'keluaran pada PORTA
   Waitms 0.1                                               'delay 0.1 ms

   Elseif Pinb.3 = 1 Then                                   'pemilihan kondisi pada PORTB
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B00001                                          'keluaran pada PORTA
   Else
   Portc = &B0000000                                        'keluaran pada PORTC
   Porta = &B00000                                          'keluaran pada PORTA
   End If                                                   'pemilihan kndisi selesai

Loop                                                        'fungsi utama
End                                                         'program selesa
  4. Video [kembali]
5. Link Download [kembali]