elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Deseas probar algunas mejoras a la interfaz del foro? Prueba cake! acerca de


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  CLIENTE Y SERVIDOR
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: CLIENTE Y SERVIDOR  (Leído 1,623 veces)
igustin10

Desconectado Desconectado

Mensajes: 10


Ver Perfil
CLIENTE Y SERVIDOR
« en: 18 Noviembre 2016, 23:19 »

Como andan? Espero que bien!

Tengo un problemita aca haciendo un cliente y servidor. Quiero que cada boton al apretar mande el valor del boton al casillero que le corresponde. Algo asi:

CLIENTE:1                              SERVIDOR
1                                           1) QUE CAMBIE DE 0 A 1 CUANDO TOCO EL BOTON 1
2                                           2) QUE CAMBIE DE 0 A 2 CUANDO TOCO EL BOTON 2
3                                           3) QUE CAMBIE DE 0 A 3 CUANDO TOCO EL BOTON 3

El problema es que todos van hacia el mismo lugar. Cuando toco el 1/2/3 van todos al 1):

Les dejo una fotito http://imgur.com/a/2dMbZ

Muchas gracias!


En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.938


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: CLIENTE Y SERVIDOR
« Respuesta #1 en: 19 Noviembre 2016, 00:23 »

Y el código? Colócalo pues no somos adivinos...  :P

Saludos!


En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

igustin10

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: CLIENTE Y SERVIDOR
« Respuesta #2 en: 20 Noviembre 2016, 04:42 »

Cierto jaja! Me olvidaba de un pequeño detalla  :-\ :-\.

CODIGO DE CLIENTE:

Código:
Public Client As TcpClient
Public DataStream As StreamWriter

Public Sub Send(Data As String)
        DataStream.Write(Data & vbCrLf)
        DataStream.Flush()
End Sub

BOTON QUE MANDA AL SERVIDOR:

Código:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Client.Client.Connected = True Then
            Client.Send("2")
        End If
End Sub

------------------------------------------------------------------------------------------------

CODIGO DE SERVIDOR: (CUANDO YA ESTA ESCUCHANDO)

Código:
Private Server As TCPControl

Public Event MessageReceived(sender As TCPControl, Data As String)


    ' COMUNICA CON EL FORM
    Private Delegate Sub UpdateTextDelegate(TB As TextBox, txt As String)
    ' ACTUALIZA EL TEXTO
    Private Sub UpdateText(TB As TextBox, txt As String)
        If TB.InvokeRequired Then
            TB.Invoke(New UpdateTextDelegate(AddressOf UpdateText), New Object() {TB, txt})
        Else
            TB.Text = txt
        End If
    End Sub

    ' ACTUALIZA TEXTO CUANDO RECIBE
    Private Sub OnLineReceived(sender As TCPControl, Data As String)
        UpdateText(txtChat, Data)
    End Sub

    Private Sub Listening()
        ' LOOP QUE ESCUCHA
        Do Until IsListening = False
            ' ACEPTA CONEXIONES
            If Server.Pending = True Then
                Client = Server.AcceptTcpClient
                ClientData = New StreamReader(Client.GetStream)

            End If

            ' CUANDO LLEGA UN MENSAGE
            Try
                RaiseEvent MessageReceived(Me, ClientData.ReadLine)
            Catch ex As Exception
            End Try
        Loop
    End Sub

CLIENTE:1                              SERVIDOR
1                                           1) QUE CAMBIE DE 0 A 1 CUANDO TOCO EL BOTON 1
2                                           2) QUE CAMBIE DE 0 A 2 CUANDO TOCO EL BOTON 2
3                                           3) QUE CAMBIE DE 0 A 3 CUANDO TOCO EL BOTON 3

Lo que tendria que hacer es que el cliente al apretar 1, el servidor reconozca que salio de ese boton y vaya a 1).
No puedo crear un identificador de texto porque el texto de 1 del cliente despues va a ir cambiando. Si no con 2 if lo solucionaria.

Muchas gracias MCKSys Argentina por preocuparte.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Cliente/Servidor
Programación General
© Shadoweps ツ 5 2,629 Último mensaje 19 Diciembre 2003, 16:52
por © Shadoweps ツ
Cliente servidor
Programación Visual Basic
charl_1310 6 1,185 Último mensaje 15 Agosto 2007, 06:19
por APOKLIPTICO
Cliente -Servidor.
.NET
Meta 0 2,120 Último mensaje 22 Marzo 2009, 09:12
por Meta
cliente-servidor
Programación C/C++
do-while 4 1,280 Último mensaje 22 Noviembre 2009, 20:46
por do-while
Cliente-servidor « 1 2 3 »
Java
alzehimer_cerebral 22 7,079 Último mensaje 10 Enero 2010, 22:15
por egyware
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines