imprimir string

[jmerlos282]

Iniciado por sergioaiki07

muchas gracias, si me resulto

bueno este es el codigo de configuracion del puerto, listar los puertos disponibles y como conectar ese puerto

Código:

Sub Setup_Puerto_Serie()

        Try

            With SerialPort1

                If .IsOpen Then
                    .Close()
                End If

                .PortName = ComboPorts.Text
                .BaudRate = 19200                   '// 19200 baud rate 
                .DataBits = 8                       '// 8 data bits                                                   
                .StopBits = IO.Ports.StopBits.One   '// 1 Stop bit 
                .Parity = IO.Ports.Parity.None      '
                .DtrEnable = False
                .Handshake = IO.Ports.Handshake.None
                .ReadBufferSize = 2048
                .WriteBufferSize = 1024
                '.ReceivedBytesThreshold = 1

                .WriteTimeout = 500
                .Encoding = System.Text.Encoding.Default
                .Open()                              '  ABRE EL PUERTO SERIE

            End With

        Catch ex As Exception
            MsgBox("Error al abrir el puerto serial: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Sub GetSerialPortNames()
        ' muestra COM ports disponibles.
        Dim l As Integer
        Dim ncom As String
        Try

            ComboPorts.Items.Clear()
            For Each sp As String In My.Computer.Ports.SerialPortNames
                l = sp.Length
                If ((sp(l - 1) >= "0") And (sp(l - 1) <= "9")) Then
                    ComboPorts.Items.Add(sp)

                Else
                    'hay una letra al final del COM
                    ncom = sp.Substring(0, l - 1)
                    ComboPorts.Items.Add(ncom)
                End If
            Next
            If ComboPorts.Items.Count >= 1 Then
                ComboPorts.Text = ComboPorts.Items(0)
            Else
                ComboPorts.Text = ""
            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub BtnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click


        Try
            If BtnConectar.Text = "Conectar" Then
                BtnConectar.Text = "Desconectar"
                Setup_Puerto_Serie()
          

            Else

                If SerialPort1.IsOpen Then
                    SerialPort1.Close()

                End If
                BtnConectar.Text = "Conectar"
               
            End If
        Catch ex As Exception

        End Try
    End Sub

Ahora si me pueden ayudar en otro tema necesito una ventana emergente donde se ingrese datos, lo puedo hacer con inputbox pero quiero que sea como un popup que aparezca primero que todas las ventanas

como lo puedo hacer?

saludos y gracias

Podrías hacerlo creando un segundo form y desde el formload del primer form mandas a llamar el segundo y pones invisible todos los demás, en el segundo pones lo que quieras que capturen y donde se va a guardar, con un botón le puedes decir que terminaste y que cierre el form popup y que abra los el primero, estoy fuera de mi ciudad para copiarte un ejemplo, si lo necesitas me dices y lo pego en cuanto llegue.