ImageImageImageImage
Hazte Socio (El Foro siempre Gratis)
Paga con Tarjetas+ Info www.arde.cc/socios

cuadrupedo

Aquí puedes postear los temas relacionados con este lenguaje

Moderator: Junta Directiva

chaly012
Novato
Novato
Posts: 12
Joined: Wed Nov 02, 2011 7:11 pm
Nombre: carlos

cuadrupedo

Post by chaly012 » Wed Nov 02, 2011 7:32 pm

hola estoy haciendo un cuadrupedo y este llevara dos sensores quiero que este valla a izquierda o derecha segun detecte los sensores y si no detecta nada que vakka hacia delante
alguien sabe donde consegui ese programa en basic para pic
gracias

User avatar
beamspot
Usuario Desarrollador
Usuario Desarrollador
Posts: 1132
Joined: Thu Oct 11, 2007 8:56 pm
Nombre: Guillem

Re: cuadrupedo

Post by beamspot » Thu Nov 03, 2011 8:18 am

No, yo no sé donde puedes encontrarlo hecho, pero si quieres pagarme 1000€, con mucho gusto te lo hago yo mismo.
Beamspot.

BoOpS
Administrador
Administrador
Posts: 1812
Joined: Mon Sep 19, 2005 7:29 pm
Nombre: Javier

Re: cuadrupedo

Post by BoOpS » Thu Nov 03, 2011 9:04 am

Yo tengo más experiencia con robots cuadrupedos, si alguien le interesa mi precio es 2500€ :D
Mi Blog de RoBoOpS

User avatar
Mif
Usuario Desarrollador
Usuario Desarrollador
Posts: 1094
Joined: Thu Mar 23, 2006 6:24 pm
Nombre: Ángel
Location: Madrid
Contact:

Re: cuadrupedo

Post by Mif » Thu Nov 03, 2011 1:16 pm

Bienvenido chaly012,
La idea que propones es bastante chula, aunque creo que nos falta un poco de información para poder ayudarte.

Tienes ya el robot construido?
Que electronica has usado? Que conocimientos de programacion tienes?

Si necesitas soluciones comerciales, seguramente te inetrese buscar el robot Galatea, de nuestro colega Boops, pero si te lo estas haciendo tu, danos mas detalles y estaremos encantados de tratar de ayudarte :)

Un abrazo!
www.TupperBot.es

Mi sitio en YouTube

MA_BLACK
Usuario Avanzado
Usuario Avanzado
Posts: 282
Joined: Tue Nov 29, 2005 8:07 am
Contact:

Re: cuadrupedo

Post by MA_BLACK » Thu Nov 03, 2011 3:32 pm

Hola, y bienvenido al foro, como dice mif tienes que aportar mas datos y el programa seria algo que tienes que empezar a hacer tu, empezar por movimientos simples y luego ponerle sensores, te recomiendo que empieces por controlar un servo.

Te paso un enlace de mi web en la que puedes ver algunos robots, no he puesto mucha informacion pero si fotos.

http://mablackrobotica.blogspot.com/sea ... l/Robotica" onclick="window.open(this.href);return false;

User avatar
Mif
Usuario Desarrollador
Usuario Desarrollador
Posts: 1094
Joined: Thu Mar 23, 2006 6:24 pm
Nombre: Ángel
Location: Madrid
Contact:

Re: cuadrupedo

Post by Mif » Thu Nov 03, 2011 3:45 pm

Coño, que buen blog MA_BLACK!

Veo mucha influencia de IEARobotics ahi :) Eso me gusta!

Eres alumno de ObiJuan o de Hitec?
www.TupperBot.es

Mi sitio en YouTube

chaly012
Novato
Novato
Posts: 12
Joined: Wed Nov 02, 2011 7:11 pm
Nombre: carlos

Re: cuadrupedo

Post by chaly012 » Thu Nov 03, 2011 7:09 pm

Mif wrote:Bienvenido chaly012,
La idea que propones es bastante chula, aunque creo que nos falta un poco de información para poder ayudarte.

Tienes ya el robot construido?
Que electronica has usado? Que conocimientos de programacion tienes?

Si necesitas soluciones comerciales, seguramente te inetrese buscar el robot Galatea, de nuestro colega Boops, pero si te lo estas haciendo tu, danos mas detalles y estaremos encantados de tratar de ayudarte :)

Un abrazo!
hola utiñizo un pic 16f873 controlo los srvos q son 8 por pwm lo programo en basic para el pic simulator ide
este es el programa pero no me va
AllDigital
Dim var As Byte
Dim a As Byte
Dim s02 As Byte
Dim s12 As Byte
Dim b As Byte
Dim x As Byte
Dim x1 As Byte
'Dim PORTA As Byte
'Dim PORTA.1 As Byte


s02 = 90
s12 = 140
var = 2
TRISA = %11111111
TRISB = %00000000
'TRISC = %00000000
loop:
If PORTA.1 = 1 Then
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b
'Endif
Goto loop
If PORTA.0 = 1 Then
'servos 0, 1, 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b
Goto loop
Else
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b

'SERVOS 4,5
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b
Endif
Goto loop

Else 'PORTA.0 = 0 And PORTA.1 = 0
'servos 0, 1,
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b

'SERVOS 4,5
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b

Endif
Goto loop

chaly012
Novato
Novato
Posts: 12
Joined: Wed Nov 02, 2011 7:11 pm
Nombre: carlos

Re: cuadrupedo

Post by chaly012 » Thu Nov 03, 2011 7:11 pm

MA_BLACK wrote:Hola, y bienvenido al foro, como dice mif tienes que aportar mas datos y el programa seria algo que tienes que empezar a hacer tu, empezar por movimientos simples y luego ponerle sensores, te recomiendo que empieces por controlar un servo.

Te paso un enlace de mi web en la que puedes ver algunos robots, no he puesto mucha informacion pero si fotos.

http://mablackrobotica.blogspot.com/sea ... l/Robotica" onclick="window.open(this.href);return false;
hola utiñizo un pic 16f873 controlo los srvos q son 8 por pwm lo programo en basic para el pic simulator ide
este es el programa pero no me va
AllDigital
Dim var As Byte
Dim a As Byte
Dim s02 As Byte
Dim s12 As Byte
Dim b As Byte
Dim x As Byte
Dim x1 As Byte
'Dim PORTA As Byte
'Dim PORTA.1 As Byte


s02 = 90
s12 = 140
var = 2
TRISA = %11111111
TRISB = %00000000
'TRISC = %00000000
loop:
If PORTA.1 = 1 Then
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b
'Endif
Goto loop
If PORTA.0 = 1 Then
'servos 0, 1, 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b
Goto loop
Else
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b

'SERVOS 4,5
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b
Endif
Goto loop

Else 'PORTA.0 = 0 And PORTA.1 = 0
'servos 0, 1,
For a = s02 To s12 Step 1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.1, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.0, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.1, b
WaitMs var
Next b

'servos 2, 3
For a = s02 To s12 Step 1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.3, b
WaitMs var
Next b

For a = s12 To s02 Step -1
ServoOut PORTB.2, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.3, b
WaitMs var
Next b

'SERVOS 4,5
For a = s12 To s02 Step -1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.5, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.4, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.5, b
WaitMs var
Next b

'SERVOS 6,7
For a = s12 To s02 Step -1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s12 To s02 Step -1
ServoOut PORTB.7, b
WaitMs var
Next b

For a = s02 To s12 Step 1
ServoOut PORTB.6, a
WaitMs var
Next a

For b = s02 To s12 Step 1
ServoOut PORTB.7, b
WaitMs var
Next b

Endif
Goto loop

becdanek
Forero Habitual
Forero Habitual
Posts: 121
Joined: Fri Nov 11, 2005 7:57 pm
Nombre: Daniel
Location: Benifaio
Contact:

Re: cuadrupedo

Post by becdanek » Thu Nov 03, 2011 7:29 pm

....subrealista? :-(
Salu2. ;)

becdanek


http://migranjadigital.blogspot.com" onclick="window.open(this.href);return false;

MA_BLACK
Usuario Avanzado
Usuario Avanzado
Posts: 282
Joined: Tue Nov 29, 2005 8:07 am
Contact:

Re: cuadrupedo

Post by MA_BLACK » Thu Nov 03, 2011 11:43 pm

Mif wrote:Coño, que buen blog MA_BLACK!

Veo mucha influencia de IEARobotics ahi :) Eso me gusta!

Eres alumno de ObiJuan o de Hitec?
Gracias mif, tu blog también me encanta. No soy alumno de ellos, pero si que conozco a Juan, no en persona pero he hablado un par de veces.

Lo cierto es que estoy intentando finalizar algún robot del todo. Pero me falta el tiempo y la financiación.

Saludos

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest