Winsock .... Que Hago Mal

[MANULOMM]

Hola
Este Tema Ya lo Habia POSTEADO antes pero nadie me respondio,
Depronto no fui muy claro en mis ideas...
por lo cual me decidi a postearlo de nuevo...
Explivo:
estoy Haciendo Una Aplicación Cliente / Servidor, Utilizando winsock hasta aqui todo muy bien, lo que quiero hacer es que cuando yo mande (Servidor) como mensaje la palabra "tiempo" en el en clinte se activen 2 Timers, he tratado haciendo lo siguiente:
Esto Va en el Cliente.

Código [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Winsock1.GetData Buffer
    Select Case Buffer
          case "Tiempo"
                   timer1.enabled = true
                   timer2.enabled = true
   end select
End Sub

pero  esto no funciona !!!
ya he comprobado todo, y todo funciona bien menos esto..
Como mas puedo activar los timers...
Nota: Tambien he probado mandarme solo mensajes y el winsock responde correctamente....
Gracias de Antemano,


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA   

[dPix]

Hola MANULOMM, veamos, aparentemente yo no veo nada erroneo, pero prueba con :

Código [Seleccionar] Expandir


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Winsock1.GetData Buffer
if buffer = "tiempo" or buffer = "Tiempo" then
timer1.enabled = true
timer2.enabled = true
end if
End Sub


Puede ser que estes mandando "tiempo" y no "Tiempo", solo se me ocurre eso, espero que sea eso, un saludo.

dPix

[MANULOMM]

no realmente la palabra no la ecribo, asigno el valor "Tiempo" a la Variable Buffer cuando hago click sobre un boton es como si en la  comunicacion con el cliente a la palabra se le agrgara algun caracter pues nunca responde....

De todos modos muchas gracias por tu atencion



JUAN MANUEL LOMBANA
MADELLÍN - COLOMBIA

[Hans el Topo]

¿y xk no miras los datos que te llegan y nos cuentas?

Código [Seleccionar] Expandir

msgbox buffer

[MANULOMM]

ya lo he hecho, los he mostrado en textbox´s, es mas he utilizado el metodo:

Código [Seleccionar] Expandir


Private Sub Text1_Change()
        Select Case Buffer
                  case "Tiempo"
                        timer1.enabled = true
                        timer2.enabled = true
       end select
End Sub

todas las variables han sido declaradas como publicas, porl o cual por ahi no hay error...
Detodas maneras le voy a seguir intentando.... Gracias


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[SheKeL_C$]

Cuadno e leido tu post m a venido a la cabeza un problema que tuve yo ace algun tiempo... fue un error muy tonto y era q yo enviaba la palabra pero con la 1º letra en mayusculas y en la otra parte del programa lo tenia todo en minusculas..

Prueba a hacerlo asi

Código [Seleccionar] Expandir

Dim Buffer As String
    ws.GetData Buffer
   
    Select Case LCase(Buffer)
        Case "tiempo": timer1 = True: timer2 = True
    End Select

[Hans el Topo]

ya lo he hecho, los he mostrado en textbox´s, es mas he utilizado el metodo:

Código [Seleccionar] Expandir


Private Sub Text1_Change()
        Select Case Buffer
                  case "Tiempo"
                        timer1.enabled = true
                        timer2.enabled = true
       end select
End Sub

todas las variables han sido declaradas como publicas, porl o cual por ahi no hay error...
Detodas maneras le voy a seguir intentando.... Gracias


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

no has respondido a mi pregunta...

¿que se supone que te llega? ¿la string con valor "tiempo"?
tienen los timers intervalo<>0?

[elmaro]

exactamente , si los timer tienen de intervalo el valor 0 no van a "arrankar" , verifica eso,. y antes prueva lo que dijo hans, verifika que es lo que te llega usando msgbox Buffer

[MANULOMM]

no los timers estan el 1 a 1000 y el segundo a 100, he probado los timeres pordiaparte (Solos) y todo funciona, encuanto al los caracteres estoy mas que seguro que siempre es "Tiempo",
pero voy a intenertat con el "LCase" para ver que pasa....
Muchas Gracias por su buena colaboracion, estamos en contacto,


JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA

[MANULOMM]

como pueden ver hace poco coloque mi ultimo post
probe lo del "LCase".... y funciono, estoy brincando en una pata pues tengo una sala de internet de la cual yo soy administrador y ya habia probado todos lo softwares de gestion y no me habia acomodado con ninguno... hasta que me resolvi a hacerlo, y ya esta, solo faltan algunas cosas por resolver... muchas gracias pro su grandiosa ayuda....  , quiero dejar claro que probe todas sus sugerencias, y lo del msgbox buffer siempre me salia "Tiempo".... seles agradece

SheKeL_C$ por favor me explicarias que funcion expecifica cumple el LCase...

JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA