PepLluis

hola que tal estoy tratando de hacer una aplicacion de un medidor de energia electrica, y tiene un puerto rs485 y tengo que presentarlo en pantalla y no sepor donde empezar me gustaria que me ayudaras...gracias

taz_ues@hotmail.com

Me podeis ayudar a leer la señal de un dispositivo lector de billetes a traves del puerto serial con VB .net

Estoy creando una aplicación en vb.net...La misma estará corriendo en 3 PC...una de estas Pc tendrá la base datos...Entonces, el problema es: Cómo hago que cada aplicación guarde la ruta de la base de datos....

Me explico mejor: en vez de fijar una ruta en el codigo, fijarla despues que la aplicación esté lista, es decir, buscar la ubicacion de la bd mediante un dialogbox por ejemplo...DE ANTEMANO gracias.........

Tengo problemas con la recepcion de datos.  Estoy utilizando el io.ports.serialport definido con withEvents, pero no puedo recibir ningun dato.  Sin embargo, dentro de la subrutina de escrituta he incluido un pequeño bloque de lectura que utiliza puerto.readExisting y recibe informacion basica, pero la info importante no aparece.  Todo funciona muy bien desde la hyperterminal.  Ayudame con la recepcion de datos. Te lo agradecere toda la vida

Hola Luis, estoi haciendo mi proyecto de titulo, y necesito enviar datos a traves del puerto serie con una pantalla en visual basic; dichos datos deben ser adquiridos por un basic stamp para controlar unos servomotores, necesito ayuda ya que me queda super poco tiempo para poder entregar mi tesis, esperando una pronta respuesta se despide Elias M.

TEngo una impresora de ticket en puerto com1 pero al parecer no logra conectarse via com, por que el error me dice que el nombre no existe o no esta asiganado

PepLluis quiero saber todo lo que vos sabes como hago?

Hola!, muhcas gracias por tomarte el tiempo de dar aconcoer estos datos.

Mira yo estoy tratando de hacer una aplicación uqe lea el número telefónico de una llamada entrante por un modem con vb.net 2005 pero no logro entender como "cachar" cuando entre la llamada, entiendo que esto va en el evento datareceived, encontre este codigo, pero es en C y no se como traducirlo a vb y lo peor de todo no se en que parte de todo el código va:

this.serialPort1.DataReceived += new System.IO.Ports.SerialDataReceivedEventHandler(this.Recepcion);

Agradezco de antemano tu ayuda

hola sabes tengo un proyecto de hacer una interface por medio de vb.net de hacer funcionar una licuadora y cambiar las velocidades la interfaz ya la tengo el problema es el programa como lo hago

Hola buenas tardes muy buena la informacion del blog, Estoy haciendo un proyecto que se basa en controlar los servicios de una casa a traves de la pc ( es una maqueta de una casa montada sobre un circuito) los dos servicios que quiero manejar es el encendido y apagado de las luces, y el abrir y cerrar puertas, ya tengo el circuito montado y el pic programado, lo que falta es enviar la señal desde el programa diseñado en .net... quisiera que me orientaras para ver como lo puedo hacer.... agradezco de antemano tu ayuda..

Saludos,

Deisy

Hola Pep Lluis!

Estoy nueva en esto pero ya hice el programa para leer el puerto serial... ahora tengo un prolema, el computador q los envia, lo hace por com1 (no se puede cambiar) y la pc q los recibe (donde tengo el programa en visual studio 2005) lo hace por com4.. resulta q cuando lo quiero ejecutar me dice COM1 NO EXISTE... no se si debo hacer una rutina donde le diga q lea por calquier puerto (de ser asi, si puedes ayudame) o hay otra forma de hacerlo!

Gracias..!

Despues de 2 dias por fin encontre alguien que explicara de la mejor manera el control del puerto serie.

Gracias, por su aporte

Hola,

Al ajecutar .IsOpen en una función me dice que el puerto está cerrado, y al intentar cerrarlo con .Close me dice que el puerto ya se encuentra cerrado y sale por error. Esto no me sucede en todas las máquinas. Tenés idea que puede ser?

Saludos

Hola solo queria decirles si me podian ayudar con el SerialPuert1. es k lo que pasa k estoy en desarrollo de un proyecto de un brazo robotico iap  diseñe el brazo y el circuito y pues el entorno grafico en visual Express con entorno flash para la posicion de angulos de mi brazo ahora solo quiero saber como activar el puerto y mandar valores en BINARIO..si me pueden ayudar les agradeseria mucho bueno aki les dejo mi correo Dare_devil664@hotmail.com ahi me pueden mandar el codigo gracias...

Hola,

he realizado un programa en VS 2005 que debe imprimir un ticket en una impresora de ticket, cuando quiero sacar el ticket mando el informe a la impresora de ticket directamente y así no sale lo de elegir impresora, esto en mi equipo sale perfecto con una impresora normal, pero llego al equipo del cliente y el ticket sale en pantalla.

puede alguien ayudarme con este tema. muchas gracias de antemano.

Que Tal PepLluis, (primero que nada mucho gusto y ojala y me puedas echar una mano o darme un norte de que me esta faltando, gracias.).

Sucede que estoy desarrollando una aplicacion de ventas en PDA y mando a imprimir a una impresora Termica Zebra MZ220 la cual utiliza CPCL, (tengo el manual de Zebra y el codigo no me parece complejo), inclusive en Zebra solo me han dicho abre el puerto serial y manda a escribir en codigo CPCL, hasta ahi no hay problema. El problema comienza cuando envio la primer linea   PS.write("[TEXTO]") es cuando me egresa un error en VB (se ve que la impresora comienza a recibir pero no pasa nada mas), te adjunto mi codigo y el error y ojala y me puedas decir que estoy haciendo mal gracias.

CODIGO

Imports System

Imports System.IO.Ports

Imports System.IO

Public Class Form1

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

       Dim ps As New System.IO.Ports.SerialPort("COM3", 9600, Parity.None, 8, StopBits.One)

       Try

           ps.Open()

           ps.Write("! 0 200 200 210 1" + vbCrLf + "TEXT 4 0 30 40 Gracias Dios" + vbCrLf + "FORM" + vbCrLf + "PRINT")

           ps.Close()

       Catch ex As Exception

           MsgBox("ojo " & ex.ToString)

           ps.Close()

       End Try

   End Sub

End Class

ERROR

System.IO.IOException: IOException

en System.IO.Ports.SerialStream.WinIOError()

en System.IO.Ports.SerialStream.Write(Byte[] array, Int32 offset, Int32 count, Int32 timeout)

en System.IO.Ports.SerialPort.Write(String text)

en SmartDeviceProject3.Form1.Button1_Click(Object sender, EventArgs e)

en System.Windows.Forms.Control.OnClick(EventArgs e)

en System.Windows.Forms.Button.OnClick(EventArgs e)

en System.Windows.Forms.ButtonBase.WnProc(WM wm, Int32 wParam, Int32 lParam)

en System.Windows.Forms.Control._InternalWnProc(WM wm, Int32 wParam, Int32 lParam)

en Microsoft.AGL.Forms.EVL.EnterMainLoop(IntPtr hwnMain)

en System.Windows.Forms.Application.Run(Form fm)

en SmartDeviceProject3.Form1.Main()

Gracias

Muchas gracias por responder tan pronto Peplluis, he comentado la linea ps.close e incluso la comento en la parte del catch, sin embargo me regresa el mismo error; no se si olvide comentarte el medio de impresion es IRDA y le estoy poniendo los mismos datos de configuracion del puerto (9600,N,8,1), ¿Tienes alguna otra idea?  Gracias

hola Iam enrique, necesito ayuda ya ke necesito un codigo ke al igual ke la hiper terminal me muestre los datos y los almacene en una base de datos, casi no se mucho de esto ojala y mne puedas ayudar mi correo es diug23@hotmail.com grasias salu2....

hola....

soy estudiante de mecatronica y me gustaria que me ayudaras para un proyecto de creatividad lo que necesito es controlar un motor por el puerto paralelo en visual basic 2005 que con un botton se encienda y a cierto tiempo de vuelta atras... mi correo es misterios_gol@hotmail.com la vdd que te lo agradeceria

Hola..Pep Lluis tu foro es muy bueno y tiene las cosas especificas que uno pueda buscar, creo que como todos estoy agradecido por el aporte de tus conocimientos hacia los demas...te escribo para pedirte porfavor si me puedes hechar una mano si no son las dos =) al problema que tengo.

Tengo que hacer un programa en VS 2005 para recibir datos de una balanza electronica en tiempo real y copie de aqui parte del codigo y otra parte que encontre en MSD con lo que consegui hacer este metodo

 Function ReceiveSerialData() As String

       ' Receive strings from a serial port.

       Dim returnStr As String = ""

       Using serie As IO.Ports.SerialPort = _

               My.Computer.Ports.OpenSerialPort("COM1")

           serie.BaudRate = 9600

           serie.DataBits = 7

           serie.Parity = Parity.Even

           serie.StopBits = StopBits.One

           Do

               Dim Incoming As String = serie.ReadLine()

               If Incoming Is Nothing Then

                   Exit Do

               Else

                   returnStr &= Incoming & vbCrLf

               End If

           Loop

           serie.Close()

       End Using

       Return returnStr

   End Function

Al metodo lo llamo en el evento click d un boton y cuando lo hago solo consigo que la aplicacion se cuelge, no se que me podrias decir de aque se debe. Gracias de antemano

Gracias por esta informacion. ahora, me gustaria saber como leer y escribir en el puerto serie

Al ver esto, me pregutno como seria para enviar datos a una impresora de tickets que este conectada al puerto USB?????? Lo he probado asi y no conecta (logico). Alguien sabe como.

hola amigo lo que pasa que estoy haciendo un proyecto, sera que codigo que esta en la parte superior me sirve para recibir la entrada de datos

de un plc atraves del puerto..  y al plc va conectado un sensor me invia informacion del objeto...

espero que alguien me ayude lo mas pronto

colombia.. sena... barranquilla

mi correo es daimersanchez@hotmail.com

gracias culaquier cosa me escribe al correo

nesecito saber como leer los datos de una balanza electronica del modelo indicador - CI3000a  por favorv quien me puede ayudar es urgente grcias

hola pepeluismira  lo que pasa es que quiero mandar datos  tipo char pero  se me ha complicado el procedimiento ojala me puedas ayudar hacer un ejemplo de mandar datos tipo char  por el puerto serial.

si alguien puede ayudarme le agradezco necesito hacer el siguiente programa en visual 2005

1. imprimir el almacen con> numero de ventas * año

2. imprimir total ventas de almacen con < ventas

3.imprimir ventas * año.

hola pepe luis mi pregunta es la siguiente

tengo un equipo con un sistema de bascula conectado por un puerto com el problema es que cada que se reinicia el equipo y inicio el programa de bascula me marca que el puerto esta ocupado a que se debera esto te lo agradezco por tus atenciones

gracias

hola pepe muy buen porte ^^, imaginate q necesito comunicar un PLC unitronics a mi pc y leer los datos entregados por el plc y visualizarlos en excel pero en tiempo real o lo mas cercano posible. espero me puedas colaborar mcuhas gracias ^^

Como puedo activar una electro Chapa desde mi puerto serie ojala me puedan ayudar muchas gracias

Necesito desarrollar una aplicacion que cuando un usuario pase un codigo de barras en un lector de Codigo de Barras este se verifique en una base de datos y si el usuario existe entonces se active una electrochapa que le permita el acceso.

Lo unico qu me falta es como activar la chapa desde puerto serial

Ojala me puedan ayudar

Que DIOS bendiga todos y cada de ustedes en cada uno de sus dias y que este 2010 sea maravilloso para ustedes y sus seres queridos DIOS LES BENDIGA

Pep Lluis:

          Muy buena tu nota por cierto.

          Estoy teniendo un problema con el uso de is.open. El mismo devuelve un boolean con valor False en el caso en que el puerto se encuentre cerrado y True en el caso en que esté abierto. Mi problema es el siguiente, yo quiero detectar de antemano en la aplicación si el puerto se encuentra abierto, para así indicarle al usuario que el mismo ya se encuentra abierto por otra aplicación, pero isopen, siempre que el puerto no lo haya abierto la aplicación en donde se ejecuta el comando, devuelve False.

            ¿Tenés idea de alguna solución?.

Muchas gracias, Juan Bacigalupo.

hola a todos,

quisiera hacer una aplicacion muy simple pero no se como hacerla:

quiero hacer un programa en vb2005 que este abierto mientras no reciba nada por el puerto serie, y en el momento que reciba una señal de 5 voltios, ejecute otro programa y se cierre.

podrian facilitarme el codigo si no es mucha molestia??

un saludo y gracias

hola a todos,

quisiera hacer una aplicacion muy simple pero no se como hacerla:

quiero hacer un programa en vb2005 que este abierto mientras no reciba nada por el puerto serie, y en el momento que reciba una señal de 5 voltios, ejecute otro programa y se cierre.

podrian facilitarme el codigo si no es mucha molestia??

un saludo y gracias

Hola PepLLuis!

Muy bueno tu blog pero tengo un problema al abrir los eejmplos que pones. Mi problema es como el de muchos de los que he leido por aqui, y es que el pc que tengo no tiene COM, con lo que tengo un conversor, pero el conversor solo pone los COM del 4 al 8.

El codigo que utilizo es que te viene por defecto en visual basic C++ 2008 y tiene el inconveniente que no se donde o como declara que tiene que abrir el puerto COM1 con lo que no detecta nada y dice que esta cerrado.

Como puedo cambiar la declaracion de los puertos, es decir, como hago para que me habra el COM5 por ejemplo?

Gracias de antemano!

Un saludo!

Hola Pep Lluis, excelente tu blog.

Mira necesito hacer un programa en vb.net (tengo visual estudio 2008) donde el programa este siempre escuchando el puerto serial (COM1)  y cuando llegue informacion por ese puerto la capture y la almacene.

Ojala me puedas ayudar

Gracias de antemano

Hola tengo problemas para actualizar el texbox, tengo un pic conectado al pto usb, lo leo como pto COM, y le mando al Pc, datos de un teclado, pero no consigo que el texbox se actualice y me muestre las teclas presionadas, solo se queda con la primera espero me puedas ayudar. Soy de chile, aqui te dejo el codigo.

Public Class Form1

   Dim Recibidos As String

   Public Sub New()

       ' Llamada necesaria para el Diseñador de Windows Forms.

       ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

       InitializeComponent()

       If Not SerialPort1.IsOpen Then

           Try

               SerialPort1.Open()     ' Para abrir el puerto.En este caso el com6 puerto virtual

               ' que genera el Proteus en mi aplicacion.

           Catch ex As Exception

               MessageBox.Show(ex.ToString)

           End Try

       End If

       ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

       AddHandler SerialPort1.DataReceived, AddressOf Recepcion 'delegado para que se pueda escribir en el texbox1

   End Sub

   ' Delegado

   Private Sub Recepcion(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)

       Recibidos += SerialPort1.ReadExisting() 'lee lo que tiene el bufer de entrada y lo guarda en la variable recibidos

       'Recibidos = SerialPort1.ReadLine()

       Me.Invoke(New EventHandler(AddressOf Actualizar)) 'Necesario para poder ocupar el Texbox1

   End Sub

   Private Sub Actualizar(ByVal s As Object, ByVal e As EventArgs)

       TextBox1.Text += Recibidos

   End Sub

End Class

hola estoy programando en vb 2008, tengo un combox1 y quiero que se refleje en ese combo los puertos, com. que tiene la pc para poder seleccionerlos me podrias ayudar gracias

Hola,

necesito leer los datos de una balanza, ya tengo los datos de pariedad y bits de datos etc, pero lo necesito plasmar en una aplicacion pero nose por donde comenzar, se que deben usar el control serialPort, porfavor me podrias ayudar con algun ejemplo.

Gracias

Hola,

Estoy teniendo problemas al tratar de enviar datos por el puerto serial, me sale que no puedo accesar al COM8 porque no tengo los privilegios necesarios. Que podria hacer para solventar este inconveniente?

Muchisimas gracias,

Grace!

excelente blog.

Muchas gracias por tus aportes

Nana

Hola men

sabes  te  he leido y seguido tus indicaciones arriba pero no pasa nada con la tarjeta la cual estoy enviando datos la idea es enviar un array  tengo un codigo para visual 6 pero yo ocupo visual basic 2005 hice algo parecido para poder enviar y prender la tarjeta pero no pasa nada te envio el codigo de visual 6 que funciona y el de visual basic 2005  que no :/

visual 6

////////////////////////////////////////////

Private Sub Command1_Click()

Dim arr() As Byte

Dim a, b, c, d As Integer

ReDim arr(18)

arr(0) = 115  's

arr(1) = 100   'Centro

arr(2) = 120  'm

arr(3) = 1   'camara

arr(4) = 111  'accion

arr(5) = 101   'solicita respuesta

With MSComm1

   .Output = arr

    Text1.Text = ""

End With

End Sub

Private Sub Form_Load()

With MSComm1

   .CommPort = 4

   .Settings = "9600,N,8,1"

   .PortOpen = True

   .InputLen = 0

   .RThreshold = 1

   End With

End Sub

Private Sub Form_Unload(Cancel As Integer)

With MSComm1

.PortOpen = False

End With

End

End Sub

Private Sub MSComm1_OnComm()

With MSComm1

       sinput = .Input

       Text1.Text = Text1.Text + sinput

       Label1.Caption = Len(Text1.Text)

       End With

End Sub

////////////////////////////////////////////

visual basic 2005  (que no me funciona)

/////////////////////////////////////////////

Imports System.IO.Ports

Imports System.IO.Ports.SerialPort

Public Class Form1

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

   End Sub

   Public a As Integer

   Public b As Integer

   Public c As Integer

   Public d As Integer

   Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click

       Dim arr() As Byte

       Dim Contador As Integer

       ReDim arr(18)

       arr(0) = 115  's

       arr(1) = 100   'Centro

       arr(2) = 120  'm

       arr(3) = 1   'camara

       arr(4) = 111  'accion 82

       arr(5) = 101   'solicita respuesta

       Dim Serie As SerialPort

       If cmbpuerto.Text <> "" Then

           Serie = My.Computer.Ports.OpenSerialPort(cmbpuerto.Text)  

           Serie.BaudRate = 9600              

           Serie.DataBits = 8                  

           Serie.Parity = IO.Ports.Parity.None    

           Serie.StopBits = IO.Ports.StopBits.One

           Dim Puerto As String

           Puerto = Serie.PortName

           Label5.Text = Puerto

           Dim Estado As Boolean          

           Estado = Serie.CDHolding            

           txtest.Text = Estado

           Dim SiNo As Integer

           SiNo = Serie.IsOpen          

           Estado = Serie.CtsHolding          

           Label2.Text = Estado

           Estado = Serie.DsrHolding          

       Label4.Text = Estado

           Serie.RtsEnable = True              

           Serie.DtrEnable = True        

           Serie.ReadTimeout = 10              

           Serie.WriteTimeout = 10            

           Contador = Serie.BytesToWrite      

           Dim numer As Integer

           For numer = 0 To 5

               Serie.Write(arr(numer))

           Next

           textrecibido.Text = Serie.ReadExisting()            

       Else

           MsgBox("Ingrese Puerto")

       End If

   End Sub

end Class

///////////////////////////////////////

NEcesito ayuda :S

Hola soy de Chile y te comento que es lo mejor que he encontrado para el manejo del puerto serial con VB 2005. He leido la gran parte de los POst y Solo darte las gracias por lo nuevo que he aprendido. Aunque sigo sin actualizar los datos  recibidos..es el mismo caso de Jerson de Chile, he colocado bien la velocidad, paridad, etc. y utilizo una maquina (notebook) con puerto serial. Podrias apoyarme con mi interrogante

Hola soy de Chile y te comento que es lo mejor que he encontrado para el manejo del puerto serial con VB 2005. Te comento que tengo el mismo problema de Jerson (Thursday, March 18, 2010 11:52 AM by jerson

), sigo sin actualizar los datos  recibidos por la com1.. he colocado bien la velocidad, paridad, etc.porque lo puedo ver con Hyperterminal y en mi caso utilizo una maquina (notebook) con puerto serial. Podrias apoyarme con mi interrogante

uff, parece que por fin encuentro un sitio sobre este tema.

Veras, me estoy iniciando en los scadas, a ver si pudieras orientarme con un ejemplo de tramas cómo enviarle al plc que ponga a I un contacto y cómo leer si una señal esta a O ó I.

Muchas gracias.

Hola, me estoy iniciando en los scada, mi cuestion es muy simple, a ver si me podeis poner un ejemplo en el que un boton me active una marca en el plc y leer una marca para hacer algo en el pc (por ejemplo el color del boton)

Hola, tengo una impresora serial Epson, la que manejaba bajo VB 6.0, mediante el mscomm, me detectaba los errores producidos en la impresora (falta de papel, por ejemplo), sin embargo por necesidad tengo que migrar a VB.net 2005, puedo imprimir sin problemas, pero no se como dejar a la escucha los errores que llegan de la puerta.

Agradeciendo tu gestion

Saludos