Lenguaje Basic - Foro web de arde

Lenguaje Basic - Foro web de arde https://www.arde.cc/foro/lenguaje-basic/ Asociación de Robótica y Domótica de España es Tue, 09 Jun 2026 17:49:09 +0000 wpForo 60 Boe -Bot basic stamp https://www.arde.cc/foro/lenguaje-basic/boe-bot-basic-stamp/ Thu, 08 Oct 2015 09:23:39 +0000 Quisiera plantear un problema que tengo con con unos Boe-Bot que he comprado, uno de ellos es una placa " board of education usb" y con esta no tengo problema a la hora de programar pero el segundo es una placa " Home work board" 2002-2010 Rev A y utilizando para los dos el mismo BasicStamp editor (2.5.3. ), no consigo programar la misma secuencia de movimientos.Tengo la sensación que hay instrucciones que no detecta o ignora ( for, nex , counter y alguna mas).He buscado información en muchos manuales, pero en ninguno diferencia una placa de otra a la hora de programarlas, También he probado cambiando la configuración del editor y como si lloviera.Tengo la seguridad que se me pasa algo por alto.
Agradecería cualquier opinión sobre el tema]]> Lenguaje Basic canadell https://www.arde.cc/foro/lenguaje-basic/boe-bot-basic-stamp/ Basic X24 https://www.arde.cc/foro/lenguaje-basic/basic-x24/ Mon, 11 Mar 2013 11:16:55 +0000 Tengo 2 microcontroladores basic x24 los cuales estan programados y funcionando.
Y quisiera duplicarlos, correcto copiar el programa que tienen metido para otro basic x24 igual.
Tengo su placa programadora asi como el vasic downloader 2.1
Me puede alguien indicar como lo consigo?
Un saludo a todos.]]> Lenguaje Basic davidleon080 https://www.arde.cc/foro/lenguaje-basic/basic-x24/ cuadrupedo en basic https://www.arde.cc/foro/lenguaje-basic/cuadrupedo-en-basic/ Fri, 04 Nov 2011 10:41:33 +0000 este es el programa pero no me va funciona el primer if-else el segundo no sabe alguien pq?
AllDigital
Dim var As Byte
Dim a As Byte
Dim s02 As Byte
Dim s12 As Byte
Dim b 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
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
'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]]> Lenguaje Basic chaly012 https://www.arde.cc/foro/lenguaje-basic/cuadrupedo-en-basic/ tutorial dei pic simulator ide https://www.arde.cc/foro/lenguaje-basic/tutorial-dei-pic-simulator-ide/ Fri, 04 Nov 2011 10:31:22 +0000 alguien sabe donde conseguirlo
gracias]]> Lenguaje Basic chaly012 https://www.arde.cc/foro/lenguaje-basic/tutorial-dei-pic-simulator-ide/ cuadrupedo https://www.arde.cc/foro/lenguaje-basic/cuadrupedo/ Wed, 02 Nov 2011 18:32:54 +0000 alguien sabe donde consegui ese programa en basic para pic
gracias]]> Lenguaje Basic chaly012 https://www.arde.cc/foro/lenguaje-basic/cuadrupedo/ Problema con 16F628 https://www.arde.cc/foro/lenguaje-basic/problema-con-16f628/ Fri, 11 Sep 2009 10:26:35 +0000
Pos la verdad no se lo que pasa pero esto no me rula...

os explico:

Estoy haciendo 2 modulos de RF con laipac 433MHZ y pic 16F628A programado en mikroBASIC Pro

El transmisor realiza una funcion tan sencilla como:

Cuando un bumper detecta = 1 este lo envia al pic por RA0, desde ahi el pic tiene que enviar un 1 mediante usart y RB2 hacia el modulo de laipac.

Tiene un LED en RB7 que desde que se le da alimentacion al pic tendría que estar encendido, pero solo se enciende cuando le doy al bumper

Otro led al USART como indicador que solo se enciende cuando le doy al bumper (funciona correctamente y es buena señal de que le envia 1 por RB2

Y un transistor BC548 con R de 1K en la base en RA1 para controlar un Zumbador. Que va de +5V al + del zumbador y del - al colector del transistor y del emisor a masa.

Cristal de 4Mhz con 2 C de 22p a patilla 15 y 16 del pic.

Pero me pasa lo siguiente en el modulo de TX que es el unico que estoy intentando hacer...

El bumper lo tengo de masa al comun y del Normalmente abierto a una resistencia de 10K y de ahi a +5V, el punto que utilizo para RA0 lo cojo entre el NA y la resistencia.

Pues nada tengo problemas con el MCLR porque: solo va a medias cuando pongo el MCLR a una resistencia de 10K y al mismo punto que saco RA0 desde el bumper. Si pongo MCLR con la resistencia de 10K y directo a +5V se me encienden todos los leds y no funciona. Y si no le pongo nada a MCLR no se me enciende y ningun led y no me funciona.

Para que funcione correctamente tendría que:

Siempre que tenga alimentación que se encienda el led verde de RB7

Cuando detecte el bumper:

Sonar intermitentemente el zumbador
Enviar un 1 por RB2 usart y encender su led

Aqui les pongo el código:

program codigotx
'PROGRAMA PARA TX

dim dato as byte   'DECLARAMOS EL DATO DE ENVIO DEL USART

main:
CMCON=7            'QUITAMOS LOS COMPARADORES

TRISA= %00000001   'PONEMOS RA0 COMO ENTRADA Y RA1,RA2 COMO SALIDA
TRISB= %00000010   'PONEMOS PARA TX RB2 COMO SALIDA Y RX RB1 COMO ENTRADA

PORTB.7=1          'ENCENDEMOS EL LED QUE INDICA EL FUNCIONAMIENTO DEL PIC
dato=0             'INICIALIZAMOS DATO A 0

UART1_Init(2400)   'INICIALIZAMOS EL PUERTO UART PARA TRANSMITIR

WHILE PORTA.0=1
PORTA.1=1
DELAY_MS(200)
PORTA.1=0
DELAY_MS(100)
PORTA.1=1
DELAY_MS(200)
PORTA.1=0
DELAY_MS(3000)
dato=1
UART1_Write(dato)
WEND

UART1_Write(dato)

end.

el circuito es el siguiente, falta una resistencia de 10k para MCLR

]]> Lenguaje Basic Juanolo https://www.arde.cc/foro/lenguaje-basic/problema-con-16f628/ Simulación de un Brazo Robot. https://www.arde.cc/foro/lenguaje-basic/simulacion-de-un-brazo-robot-2/ Wed, 03 Jun 2009 11:52:29 +0000
http://sites.google.com/site/proyectosroboticos/" onclick="window.open(this.href);return false;

También verás programas con ejemplos de:

* Cinemática Inversa.

* Algoritmo de Bresenham para 2D, 3D... hasta 6D (se le puede dar otras aplicaciones además de hacer líneas y las uso en mi Brazo Robot 3D.)

* Programas en código abierto en el que se ejemplifica la implementación de OpenGL para un Brazo Robot de 5 grados de libertad ( más la pinza, pero la pinza no es un grado de libertad.)

Si ya estáis en la labor de hacer algo parecido, en mi web encontrarás muchas cosas listas para implementar en tu propio programa.

* Todos los programas están hechos con FreeBasic, muchos de ellos son 100% compatibles con QBasic.

Saludos.]]> Lenguaje Basic Oceano https://www.arde.cc/foro/lenguaje-basic/simulacion-de-un-brazo-robot-2/ programar el 16F84A para mover servos https://www.arde.cc/foro/lenguaje-basic/programar-el-16f84a-para-mover-servos/ Tue, 03 Feb 2009 20:05:00 +0000
Sigo con mi trabajo y esta vez necesito, programar el PIC 16F84A, en basic, ya que es el único lenguaje con el que me manejo un poco, para que mueva 4 servos

En conclusión la pregunta es:

Que ordenes se usan para eso?

gracias a todos]]> Lenguaje Basic oko123456 https://www.arde.cc/foro/lenguaje-basic/programar-el-16f84a-para-mover-servos/ controlar 4 servo con basic https://www.arde.cc/foro/lenguaje-basic/controlar-4-servo-con-basic/ Sun, 25 Jan 2009 21:35:36 +0000
que no es difícil

me de ideas para mover 4 servos desde el ordenador
con un pic 12F683 usando basic
quiero usar la orden

Private Sub activar_Click()
MSComm1.PortOpen = True
End Sub
Private Sub enviar_Click()
MSComm1.Output = Chr(1)
End Sub

que e visto en un tutorial, pero quiero saber como una vez haya mandado esta orden , como llegara esto al pic i como convierto esta orden en movimiento
por ejemplo que mientras mande 1 vaian aumentando los grados en un sentido. que cuando deje d pulsar pare d girar y cuando mande 2 gire en sentido contrario

gracias a todos aquellos que inviertan unos minutos d su tiempo en ayudarme o simplemente leerse esto con todas sus faltas de ortografía]]> Lenguaje Basic oko123456 https://www.arde.cc/foro/lenguaje-basic/controlar-4-servo-con-basic/ Mando XBOX 360 (USB) en Visual Basic https://www.arde.cc/foro/lenguaje-basic/mando-xbox-360-usb-en-visual-basic/ Fri, 29 Feb 2008 19:30:51 +0000
Cuando conecto el mando, el ordenador directamente me baja los drivers, y lo reconoce como un mando normal. Lo que quiero es saber si existe algun controlador o algo para Visual Basic que me capte el movimiento de los joysticks y de los botones, y asi poder exportar esos datos a mi brazo...

Gracias!]]> Lenguaje Basic neoroger https://www.arde.cc/foro/lenguaje-basic/mando-xbox-360-usb-en-visual-basic/