Program led berjalan bolak-balik menggunakan operasi pergeseran
'----------------------------------------------------------------------------
‘led berjalan bolak balik menggunakan operasi pergeseran
'----------------------------------------------------------------------------
$regfile = "8535def.dat" 'deklarasi mikrokontrler atmega8535
$crystal = 12000000 'deklarasi kristal
Config Portc = Output 'configurasi portc sebagai output
Dim Data1 As Byte
Data1 = 1
Do
Do
Rotate Data1 , Left , 1
Portc = Data1
Waitms 100
Loop Until Portc = 128
Do
Rotate Data1 , Right , 1
Portc = Data1
Waitms 100
Loop Until Portc = 1
Loop
End
