Motion tracker (3 / 3 steg)
Steg 3: VBscript och endword
Personligen har jag aldrig gjort något i Visual Basic men det fungerade bra eftersom jag är bekant med vissa andra språkSkriptet ändrades av skriptet så att jag fick från videon på youtube (länk på intro steg) krediter till honom.
För manus, kom ihåg att kontrollera de variabler som du använder matchar de som du har definierat på modulen Lego_NXT, där jag använt "Aa" och "Bb" så använder jag samma sak här. För den NXT motorer, 0 betyder full effekt i en riktning och 255 är full effekt i den andra riktningen medan 128 är stop
Och jag bara använder en upplösning på 352 x 288 eftersom det är den maximala upplösningen jag kunde välja samtidigt som de får 30fps, det kan vara olika för dina inställningar. Detta innebär att pixeln på som du vill använda din robot att börja vrida vänster, höger, upp eller ner beror på din upplösning.
Du kan kontrollera och ändra din upplösning på Alternativ -> kamera -> Video-Format
Här är koden jag använde, exklusive de streckade linjerna
----------------------------
"initiera alla värden
AA = 128
BB = 128
CC = 128
"få storlek (bredd eller höjd) nuvarande markeringsramen
storlek = GetVariable("COG_BOX_SIZE")
"om det är lika med" "då inget objekt upptäcktes
om storlek <> 0 och storlek < 150 sedan
"få övergripande tyngdpunkten
cogX = GetVariable("COG_X")
"pan lämnade
om cogX < 150 sedan
StartTime = Timer
AA = 40
Förflutit = Timer - StartTime
slut om
"panorera höger
om cogX > 200 sedan
AA = 220
slut om
"sluta x
om cogX = 0 då
AA = 128
slut om
"få vertikala tyngdpunkten
cogY = GetVariable("COG_Y")
"luta ner
om cogY < 134 sedan
CC = 40
slut om
"luta upp
om cogY > 154 sedan
CC = 220
slut om
"stop y
om cogY = 0 då
CC = 128
slut om
slut om
SetVariable "Aa", Aa
SetVariable "Cc", Cc
--------------------------------------
Tack för läsning, gärna lämnar du kommentarer, åsikter och synpunkter. Frågor är också välkomna
och om du gillar det snälla rösta