HOLA.
El siguiente proyecto es un robot alambrico para concursar en la modalidad RobotSumo.
Primero conseguí un control de playStation que no servía, internamente los joysticks son potenciométros de 10kohms.
Luego realicé el siguiente circuíto.
[Tienes que estar registrado y conectado para ver esa imagen]
Utilizando el siguiente programa desde MikroBasic
Y acá el Video del robot terminado.
Saludos y espero comentarios.
El siguiente proyecto es un robot alambrico para concursar en la modalidad RobotSumo.
Primero conseguí un control de playStation que no servía, internamente los joysticks son potenciométros de 10kohms.
Luego realicé el siguiente circuíto.
[Tienes que estar registrado y conectado para ver esa imagen]
Utilizando el siguiente programa desde MikroBasic
- Código:
program ZumoRobotAlambrico
Dim AN,AC as word
Dim ADC,ADC2,M as byte
main:
TRISA = %111111
TRISB = %11111111
TRISC = %11100000
ADCON1 = %10000000
While true
AN = Adc_Read(0)
AC = Adc_Read(1)
ADC = byte(AN>>2)
ADC2 = byte(AC>>2)
if (ADC<60)AND(ADC2<60) then PORTC=%1100 else
if (ADC<60)AND(ADC2>190) then PORTC=%1101 else
if (ADC>190)AND(ADC2<60) then PORTC=%1110 else
if (ADC>190)AND(ADC2>190) then PORTC=%1111 else
if (ADC<60)AND((ADC2>60)AND(ADC2<190))then PORTC=%1000 else
if ((ADC>60)AND(ADC<190))AND(ADC2<60)then PORTC=%0100 else
if (ADC>190)AND((ADC2>60)AND(ADC2<190))then PORTC=%1010 else
if((ADC>60)AND(ADC<190))AND(ADC2>190)then PORTC=%0101 else
if((ADC>60)AND(ADC<190))AND((ADC2>60)AND(ADC2<190))then PORTC=%0000
end if
end if
end if
end if
end if
end if
end if
end if
end if
wend
end.
Y acá el Video del robot terminado.
Saludos y espero comentarios.