Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Visual Basic.NET » Código de Visual Basic.NET - Funcion que indica si una direccion IP de un textbox es correcta o no

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

Volver
Agregar Código Fuente
Filtrado por el tag: py
<<>>
sin imagen de perfil

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


Visual Basic.NET

Publicado el 4 de Diciembre del 2014 por Jose
5.715 visualizaciones desde el 4 de Diciembre del 2014
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

Publicado el 4 de Diciembre del 2014gráfica de visualizaciones de la versión: 1.0
5.716 visualizaciones desde el 4 de Diciembre del 2014
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s2932