|
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 .
|
