Étape 6: Module VB
XAXIS=GetVariable("COG_X")
objsize=GetVariable("COG_BOX_SIZE")
Si (objsize > 10) puis
Si (xaxis > 160) puis
SetVariable « pin2 », 0
SetVariable « pin5 », 1
ElseIf (axe des x < 160) puis
La valeur de Variable « broche 2 », 1
La valeur de Variable « pin5 », 0
fin si
Explication du code :
Téléchargez Variable est utilisée pour obtenir le COG_X et le COG_BOX_SIZE et le stocker dans des variables « x axe » et « objsize » maintenant en plaçant la balle dans le centre de l’écran, nous pouvons trouver la valeur de l’objet sur l’axe des abscisses et la taille de la boîte. Ensuite, nous avons un imbriqués "si boucle '. La première boucle vérifie la valeur de zone de sixe. Si la taille de la boîte est très grande, cela signifie que l’objet est très proche. Donc nous arrêter ; mais si c’est une petite valeur nous vérifier les deux prochains "si des conditions', où si l’axe des x est supérieur à 160 (env. centre) nous déclarer deux nouvelles variables pin5 et pin2 et faire 1 et 0 respectivement et si inférieur à 160 nous faisons pin5 et pin2 comme « 0 » et « 1 ». Maintenant, cliquez sur recharger et exécuter pour vérifier si le programme que vous avez écrit fonctionne correctement. Vous pouvez même voir les variables que vous avez créé les tables dans la main droite. Vous pouvez maintenant déplacer le ballon de gauche à droite et voir les variables à modifier.