Προγραμματισμός Serial Ports Χρήση της Visual Basic 6

Visual Basic είναι η γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft . Visual Basic είναι μια οπτική αναπαράσταση του κλασικού Basic γλώσσα προγραμματισμού . Visual Basic 6 είναι η έκδοση της εφαρμογής προγραμματισμού που κυκλοφόρησε πριν από τη ΝΕΤ έκδοση . . Ενώ προγραμματισμό με Visual Basic , μπορεί να χρειαστεί να έχει πρόσβαση σε διάφορες περιοχές του υπολογιστή, έτσι ώστε το πρόγραμμα μπορεί να κάνει ό, τι χρειάζεται να κάνετε . Διαβάστε και /ή να στείλετε τα στοιχεία για τις σειριακές θύρες στον υπολογιστή , χρησιμοποιώντας το δικαίωμα της Visual Basic κωδικοποίηση . Οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic 6 . Το παράθυρο διαλόγου "New Project " θα εμφανίζεται κάθε φορά που ανοίγετε VB6 . Στην καρτέλα " Νέα " , κάντε κλικ στο "Standard EXE . " Αν θέλετε να εργαστείτε σε ένα υπάρχον έργο , κάντε κλικ στην καρτέλα " Υπάρχουσες" και , στη συνέχεια, επιλέξτε το έργο . 2

Κάντε κλικ στο "Έργο" μενού και στη συνέχεια " Προσθήκη Module . " Κάντε κλικ στο κουμπί "Άνοιγμα ", όταν εμφανιστεί το μήνυμα " Προσθήκη Module " παράθυρο διαλόγου στην οθόνη .
Εικόνων 3

Πληκτρολογήστε μια λειτουργία για να δημιουργήσετε ένα στιγμιότυπο της σειριακής θύρας του υπολογιστή . Δεδομένου ότι οι σειριακές θύρες είναι συνήθως " Com1 " και " Com2 , " χρησιμοποιούν αυτό ως σημείο αναφοράς για να βεβαιωθείτε ότι έχετε σύνδεση με τη σωστή σειριακή θύρα .

" OpenSerialPort Function ( ) ως String

Dim GetString ως String = " "

Dim comSerial όπως IO.Ports.SerialPort

comSerial = My.Computer.Ports.OpenSerialPort ( " Com1 " )

End Function "
Η 4

Τύπος στη λειτουργία που θα διαβάσει τα δεδομένα από τη σειριακή χρησιμοποιώντας το " comSerial " μεταβλητή που έχουν ήδη καθοριστεί.

" readSerialPort λειτουργία ( comSerial ως IO.Ports.SerialPort ) ως String

Δημ. GetString ως String = " "

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

Κάντε

Dim Λήψη As String = comSerial.ReadLine ( )

Αν λήψης δεν είναι τίποτα τότε

Exit Do

Else

returnStr & = Λήψη & vbCrLf

End If

Loop

comSerial.Close ( )

Τέλος Χρησιμοποιώντας

Επιστροφή GetString

Function End "
5

Πληκτρολογήστε την ακόλουθη υπο διαδικασία που στέλνει δεδομένα στη σειριακή θύρα . Μόλις ολοκληρωθεί αυτή η διαδικασία ρουτίνας είναι εγκατεστημένος σε αυτή την ενότητα , μπορείτε να καλέσετε από οπουδήποτε στο τρέχον έργο για την αποστολή δεδομένων με τις σειριακές θύρες κάθε φορά που θα επιλέξετε .

" Sub sendDataToSerial ( ByVal δεδομένα String )

Χρησιμοποιώντας comSendData Όπως IO.Ports.SerialPort = Χρησιμοποιώντας

End Sub "
Η 6

περάσει τις πληροφορίες για τη διαδικασία υπο χρησιμοποιώντας μια μεταβλητή που ονομάζεται " δεδομένα ". Ένα παράδειγμα αυτού είναι :

" δεδομένα Dim Όπως String

δεδομένων = " Αυτό είναι το παράδειγμα να μεταδώσει δεδομένα στη σειριακή θύρα Com1 "

Console.WriteLine ( " Write τα δεδομένα στη σειριακή θύρα COM1 : " & data )

sendDataToSerial (data) "
Η 7

Τοποθετήστε τον κώδικα σε οποιαδήποτε λειτουργία , μέθοδο ή τη διαδικασία κατά τη διάρκεια του έργου για να γράψει τα δεδομένα στη σειριακή θύρα . Εκτελέστε τον κωδικό πατώντας το πλήκτρο "Ctrl " και τα πλήκτρα " F5 " μαζί .
8

Αποθηκεύστε το έργο κάνοντας κλικ στο εικονίδιο "Αποθήκευση" στη γραμμή εργαλείων .
Εικόνων
Η