Motie tracker (3 / 3 stap)

Stap 3: VBscript en endword

Persoonlijk heb ik nooit gedaan om het even wat in Visual Basic, maar het werkte boete omdat ik bekend met sommige andere talen ben
Het script is bewerkt uit het script dat ik kreeg van de video op youtube (de verwijzing bij intro stap) dus kredieten aan hem.
Voor het script, vergeet niet om ervoor te zorgen dat de variabelen die u wedstrijden degene die u hebt gedefinieerd in de module Lego_NXT gebruiken, ik gebruikt er "Aa" en "Bb" dus ik gebruik het zelfde ding hier. Voor de NXT-motoren, 0 betekent volle kracht in één richting en 255 is volle kracht in de andere richting terwijl 128 stop
En ik ben alleen met behulp van een resolutie van 352 x 288 want dat is de maximale resolutie die ik kon selecteren terwijl ze 30fps, het macht zitten verschillend voor uw installatie. Dit betekent dat de pixel op die u uw robot wilt te beginnen draaien links, rechts, boven of beneden is afhankelijk van uw resolutie.
u kunt controleren en wijzigen van uw resolutie op Opties -> Camera -> Video-indeling

Hier is de code die ik gebruikt, met uitzondering van de onderbroken lijnen
----------------------------
' alle waarden initialiseren
AA = 128
BB = 128
CC = 128

' krijgen van de grootte (breedte of hoogte) van de huidige bounding box
grootte = GetVariable("COG_BOX_SIZE")

' als het gelijk is aan "" dan geen object werd ontdekt
als maat <> 0 en vervolgens het formaat van < 150

' krijgen de horizontale zwaartepunt
cogX = GetVariable("COG_X")

' pan links
Als cogX < 150 vervolgens
StartTime = Timer
AA = 40
Verstreken = Timer - StartTime
eind als

' pan rechts
Als cogX > 200 dan
AA = 220
eind als

' stop x
Als cogX = 0 then
AA = 128
eind als

' krijgen van de verticale zwaartepunt
cogY = GetVariable("COG_Y")

' kantelen naar beneden
Als cogY < 134 vervolgens
CC = 40
eind als

' Kantel omhoog
Als cogY > 154 vervolgens
CC = 220
eind als

' stop y
Als cogY = 0 then
CC = 128
eind als
eind als

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

Dank u voor het lezen, voel je vrij om je opmerkingen, adviezen en feedback. Vragen zijn ook welkom
en als het u bevalt kunt u stemming