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"                                      'library Atmega 8535
$regfile = 16000000                                         'clocl ATmega 8535
Ddra = &B11111111                                           'port A sebagai output
Porta = &B00000000                                          'keadaan awal port a mati
Ddrb = &B00000000                                           'port B sebagai input
Portb = &B00000000                                          'keadaan awal port B mati
Do                                                          'fungsi utama
If Pinb.0 = 1 Then                                          'pemilihan keadaan pada port B
Porta = &B0000110                                           'output pada port A
Waitms 100                                                  'delay selama 100 ms
Elseif Pinb.1 = 1 Then
Porta = &B1011011
Waitms 100
Elseif Pinb.2 = 1 Then
Porta = &B1001111
Waitms 100
Elseif Pinb.3 = 1 Then
Porta = &B1100110
Waitms 100
Elseif Pinb.4 = 1 Then
Porta = &B1101101
Waitms 100
Elseif Pinb.5 = 1 Then
Porta = &B1111101
Waitms 100
Elseif Pinb.6 = 1 Then
Porta = &B0000111
Waitms 100
Elseif Pinb.7 = 1 Then
Porta = &B1111111
Waitms 100
Else                                                        'pemilihan keadaan terakhir
Porta = &B0000000
Waitms 100
End If                                                      'pemilihan keadaan selesai
Loop                                                        'program berulang
End                                                         'program selesai

  4. Video [kembali]
5. Link Download [kembali]