Leer puerto Serie

[Phoncadiz]

Hola Foreros.

Necesito hacer una lectura del puerto serie (COM1) en el que tengo un lector de tarjetas. Tras investigar por ahí he agregado a mi proyecto el ActiveX llamado MSCOMM32.OCX
Para hacer una prueba he hecho el siguiente código (para empezar):

Código:

Dim oCom As New MSCommLib.MSComm
oCom.CommPort = 1
oCom.PortOpen = True

Cuando ejecuto me sale el siguiente problema: No hay licencia de uso de la clase

¿Tengo que registrar este ActiveX? ¿Hay otra forma gratuita de leer el puerto serie en .NET?

Gracias y un saludo.

[Phoncadiz]

Bueno... ya veo que este es un tema que llama mucho la atención...
Como ya he conseguido leer del puerto serie, os formularé una segunda pregunta:

-He hecho una pequeña aplicación en VB.NET (con la que leo el puerto serie). La cosa es que quiero utilizar este programa como un ACTIVEX ¿Cómo puedo hacer este paso? ¿Hay alguien que tenga un ejemplo o que haya hecho algo por el estilo?

Espero que esta vez tenga alguna contestación.
Gracias!!!

[neikex]

yo estoy aciendo una aplicacion para leer desde el puerto serie también y aunque logro abrir el puerto no logro leer, yo uso apis pero si pues mandarme tu ejemplo para ver si de esa forma puedo lograr leer del puerto t lo agradeceria muxo, si pues mandamelo al correo [email protected]

[jose_d]

Hola como estan, estoy haciendo lo mismo tengo una maquina que me manda datos por el puerto com1 del pc segun veo uds tienen informacion de como hacerlo, sera que me pueden dar una mano.
se los agradeceria mucho.

[estherybea91]

hola Phoncadiz!!
He visto que tienes un programa para leer del puerto serie me lo podrias pasar? y no sabras por casualidad como escribir datos en el puerto paralelo? muchas gracias y si se me ocurre como ayudarte o encuentro algo por internet te lo paso ok?

mi dirección de correo es : [email protected]

[oriopitufa]

Hola Phoncadiz, podrías poner el código aquí para que pueda echarle un vistazo?? Quiero hacer algo parecido y no tengo ni idea de por donde empezar!!
Gracias por adelantado

[fati129]

Hola Phoncadiz,
Estoy intentando leer un puerto serie en Visual Basic .net y no puedo.
¿podrias ayudarme?
Si puedes mandame tu programa para poder basarme en algo.
Gracias.
Mi correo es [email protected].

[oriopitufa]

Hola Phoncadiz, me podrías mandar a mí también tu programa?? Tengo que leer el puerto serie y no sé por donde empezar, me sería muy útil tu programa para orientarme un poco.

Muchas gracias.

[email protected]

[Kundins]

Hola buenas, no se si llegará demasiado tarde, pero igual puedo ayudarte.

Estoy cursando un curso de .Net y podría preguntarle a mi profesora, si me mandas el proyecto a mi cuenta le echamos un vistazo, y aprobechando aprendo un poquillo +. Porque, evidentemente, ahora no se hacerlo.

mi cuenta es: [email protected]

Por si te has olvidado después de tanto tiempo esto es una respuesta a:

-He hecho una pequeña aplicación en VB.NET (con la que leo el puerto serie). La cosa es que quiero utilizar este programa como un ACTIVEX ¿Cómo puedo hacer este paso? ¿Hay alguien que tenga un ejemplo o que haya hecho algo por el estilo?

Espero que esta vez tenga alguna contestación.
Gracias!!! [/QUOTE]

[alfil123]

holam porfavor Phoncadiz no se Si puedes mandame tu programa para poder basarme en algo ya que estoy siguiendo siguiendo un curso de .net y podria indagar con los que mas saben. grasias
[email protected]

Gracias

[Luis E. Díaz]

Este es un ejemplo de como capturar los eventos en visual basic con el MSCOM.
Private Sub MSCommARB_OnComm()
Dim IntEvent As Integer
IntEvent = MDIarb.MSCommArb.CommEvent
Select Case IntEvent
Case comEvReceive ' Recive RThreshold # Número de caracteres.

While MDIarb.MSCommArb.InBufferCount ' Toma todos los caracteres del buffer
StrInput = MDIarb.MSCommArb.Input ' Lee .InputLen Numero de caracteres

'El siguiente codigo Determina cuando empieza una cadena de caracteres

Select Case StrInput
Case "+" 'caracter de inicio
StrIdentificador = ""
Case Chr$(10) 'Ignora el caracter lf
' Line Feed Ignorado
Case Chr$(129)

StrIdentificador = ""
Case Chr$(13) 'el CR indica final de la trama
IdentifierEvent (StrIdentificador) ' procesa la trama recibida
MDIarb.MSCommArb.InBufferCount = 0
Case Else
StrIdentificador = StrIdentificador + StrInput 'Save everything between the + and CR
End Select
Wend
'Los ssiguientes Eventos son ignorados, en operación normal no son muy criticos
Case comBreak ' A Break was received.
Case comCDTO ' CD (RLSD) Timeout.
Case comCTSTO ' CTS Timeout.
Case comDSRTO ' DSR Timeout.
Case comFrame ' Framing Error
Case comOverrun ' Data Lost.
Case comRxOver ' Receive buffer overflow.
Case comRxParity ' Parity Error.
Case comTxFull ' Transmit buffer full.
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
Case comEvSend ' chars in send buffer
'ignore these
End Select
End Sub


Private Sub IdentifierEvent(StrEvent As String)
'Llamada desde MSCommARB (MSCommARB control) OnComm Event
Dim ByteStado As String
Dim ByteChequeo As Byte
' si encuentra el caracter de una sentencia escape no procesa la informacion recibida
DirecEquipo = Mid(StrEvent, 2, 3) 'Lee el primer caracter de la cadena
NumeroEquipo = CInt(DirecEquipo)
Comando = Mid(StrEvent, 5, 1)
NumComando = CInt(Comando)
Modulo = Mid(StrEvent, 6, 1)

On Error Resume Next
NumModulo = CInt(Modulo)
If Err Then
MsgBox Modulo
End If
WordComando = Chr(129) & Chr(NumeroEquipo) & Chr(NumComando) & Chr(NumModulo) & Chr(ChkDato) & Chr(255)
If CompararComando(WordComando) Then
Select Case NumComando
Case 0 'Respuesta de la Interfaz al abrir canal.
StrError = Mid$(StrEvent, 8, 2)
If StrError <> "ER" Then
CanalEstado = True
Toolbar1.Buttons(8).Enabled = False
Toolbar1.Buttons(9).Enabled = True
If HypertInstancia = False Then
EsperaTerminaPrograma (PathHyperT + "\" + NombreArchivoHT + PathHyperT + "\" + NombreArchivoHTBayly)
Else
MDIarb.MSCommArb.PortOpen = False
End If
Else

End If
Case 1 'Respuesta de la Interfaz al cerrar canal.
Explorador.PicMod(ModSelec).BorderStyle = 0
StBarArb.Panels(3).Text = StBarArb.Panels(3).Key
Explorador.PicMux.Enabled = True
Toolbar1.Buttons(9).Enabled = False
Toolbar1.Buttons(10).Value = 0
Toolbar1.Buttons(10).Enabled = False
CanalEstado = False
Explorador.TmrLoopARB.Enabled = False
Case 3
'El siguiente bucle determina si un multiplexor posee eventos o no para ser enviados
If NumeroEquipo = EquipoNum Then
Alarma = Mid$(StrEvent, 8, 1)
If Alarma = Chr$(255) Then
Explorador.ShapeAlarmas(0).FillColor = &HFF&

Else
Explorador.ShapeAlarmas(0).FillColor = &HFFFFFF
End If
Alarma1 = Mid$(StrEvent, 9, 1)
If Alarma1 = Chr$(255) Then
Explorador.ShapeAlarmas(1).FillColor = &HFF&
Else
Explorador.ShapeAlarmas(1).FillColor = &HFFFFFF
End If
End If

Case 4
DatoFecha = LeerFecha(StrEvent)
FechaOk = FechaOk & Chr(Mid$(StrEvent, 8, 1))
FechaOk = FechaOk & Chr(Mid$(StrEvent, 9, 1))
If FechaOk = "OK" Then
MsgBox ("Fecha Configurada ")
Else
MsgBox ("Fecha Configurada ")
End If
Explorador.TmrLoopARB.Enabled = True
Case 5
StBarArb.Panels(5).Text = StBarArb.Panels(5).Key
'ChequeoSuma = 0
FechaOk = Mid$(StrEvent, 8, 12)
For I = 1 To 6 Step 2
fechac = fechac & Mid$(FechaOk, I, 2) & "/"
Next
For I = 7 To 12 Step 2
Horac = Horac & Mid$(FechaOk, I, 2) & ":"
Next
fechac = Left(fechac, 8)
Horac = Left(Horac, 8)
FechaRemota = fechac
HoraRemota = Horac
StBarArb.Panels(4).Text = StBarArb.Panels(4).Key & " " & FechaRemota & " " & HoraRemota
'DatoFecha = LeerFecha(StrEvent)
'For I = 1 To 6
'ChequeoSuma = ChequeoSuma + FechaRecibida(I)
'Next
'ChequeoSuma = ChequeoSuma And &HFF
'ByteChequeo = ChequeoSuma
'ByteChequeo = Not ByteChequeo
'ByteChequeo = ByteChequeo + 1
'If ByteChequeo = FechaRecibida(7) Then
'ChecksumOK = ChecksumOK + 1
'Else
'ErrChecksum = ErrChecksum + 1
'End If

Case 9
MsgBox ("Reset OK "), vbInformation
End Select
Else
MsgBox ("No se Recibio una Respuesta Valida "), vbCritical
End If
End Sub

No miren detalladamente el codigo solo lo general.

Algunas varibles se declaran en otro modulo.

Espero les de alguna idea de como utilizar el MSCOM.

Buen día.

Luis E. Díaz.

[ogamboa_gt]

Pues yo estaba buscando algo para manejar el puerto serial y encontre esta pagina, espero les sirva http://dotnetpuebla.com/portal/Publi...odigo/330.aspx