Autor Tema: Comunicacion Con Puerto Serie (Leído 4521 veces)

aura · « **en:** Miércoles 17 de Marzo de 2004, 10:30 »

Estimados amigos:
Estoy trabajando en un programa de comunicaciones (de dispositivos de peso), con puertos serie, y necesito algunas ideas, envio codigo para que veais lo que hasta ahora he hecho, me gustaria profundizar mas en este tema, pero desconozco su funcionamiento al completo

Código: Text

 
Option Explicit
Dim Cadena As String
 
 
Private Sub Conectar_Click()
Dim Velocidad As String, Paridad As String, Bits As String, Parada As String
 
    'comprueva que el puerto este cerrado para poder abrirlo
    If MSComm1.PortOpen = False Then
        'determina el puerto que hemos seleccionado
        If Combo1.ListIndex = 0 Then
            MSComm1.CommPort = 1
        Else
            MSComm1.CommPort = 2
        End If
        'determina: 9600-Velocidad en Baudios, N-No utiliza ninguna paridad,
        '8-Cantidad de bits de envio y recepcion por paquete,
        '1-Determina los bits de parada
        Velocidad = Trim(TxVelocidad.Text)
        Paridad = Trim(TxParidad.Text)
        Bits = Trim(TxBits.Text)
        Parada = Trim(TxParada.Text)
        
        MSComm1.Settings = Velocidad & &#34;,&#34; & Paridad & &#34;,&#34; & Bits & &#34;,&#34; & Parada
        'lee todo el buffer de entrada para que quede vacio
        MSComm1.InputLen = 0
        'Abre el puerto seleccionado
        MSComm1.PortOpen = True
        Me.Caption = &#34;Conectado por el puerto &#34; & MSComm1.CommPort
    End If
End Sub
 
Private Sub Desconectar_Click()
    If MSComm1.PortOpen Then
        'cierra el puerto
        MSComm1.PortOpen = False
        Me.Caption = &#34;Desconectado&#34;
    End If
End Sub
 
Private Sub Enviar_Click()
    'envia el texto escrito.
    MSComm1.Output = TextoEnviar.Text & vbCr
    'coloca el texto que enviamos en la pantalla
    Texto.Text = Texto.Text & vbCrLf & &#34;&#60;Ordenador 1&#62;&#34; & TextoEnviar.Text
    TextoEnviar.SetFocus
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem &#34;Com1&#34;
    Combo1.AddItem &#34;Com2&#34;
    Combo1.ListIndex = 0
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Desconectar_Click
End Sub
 
'El evento OnComm se genera siempre que cambia el valor de la propiedad
'CommEvent e indica que se ha producido un evento o un error en la comunicación.
Private Sub MSComm1_OnComm()
    Dim i As Integer
    Dim Valor As String
    
    'recoge el valor de entrada
    Valor = MSComm1.Input
    'busca la posicion del caracter de salto de linea
    i = InStr(Valor, Chr(13))
    
    'si no hay ningun salto de linea, quiere decir que la informacion que recibe
    'es parte de una cadena recibida con anterioridad.
    If i = 0 Then
        Cadena = Cadena & Valor
    Else
        Cadena = Cadena & Left(Valor, i - 1)
        Texto.Text = Texto.Text & vbCrLf & &#34;&#60;Ordenador 2&#62;&#34; & Cadena
        Texto.SelStart = Len(Texto.Text)
        Cadena = &#34;&#34;
    End If
End Sub
 
 

[/QUOTE]

QliX=D!

Ajap.. y que desconoces completamente?

elmango80

Hola Aura!!!

Todo esta muy bien lo unico que te faltaria serian unas tonterias para trabajar lo basico del MSComm, en primer lugar te faltaria configurar dos propiedades mas del MSComm en el antes de abrir el puerto:

Código: Text

 
     objeto.RThreshold = Valor

Establece y devuelve el número de caracteres que se van a recibir en el buffer antes de que el control MSComm genere el evento OnComm.

Al asignar a la propiedad RThreshold el valor 0 (el valor predeterminado) se desactiva la generación del evento OnComm cuando se reciben caracteres. Al asignar a la propiedad RThreshold el valor 1, por ejemplo, hace que el control MSComm genere el evento OnComm cada vez que entra un carácter en el búfer de recepción.

Código: Text

 
     objeto.SThreshold = Valor

Establece y devuelve el número mínimo de caracteres que puede admitir el búfer de transmisión antes de que el control MSComm genere el evento OnComm.

Al asignar a la propiedad SThreshold el valor 0 (predeterminado) se desactiva la generación del evento OnComm para los eventos de transmisión de datos. Al asignar a la propiedad SThreshold el valor 1 el control MSComm genera el evento OnComm cuando el búfer de transmisión está completamente vacío.

Ademas de configurar esas dos propiedades deberias cambiar una parte de tu codigo, antes de abrir el puerto deberias verificar que no este abierto porque si lo esta y lo intentas abrir te va a generar un error.

Citar

'Abre el puerto seleccionado
MSComm1.PortOpen = True

Deberias cambiarlo por

Código: Text

      
     'Abre el puerto seleccionado
     If Not MSComm1.PortOpen Then
          MSComm1.PortOpen = True
     End If

Otra cosa que tambien te aconsejaria que hicieras es en el evento OnComm] es verificar quien fue el que genero este evento, ya que el mismo se puede generar por varias razones, las principales son por haber recibido un dato en el puerto, por haber enviado un dato por el puerto o por causa de algun error, esto lo haces verificando el valor de la propiedad CommEvent. Entonces todas las instrucciones que tienes dentro del evento OnComm debes colocarlas dentro de un condicional, ya sea un If...Then...Else o en un Select Case de la siguiente forma

Código: Text

 
     If objeto.CommEvent = comEvReceive Then
          Valor = objeto.Input
          .
          .
          .
     End If
 
 

De esta forma solo vas a leer en el puerto unica y exclusivamente cuando haya un dato en el mismo.

Espero que esto te ayude a utilizar mejor el MSComm y que sigas investigando mas para que le saques el mayor provecho...

aura

Muchas gracias el mango80, de todas formas he subido al ftp, un ejemplo del codigo que he enviado, para quien este interesado en empezar a trabajar con la comunicaciones con puertos....

ebolo

Hola aura.
Pongo un adjunto un programilla que hice para balanzas de bizerba que usa los puertos COM.
Saludos.

aura · « **Respuesta #5 en:** Lunes 22 de Marzo de 2004, 10:04 »

Gracias ebolo, por el codigo que me has mandado, mas o menos tengo solucionado ya el problema, lo unico que me falta es que me den los codigos que tengo que mandar a las balanzas, vamos a ver si el proveedor me los da...

De todas formas os agradezco a todos el interes por este tema y espero poder ayudares alguna vez igual que lo habeis echo vosotros a mi...

aura

Estimados amigos:
Gracias por vuestra colaboracion, he conseguido realizar lo que queria, el problema residia en el evento oncomm, asi he añadido una linea antes de igual a la variable valor el contenido del mscomm1.input.

Lo que he introducido en la linea nueva es la funcion DoEvents, asi los tiempos de respuesta de la balanza se coordinan con los tiempos de respuesta del ordenador, puesto que este codigo me funcionaba en algunos equipos y en otros no ...

Espero que esta experiencia sea util para ustedes...

toten · « **Respuesta #7 en:** Lunes 25 de Julio de 2005, 14:18 »

mango men yo soy de venezuela me gustaria conocerte no tienes un msn para comunicarnos???

SoloCodigo

Autor Tema: Comunicacion Con Puerto Serie (Leído 4521 veces)

aura

Comunicacion Con Puerto Serie

QliX=D!

Re: Comunicacion Con Puerto Serie

elmango80

Re: Comunicacion Con Puerto Serie

aura

Re: Comunicacion Con Puerto Serie

ebolo

Re: Comunicacion Con Puerto Serie

aura

Re: Comunicacion Con Puerto Serie

aura

Re: Comunicacion Con Puerto Serie

toten

Re: Comunicacion Con Puerto Serie