Visual Basic est le langage de programmation développé par Microsoft . Visual Basic est une représentation visuelle du langage de programmation Basic classique. Visual Basic 6 est la version de l'application de programmation qui a été publié avant la version. NET . Bien que la programmation avec Visual Basic, vous devrez peut-être d'accéder à différentes parties de l'ordinateur afin que le programme puisse faire ce que vous avez besoin de faire . Lire et /ou envoyer des données vers les ports série de l'ordinateur en utilisant les bons codage Visual Basic . Instructions
1

Ouvrez Microsoft Visual Basic 6. La boîte de dialogue « Nouveau projet » apparaît chaque fois que vous ouvrez VB6 . Dans l'onglet "Nouveau" , cliquez sur " EXE standard. " Si vous souhaitez travailler dans un projet existant , cliquez sur l'onglet « existant» , puis sélectionnez le projet .
2

Cliquez sur le menu "Projet" , puis " Ajouter un module . " Cliquez sur "Ouvrir " lorsque la boîte de dialogue "Add Module " apparaît sur l' écran .
3 Type de

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 s'assurer que vous êtes connecté au port série droite .

"Fonction OpenSerialPort () as String

getString As String = ""

Dim comSerial comme IO.Ports.SerialPort

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

End Function "
4 Type de

dans la fonction qui va lire les données de la série en utilisant la variable " comSerial " que vous avez déjà établi .

"Fonction readSerialPort ( comSerial comme IO.Ports.SerialPort ) en tant que String

getString As String = ""

aide comSerial

Do

Dim réception As String = comSerial.ReadLine ()
< p> Lors de la réception n'est rien Puis

Exit Do

Else

returnStr & = Réception & vbCrLf

End If

boucle

comSerial.Close ()

End Using

Retour getString

End Function "
5

Tapez les alinéas suivants procédure qui envoie des données sur le port série . Une fois ce sous procédure est établie dans ce module , vous pouvez appeler de n'importe où dans le projet actuel d'envoyer des données aux ports série tout le temps que vous choisissez.

" Sous sendDataToSerial (données ByVal comme corde )

aide comSendData Comme IO.Ports.SerialPort = Utiliser

End Sub "
6

transmettre l'information à la sous procédure en utilisant une variable appelée " données " . Un exemple de cela est:

« données Dim As String
données

=" Ceci est un exemple de données à transmettre sur le port série Com1 "

Console.WriteLine ( " Write les données sur le port série COM1: "& données)

sendDataToSerial (données) "
7

Placez le code dans n'importe quelle fonction , méthode ou procédure en cours de projet pour écrire les données au port série . Exécutez le code en appuyant sur la touche «Ctrl» et les touches «F5» ensemble.
8

Enregistrez le projet en cliquant sur l'icône "Sauvegarder" dans la barre d'outils .