Πώς να κάνει ένα Power- Up σε Brick σε Visual Basic

Visual Basic είναι μια κοινή γλώσσα προγραμματισμού που χρησιμοποιείται σε μια ποικιλία εφαρμογών . Η γλώσσα μπορεί να χρησιμοποιηθεί σε Lego Mindstorms ρομποτική κιτ για να δημιουργήσουν διάφορες εφαρμογές . Αυτές οι εξαρτήσεις έρχονται με προγραμματιζόμενα ηλεκτρονικοί υπολογιστές είναι γνωστοί ως «τούβλα» που ελέγχουν τα ρομπότ . Το λογισμικό για αυτά τα πακέτα μπορούν να προγραμματιστούν για να δημιουργήσει μια δύναμη επάνω ή εκκίνηση του προγράμματος για το ρομπότ . Τα πράγματα που θα χρειαστείτε
Visual βασική για Microsoft Robotics Studio
Xbox 360 controller
προσαρμογέα Bluetooth
Lego Mindstorms NXT
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Συνδέστε το ρομπότ που κατασκευάστηκε χρησιμοποιώντας τα βασικά εργαλεία και τις οδηγίες που παρέχονται στη ρομποτική κιτ σας . Βεβαιωθείτε ότι η επιλογή Bluetooth είναι ενεργοποιημένη από το κύριο μενού LED που χρησιμοποιείται για να δημιουργήσει το ρομπότ σας . 2

Δημιουργήστε την υπηρεσία που θα είναι υπεύθυνη για την οδήγηση ρομπότ σας πρώτα . Στη Visual Basic , πληκτρολογήστε " dssnewservice /γλώσσας : VB /υπηρεσία : " ακολουθούμενο από το όνομα της υπηρεσίας . Για παράδειγμα , εάν θέλετε να ονομάσετε το LegoBot υπηρεσίας , πληκτρολογήστε το ακόλουθο κείμενο: " dssnewservice /γλώσσας : VB /υπηρεσία : LegoBot " . Το τελικό αποτέλεσμα θα είναι ένας φάκελος που περιέχει πολλά απαραίτητα αρχεία για την περαιτέρω διαμόρφωση του προγράμματος power-up σας .
Εικόνων 3

Ανοίξτε το αρχείο LegoBot , το οποίο θα πρέπει να ονομαστεί LegoBot.sln . Ρυθμίστε τις αναφορές στο κουτί ή το μενού που ανοίγει όταν ανοίγετε το αρχείο . Αριστερό κλικ " RoboticsCommon.proxy " και " XInputGamePad.Y2006.M09.proxy " στον κατάλογο LegoBot .
Η

4 Ανοίξτε το /.vb αρχείο LegoBot.cs να προσθέσει τρεις γραμμές της Visual Basic Κωδικός :

Εισαγωγές προφυλακτήρα = Microsoft.Robotics.Services.ContactSensor.ProxyImports αυτοκίνητο = Microsoft.Robotics.Services.Drive.ProxyImports gamepad = Microsoft.Robotics.Services.Sample.XInputGamepad.Proxy
Η 5

Δημιουργήστε τις θύρες που θα χρησιμοποιούν για να επικοινωνούν με την συσκευή εισάγοντας τον ακόλουθο κώδικα :

" συνεργασίες με προφυλακτήρα , διαφορικό και gamepad _private _bumperPort Όπως bumper.ContactSensorArrayOperations = Νέα bumper.ContactSensorArrayOperations ( )

_private _drivePort Όπως drive.DriveOperations = Νέα drive.DriveOperations ( )

_private _gamepadPort Όπως gamepad.XInputGamepadOperations = Νέα gamepad.XInputGamepadOperations
Η 6

Εγγραφείτε στο παιχνίδι υπηρεσία μαξιλάρι σας πληκτρολογώντας "subscribe να πιέζει το κουμπί και τις αλλαγές thumbstick για το 360 padDim gamepadNotify Όπως gamepad.XInputGamepadOperations = Νέα gamepad.XInputGamepadOperations ( ) _gamepadPort.Subscribe ( gamepadNotify ) Ενεργοποίηση ( Arbiter.Receive ( Από gamepad.ThumbsticksChanged ) ( True , gamepadNotify , AddressOf ThumbstickHandler ) ) Ενεργοποίηση ( Arbiter.Receive ( Από gamepad.ButtonsChanged ) ( True , gamepadNotify , AddressOf ButtonHandler "
Η 7

Ανοίξτε το LegoBotState αντικείμενο και να προσθέσετε " " διατηρούν αν οι κινητήρες είναι enabledPublic MotorEnabled Όπως Boolean " για να δείξει ότι οι κινητήρες του ρομπότ είναι ενεργοποιημένη .
8

Προσθέστε τον κώδικα που απαιτείται για να καθορίσει πώς θα αντιμετωπιστεί το bot : " Private Sub ThumbstickHandler ( ByVal msg Όπως gamepad.ThumbsticksChanged ) Αν ( _state.MotorEnabled ) Στη συνέχεια, « Αριστερά /RightWheelPower αναμένει μία τιμή από - 1.0f σε 1.0f ". οι Thumbsticks θα επιστρέψει μια τιμή μορφή - 1.0f σε 1.0f . Βολικό .

« δημιουργήσει ένα req requestDim Όπως drive.SetDrivePowerRequest = Νέα drive.SetDrivePowerRequest ( )

' αναθέσει την valuesreq . LeftWheelPower = msg.Body.LeftYreq.RightWheelPower = msg.Body.RightY

» μετά το request_drivePort.SetDrivePower ( req ) End Sub IfEnd

Private Sub ButtonHandler ( ByVal msg Όπως gamepad.ButtonsChanged ) Αν ( msg.Body.A ) Then_state.MotorEnabled = TrueEnd IfEnd Sub "
Η 9

Ρύθμιση λειτουργικότητα προφυλακτήρα σας πληκτρολογώντας : " ' εγγραφείτε στο προφυλακτήρα notificationsDim bumperNotify Όπως bumper.ContactSensorArrayOperations = Νέα προφυλακτήρα . ContactSensorArrayOperations ( ) _bumperPort.Subscribe ( bumperNotify ) Ενεργοποίηση ( Arbiter.Receive ( από bumper.Update ) ( αλήθεια, bumperNotify , AddressOf BumperHandler ) ) "
Η 10

Ενεργοποιήστε τον χειριστή προφυλακτήρα εισάγοντας την αναγκαία Κωδικός : " Private Sub BumperHandler ( ByVal msg Όπως bumper.Update ) Αν ( msg.Body.Pressed ) ThenLogInfo ( " Pressed " ! )

_state.MotorEnabled = False

» δημιουργήσετε ένα req requestDim Όπως drive.SetDrivePowerRequest = Νέα drive.SetDrivePowerRequest ( )

« να σταματήσει η wheelsreq.LeftWheelPower = 0.0Freq.RightWheelPower = 0.0f

» μετά το request_drivePort.SetDrivePower ( req ) End Sub IfEnd "

11

Εκτελέστε την υπηρεσία εντοπισμού σφαλμάτων του προγράμματος και να λέει το πρόγραμμα για να επιτρέψει στις συσκευές που έχουν εγκατασταθεί πάνω για να συνεργαστεί με τον προγραμματισμό . Κάντε δεξί κλικ στο " Ιδιότητες "εντολή στο πλαίσιο του έργου . αριστερό κλικ στο " Debug " και στη συνέχεια προσθέστε " - δηλωτικό: " . δείγματα \\ config \\ LEGO.NXT.LegoBot.manifest.xml "" στο πλαίσιο κειμένου με την ένδειξη " γραμμή εντολών επιχειρήματα»


εικόνων