Rastreador de movimiento (3 / 3 paso)

Paso 3: VBscript y endword

Personalmente nunca he hecho nada en Visual Basic pero salió bien puesto que estoy familiarizado con otros lenguajes
Se modificó la secuencia de comandos de la secuencia de comandos que tengo en el video en youtube (enlace en el paso de la intro) créditos tan le.
Para la escritura, no olvide asegurarse de que las variables que utilizan los partidos los que se ha definido en el módulo de Lego_NXT, existía "Aa" y "Bb" para usar lo mismo aquí. Para los motores NXT, 0 significa máxima potencia en una dirección y 255 es poder completo en la otra dirección, mientras que 128 es parada
Y sólo estoy usando una resolución de 352 x 288, ya que es la resolución máxima que se podía seleccionar al obtener 30fps, puede ser diferente para la configuración. Esto significa que el píxel en el que desea que su robot para empezar a girar a la izquierda, derecha, arriba o abajo depende de su resolución.
Puedes revisar y cambiar su resolución en Opciones -> Cámara -> formato de vídeo

Aquí está el código que utiliza, excepto las líneas discontinuas
----------------------------
' inicializar todos los valores
AA = 128
BB = 128
CC = 128

' obtener el tamaño (anchura o altura) del cuadro delimitador actual
tamaño = GetVariable("COG_BOX_SIZE")

' si es igual a "" luego no se detectó ningún objeto
Si <> 0 el tamaño y tamaño < 150 entonces

' obtener la horizontal del centro de gravedad
cogX = GetVariable("COG_X")

' pan izquierda
Si cogX < 150 entonces
StartTime = Timer
AA = 40
Transcurrido = temporizador - StartTime
terminar si

' pan derecha
Si cogX > 200 entonces
AA = 220
terminar si

' parada x
Si cogX = 0 entonces
AA = 128
terminar si

' obtener el centro de gravedad vertical
cogY = GetVariable("COG_Y")

' inclinación hacia abajo
Si entonces cogY < 134
CC = 40
terminar si

' Levante
Si entonces cogY > 154
CC = 220
terminar si

' parada y
Si cogY = 0 entonces
CC = 128
terminar si
terminar si

SetVariable "Aa", Aa
SetVariable "Cc", Cc
--------------------------------------

Gracias por la lectura, no dude en dejarle comentarios, opiniones y comentarios. Preguntas son también agradables
y si te gusta por favor voto