Traqueur de motion (3 / 3 étapes)

Étape 3: VBscript et endword

Personnellement je n’ai jamais fait quoi que ce soit en Visual Basic, mais ça a marché très bien puisque je suis familier avec d’autres langages
Le script a été modifié le script que j’ai reçu de la vidéo sur youtube (lien à l’étape de l’intro) crédits donc à lui.
Pour le script, n’oubliez pas de s’assurer que les variables que vous utilisez ceux que vous avez défini des correspondances sur le module de Lego_NXT, là, j’ai utilisé « Aa » et « Bb », donc j’utilise la même chose ici. Pour les moteurs NXT, 0 signifie pleine puissance dans un seul sens et 255 est pleine puissance dans l’autre sens alors que 128 est stop
Et je suis seulement en utilisant une résolution de 352 x 288 puisque c’est la résolution maximale, que je pouvais choisir lors de l’obtention de 30 images/s, il pourrait être différente pour votre configuration. Cela signifie que le pixel à qui vous souhaitez que votre robot à commencer à tourner à gauche, droite, haut ou bas dépend de votre résolution.
vous pouvez vérifier et changer votre résolution à Options -> appareil photo -> Format vidéo

Voici le code que j’ai utilisé, à l’exclusion de la ligne tiretée
----------------------------
« initialiser toutes les valeurs
AA = 128
BB = 128
CC = 128

' obtenir la taille (largeur ou hauteur) de la zone de délimitation actuelle
taille = GetVariable("COG_BOX_SIZE")

"si elle est égale à" "alors aucun objet n’a été détecté
Si les mesures <> 0 et 150 < puis

« obtenir le centre de gravité horizontal
cogX = GetVariable("COG_X")

"pan gauche
Si cogX < 150 puis
StartTime = Timer
AA = 40
Écoulé = Timer - StartTime
fin si

"pan droit
Si cogX > 200 alors
AA = 220
fin si

' arrêt x
Si cogX = 0 then
AA = 128
fin si

« obtenir le centre de gravité vertical
cogY = GetVariable("COG_Y")

' incliner vers le bas
Si cogY < 134 puis
CC = 40
fin si

' incliner vers le haut
Si cogY > 154 puis
CC = 220
fin si

' arrêt y
Si cogY = 0 then
CC = 128
fin si
fin si

SetVariable « Aa », Aa
SetVariable « Cc », Cc
--------------------------------------

Je vous remercie pour la lecture, n’hésitez pas à vous laisser des commentaires, des opinions et des commentaires. Questions sont également les bienvenus
et si vous l’aimez, s’il vous plaît vote