Πώς να χρησιμοποιήσετε την σειριακή θύρα σε Visual Basic

Visual Basic είναι ένα event-driven γλώσσα προγραμματισμού που παράγονται από τη Microsoft . Η αρχική γλώσσα προγραμματισμού και ολοκληρωμένο περιβάλλον ανάπτυξης έχει σχεδιαστεί για να υποστηρίξει το μοντέλο προγραμματισμού COM . Η τρέχουσα έκδοση του Visual Basic είναι πλήρως ενσωματωμένη στο Microsoft . NET περιβάλλον ανάπτυξης . Visual Basic είναι επίσης καλώδιο σειριακές θύρες του υπολογιστή προγραμματισμού, εάν έχετε μια ανάγκη να έχουν πρόσβαση ή να τροποποιήσετε περιφέρειες υπολογιστή με την αίτησή σας μέσα από τη χρήση του ελέγχου MSComm που ενσωματώνεται σε Visual Basic . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio . NET Integrated Development Environment
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Studio και επιλέξτε " File- > New- > project " από το μενού κύριο αρχείο . Στη συνέχεια , επιλέξτε "Project Είδη - > Έργα της Visual Basic " και επιλέξτε το "Console Application " κάτω από το μενού πρότυπα . 2

Κάντε δεξί κλικ στο εικονίδιο του προγράμματος και επιλέξτε το μενού " Add Reference " . Στη συνέχεια , επιλέξτε το "Com " καρτέλα μενού και επιλέξτε "Microsoft Επιτροπή Ελέγχου 6,0 " που παρατίθεται στην ενότητα " Ονομασία εξαρτήματος " . Επιλέξτε " Επιλογή " ακολουθούμενο από το πλήκτρο " OK" .
Εικόνων 3

διπλό κλικ στη λειτουργική μονάδα ορατό στην επεξεργασία της Visual Basic IDE πρόγραμμα . Αυτό θα ανοίξει το παράθυρο προγραμματισμού
Η 4

Εισάγετε τον παρακάτω κώδικα προγραμματισμού για να προετοιμάσει τις δομές σειριακή θύρα δεδομένων που θα χρησιμοποιηθούν για τον χειρισμό της σειριακής θύρας μετά το άνοιγμα : . Δημ. MSComm1 Όπως MSCommMSComm1 = Νέα MSCommDim Buffer Όπως StringMSComm1.CommPort = 1MSComm1.Settings = " 9600 , N , 8,1 " MSComm1.InputLen = 0
5

Ανοίξτε τη σειριακή θύρα συμπεριλαμβάνοντας τον κωδικό προγραμματισμού μετά την τελευταία γραμμή του κώδικα που εγγράφονται στο βήμα 4 : MSComm1.PortOpen = TrueMSComm1.InputMode ( ) = InputModeConstants.comInputModeTextMSComm1.InBufferCount ( ) = 0MSComm1.Output = " ATV1Q0 " & Chr ( 13 )
Η 6

χειραγωγήσουν τη σειριακή θύρα πληροφοριών και , στη συνέχεια, κλείστε τη σειριακή θύρα εισάγοντας τον ακόλουθο κώδικα στο κάτω μέρος της μονάδας προγραμματισμού Visual Basic : DoBuffer = Buffer & MSComm1.InputLoop Μέχρι InStr ( Buffer , "OK " και vbCrLf ) MSComm1.PortOpen = FalseConsole.WriteLine ( " Κλείστε τη σειριακή θύρα »). endmodule
Η 7

Επιλέξτε τα " κλειδιά CTRL + F5 " ταυτόχρονα την κατασκευή και λειτουργία του έργου .
Η
εικόνων