_private _gamepadPort Zoals gamepad.XInputGamepadOperations = Nieuwe gamepad.XInputGamepadOperations
6 Abonneer je gamepad dienst door het invoeren van " abonneren op de knop drukt en thumbstick veranderingen op de 360 padDim gamepadNotify Zoals gamepad.XInputGamepadOperations = Nieuwe gamepad.XInputGamepadOperations ( ) _gamepadPort.Subscribe ( gamepadNotify ) Activate ( Arbiter.Receive ( Of gamepad.ThumbsticksChanged ) ( True , gamepadNotify , AddressOf ThumbstickHandler ) ) Activate ( Arbiter.Receive ( Of gamepad.ButtonsChanged ) ( Ware , gamepadNotify , AddressOf ButtonHandler "
7
Open de LegoBotState object en voeg " " handhaven of de motoren zijn enabledPublic MotorEnabled zoals Van Boole " om aan te geven dat de motoren van de robot zijn ingeschakeld .
8
Voeg de code die nodig is om te bepalen hoe de bot zal worden behandeld : " Private Sub ThumbstickHandler ( ByVal msg Zoals gamepad.ThumbsticksChanged ) Als ( _state.MotorEnabled ) Then ' Links /RightWheelPower verwacht een waarde van - 1.0F naar 1.0F . ' de duimknoppen zal een waarde vorm - 1.0F terug naar 1.0F . Handig .
' maak een requestDim req Zoals drive.SetDrivePowerRequest = Nieuw drive.SetDrivePowerRequest ( ) op
' wijzen de valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY
'post de request_drivePort.SetDrivePower ( req ) End Sub IfEnd
Private Sub ButtonHandler
( ByVal msg Zoals gamepad.ButtonsChanged ) Als ( msg.Body.A ) Then_state.MotorEnabled = TrueEnd IfEnd Sub "
9
Stel je bumper functionaliteit door het invoeren van : " ' abonneren op bumper notificationsDim bumperNotify Zoals bumper.ContactSensorArrayOperations = Nieuwe bumper . ContactSensorArrayOperations ( ) _bumperPort.Subscribe ( bumperNotify ) Activate ( Arbiter.Receive ( Of bumper.Update ) ( True , bumperNotify , AddressOf BumperHandler ) ) "
10
Activeer de bumper handler met de nodige invoeren code : " Private Sub BumperHandler ( ByVal msg Zoals bumper.Update ) Als ( msg.Body.Pressed ) ThenLogInfo ( " ! Pressed " ) op Twitter
_state.MotorEnabled = False
' maak een requestDim req Zoals drive.SetDrivePowerRequest = Nieuw drive.SetDrivePowerRequest ( ) op
' stop de wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f
' post de request_drivePort.SetDrivePower ( req ) end IfEnd Sub "
11
Run de dienst door het debuggen van het programma en het vertellen van het programma , zodat de apparaten hierboven geïnstalleerd om te werken met de programmering . klik met de rechtermuisknop op de " Eigenschappen "commando binnen het project . klik met de linkermuisknop op " Debug " en voeg " - manifest : " . samples \\ config \\ LEGO.NXT.LegoBot.manifest.xml " " om het tekstvak " Commandoregelopties "