1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Port série en utilisant visual basic 2008

Signaler
Messages postés
7
Date d'inscription
mardi 16 mars 2010
Statut
Membre
Dernière intervention
27 mars 2011
 -
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 -
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.

5 réponses

Réponse 1 / 5
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 68
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
Réponse 2 / 5
Messages postés
7
Date d'inscription
mardi 16 mars 2010
Statut
Membre
Dernière intervention
27 mars 2011
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
Réponse 3 / 5
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 68
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
Réponse 4 / 5
Messages postés
7
Date d'inscription
mardi 16 mars 2010
Statut
Membre
Dernière intervention
27 mars 2011
j'ai pas encore de code...,je suis débutante
merci pour l'information
je vais essayer
Réponse 5 / 5
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
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
Répondre Posez votre question