Programmation des ports série en utilisant visual basic 6

Visual Basic a une méthode pour traiter avec des ports série sur l`ordinateur.

Visual Basic est le langage de programmation développé par Microsoft. Visual Basic est une représentation visuelle de la langue de programmation de base classique. Visual Basic 6 est la version de l`application de programmation qui a été publié avant la version .NET. Lors de la programmation avec Visual Basic, vous pouvez avoir besoin d`accéder à différentes parties de l`ordinateur de sorte que le programme peut faire ce que vous avez besoin de faire. Lire et / ou envoyer des données vers les ports série sur l`ordinateur en utilisant le droit de codage Visual Basic.

6. Ouvrez Microsoft Visual Basic La "Nouveau projet" boîte de dialogue apparaît à chaque fois que vous ouvrez VB6. Sur le "Nouveau" onglet, cliquez sur "EXE standard." Si vous souhaitez travailler dans un projet existant, cliquez sur le "Existant" onglet, puis sélectionnez le projet.
Clique sur le "Projet" élément de menu, puis "Ajouter un module." Cliquez "Ouvrir" quand le "Ajouter un module" boîte de dialogue apparaît à l`écran.
Tapez dans une fonction pour créer une instance du port série sur l`ordinateur. Étant donné que les ports série sont généralement "Com1" et "Com2," utiliser comme une référence pour vous assurer que vous êtes connecté au port série droite.
"Fonction OpenSerialPort () as String
```
 Dim getString as String = " "Dim comSerial Comme IO.Ports.SerialPort
comSerial = My.Computer.Ports.OpenSerialPort ("Com1")
```
End Function"

Tapez la fonction qui va lire les données à partir de la série à l`aide du "comSerial" variable que vous déjà établi.

"Fonction readSerialPort (comSerial comme IO.Ports.SerialPort) as String

Dim getString as String = " "

 Utilisation de comSerial


Faire
Dim Réception As String = comSerial.ReadLine ()
Si réception est rien alors
Quitter Do
Autre
returnStr &= Réception & vbCrLf
Fin si
Boucle
comSerial.Close ()
Fin Utilisation
Retour getString

End Function"

Tapez la procédure suivante sous qui envoie des données sur le port série. Une fois cette procédure sous est établie dans ce module, vous pouvez l`appeler de partout dans le projet en cours pour envoyer des données aux ports série chaque fois que vous choisissez.
"(Données ByVal que String) sendDataToSerial Sous
```
Utilisation de comSendData Comme IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort ("COM1")comSendData.WriteLine (données)
comSendData.Close ()
Fin Utilisation
```
End Sub"
Transmettre les informations à la sous-procédure en utilisant une variable nommée "données." Un exemple de cela est la suivante:
"données Dim As String
données = "Ce sont des données d`exemple pour transmettre au port série Com1"
Console.WriteLine ("Ecrire les données à la COM1 du port série: " & données)
sendDataToSerial (données)"
Placez le code dans une fonction, méthode ou procédure au cours du projet pour écrire les données sur le port série. Exécutez le code en appuyant sur la "Ctrl" et "F5" clés ensemble.
Enregistrez le projet en cliquant sur le "sauvegarder" icone dans la barre d`outils.