none
Problema al imprimir a traves de puerto serie

    Debate general

  • Hola:

           Acudo a su sabiduria, tengo que imprimir en una ticketera a traves de puerto serie,

    lei en las ayuda sobre ioport, lo programe, pero cuando hago un ciclo, donde tengo que imprimir varias lineas,

    me imprime hasta 3, ejemplo: si tengo 10 lineas cargadas, me imprime 3.

    RS232.WriteBufferSize = 40960
                RS232.RtsEnable = True
                RS232 = My.Computer.Ports.OpenSerialPort("COM1", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
                TxtConsole.AppendText(RS232.PortName & "Abierto a las " & _
                                       Now.ToString & vbCrLf)
                List.Enabled = False
            Catch ex As System.IO.IOException
                TxtConsole.AppendText("Error abriendo el puerto: " & _
                          vbCrLf & ex.Message & vbCrLf)
            Catch ex As System.UnauthorizedAccessException
                TxtConsole.AppendText("El pueto ya esta abierto: " & vbCrLf & _
                ex.Message & vbCrLf)
            Catch ex As System.Exception
                TxtConsole.AppendText("Error general accediendo al puerto:" & _
                vbCrLf & ex.Message & vbCrLf)
            End Try
            MiClase.cargardatagriview(DtgAr, "select prueba from prueba ")
            Dim filas As Integer = DtgAr.Rows.Count
            Dim contador As Integer = 0

            For i As Integer = 0 To filas - 1
                If IsDBNull(Convert.ToString(DtgAr(0, i).Value)) Then
                Else
                    Articulo = Convert.ToString(DtgAr(0, i).Value)
                End If
                RS232.RtsEnable = True
                RS232.NewLine = vbCrLf
                RS232.WriteLine(Articulo)
                estado = RS232.CtsHolding
                List.Items.Add(estado)

    agradeceria su ayuda.saludos


    ivan

    jueves, 17 de noviembre de 2016 9:58