Visual Basic é uma linguagem de programação comum usado em uma variedade de aplicações. A linguagem pode ser usada em Lego Mindstorms kits de robótica para criar várias aplicações. Estes kits vêm com computadores programáveis ​​conhecidos como "tijolos" que controlam os robôs. O software para esses kits podem ser programados para criar um power-up ou programa de start-up para o robô . Coisas que você precisa
Visual
básica Microsoft Robotics Studio Consola Xbox 360 controlador
adaptador Bluetooth
Lego Mindstorms NXT
Show Mais instruções
1

Ligue o robô que você construído usando as ferramentas básicas e instruções fornecidas no seu kit de robótica. Certifique-se de que a opção Bluetooth está ativado no menu principal LED usado para configurar o seu robô .
2

Criar o serviço que será responsável por dirigir o robô pela primeira vez. Em Visual Basic , digite " dssnewservice /idioma: VB /serviço: " seguido pelo nome do serviço. Por exemplo, se você deseja nomear o LegoBot serviço, digite o seguinte: " dssnewservice /idioma: VB /serviço: LegoBot " . O resultado final será uma pasta contendo vários arquivos necessários para a configuração adicional de seu programa de power-up .
3

Abra o arquivo LegoBot , que deve ser nomeado LegoBot.sln . Defina as referências na caixa ou no menu que se abre quando você abrir o arquivo. Clique esquerdo " RoboticsCommon.proxy " e " XInputGamePad.Y2006.M09.proxy " no diretório LegoBot .
4

Abra o arquivo LegoBot.cs /.vb para adicionar três linhas de Visual Basic código :

Importações pára = Microsoft.Robotics.Services.ContactSensor.ProxyImports dirigir = Microsoft.Robotics.Services.Drive.ProxyImports gamepad = Microsoft.Robotics.Services.Sample.XInputGamepad.Proxy
5

Criar as portas que você vai usar para se comunicar com o dispositivo digitando o seguinte código:

" parcerias com pára-choque , unidade diferencial e gamepad _Private _bumperPort Como bumper.ContactSensorArrayOperations = Novas bumper.ContactSensorArrayOperations ()

_Private _drivePort Como drive.DriveOperations = Novas drive.DriveOperations ( )

_Private _gamepadPort Como gamepad.XInputGamepadOperations = Novas gamepad.XInputGamepadOperations
6

assinar o seu jogo de serviço pad digitando " subscrever pressiona o botão e mudanças thumbstick no 360 padDim gamepadNotify Como gamepad.XInputGamepadOperations = Novas gamepad.XInputGamepadOperations () _gamepadPort.Subscribe ( gamepadNotify ) Activate ( Arbiter.Receive ( Of gamepad.ThumbsticksChanged ) ( É verdade, gamepadNotify , AddressOf ThumbstickHandler ) ) Activate ( Arbiter.Receive ( Of gamepad.ButtonsChanged ) ( É verdade, gamepadNotify , AddressOf ButtonHandler "
7

Abra o objeto LegoBotState e adicione" ' manter se os motores são enabledPublic MotorEnabled as Boolean "para indicar que os motores do robô estão habilitados.
8

Adicione o código necessário para determinar como o bot será tratado : " Private Sub ThumbstickHandler (ByVal msg como gamepad.ThumbsticksChanged ) Se ( _state.MotorEnabled ) Then ' esquerda /RightWheelPower espera um valor de - 1.0f para 1.0f . os thumbsticks retornará um valor forma - 1.0f para 1.0f . conveniente .

'Criar um requestDim req Como drive.SetDrivePowerRequest = Novo drive.SetDrivePowerRequest ()

' atribuir a valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY

' postar o request_drivePort.SetDrivePower ( req) End Sub IfEnd

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

Configure você funcionalidade pára-choques , digitando :" subscrever -choques notificationsDim bumperNotify Como bumper.ContactSensorArrayOperations = Novo pára-choque . ContactSensorArrayOperations ( ) _bumperPort.Subscribe ( bumperNotify ) Activate ( Arbiter.Receive ( Of bumper.Update ) ( É verdade, bumperNotify , AddressOf BumperHandler ) ) "
10

Ativar o manipulador de pára-choques , inserindo o necessário código: "Private Sub BumperHandler (ByVal msg Como bumper.Update ) Se ( msg.Body.Pressed ) ThenLogInfo ( " pressionado " !)

_state.MotorEnabled =
Falso

' criar um req requestDim Como drive.SetDrivePowerRequest = Novo drive.SetDrivePowerRequest ()

' parar o wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f

' postar o request_drivePort.SetDrivePower ( req) End Sub IfEnd "
11

Execute o serviço de depuração do programa e dizer o programa para permitir que os dispositivos instalados acima para trabalhar com a programação. Botão direito do mouse em " Propriedades " comando dentro do projeto. clique com o botão esquerdo em "Debug " e , em seguida, adicione " - manifesto : " samples \\ config \\ LEGO.NXT.LegoBot.manifest.xml " "
"para a caixa de texto com o nome" argumentos de linha de comando.