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.
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
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
0