Visual Basic er et fælles programmeringssprog, der anvendes i en række forskellige applikationer. Sproget kan bruges i Lego Mindstorms robotteknologi kits til at skabe forskellige applikationer. Disse kits kommer med programmerbare computere er kendt som "mursten " , der styrer robotterne . Softwaren til disse kits kan programmeres til at skabe en opstart eller opstart program for robotten. Ting du skal
Visual basic
Microsoft Robotics Studio
XBox 360 controller
Bluetooth-adapter
Lego Mindstorms NXT
Vis Flere Instruktioner
1 < p> Tilslut robot, du konstruerede ved hjælp af de grundlæggende værktøjer og anvisningerne i din robotteknologi kit. Sørg for, at Bluetooth er slået til fra de vigtigste LED -menuen bruges til at oprette din robot.
2

Opret service, der vil være ansvarlig for at køre din robot først. I Visual Basic , indtast " dssnewservice /sprog: VB /tjeneste: " efterfulgt af navnet på den service . For eksempel, hvis du ønsker at navngive den service LegoBot indtaste følgende: " dssnewservice /sprog: VB /tjeneste: LegoBot " . Slutresultatet vil være en mappe, der indeholder flere nødvendige filer for yderligere konfiguration af din power- up program.
3

Åbn LegoBot fil, som skal navngives LegoBot.sln . Indstil henvisningerne i kassen eller menu, der åbnes , når du åbner filen. Venstre klik " RoboticsCommon.proxy " og " XInputGamePad.Y2006.M09.proxy " i LegoBot bibliotek.
4

Åbn LegoBot.cs /.vb fil tilføje tre linjer af Visual Basic kode : Hej

Import kofanger = Microsoft.Robotics.Services.ContactSensor.ProxyImports drev = Microsoft.Robotics.Services.Drive.ProxyImports gamepad = Microsoft.Robotics.Services.Sample.XInputGamepad.Proxy
5

Opret de porte, du vil bruge til at kommunikere med enheden ved at indtaste følgende kode :

" partnerskaber med kofanger , differential -drev og gamepad < Partner ( " kofanger " Kontrakt: = kofanger . Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _Private _bumperPort Som bumper.ContactSensorArrayOperations = Nye bumper.ContactSensorArrayOperations ()

< Partner ( "drive" , Kontrakt: = drive.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _Private _drivePort Som drive.DriveOperations = Nye drive.DriveOperations ()

< Partner ( " XInputGamepad " Kontrakt: = gamepad.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.CreateAlways ) > _Private _gamepadPort som gamepad.XInputGamepadOperations = Nye gamepad.XInputGamepadOperations
6

Tilmeld din gamepad tjeneste ved at indtaste " abonnere på knaptryk og styrepind ændringer på 360 padDim gamepadNotify som gamepad.XInputGamepadOperations = Nye gamepad.XInputGamepadOperations () _gamepadPort.Subscribe ( gamepadNotify ) Aktiver ( Arbiter.Receive ( af gamepad.ThumbsticksChanged ) (sand , gamepadNotify , AddressOf ThumbstickHandler ) ) Aktiver ( Arbiter.Receive ( af gamepad.ButtonsChanged ) (sand , gamepadNotify , AddressOf ButtonHandler "
7

Åben LegoBotState objektet og tilføje " ' vedligeholde , om motorer er enabledPublic MotorEnabled som Boolean "for at indikere , at robottens motorer er aktiveret.
8

Tilføj koden er nødvendig for at bestemme, hvordan bot vil blive håndteret : "Private Sub ThumbstickHandler ( ByVal msg Som gamepad.ThumbsticksChanged ) If ( _state.MotorEnabled ) Then ' Left /RightWheelPower forventer en værdi fra - 1.0F til 1.0F . »de Thumbsticks vil returnere en værdi formular - 1.0F til 1.0F . Praktisk .

'Opret requestDim req Som drive.SetDrivePowerRequest = Ny drive.SetDrivePowerRequest ()

' tildele valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY

"post på request_drivePort.SetDrivePower ( req ) End IfEnd Sub

Private Sub ButtonHandler ( ByVal msg Som gamepad.ButtonsChanged ) Hvis ( msg.Body.A ) Then_state.MotorEnabled = TrueEnd IfEnd Sub "
9

Opsæt du kofanger funktionalitet ved at indtaste :" abonnere på kofanger notificationsDim bumperNotify som bumper.ContactSensorArrayOperations = Ny kofanger . ContactSensorArrayOperations () _bumperPort.Subscribe ( bumperNotify ) Aktiver ( Arbiter.Receive ( Of bumper.Update ) (sand , bumperNotify , AddressOf BumperHandler ) ) "
10

Aktiver kofangeren handleren ved at indtaste de nødvendige code: "Private Sub BumperHandler ( ByVal msg Som bumper.Update ) If ( msg.Body.Pressed ) ThenLogInfo ( !" pressede " )

_state.MotorEnabled = False

' skabe en requestDim req Som drive.SetDrivePowerRequest = Ny drive.SetDrivePowerRequest ()

' stoppe wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f

"post på request_drivePort.SetDrivePower ( req ) End IfEnd Sub "
11

Kør tjeneste ved debugging programmet og fortæller programmet at lade enhederne installeres over at arbejde med programmering. Højreklik på " Egenskaber "kommando i projektet . venstre-klik på " Debug" og derefter tilføje " - manifest : " . samples \\ config \\ LEGO.NXT.LegoBot.manifest.xml "" til tekstboksen mærket " kommandolinjeargumenter "