Stap 6: VB module
xaxis=Getvariable("COG_X")
objsize=GetVariable("COG_BOX_SIZE")
Als (objsize > 10) dan
Als (xaxis > 160) dan
SetVariable "pin2", 0
SetVariable "pin5", 1
Anders als (x-as < 160) dan
Set variabele "pin2", 1
Set variabele "pin5", 0
eind als
Uitleg van de code:
Krijgen-variabele wordt gebruikt om de COG_X en COG_BOX_SIZE en opslaan in variabelen "x-as" en "objsize" nu door het plaatsen van de bal in het midden van het scherm we de waarde van het object op de x-as en de grootte van het vak ontdekken kunnen. Vervolgens hebben we een geneste ' als lus '. De eerste lus wordt vak sixe waarde gecontroleerd. Als het vak grootte erg groot is is het object zeer nabij. Dus we stoppen; maar als het een kleine waarde controleren we de volgende twee ' als conditions', waar als de x-as groter dan 160 (approx centrum is) Wij verklaren twee nieuwe variabelen pin5 en PIN2- en het 1 en 0 respectievelijk en als minder dan 160 we pin5 en PIN2-als '0' en '1'. Klik nu op laden en uitvoeren om te controleren of het programma dat u hebt geschreven goed functioneert. Je kunt zelfs zien de variabelen die u hebt gemaakt op de tabellen in de rechterhand. U kunt nu de bal verplaatsen van links naar rechts en zie de variabelen wijzigen.
