none
ayudenme con un codigo de visual studio RRS feed

  • Pregunta

  • hola quiero que me ayuden con un codigo que esta apunto de terminar les cuento el codigo consiste que por medio de serial port imprima la informacion que llego al monitor en un text box o algo similar y asi para que se pueda hacer una lista quiero que me ayuden con lo del text box les mando mi codigo para que lo vean y me ayuden gracias y si me quieren ayudar mas con proyectos mi correo es: ovalleangel29@gmail.com , me gusta law programacion pero en lo que trabajo su programas son muy atrazados es el visual basic este es el codigo:

    Public Class Form1

        Dim StrBufferEntrada As String
        Dim StrBufferSalida As String

        Private Delegate Sub DelegadoAcesso(ByVal AdicionarTexto As String)

        Private Sub AccesoFormPrincipal(ByVal TextoForm As String)

            StrBufferEntrada = TextoForm
            '---------------------------------------------------
            '---------------------------------------------------
            TxtDatosRecibidos.Text = StrBufferEntrada
            '---------------------------------------------------
            '---------------------------------------------------
        End Sub

        Private Sub PuertaAccesoInterrupcion(ByVal BufferIn As String)

            Dim TextoInterrupcion() As Object = {BufferIn}
            Dim DelegadoInterrupcion As DelegadoAcesso
            DelegadoInterrupcion = New DelegadoAcesso(AddressOf AccesoFormPrincipal)
            MyBase.Invoke(DelegadoInterrupcion, TextoInterrupcion)

        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            StrBufferEntrada = ""
            StrBufferSalida = ""
            BtnConectar.Enabled = False
            BtnEnviarDatos1.Enabled = False
            CmbBaud.SelectedItem = ""

        End Sub

        Private Sub BtnBuscarPuertos_Click(sender As Object, e As EventArgs) Handles BtnBuscarPuertos.Click
            For Each PuertoDisponible As String In My.Computer.Ports.SerialPortNames
                CboPuertos.Items.Add(PuertoDisponible)

            Next
            If CboPuertos.Items.Count > 0 Then
                CboPuertos.Text = CboPuertos.Items(0)
                MessageBox.Show("SELECCIONAR EL PUERTO DE TRABAJO")
                BtnConectar.Enabled = True

            Else
                MessageBox.Show("NINGUN PUERTO ENCONTRADO")
                BtnConectar.Enabled = False
                BtnEnviarDatos1.Enabled = False
                CboPuertos.Items.Clear()
            End If

        End Sub

        Private Sub BtnConectar_Click(sender As Object, e As EventArgs) Handles BtnConectar.Click
            If BtnConectar.Text = "CONECTAR" Then
                Try

                    SpPuerto.BaudRate = Convert.ToInt32(CmbBaud.Text)
                    SpPuerto.DataBits = 8
                    SpPuerto.Parity = IO.Ports.StopBits.None
                    SpPuerto.StopBits = IO.Ports.StopBits.One
                    SpPuerto.PortName = CboPuertos.Text
                    SpPuerto.Open()

                    BtnConectar.Text = "DESCONECTAR"
                    BtnEnviarDatos1.Enabled = True

                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)

                End Try

            ElseIf BtnConectar.Text = "DESCONECTAR" Then
                BtnConectar.Text = "CONECTAR"
                BtnEnviarDatos1.Enabled = False
                SpPuerto.Close()

            End If
        End Sub

        Private Sub BtnEnviarDatos_Click(sender As Object, e As EventArgs) Handles BtnEnviarDatos1.Click
            SpPuerto.DiscardOutBuffer()
            StrBufferSalida = TxtEnviarDatos.Text
            SpPuerto.Write(StrBufferSalida)
        End Sub

        Private Sub DatoRecibido(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SpPuerto.DataReceived
            Dim DatoInterrupcion As String
            DatoInterrupcion = SpPuerto.ReadExisting
            PuertaAccesoInterrupcion(DatoInterrupcion)

            'StrBufferEntrada = SpPuerto.ReadExisting
            'MessageBox.Show(StrBufferEntrada)
            'TxtDatosRecibidos.Text = StrBufferEntrada
        End Sub

        Private Sub CboPuertos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboPuertos.SelectedIndexChanged
            If BtnConectar.Text = "CONECTAR" Then
                Try

                    With SpPuerto
                        .BaudRate = 9600
                        .DataBits = 8
                        .Parity = IO.Ports.StopBits.None
                        .StopBits = IO.Ports.StopBits.One
                        .PortName = CboPuertos.Text
                        .Open()

                    End With

                    BtnConectar.Text = "DESCONECTAR"
                    BtnEnviarDatos1.Enabled = True

                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)

                End Try

            ElseIf BtnConectar.Text = "DESCONECTAR" Then
                BtnConectar.Text = "CONECTAR"
                BtnEnviarDatos1.Enabled = False
                SpPuerto.Close()

            End If
        End Sub

        Private Sub TxtEnviarDatos_TextChanged(sender As Object, e As EventArgs) Handles TxtEnviarDatos.TextChanged

        End Sub

        Private Sub TxtDatosRecibidos_TextChanged(sender As Object, e As EventArgs)

        End Sub

        Private Sub CmbBaud_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbBaud.SelectedIndexChanged

        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If Button1.Text = "ATQ1" Then
                Try
                    Button1.Text = "ATQ0"

                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)

                End Try

            ElseIf Button1.Text = "ATQ0" Then
                Button1.Text = "ATQ1"

            End If
        End Sub

        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            If Button3.Text = "ATE1" Then
                Try
                    Button3.Text = "ATE0"

                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)

                End Try

            ElseIf Button3.Text = "ATE0" Then
                Button3.Text = "ATE1"

            End If
        End Sub
    End Class

    viernes, 15 de noviembre de 2019 23:14