Πώς να διαβάσετε Serial Ports Χρήση της Visual Basic

Ακόμα κι αν έχουν τα μόντεμ έχουν αντικατασταθεί με υψηλής ταχύτητας πρόσβαση στο Internet , ορισμένοι υπολογιστές εξακολουθούν να τα χρησιμοποιούν για την επικοινωνία . Αν είστε προγραμματισμό μια εφαρμογή που χρησιμοποιεί ένα μόντεμ , επαληθεύοντας ότι υπάρχει και λειτουργεί είναι σημαντική για το περιβάλλον εργασίας χρήστη . Microsoft. NET περιλαμβάνει ένα χώρο ονομασία και την κλάση για να επικοινωνούν με σειριακές θύρες . Τα πράγματα που θα χρειαστείτε
Visual Studio . NET
Η Εμφάνιση Περισσότερες οδηγίες
Ανοίξτε ένα νέο έργο
Η 1

Δημιουργήστε μια νέα εφαρμογή κονσόλας . Από το μενού Visual Studio , κάντε κλικ στο " Νέο" και επιλέξτε "Project ". 2

Επιλέξτε " Visual Basic" στην αριστερή πλευρά του παραθύρου . Στη δεξιά πλευρά είναι διαφορετικά πρότυπα του έργου . Επιλέξτε " Εφαρμογή κονσόλας . " Κάντε κλικ στο κουμπί " OK" . Μια νέα εφαρμογή έχει ρυθμιστεί στο Visual Studio χώρο εργασίας .
Εικόνων 3

Κάντε δεξί κλικ στο όνομα του έργου στο πάνω δεξιά κουτί στο χώρο εργασίας . Επιλέξτε " Add Reference ".
Η

4 Κάντε κλικ στην καρτέλα " COM " . Επιλέξτε " Microsoft Επιτροπή Ελέγχου 6,0 " από το πλαίσιο λίστας και κάντε κλικ στο κουμπί " Επιλογή ". Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο αναφοράς .
Εικόνων Ρυθμίστε το Serial Port

5

Δημιουργήστε μια νέα μεταβλητή COM . Θα πρέπει να εκχωρήσει μνήμη και να κηρύξει μια νέα μεταβλητή . Το παρακάτω κείμενο καλεί την κατηγορία COM για χρήση στο υπόλοιπο της ενότητας . Η μεταβλητή buffer χρησιμοποιείται για να κρατήσει το κείμενο απάντησης από τη σειριακή port.Dim MyPort Όπως MSCommmyPort = Νέα MSCommDim mybuffer As String

6

Ρυθμίστε τη θύρα σε 1 . Οι περισσότεροι υπολογιστές έρχονται με δύο σειριακές θύρες . Ο παρακάτω κώδικας ορίζει την επικοινωνία στο λιμάνι 1.myPort.CommPort = 1
Η 7

Δημιουργία κοινές ρυθμίσεις . Ρυθμίστε το ρυθμό Baud και να σταματήσει τις πληροφορίες bit που απαιτούνται για τον έλεγχο μόντεμ . Αυτό setsmyPort.Settings = " 9600 , N , 8,1 "
8

Διαβάστε ολόκληρο το buffer . Αυτός ο κώδικας κάνει το μόντεμ χρησιμοποιούν ολόκληρο το buffer των πληροφοριών, όταν αποστέλλονται στη σειριακή port.myPort.InputLen = 0
εικόνων Επικοινωνήστε με το λιμάνι
Τετάρτη 9

Ανοίξτε τη σειριακή θύρα . Η σειριακή θύρα πρέπει να ανοίγει και το buffer εισόδου εκκαθαριστεί πριν από την εφαρμογή μπορεί να επικοινωνήσει μαζί του. Η τρίτη γραμμή κώδικα λέει τη σειριακή θύρα για να επιστρέψετε το κείμενο στο application.myPort.PortOpen = TruemyPort.InBufferCount ( ) = 0myPort.InputMode ( ) = InputModeConstants.comInputModeText
Η 10

Στείλτε μια εντολή για την σειριακή θύρα . Αυτή η εντολή ελέγχει την απάντηση του modem.myPort.Output = " ATV1Q0 " & Chr ( 13 )
Η 11

Διαβάστε την απάντηση από τη σειριακή θύρα . Αυτός ο βρόχος διαβάζει το κείμενο επέστρεψε μέχρι να "OK " είναι reached.DomyBuffer = mybuffer & myPort.InputLoop Μέχρι InStr ( mybuffer , "OK " και vbCrLf )
Η 12

Κλείστε τη θύρα . Μετά τη χρήση της σειριακής θύρας , είναι σημαντικό να το κλείσετε για άλλα applications.myPort.PortOpen = False
Η
εικόνων