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