Visual Basic.NET - Sting.Text no me funciona

 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 96 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Sting.Text no me funciona

Publicado por German (5 intervenciones) el 16/01/2019 13:01:38
Hola gente, quiero hacer una funcion sencilla en .Net pero no va
tengo un textbox con una ip. ("ip")
un label "resultado" que muestra Estable o Desconectado
Y por ultimo otro label que dice los paquetes perdidos y los va sumando.




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function verificar(ByVal numero As String) As String
 
 
        Dim resultadoA As Object = "resultado" + numero
        Dim fallas As String = "fallas" + numero
        Dim ip As String = "ip" + numero
 
 
        If My.Computer.Network.Ping(ip.Text) Then
        resultadoA.Text = "Estable"
 
 
         resultado.BackColor = Color.Green
          resultado.ForeColor = Color.White
 
 
       Else
          resultado.Text = "Desconectado"
          resultado.BackColor = Color.Red
          resultado.ForeColor = Color.White
          fallas.Text = Val(fallas.Text) + 1
        End If
    End Function

básicamente un timer llama a esta función y si pongo por ejemplo "verificar(1)" va a verificar los datos del textbox1 y asi no tengo que escribirla para los 10 ip que quiero chequear
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 2.120
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Sting.Text no me funciona

Publicado por Phil Rob (508 intervenciones) el 16/01/2019 17:32:58
Hola,

No hay necesidad de TEXT con una variable de tipo String : es el texto.
Así que elimine el .Text y debería funcionar mejor.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function verificar(ByVal numero As String) As String
    Dim resultadoA As Object = "resultado" + numero
    Dim fallas As String = "fallas" + numero
    Dim ip As String = "ip" + numero
 
    If My.Computer.Network.Ping(ip) Then
        resultadoA.Text = "Estable"
        resultado.BackColor = Color.Green
        resultado.ForeColor = Color.White
    Else
        resultado.Text = "Desconectado"
        resultado.BackColor = Color.Red
        resultado.ForeColor = Color.White
        fallas = Val(fallas) + 1
    End If
End Function
Espero podar ayudarte ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar