Envoyer .csv sur RS232 en VB Express 2010

[invite9b28ffd6]

Bonjour à tous!

Voila, j'ai réalisé un boitier électronique qui permet d'enregistrer un numéro de série (DS2401) présent sur différentes cartes et d'y associer des informations. J'ai repris un programme sous Visual Basic Express 2010 qui me permet de récupérer ces informations que j'affiche dans une TextBox en l'enregistrant en .csv (format excel). Je n'ai jamais beaucoup travaillé sur Visual Basic Express 2010 et je n'ai fait "que" reprendre un programme déjà existant (open source bien entendu).

Mon problème est que j'aimerai maintenant renvoyer ce fichier .csv (modifié par l'utilisateur) ligne par ligne sur la liaison RS232 (ou copier coller ce texte dans ma TextBox) à l'appui du bouton2. Je n'ai absolument aucune idée de comment je peux réaliser cette fonction, j'ai essayé quelques trucs mais sans réel succès...

Si quelqu'un à une idée, elle sera la bien venu. Je me permet de mettre mon programme:

 Cliquez pour afficher

Public Class Form1

    Dim WithEvents serialPort As New IO.Ports.SerialPort


    Private Property MSComm1 As Object


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i As Integer = 0 To _
           My.Computer.Ports.SerialPortNames.Count - 1
            cbbCOMPorts.Items.Add( _
               My.Computer.Ports.SerialPortNames(i))
        Next
        btnDisconnect.Enabled = False
    End Sub

    Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived

        txtDataReceived.Invoke(New myDelegate(AddressOf updateTextBox), New Object() {})

    End Sub


    Public Delegate Sub myDelegate()
    Public Sub updateTextBox()

        With txtDataReceived
            .Font = New Font("Arial", 8.0!, FontStyle.Bold)
            .SelectionColor = Color.Blue
            .AppendText(serialPort.ReadExisting)
            .ScrollToCaret()
        End With

    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click

        If serialPort.IsOpen Then
            serialPort.Close()
        End If
        Try
            With serialPort
                .PortName = cbbCOMPorts.Text
                .BaudRate = 96000
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                ' .Encoding = System.Text.Encoding.Unicode
            End With
            serialPort.Open()

            lblMessage.Text = cbbCOMPorts.Text & " est connecté."
            btnConnect.Enabled = False
            btnDisconnect.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

    Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click

        Try
            serialPort.Close()
            lblMessage.Text = serialPort.PortName & " est deconnecté."
            btnConnect.Enabled = True
            Button2.Enabled = True
            btnDisconnect.Enabled = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub


    Private Sub btnAnswerCall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        serialPort.Write("AT*EVA" & vbCrLf)

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SaveFileDialog As New SaveFileDialog()
        SaveFileDialog.Filter = "txt files (*.csv)|*.csv"
        SaveFileDialog.FilterIndex = 2
        SaveFileDialog.RestoreDirectory = True

        If SaveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim fileNumber As Integer
            fileNumber = FreeFile()
            FileOpen(fileNumber, SaveFileDialog.FileName, OpenMode.Output)
            PrintLine(fileNumber, txtDataReceived.Text)
            FileClose(fileNumber)
        End If

    End Sub

    Private Sub txtDataReceived_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDataReceived.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    '??????????????????????????????????????????????????????????????

    End Sub
End Class

Par avance merci.
I Axe
-----