Ako si vyrobiť power - up v tehlovom v jazyku Visual Basic

Visual Basic je spoločný programovací jazyk používaný v rôznych aplikáciách . Jazyk môže byť použitý v Lego Mindstorms robotika sád vytvárať rôzne aplikácie . Tieto sady sú dodávané s programovateľnými počítačov známych ako " tehly " , ktoré ovládajú roboty . Softvér pre týchto súprav môže byť naprogramovaný tak , aby vytvoriť power - up alebo start - up program pre robota . Veci , ktoré budete potrebovať
Visual Basic
Microsoft Robotics Studio
XBox 360 Controller
Bluetooth adaptér
Lego Mindstorms NXT
Zobraziť ďalšie inštrukcie
1

Pripojte robota , ktorý ste postavené s použitím základných nástrojov a pokynov uvedených v robotike sade . Uistite sa , že voľba Bluetooth je zapnutá z hlavného LED ponuke slúži na nastavenie svojho robota .
2

Vytvorte službu , ktorá bude zodpovedná za prvú jazdu svojho robota . V aplikácii Visual Basic , zadajte " dssnewservice /Jazyk : VB /služby : " nasledovaný názvom služby . Napríklad , ak chcete pomenovať servisné LegoBot , zadajte nasledujúce : " dssnewservice /jazyk : VB /služby : LegoBot " . Konečným výsledkom bude zložka obsahujúca niekoľko súbory potrebné pre ďalšiu konfiguráciu programu Power - up .
3

Otvorte súbor LegoBot , ktorý by mal byť vymenovaný LegoBot.sln . Nastavte referencie v okne alebo ponuke , ktorá sa otvára pri otvorení súboru . Ľavé tlačidlo myši " RoboticsCommon.proxy " a " XInputGamePad.Y2006.M09.proxy " v adresári LegoBot .
4

Otvorte /. Vb súbor LegoBot.cs pridať tri riadky Visual Basic kód :

Dovoz nárazník = Microsoft.Robotics.Services.ContactSensor.ProxyImports riadiť = Microsoft.Robotics.Services.Drive.ProxyImports gamepad = Microsoft.Robotics.Services.Sample.XInputGamepad.Proxy
5

Vytvorte porty , ktoré budete používať pre komunikáciu so zariadením zadaním nasledujúci kód : Spojené

" partnerstvo s nárazník , diferenciálnej disk a gamepad < Partner ( " nárazník " , Zmluva : = nárazníka . Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _private _bumperPort Ako bumper.ContactSensorArrayOperations = Nové bumper.ContactSensorArrayOperations ( )

< Partner ( " drive " , Zmluva : = drive.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.UseExisting ) > _private _drivePort Ako drive.DriveOperations = Nové drive.DriveOperations ( )

< Partner ( " XInputGamepad " , Zmluva : = gamepad.Contract.Identifier , CreationPolicy : = PartnerCreationPolicy.CreateAlways ) > _private _gamepadPort Ako gamepad.XInputGamepadOperations = Nové gamepad.XInputGamepadOperations
6

Prihláste sa na vaše pad službe herné zadaním " prihlásiť k odberu stlačeniami tlačidiel a zmeny thumbstick na 360 padDim gamepadNotify As gamepad.XInputGamepadOperations = Nové gamepad.XInputGamepadOperations ( ) _gamepadPort.Subscribe ( gamepadNotify ) Activate ( Arbiter.Receive ( Of gamepad.ThumbsticksChanged ) ( Je pravda , že gamepadNotify , AddressOf ThumbstickHandler ) ) Activate ( Arbiter.Receive ( Of gamepad.ButtonsChanged ) ( pravda , gamepadNotify , AddressOf ButtonHandler "
7

Otvorte LegoBotState objekt a pridajte " " zachovať , či sú motory enabledPublic MotorEnabled As Boolean " čo znamená , že motory robota sú povolené .
8

Pridajte kód potrebný na určenie, ako sa bude zaobchádzať topánok : " Private Sub ThumbstickHandler ( byval msg ako gamepad.ThumbsticksChanged ) Ak je ( _state.MotorEnabled ) Then ' Vľavo /RightWheelPower očakáva hodnotu od - 1.0f do 1.0f . ďalej len " thumbsticks vráti hodnotu forma - 1.0f do 1.0f . Pohodlné .

" vytvoriť requestDim req Ako drive.SetDrivePowerRequest = Nové drive.SetDrivePowerRequest ( )

" priradiť valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY

" post request_drivePort.SetDrivePower ( req ) End Sub IfEnd

Private Sub ButtonHandler ( byVal msg As gamepad.ButtonsChanged ) Ak je ( msg.Body.A ) Then_state.MotorEnabled = TrueEnd IfEnd Sub "
9

Nastaviť vám funkciu nárazníka zadaním : " ' objednať nárazníka notificationsDim bumperNotify Ako bumper.ContactSensorArrayOperations = Nový nárazník . ContactSensorArrayOperations ( ) _bumperPort.Subscribe ( bumperNotify ) Activate ( Arbiter.Receive ( Of bumper.Update ) ( Je pravda , že bumperNotify , AddressOf BumperHandler ) ) "
10

Povoliť popisovač nárazníka zadaním potreby kód : " Private Sub BumperHandler ( byval msg Ako bumper.Update ) Ak je ( msg.Body.Pressed ) ThenLogInfo ( " Lisované " ! )

_state.MotorEnabled = False

" vytvoriť requestDim req Ako drive.SetDrivePowerRequest = Nové drive.SetDrivePowerRequest ( )

" zastaviť wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f klipart

" Post request_drivePort.SetDrivePower ( req ) end Sub IfEnd "
11

spustite službu ladenie programu a hovorí programu , aby zariadenie nad inštalované pre prácu s programovaním . Kliknite pravým tlačidlom myši na " Vlastnosti " príkaz v rámci projektu . kliknite ľavým tlačidlom myši na " ladenie " a potom pridajte " - manifestu : " . samples \\ config \\ LEGO.NXT.LegoBot.manifest.xml " " do textového poľa označeného " argumenty príkazového riadku "

• Predchádzajúca strana: Adobe Reader Nemožno nájsť DDE serveru 
• Ďalšia strana: Nastavenie brány firewall na Povoliť Comcast SmartZone otvoriť