Programmation des ports série à l'aide de Visual Basic 6

Programmation des ports série à l'aide de Visual Basic 6

Visual Basic est un langage de programmation développé par Microsoft. Visual Basic est une représentation visuelle du langage de programmation de base classique. Visual Basic 6 est la version de l'application de programmation qui a été publié avant la version de NET. Lors de la programmation avec Visual Basic, vous pouvez avoir besoin pour 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 le droit de codage Visual Basic.

Explication

Ouvrez Microsoft Basic 6 La boîte de dialogue de Visual "Nouveau projet" apparaît chaque fois que vous VB6 ouvert. 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.

Cliquez sur l'élément "Projet" du menu, puis "Ajouter un module." Cliquez sur "Ouvrir" lorsque le "Ajouter un module" boîte de dialogue apparaît à l'écran.

Tapez une fonction pour créer une instance du port série de l'ordinateur. Depuis les ports série sont généralement "Com1" et "Com2," l'utiliser comme une référence pour vous assurer que vous vous connectez au port série droite. "Fonction OpenSerialPort () as String Dim obtenir cordes comme String =" "Dim comSerial Comme IO.Ports.SerialPort comSerial = My.Computer.Ports.OpenSerialPort (" Com1 ") de End Function"

Tapez la fonction qui va lire les données de la série à l'aide de la variable "comSerial" que vous avez déjà établi. "Fonction readSerialPort (comSerial comme IO.Ports.SerialPort) as String Dim obtenir cordes comme String =" "Utilisation comSerial Do Dim As String = réception comSerial.ReadLine () Si réception n'est rien Then Exit faire autre returnStr & = Réception & vbCrLf End Si la boucle comSerial.Close () End Utilisation de la fonction Retour obtenir une chaîne FIN "

Tapez la procédure suivante sous qui envoie des données sur le port série. Une fois cette procédure sous est établi dans ce module, vous pouvez appeler à partir de n'importe où dans le projet en cours pour envoyer des données aux ports série chaque fois que vous choisissez. "sendDataToSerial (données ByVal que String) sous Utilisation comSendData tant IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort (" COM1 ") comSendData.WriteLine (données) comSendData.Close () End Using End Sub"

Passez l'information à la procédure sous l'aide d'une variable appelée «données». Un exemple de cela est: "Dim données sous forme de données String =" Il s'agit de données d'exemple pour transmettre au port série Com1 "Console.WriteLine (" Ecrire les données sur le port série COM1: "& données) sendDataToSerial (données)"

Placez le code dans une fonction, méthode ou procédure en cours de projet d'écrire les données sur le port série. Exécutez le code en appuyant sur les touches «F5» «Ctrl» et ensemble.

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