comunicacion RS232 en Visual Basic

[Milo]

Buennass:

Buennas:

Estoy intentando capturar dos bytes con el puerto com, mi dspic envia continuamente bytes al programa de visual Basic, pero no se como hacer para que me los capture de dos en dos (bueno si con el RTrehold, pero no), he estado mirando en el foro y he probado varias cosas pero no consigo que me lo haga.

El problema que tengo es que el indice del array solo se incrementa una vez, supongo que será porque solo entra una vez en el if. Lo que hace el programa es que me saca por el Text1.Text todos lo datos que envio.

¿Cómo puedo hacer para que, a la vez que va ejecutandose el comEvReceive, me guarde los datos en el array en su correspondiente posición incrementando el indice?

Muchas gracias de antemano,

Este es mi código:

Private Sub MSComm1_OnComm()
    Dim i As Integer
    Dim Valor As String
    Dim Dato(10) As String
    Dim X As Integer
   
   
    Dim textosalida As String
   
       

    If MSComm1.CommEvent = comEvReceive Then
        textosalida = MSComm1.Input
        txtDatosRx.Text = txtDatosRx.Text & textosalida
        txtDatosRx.Text = textosalida
        Dato(X) = textosalida
         X = X + 1
       
        Text1.Text = Dato(0)
        Text2.Text = Dato (1)

    End If
   
     
End Sub


Saludos,

[BrunoF]

Hola.

Para poder recibir de a dos bytes, basicamente necesitas cumplir con dos requisitos:

RThresHold debe valer 2;
InBufferSize debe ser mayor igual a 2;

Para que lo que queres funcione, no necesitas mas que sacar:

    Dim Dato(10) As String
    Dim X As Integer

del evento Private Sub MSComm1_OnComm().

Asi como esta ahora, las variables esas son locales. Entonces, se crean al entrar el programa al Sub y se destruyen al salir de este.
Declaralas fuera, y de esta manera seran globales y no se perderan.

Saludos.

[Milo]

Muchas gracias,  , Bruno

La información me ha servido de mucho.

[Designer]

Hello amigos, necesito ayuda, con RECIBIR datos en visual desde 16f877? les agradesco todo lo que puedan brindarme.!!!!!!!!!!!

[proycto(A)]

ESTE FORO TIENE EXACTAMENTE LO QUE NECESITO, SIN EMBARGO EL LINK PARA DESCARGAR YA NO ESTA, QUIEN LO PUDIERA SUBIR SERIA DE GRAN AYUDA

DE ANTEMANO GRACIAS

[Milo]

Buennass,

Tengo un problema con la recepción de caracteres con pic. Creo que el problema es de tiempos. He intentado hacerme un especie delay en c a lo bruto pero no ha funcionado, este es mi codigo y me interesa hacer una especie de delay como funcionaría en c para cada vez que envio en caracter espere cierto tiempo.

Private Sub cmdAceptar_Click()
       
    Flag = 0
           
    frmPrincipal.MSComm1.Output = Chr$(&H2E)                    'Caracter sincronismo
    Temporizacion                                                            'Intento de función delay
    frmPrincipal.MSComm1.Output = Chr$(&HA)                      'Modo Algoritomo PY0
    Temporizacion
    frmPrincipal.MSComm1.Output = Chr$(&HB)                     'Modo Algoritomo PY0
    Temporizacion
    frmPrincipal.MSComm1.Output = Chr$(&HC)                     'Modo Algoritomo PY0
   
End Sub


Private Function Temporizacion()
    Timer1.Enabled = False
    Timer1.Interval = 2000
    Timer1.Enabled = True

    While Flag = 0
          Flag = Flag           'Por poner algo dentro del while
    Wend

End Function



Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Flag = 1
End Sub

Lo que intento hacer es que se espere dos segundos cada vez que envio un caracter a mi pic, pero no funciona se me cuelga el programa. Si alguien sabe otra forma mas coherente, que la que me he inventado, de hacer un delay espero su consejo


saludos,

[Milo]

He descubierto que si uno mira antes por la web tienes mas probabildades de que le funcione una cosa,en vez de inventar como yo, 

Así que no se si me valdrá para mi programa del pic, pero funcionar como delay funciona:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Y luego pones en la función que utilices, esto

Sleep 2000 'Esto es para dos segundos, es decir que el numero que pongas es el numero de milisegundos que va estar haciendo el delay

Aquí esta las web de donde lo he sacado, de todas manera solo puse "delay en visual basic" , en el google, dificil ehh 

http://support.microsoft.com/kb/212667


http://www.daniweb.com/techtalkforums/thread605.html

saludos,

[PalitroqueZ]

si Milo es una opción,

aunque hay casos y depende de la aplicación en que puede causar problemas, puesto que esa api puede 'congelar' la aplicación el tiempo asignado, por la web se consiguen procedimientos que hacen las de retardos base de contadores y usando el 'do events'

por ej:

http://www.canalvisualbasic.net/temarios/trucos3.asp

en este link aparece una función llamada Esperar

Un sencillo Cronómetro

Para ejecutar un lapso de tiempo x (por ejemplo 5 segundos), escribir el siguiente codigo en un Modulo Nuevo:

    Public Sub Esperar(Tiempo as Single)
        Dim ComienzoTiempo as Single
        Dim FinTiempo as Single
        ComienzoTiempo = Timer
        FinTiempo = ComienzoTiempo + Tiempo
        Do While FinTiempo > Timer
                Do Events
                 If ComienzoTiempo > Timer Then
                        FinTiempo = FinTiempo - 24 * 60 * 60
                End If
        Loop
   End Sub

se puede incluir el tiempo en modo fraccional o con decimales

[BrunoF]

Bueno.

Pedro: cabe mencionar la excepcion de que la funcion Timer cuenta los segundos pasados de medianoche, por lo que el algoritmo no funcionará bien problablemente en cercanías de la medianoche, si el usuario decide cambiar la hora del sistema, o si el tiempo de espera es muy grande(el algoritmo nunca funcionará bien si Tiempo > 24*3600),etc si no se tienen en cuenta ciertos ajustes que se le deben hacer.

Saludos.

[PalitroqueZ]

¿que tal Bruno?

no me había pensado en ese pequeño gran detalle, y en las aplicaciones que le he montado no lo había probado cerca de medianoche, me tocará probarlo

por allí hay otra rutina, que trabaja de forma similar, no se si tenga el mismo problema, pero ésta trabaja solo con enteros.

[Milo]

Buennas:

Gracias Pedro y Bruno por la ayuda, de momento seguiré con la función sleep a ver si no me da muchos problemas, cuando tenga un poco mas de tiempo probaré a optimizar esa función.

También vi algo por la web que utilizaba en método OnTime,

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

La web es la de microsoft la postee dos mensajes atras.

Saludos y gracias de nuevo.

[BrunoF]

Ojo que esa funcion es para crear macros con controles del Excel(office en general).

Saludos.

[Milo]

Buennass:

Yo ni siquiera la he mirado bien pero aunque sea para office te da una idea de como hacerla con visualbasic controlando el tiempo (función time), se podría ver que hora es, y hacer un while comprobando la hora hasta que pasasen x segundos , podría ser otra solución.
Podría ser algo así ?


saludos,

[homfly]

donde esta el archivo que hay en el primer mensaje?Quiero empezar a aprender a comunicarme con rs232 y tambien a aprender a usar a visual basic.

Mandarme informacion que tengais sobre visual basic y comunicacion pic-pc  a

homfly@hotmail.com

Gracias

[artemix]

hola amigo estaba quisiera que me envies el programa de la comunicacion RS232 en visual basic...para probarlo e implementarlo en el proyecto que estoy realizando.te agradeceria que me lo envies a mi correo:salim2281@hotmail.com