Ball anhängare använder vision bearbetning (6 / 7 steg)
Steg 6: VB modul
xaxis=Getvariable("COG_X")
objsize=GetVariable("COG_BOX_SIZE")
om (objsize > 10) sedan
om (xaxis > 160) sedan
SetVariable "pin2", 0
SetVariable "pin5", 1
Annars om (x-axeln < 160) sedan
Variabeln "pin2", 1
Variabeln "pin5", 0
slut om
Förklaring till koden:
Få variabel används för att få COG_X och COG_BOX_SIZE och lagra i variabler "x-axeln" och "objsize" nu genom att placera bollen i centrum av skärmen kan vi hitta ut värdet på objektet på x-axeln och storleken på rutan. Sedan har vi en kapslad "om loop". Den första öglan kontrollerar sixe värde. Om rutan storlek är mycket stor betyder det objektet är mycket nära. Så sluta vi; men om det är ett litet värde vi kolla nästa två "om villkor, där om x-axeln är större än 160 (ca centrum) vi förklara två nya variabler pin5 och PIN2- och göra det 1 och 0 respektive och om mindre än 160 vi göra pin5 och PIN2-som '0' och '1'. Klicka nu på ladda om och köra för att kontrollera om programmet du skrev fungerar korrekt. Du kan även se de variabler som du har skapat på tabellerna i högra. Du kan nu flytta bollen från vänster till höger och se variablerna som ändras.