Código de Visual Basic.NET - Funcion que indica si una direccion IP de un textbox es correcta o no

Funcion que indica si una direccion IP de un textbox es correcta o nográfica de visualizaciones


Visual Basic.NET

Publicado el 04 de Diciembre del 2014 por Jose
1.598 visualizaciones desde el 04 de Diciembre del 2014. Una media de 21 por semana
Funcion que indica si la IP, tipeada en un textbox, es correcta o no. Devuelve verdadero (true) o Falso (false) según se ajuste o no a lo siguiente:
- Tamaño correcto de una direccion IP: entre 7 y 15 digitos, se incluyen los puntos
- Debe tener tes puntos: los separadores de los pares
- Cada par debe estar entre 0 y 255.
En el TextBox debes validar que incluyan solo numeros y/o puntos (KeyPress).

Requerimientos

Función probada en windows 7 32 bits, usando framework 4.0, Visual Studio 2013

1.0

Actualizado el 05 de Diciembre del 2014 (Creado el 04 de Diciembre del 2014)gráfica de visualizaciones de la versión: 1.0
1.599 visualizaciones desde el 04 de Diciembre del 2014. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
30
31
32
33
34
'******************  VERIFICAR IP VALIDA *****************************
 
    Function EsIP(ByVal Wip As String) As Boolean
        'Las variables comenzaran por "W" para diferenciarlas de cualquiera en el programa principal 
        Dim wcont, wPtos As Byte      '--- Para contar los puntos, deben ser 3 y hacer el ciclo
 
        '-----< Se verifica no contenga letras (mejor validar la entrada en el TextBox del Form) >-----
 
        '------ Se verifica tenga el tamaño de una IP correcta
        If Len(Wip) < 7 Or Len(Wip) > 15 Then
            EsIP = False '--- No tiene el tamaño apropiado para una IP
        Else
            '----- Se verifica tenga los "4 pares" correctos (que contenga 3 puntos)
            wPtos = Len(Wip) - Len(Replace(Wip, ".", "")) '--- para "contar" los puntos
            If wPtos = 3 Then
                '----- Se verifica que cada par esté entre [0..255]
                Dim wNewIP() As String = Split(Wip, ".")  '--- Arreglo donde se guardan los pares
                For i = 0 To wPtos
                    If (wNewIP(i) > -1) And (wNewIP(i) < 256) Then
                        wcont = wcont + 1
                    End If
                Next
                If wcont = 4 Then
                    EsIP = True  '--- Los pares estan correctos
                Else
                    EsIP = False '--- Alguno de los pares está errado
                End If
            Else
                EsIP = False     '--- No hay la cantidad de puntos (3) para una direccion IP
            End If
        End If
        '----- Se devuelve resultado de la funcion
        Return EsIP
    End Function



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s2932