none
VISUAL STUDIO PUERTO SERIE RECIBE 5 STRING Y NECESITO QUE SOLO LEA EL PRIMERO RRS feed

  • Pregunta

  • HOLA, TENGO UN PROGRAMA HECHO EN VISUAL STUDIO 2015, QUE RECIBE 5 STRING DESDE EL PUERTO SERIE.

    EN ALGUNOS CASOS LO LEE Y EN OTROS NO.

    LA MAYORIA DE LAS VECES LEE EL ULTIMO STRING PERO YO NECESITO QUE SIEMPRE LEA EL PRIMERO.

    LOS STRIGN QUE RECIBE EL PUERTO SON:

    ------------------------------------------------

    065R1

    065N

    065N "Y UN CARACTER DE DOBLE FLECHA HACIA ARRIBA Y ABAJO"

    065N#

    065N0

    --------------------------------------------

    YO NECESITO QUE LEA SIEMPRE 065R1

    PASO EL CODIGO.

    ----------------------------------------------------------

    Imports System.IO.Ports

    Public Class Form1

        Dim az As Double

        Private Sub sppuerto_datareceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SPPUERTO.DataReceived

            Try

                az = SPPUERTO.ReadChar

            Catch ex As Exception

                MsgBox("error puerto receptor")

            End Try

        End Sub

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

            'TODO: esta línea de código carga datos en la tabla 'DXDataSet.DX' Puede moverla o quitarla según sea necesario.

            Me.DXTableAdapter.Fill(Me.DXDataSet.DX)

            Try

                tmrtimer.Enabled = True

                SPPUERTO.Open()

                SPPREDIR.Open()

            Catch ex As Exception

            End Try

        End Sub

        Private Sub TextBox_RECEPTOR_TextChanged(sender As Object, e As EventArgs) Handles TextBox_RECEPTOR.TextChanged

            If SPPUERTO.IsOpen Then

                    Try

                        Dim DATOS As String = TextBox_RECEPTOR.Text

                        Dim ABONADO As String = DATOS.Substring(0, 3)

                        Dim EVENTO As String = DATOS.Substring(3, 2)

                        TextBox_EVENTO1.Text = ABONADO

                        TextBox_EVENTO2.Text = EVENTO

                        Me.DXTableAdapter.EVENTO(Me.DXDataSet.DX, TextBox_EVENTO1.Text)

                        TextBox_ENRODX.Text = DataGridView1.CurrentRow.Cells(0).EditedFormattedValue.ToString

    jueves, 17 de noviembre de 2016 20:20