creo (no lo he revizado bien) que puedes utilizar un solo arreglo con los 8 pasos (half y full) y lo unico que tienes que hacer es incrementar el indice de dos en dos o decrementarlo.... o segun lo necesites...
ahorita estoy comiendo, si gustas intentarlo si me explique o mas al rato te pongo un ejemplo
Mira....
primero... la definicion que estas haciendo del arreglo esta mal tu pones
a VAR BYTE[3] ahi estas diciendo que tienes tres variables a[0],a[1] y a[2], te falta una....
debes poner
a var byte[4] osea a[0], a[1],a[2],a[3] si las cuentas son cuatro... quedo claro???
por otroo lado me hize bolas con el codigo y como no se como va te dejo solo un ejemplo de como se hace con un solo arreglo...
Código:
include "modedefs.bas"
@ device xt_osc
trisc=%10000000
dat var byte
trisb=0
portb=0
'****************************HORARIO WAVE DIRVE*********************************
a VAR BYTE[8]
b VAR BYTE
a[0]=%0001
a[1]=%0011
a[2]=%0010
a[3]=%0110
a[4]=%0100
a[5]=%1100
a[6]=%1000
a[7]=%1001
'*******************************************************************************
inicio:
serin portc.1, T2400,dat
if dat="0" then
for b=0 to 6 step 2
portb=a[b]
pause 1000
next b
endif
if dat="1" then
for b= 1 to 7 step 2
portb=a[b]
PAUSE 1000
next b
endif
if dat="2" then ' HALF STEP HORARIO
for b= 0 to 7
portb=a[b]
PAUSE 1000
next b
endif
if dat="3" then 'ANTIHORARIO NORMAL STEP
for b=6 to 0 step -2
portb=a[b]
pause 1000
next b
ENDIF
if dat="4" then 'ANTIHORARIO WAVE DRIVE
for b= 7 to 1 step -2
portb=a[b]
PAUSE 1000
next b
endif
if dat="5" then ' ANTIHORARIO HALF STEP
for b= 7 to 0 step -1
portb=a[b]
PAUSE 1000
next b
endif
if dat="7" then
PAUSE 350 ' Opcional para antirrebote si se usa Pushbutton
PORTB=a[b] ' La variable b debe estar en 0 al iniciar
b=b+1 ' Incrementar la variable b
IF b>7 THEN b=0 ' Si la variable b llega a 4 regresarla a 0
ENDIF
IF DAT="9" then
pause 350
portb=a[b]
b=b-1
if b<0 then b=7
endif
IF DAT="B" then
pause 350
portb=a[b]
b=b+2
if b>7 then b=0
endif
goto inicio
end
puede tener errores, me entenderas que hay que probarlo en un simulador para estar seguro de que esta bien.... cosa que me da fiaca hacer...
