Πώς να στείλει Serial εντολές σε ένα Stepper σε Visual Basic

Μια stepper κινητήρα είναι μοναδικό στο ότι μπορεί να μετατρέψει ένα συγκεκριμένο αριθμό των βαθμών και να σταματήσει , παρά στροφή συνεχώς όπως κάνουν οι περισσότεροι ηλεκτροκινητήρες . Ο κινητήρας ελέγχεται ηλεκτρονικά από ένα εξωτερικό κύκλωμα . Αυτή η διάταξη προσφέρεται για τον έλεγχο του λογισμικού , είτε πρόκειται firmware ενσωματωμένο στο μικροελεγκτή ή από ένα εξωτερικό πρόγραμμα . Visual Basic μπορεί να χρησιμοποιηθεί για την ανάπτυξη λογισμικού που επικοινωνεί με το κύκλωμα ελέγχου ενός κινητήρα μέσω της σειριακής ή παράλληλης θύρας στον υπολογιστή. Όταν η θύρα είναι ανοικτή , το πρόγραμμά σας μπορεί να ασκεί έλεγχο επί των κινήσεων του κινητήρα . Οδηγίες

1

Αναφορά στην τάξη SerialPort στο πρόγραμμά σας . Αυτή η διάταξη μπορεί να χρησιμοποιηθεί με τη Visual Basic , καθώς και άλλα NET γλώσσες . . Πληκτρολογήστε την ακόλουθη δήλωση στην κορυφή του αρχείου Κωδικός :

εισαγωγές System.IO.Ports 2

Ορίστε τις ρυθμίσεις της θύρας και ανοίξτε τη σειριακή θύρα . Αυτός ο κωδικός μπορεί να εισαχθεί σε μια σειρά από θέσεις στον εν λόγω το "Load " περίπτωση μια φόρμα ή σε απάντηση σε ένα κουμπί ωθείται πρόγραμμα . Το παρακάτω παράδειγμα ορίζει τις παραμέτρους για τη σειριακή θύρα COM1 :

Dim myComPort As New SerialPort

Δοκιμάστε

Αν όχι myComPort.IsOpen Τότε

myComPort.PortName = " COM1 "

myComPort.BaudRate = 1200

myComPort.Parity = Parity.None

myComPort.DataBits = 8

myComPort.StopBits = StopBits . Ένας

myComPort.Handshake = Handshake.None

myComPort.ReadTimeout = 3000

myComPort.WriteTimeout = 5000

myComPort.Open ( )

End If

Catch --- ( λάθη )

End Δοκιμάστε
εικόνων 3

Αποστολή τους κωδικούς ελέγχου για τον μικροελεγκτή που συνδέονται με το stepper κινητήρα. Διαφορετικοί συνδυασμοί των ελεγκτών και οι κινητήρες θα έχουν διαφορετικές απαιτήσεις του κώδικα , έτσι ώστε να πρέπει να αναφέρονται στην τεκμηρίωση του κατασκευαστή για τους συγκεκριμένους κωδικούς και τη μορφή με την οποία ο ελεγκτής αναμένει να τις λάβουν . Ως παράδειγμα , ο παρακάτω κώδικας στέλνει μια εντολή "GO" ως 8 - bit , χαρακτήρες ASCII :

myComPort.Writeline ( "GO" )

απάντηση = myComPort.Readline

4

Κλείστε τη θύρα, όταν τελειώσετε την αποστολή των εντολών . Το " End Χρήση του" δήλωση απελευθερώνει τους πόρους της σειριακής θύρας και κλείνει την επικοινωνία . Προσθέστε αυτόν τον κώδικα είτε το " FormClosing " χειριστή ή σε ένα συγκεκριμένο μενού ή ελέγχου συμβάντος :

Χρησιμοποιώντας myComPort

Αν myComPort.IsOpen Τότε

Do While ( myComPort. BytesToWrite > 0 )

Loop

End If End

Χρησιμοποιώντας
Η
εικόνων