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.
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
Hola MANULOMM, veamos, aparentemente yo no veo nada erroneo, pero prueba con :
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
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
¿y xk no miras los datos que te llegan y nos cuentas?
msgbox buffer
ya lo he hecho, los he mostrado en textbox´s, es mas he utilizado el metodo:
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
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
Dim Buffer As String
ws.GetData Buffer
Select Case LCase(Buffer)
Case "tiempo": timer1 = True: timer2 = True
End Select
Cita de: MANULOMM en 4 Septiembre 2006, 16:48 PM
ya lo he hecho, los he mostrado en textbox´s, es mas he utilizado el metodo:
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?
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
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
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... ;D
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA
lo que hace LCase es pasar una cadena toda a minuscula, por ejemplo:
Dim cadena as String
Dim Lcadena as String
cadena= "Soy El MaRo!"
Lcadena=LCase(cadena) 'la variable cadena pasaria a ser "soy el maro!"
espero te aya servido
El MaRo!
ahhhhhhhhhhhh
listo muchas gracias por su colaboración,
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA