UTILISATION DU PORT SÉRIE ET DÉTECTION D'UN MODEM RTC BRANCHÉ SUR L'ORDI

Commentaire de NHenry le 15/05/2006 09:01:07 administrateur CS

Boujour,

J'ai trouver une classe sur OPenNetCF.Org (OpenNETCF.IO.Serial.Port).

Commentaire de JacPapa le 18/05/2006 16:51:48

Malgrès la charte de bonne conduite que je viens d'approuver les "fôtes" restent...
Il faut lire "sans problemes" et non pas "dans problemes".

Commentaire de NHenry le 18/05/2006 17:09:03 administrateur CS

Bonjour, apparemment, il ne supportent plus pour le .NET 1.
Je vais voir si je l'ai encore en stock.

Commentaire de JacPapa le 18/05/2006 17:27:00

A NHenry:
Dans tous les cas, merci pour tes efforts.

Commentaire de nitrique le 20/12/2006 11:29:52

Si tu envoies des caractères accentués par le port COM, que reçoit tu ?
Pour ma part, la phrase: "Bonjour à toi Jéjé" devient "Bonjour ? toi J?j?".

Alors que si je passe par l'hyperterminal, la phrase est reproduite correctement.

Commentaire de nitrique le 20/12/2006 12:37:20

Merci pour ta rapidité.
J'ai carrément fait:
SerialPort1.Encoding = System.Text.Encoding.UTF8
avant le writeline
Mais ça me rend: "Bonjour Â[espace] toi jÂ[copyright]jÂ[copyright]"
Code ASCII: 195 et 169 au lieu de 233.

Peux tu me donner ta façon de faire pour la chaine seule ?
J'ai essayé convert... Mais ne trouve pas UTF8, et:
SerialPort1.Write(System.Text.UTF8Encoding(txtRendu.Text))
me fait une erreur de compilation.

Commentaire de nitrique le 20/12/2006 12:54:27

SerialPort1.Write((New System.Text.UTF8Encoding).GetBytes(txtRendu.Text))
C'est bien ça pourtant ? Il me fait une erreur:
Value of type '1-dimensional array of Byte' cannot be converted to 'String'.
Pas toi ?

Sinon, la surcharge de write prends 2 parametres de plus, nan ?

Commentaire de nitrique le 20/12/2006 13:16:47

J'ai vu, merci de ton interet.

Commentaire de mdabin le 27/04/2007 15:18:48

Pour l'evenement SerialPort1_DataReceived, il faut faire appel à un delegué:
1) Le declarer
Private Delegate Sub d_Affiche(ByVal Texte As String)

2)Dans DataReceived:

Dim Buffer As String = SerialPort1.ReadExisting()
If Me.InvokeRequired Then
            Me.Invoke(New d_Affiche(AddressOf Affiche), Buffer)
End If
3)

Private Sub Affiche(ByVal Texte As String)
        RichTextBox1.Text &= Texte
End Sub

'Grace à cette fonction, on peut récuperer le contenu du buffer dans une TextBox par exemple

J'ai un peu + de mal pour faire rentrer le contenu du buffer dans une table: erreur du type:

"Modifications non effectuées: risque de doublons dans champs index, clé principale ou relation interdisant les doublons. Modifiez les données des champs contenant les doublons, enlevez ou redéfinissez l'index pour permettre les doublons et recommencez."

Si vous avez une idée
Merci

Commentaire de BenJ2Tours le 11/06/2007 09:36:41

     J'essaye depuis un petit moment de detecter la reception de donnée sur mon port serie pour l'afficher dans une RichTextBox.

     J'ai l'impression que c'est exactement ce que vous faites ici mais moi je n'y arrive pas je pense quue je doit mal declarer mon sous-programme DataReceved.
Quelqu'un pourrais jeter un coup d'oeil.

Private Sub PortRS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)

        Dim Buffer As String = PortRS232.ReadExisting()

        'L'évènement DataReceived se situe sur un thread différent que le form, nous devons donc appelé un délégué pour afficher le résultat à l'écran
        If Me.InvokeRequired Then
            Me.Invoke(New d_Affiche(AddressOf Affiche), Buffer)
        End If
    End Sub

    'fonction permettant l'affichage des données lors de l'appel du délégué
    Private Sub Affiche(ByVal Texte As String)
        RichTextBox1.Text &= Texte
    End Sub

Commentaire de salut2lemonde le 05/08/2008 10:23:36

salut;
je veut savoir si je veut faire la connexion puis envoyer une donnée et recuperer les données reçues sur le buffer dans une base se donnée?