i var byte
k var byte
symbol brz=900 'speed
'360 circle-----------------------------------------
allcircle:
pause 500
For k = 1 to 4
For i = 1 to 128
PULSOUT PORTB.0,brz
PULSOUT PORTB.1,brz
PULSOUT PORTB.2,brz
PULSOUT PORTB.3,brz
next i
next k
pause 2500
goto halfcircle
'-----------------------------------------
'180circle-----------------------------------------
halfcircle:
For k = 1 to 2
For i = 1 to 128
PULSOUT PORTB.3,brz
PULSOUT PORTB.2,brz
PULSOUT PORTB.1,brz
PULSOUT PORTB.0,brz
NEXT I
next k
pause 2500
goto minushalfcircle
'-----------------------------------------
'minus180circle-----------------------------------------
minushalfcircle:
For k = 1 to 2
For i = 1 to 128
PULSOUT PORTB.3,brz
PULSOUT PORTB.2,brz
PULSOUT PORTB.1,brz
PULSOUT PORTB.0,brz
NEXT I
next k
pause 2500
'-----------------------------------------
GOTO allcircle
Bookmarks