Courier påse LED-ljus (6 / 6 steg)
Steg 6: Ladda koden
"{$STAMP BS2}
"{$PBASIC 2.5}
"Blinkande LED kod
"Joe McManus 2/06
motverka VAR BYTE
index VAR NIB
GÖRA
FÖR counter = 0 till 15
HÖG disk
PAUSA 50
LÅGA counter
NÄSTA
FÖR counter = 0 till 15
HÖG disk
HÖG (15 - counter)
PAUSA 60
LÅGA counter
LÅG (15 - counter)
NÄSTA
OUTS = % 0000000000000000
DIRS = % 1111111111111111
FÖR counter = 0 till 3
FÖR index = 0 till 15
LOOKUP index (% 0000000110000000% 0000001111000000, % 0000011111100000, % 0000111111110000,
% 0001111111111000% 0011111111111100, % 0111111111111110, % 1111111111111111,
% 0111111111111110% 0011111111111100, % 0001111111111000, % 0000111111110000,
0000011111100000, % 0000001111000000% 0000000110000000, % 0000000000000000), UTSKRIFTER
PAUS 30
NÄSTA
NÄSTA
DIRH = % 11111111
DIRL = % 11111111
ÖDRA = % 00000000
OUTL = % 00000000
FÖR counter = 0 till 15
HÖG disk
HÖG (räknare + 1)
PAUSA 65
LÅGA counter
LÅG (räknare + 1)
NÄSTA
ÖDRA = % 00000000
DIRH = % 11111111
OUTL = % 00000000
DIRL = % 11111111
FÖR counter = 0 till 10
OUTL = % 00000000
ÖDRA = % 00000000
ÖDRA = % 11111111
PAUSA 100
ÖDRA = % 00000000
OUTL = % 11111111
PAUSA 100
NÄSTA
FÖR counter = 0 till 15
HÖG disk
HÖG (räknare + 1)
HÖG (15 - counter)
HÖG (14 - counter)
PAUSA 65
LÅGA counter
LÅG (räknare + 1)
LÅG (15 - counter)
LÅG (14 - counter)
NÄSTA
FÖR counter = 0 till 10
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 11110000
ÖDRA = % 00001111
PAUSA 120
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 00001111
ÖDRA = % 11110000
PAUSA 120
NÄSTA
DIRH = % 11111111
DIRL = % 11111111
ÖDRA = % 00000000
OUTL = % 00000000
FÖR counter = 0 till 15
HÖG disk
HÖG (räknare + 1)
HÖG (counter + 2)
HÖG (counter + 3)
PAUSA 50
LÅGA counter
LÅG (räknare + 1)
LÅG (counter + 2)
LÅG (counter + 3)
NÄSTA
OUTS = % 0000000000000000
DIRS = % 1111111111111111
FÖR counter = 0 till 2
FÖR index = 0 till 15
LOOKUP index (1000000000000000, % 1100000000000000, % 1110000000000000, % 1111000000000000,
% 1111100000000000% 1111110000000000, % 1111111000000000, % 1111111100000000,
% 1111111110000000% 1111111111000000, % 1111111111100000, % 1111111111110000,
1111111111111000, % 1111111111111100% 1111111111111110, % 1111111111111111), UTSKRIFTER
PAUS 30
NÄSTA
FÖR index = 0 till 15
LOOKUP index (% 0111111111111111% 0011111111111111, % 0001111111111111, % 0000111111111111,
% 0000011111111111% 0000001111111111, % 0000000111111111, % 0000000011111111,
% 0000000001111111% 0000000000111111, % 0000000000011111, % 0000000000001111,
0000000000000111, % 0000000000000011% 0000000000000001, % 0000000000000000), UTSKRIFTER
PAUS 30
NÄSTA
NÄSTA
ÖDRA = % 00000000
DIRH = % 11111111
OUTL = % 00000000
DIRL = % 11111111
FÖR counter = 0 till 10
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 00000011
ÖDRA = % 11000000
PAUSA 40
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 00001100
ÖDRA = % 00110000
PAUSA 40
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 00110000
ÖDRA = % 00001100
PAUSA 40
ÖDRA = % 00000000
OUTL = % 00000000
OUTL = % 11000000
ÖDRA = % 00000011
PAUSA 40
ÖDRA = % 00000000
OUTL = % 00000000
PAUS 30
NÄSTA
DIRH = % 11111111
DIRL = % 11111111
ÖDRA = % 00000000
OUTL = % 00000000
LOOP
SLUTET