Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
amigo me podría mandar la configuración del cable que se conecta al pc del computador del jdm, ah y como esta eso por allá
saludos
'configuracion de fuses
@ DEVICE MCLR_OFF, INTRC_OSC, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
CMCON = 7 ' desactivo el convertidor AD del puerto A
TrisA=%11111111 'todo el port A como entrada
TrisB=%00000000 'todo el port B como salida
PORTA = %11111111 'todo el port A en 1
PORTB = %00000000 'todo el port B en 0
ojoder var bit 'variable para guardar el valor de porta.0
ojoizq var bit
portb = %00000000 'variable para guardar el valor de porta.1
pause 5000 'espero 5 segundos para empezar
inicio:
portb = %00001001 'oscilador encendido motores apagados
ojoder = porta.0 'ojoder toma el valor de porta.0
ojoizq = porta.1 'ojoizq toma el valor de porta.1
IF ojoizq = 1 and ojoder = 0 THEN izq 'si la variable ojoizq es = a 1 gira a la izquierda
if ojoder = 1 and ojoizq = 0then der 'si la variable ojoder es = a 1 gira a la derecha
goto inicio
der:
PORTB = %00001010 'giro a la derecha
pause 50 'espero 50 milisegundos
ojoizq = porta.1 'ojoizq toma el valor de porta.1
IF ojoizq = 1 THEN der 'si ojoizq es igual a 1 salta a der
ojoder = porta.0 'ojoder toma el valor de porta.0
IF ojoder = 0 THEN inicio 'si la variable ojoder es = a 0 vuelve a inicio
goto der ' ir a der
izq:
PORTB = %00000101 'giro a la izquierda
pause 50 'espero 50 milisegundos
ojoder = porta.0 'ojoder toma el valor de porta.0
IF ojoder = 1 THEN izq 'si ojoder es igual a 1 salta a izq
ojoizq = porta.1 'ojoizq toma el valor de porta.1
IF ojoizq = 0 THEN inicio 'si la variable ojizq es = a 0 vuelve a inicio
goto izq 'ir a izq
'configuracion de fuses
@ DEVICE MCLR_OFF, INTRC_OSC, WDT_OFF, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF
CMCON = 7 ' desactivo el convertidor AD del puerto A
TrisA=%11111111 'todo el port A como entrada
TrisB=%00000000 'todo el port B como salida
PORTA = %11111100 'todo el port A en 1
PORTB = %00000000 'todo el port B en 0
ojoizq var bit
ojoder var bit
inicio:
portb = %00001001 'motores On
ojoder = porta.0 'ojoder toma el valor de porta.0
ojoizq = porta.1 'ojoizq toma el valor de porta.1
IF ojoizq = 1 THEN der 'si la variable ojoizq es = a 1 gira a la izquierda
if ojoder = 1 then izq 'si la variable ojoder es = a 1 gira a la derecha
goto inicio
der:
PORTB = %00011010 'giro a la derecha y mantengo el 555 encendido
pause 10
ojoder = porta.0 'ojoder toma el valor de porta.0
IF ojoder = 0 THEN inicio 'si la variable ojoder es = a 0 vuelve a inicio
goto der ' ir a der
izq:
PORTB = %00010101 'giro a la izquierda y mantengo el 555 encendido
pause 10
ojoizq = porta.1 'ojoizq toma el valor de porta.1
IF ojoizq = 0 THEN inicio 'si la variable ojoder es = a 0 vuelve a inicio
goto izq 'ir a izq
jeje... no, es la misma camara que utilice para hacer el primer video de arriba montada en el robot.ah por cierto lo de la cámara es ip
Has pensado qué tan factible podría ser que la cámara sea inalámbrica ?
(Por supuesto, yo complicándote la vida )