port série en utilisant visual basic 2008

Question

Salut,
j'ai un problème ,qui peut m'aider...
mon application est la suivante: j'ai une carte électronique qui contient un module XBee,ce dernier reçoit les données à partir d'un autre module,afin de visualiser ces données sur un PC je dois utiliser un port série,et voila où je trouve le problème:j'arrive pas écrire le code convenable en utilisant visual basic 2008 car j'ai fait plein de recherche mais je trouve seulement les solution sur vb.6(utilisation des MScomm)
s'il vous plait aider moi c'est très intéressent pour moi.

Renfield · Answer

j'ai fait plein de recherche

ben je sais pas, je lance Visual Studio, je trouve pas MsComm, mais je vois un composant qui se nomme SerialPort

ca a l'air de coller, non ?



Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

rajaa1987 · Answer

merci pour la réponse ,
bon oui je sais...
en fait j'ai  coller ce composant mais mon problème c'est le code
pour moi sur le forme j'ai met un bouton pour connecter le port série et un autre pour la déconnexion,mais j'arrive pas associer le code convenable

Renfield · Answer

Quel est ton code actuel...

j'ai survollé ce que propose l'objet SerialPort, ca me semble assez simple.

à modifier selon tes settings
        SerialPort1.PortName = "COM1"
        SerialPort1.Parity = IO.Ports.Parity.Odd
        SerialPort1.Handshake = IO.Ports.Handshake.None
        SerialPort1.StopBits = IO.Ports.StopBits.None
        SerialPort1.Open()

et une fois la connexion établie 

SerialPort1.ReadByte()
SerialPort1.Read...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

rajaa1987 · Answer

j'ai pas encore de code...,je suis débutante
merci pour l'information 
je vais essayer

Adn56 · Answer

salut, 
1-configuration du port série dans le form load ou autre.lireini est une fonction pour lire dans un fichier txt, ne t'en occupe pas.

' Configuration du port série utilisé par le module secheur
        Try
            With SerialPort3
                .PortName = LireINI("com3", "Portname")
                .BaudRate = CInt(LireINI("com3", "Vitesse"))
                .DataBits = CInt(LireINI("com3", "Databits"))
                .StopBits = CType(LireINI("com3", "Stopbit"), Ports.StopBits)
                .Handshake = CType(LireINI("com3", "protocole"), Ports.Handshake)
                .NewLine = vbCrLf 'Chr(10) & Chr(13) ' défini la fin de trame (CR+LF) différent de vbcrlf ! pour exemple
                .Open()
            End With
        Catch ex As Exception
            MsgBox("COM3 plus disponible", MsgBoxStyle.Critical)
        End Try
code]


-utlisation de l'évenment si pas besoin d'écrire pour avoir une réponse : buffer est un string à décortiquer dasn une fonction.
[code=vb]    Private Sub SerialPort3_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort3.DataReceived
        Try
            buffer = SerialPort3.ReadLine()
        Catch ex As Exception
        End Try
    End Sub

Port série en utilisant visual basic 2008

5 réponses

Votre réponse