Visual Basic är ett vanligt programmeringsspråk som används i en mängd olika applikationer . Språket kan användas i LEGO MINDSTORMS robotics kit för att skapa olika applikationer. Dessa paket kommer med programmerbara datorer som kallas " tegelstenar " som styr robotarna . Programvaran för dessa kit kan programmeras för att skapa en power-up eller uppstart program för roboten. Saker du behöver Review, Visual basic
Microsoft Robotics Studio Review Xbox 360 Controller
Bluetooth -adapter
Lego Mindstorms NXT
Visa fler instruktioner
1
Koppla in den robot som du konstruerat med hjälp av de grundläggande verktyg och instruktioner som finns i din robotteknik kit . Se till att Bluetooth är aktiverat från den huvudsakliga LED -menyn används för att ställa in din robot .
2
Skapa den tjänst som kommer att ansvara för att driva din robot först . I Visual Basic , skriv " dssnewservice /språk : VB /tjänsten : " följt av namnet på tjänsten . Till exempel , om du vill namnge tjänsten LegoBot , skriv följande : " dssnewservice /språk : VB /tjänsten : LegoBot " . Slutresultatet blir en mapp som innehåller flera filer som behövs för vidare konfigurering av din makt - up program .
3
Öppna LegoBot filen , som ska namnges LegoBot.sln . Ange referensnummer i lådan eller menyn som öppnas när du öppnar filen . Vänster klicka " RoboticsCommon.proxy " och " XInputGamePad.Y2006.M09.proxy " i LegoBot katalogen .
4
Öppna LegoBot.cs /.vb fil för att lägga tre rader med Visual Basic code :
Imports stötfångaren = Microsoft.Robotics.Services.ContactSensor.ProxyImports enhet = Microsoft.Robotics.Services.Drive.ProxyImports gamepad = Microsoft.Robotics.Services.Sample.XInputGamepad.Proxy
5
Skapa de portar som du kommer att använda för att kommunicera med enheten genom att ange följande kod :
" partnerskap med stötfångaren , differential drive och gamepad < Partner ( " bumper " , Kontrakt : = stötfångare . Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _private _bumperPort Som bumper.ContactSensorArrayOperations = Nya bumper.ContactSensorArrayOperations ( ) katalog
< Partner ( " drive " , Kontrakt : = drive.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _private _drivePort Som drive.DriveOperations = Nya drive.DriveOperations ( ) katalog
< Partner ( " XInputGamepad " , Kontrakt : = gamepad.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.CreateAlways ) > _private _gamepadPort som gamepad.XInputGamepadOperations = Nya gamepad.XInputGamepadOperations
6
prenumerera på din spelkontroll tjänst genom att ange " prenumerera på knapptryckningar och förändringar thumbstick på 360 padDim gamepadNotify som gamepad.XInputGamepadOperations = Nya gamepad.XInputGamepadOperations ( ) _gamepadPort.Subscribe ( gamepadNotify ) Aktivera ( Arbiter.Receive ( av gamepad.ThumbsticksChanged ) ( Sant , gamepadNotify , AddressOf ThumbstickHandler ) ) Aktivera ( Arbiter.Receive ( av gamepad.ButtonsChanged ) ( Sant , gamepadNotify , AddressOf ButtonHandler "
7
Öppna LegoBotState objektet och lägg " " upprätthålla om motorerna är enabledPublic MotorEnabled As Boolean " för att indikera att robotens motorer är aktiverade .
8
Lägg den kod som behövs för att avgöra hur boten ska hanteras : " Private Sub ThumbstickHandler ( ByVal msg som gamepad.ThumbsticksChanged ) Om ( _state.MotorEnabled ) Then ' Vänster /RightWheelPower förväntar ett värde från - 1.0f till 1.0f . " de Thumbsticks återkommer ett värde formulär - 1.0f till 1.0f . Bekvämt .
" Skapa en requestDim req som drive.SetDrivePowerRequest = Ny drive.SetDrivePowerRequest ( ) katalog
' tilldela valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY
" inlägg på request_drivePort.SetDrivePower ( req ) Avsluta IfEnd Sub
Private Sub ButtonHandler ( ByVal msg Som gamepad.ButtonsChanged ) Om ( msg.Body.A ) Then_state.MotorEnabled = TrueEnd IfEnd Sub "
9
Ställ in dig rikligt funktionalitet genom att skriva : " ' prenumerera på stötfångaren notificationsDim bumperNotify som bumper.ContactSensorArrayOperations = Ny stötfångare . ContactSensorArrayOperations ( ) _bumperPort.Subscribe ( bumperNotify ) Aktivera ( Arbiter.Receive ( av bumper.Update ) ( Sant , bumperNotify , AddressOf BumperHandler ) ) "
10
Aktivera stötfångaren hanteraren genom att ange nödvändiga code : " Private Sub BumperHandler ( ByVal msg Som bumper.Update ) Om ( msg.Body.Pressed ) ThenLogInfo ( " ! Pressad " ) katalog
_state.MotorEnabled = False
" skapa en requestDim req Som drive.SetDrivePowerRequest = Ny drive.SetDrivePowerRequest ( ) katalog
" stoppa wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f
" inlägg på request_drivePort.SetDrivePower ( req ) avsluta IfEnd Sub "
11
Kör tjänsten genom att felsöka programmet och talar om för programmet att tillåta enheter som är installerade ovan för att arbeta med programmering . Högerklicka på " Egenskaper " kommandot inom projektet . vänster - klicka på " Debug " och sedan lägga till " - manifest : " . prover \\ config \\ LEGO.NXT.LegoBot.manifest.xml " " till textrutan som heter " kommandoradsargument "
Addera ditt
