Visual Basic.NET - Sting.Text no me funciona

 
Vista:
sin imagen de perfil
Val: 7
Ha disminuido su posición en 60 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 19:23:49
Hola gente, quiero hacer una función 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
24
25
26
27
28
29
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
 
'para llamarla solo hay botones que serian asi
 
 verificar(1)
 verificar(2)
'etc


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