AVR Visual Basic πηγαίου κώδικα Γλώσσα Tutorial

Γράφοντας ένα πρόγραμμα της Visual Basic για τη διασύνδεση του υπολογιστή σας με ένα ενσωματωμένο μικροελεγκτή AVR δεν είναι τόσο δύσκολο όσο φαίνεται . Ο μικροελεγκτής AVR μπορεί να ρυθμιστεί ώστε να έχει μια σειριακή θύρα που μπορεί να συνδεθεί σε μια σειριακή θύρα στο PC. Μια Visual Basic πρόγραμμα που τρέχει στον υπολογιστή μπορούν να ανταλλάσσουν δεδομένα με το AVR μέσω της σειριακής θύρας . Στην απλούστερη μορφή του, το Basic κώδικα Visual πηγή για σειριακή επικοινωνία μεταξύ του AVR και το PC περιλαμβάνει προετοιμασία, τη μετάδοση και λήψη . Τα πράγματα που θα χρειαστείτε
Visual Basic . NET 2.0 ή νεότερη
Serial καλώδιο για να συνδέσετε AVR Development Board στον υπολογιστή
AVR Διοικητικού Συμβουλίου Ανάπτυξης με Serial Interface
AVR Compiler /Περιβάλλον Ανάπτυξης
Η Εμφάνιση Περισσότερες οδηγίες
Η

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

Υπόσταση μια σειριακή θύρα αντικείμενο σε VB . Θα πρέπει να συγκεκριμενοποιήσει τη σειριακή θύρα με τις παραμέτρους επικοινωνίας πριν από το άνοιγμα αυτό και τη λήψη ή μετάδοση δεδομένων. Το παρακάτω πηγαίος κώδικας μπορεί να χρησιμοποιηθεί για την υπόσταση μια σειριακή θύρα αντικείμενο την COM1 και 9600 baud :

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

Δημόσια Τάξη SerialExampleFormDim WithEvents Port Όπως SerialPort = _new SerialPort ( " COM1 " , 9600 , Parity.None , 8 , StopBits.One )
εικόνων 3

μεταφορά δεδομένων στο AVR . Η ακόλουθη υπορουτίνα μεταδίδει το κείμενο από ένα πλαίσιο κειμένου που ονομάζεται " txtTransmitData " όταν ένα κουμπί που ονομάζεται " btnTransmitData " έχει πατηθεί. Βεβαιωθείτε ότι έχετε τοποθετήσει το πλαίσιο κειμένου και το κουμπί στη φόρμα σας .

Private Sub btnTransmitData_Click ( ByVal αποστολέα Όπως System.Object , _ByVal e Όπως System.EventArgs ) Λαβές btnTransmitData.ClickPort.Open ( ) Port.Write ( txtTransmitData.Text ) Port.Close ( ) End Sub
Η 4

Λήψη δεδομένων από το AVR σε VB . Η υπορουτίνα φορτίο μορφή διασφαλίζει ότι η σειριακή θύρα είναι ανοικτή για το φορτίο μορφή . Η υπορουτίνα DataReceived παίρνει ένα χαρακτήρα που θα διαβαστεί από τη σειριακή θύρα και το εμφανίζει σε ένα πλαίσιο κειμένου που ονομάζεται " TextBox1 . " Να είστε βέβαιος οπτική βασική μορφή σας περιλαμβάνει ένα στοιχείο ελέγχου πλαισίου κειμένου που ονομάζεται Texbox1 . Επίσης , για να λαμβάνετε σειριακών δεδομένων , να θυμάστε ότι η θύρα πρέπει να είναι ανοικτή .

Private Sub SerialExampleForm_Load ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Τότε Λιμάνι . Open ( ) End Sub

Private Sub Port_DataReceived ( ByVal αποστολέα ως αντικείμενο, ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) Λαβές Port.DataReceivedTextBox1.Text = " " TextBox1.Text = Port.ReadChar ( ) End υπο
Η
εικόνων