Kriptus

Ayuda Informatica y Programacion Visual Basic .Net C# ASP.NET Delphi …, Linux y Windows

Archivo para la 'Visual Basic .NET' Categoria


« Entrada anterior

VBNET Ejemplo de polimorfismo

Escrito por kriptus on 2nd Junio 2008

Aqui os presente un pequeño ejemplo del uso del polimorfismo realizado en visual basic .net

Espero que os sirva de ayuda.

PLAIN TEXT
VB.NET:
  1. Class animal
  2.     Public Overridable Sub comer()
  3.     End Sub
  4.  
  5. End Class
  6.  
  7. Class ave
  8.     Inherits animal
  9.     Overrides Sub comer()
  10.  
  11.         Console.WriteLine("come el ave.")
  12.     End Sub
  13.  
  14. End Class
  15.  
  16. Class perro
  17.     Inherits animal
  18.     Overrides Sub comer()
  19.  
  20.         Console.WriteLine("come el perro.")
  21.     End Sub
  22.  
  23. End Class
  24.  
  25.  
  26. Module Module1
  27.  
  28.     Sub Main()
  29.  
  30.  
  31.         Dim s As animal = New ave()
  32.         Dim s2 As animal = New perro()
  33.         s.comer()
  34.         s2.comer()
  35.         Console.ReadKey()
  36.  
  37.     End Sub
  38.  
  39. End Module

Escrito en Visual Basic .NET | Sin Comentarios »

Recomendar desde aqui una gran pagina

Escrito por kriptus on 27th Mayo 2008

Hola a todos aquellos que visitan esta web, desde aqui queria compartir un hallazgo que desconocia por completo, se trata de una web bastante buena que trata temas sobre visual basic .net y c#.

Esta web a la que me refiero se llama elguille, ya, ya, ¿como es posible no conocerla? (como un amigo mio me dijo!!!!!) pues he de reconocer que no sabia de su existencia hasta hace unos dias y que desde aqui, os recomiendo.

http://elguille.info

Escrito en Cosas Divertidas, Visual Basic .NET | Sin Comentarios »

VB.NET ejemplo de uso de LINQ en visual basic .net

Escrito por kriptus on 21st Marzo 2008

Esta es una nueva caracteristica del nuevo .net

Aqui os pongo un ejemplo de su utilizacion:

PLAIN TEXT
VB.NET:
  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim s As New ArrayList
  5.         s.Add("a")
  6.         s.Add("b")
  7.         s.Add("c")
  8.  
  9.         Dim items = From a In s Where a.ToString.EndsWith("c") Select a
  10.  
  11.         'Dim ite As Item
  12.         For Each item In items
  13.             Console.WriteLine(item)
  14.         Next
  15.         Console.ReadKey() 'La Salida es muy simple, una c
  16.     End Sub
  17.  
  18. End Module

Escrito en Visual Basic .NET | Sin Comentarios »

VB.NET borrar registros de un fichero de texto de manera facil

Escrito por kriptus on 9th Marzo 2008

Aqui expongo una manera de borrar registros en un fichero de texto.

PLAIN TEXT
VB.NET:
  1. Dim myFile As String = My.Application.Info.DirectoryPath & "\datostxt"
  2. Dim originalregistros() As String = IO.File.ReadAllLines(myFile)  'leemos todas las lineas del fichero y lo guardamos en un array
  3. Dim listaregistro As New List(Of String)  'creamos una lista de cadenas
  4. Dim codigo_buscado As String = Me.textbox1.text  'registro que queremos borrar
  5. dim i as integer
  6.  
  7. For i As Integer = 0 To originalRegistros.GetUpperBound(0)  '
  8.       If originalRegistros(i).Contains(codigo_buscado) = False Then  ' Si no es el registro buscado
  9.            listaregistro.Add(originalRegistros(i))   'añadimos nuevos registros
  10.       End If
  11. Next
  12. IO.File.WriteAllLines(myFile, newRecords.ToArray)  'Guardamos los registros

Escrito en Visual Basic .NET | Sin Comentarios »

Visual Basic .Net: Programacion Orientada a Objetos un ejemplo de la clase direccionip

Escrito por kriptus on 22nd Febrero 2008

Crear la clase DireccionIP con las siguientes características:

 Atributos: guardará los cuatro octetos que forman una IP (los numéricos que hay entre los punticos). Serán de tipo Byte.

 Propiedades: hacer una propiedad para cada uno de los cuatro octetos para poder modificarlo. El valor tendrá que estar entre 0 y 255.

 Constructores:

o Al primero le pasas 4 variables de tipo byte y te crea la IP.

o Al segundo le pasas una cadena con la dirección: "239.113.0.2" y te rellena los 4 octetos.

 Métodos:

o ClaseIP que nos dice a qué clase pertenece la IP.

Primer número IP

Clase

Máscara de IP

0-127

A

255.0.0.0

128-191

B

255.255.0.0

192-223

C

255.255.255.0

224-239

D

0.0.0.0

240-255

E

0.0.0.0

PLAIN TEXT
VB.NET:
  1. Class direccionip
  2.     Private ip1 As Byte
  3.     Private ip2 As Byte
  4.     Private ip3 As Byte
  5.     Private ip4 As Byte
  6.  
  7.     Private Property pip1() As Byte
  8.         Get
  9.             Return ip1
  10.         End Get
  11.         Set(ByVal value As Byte)
  12.             If value>= 0 Or value <= 255 Then
  13.                 ip1 = value
  14.             Else
  15.                 ip1 = 0
  16.             End If
  17.         End Set
  18.     End Property
  19.  
  20.     Private Property pip2() As Byte
  21.         Get
  22.             Return ip2
  23.         End Get
  24.         Set(ByVal value As Byte)
  25.             If value>= 0 Or value <= 255 Then
  26.                 ip2 = value
  27.             Else
  28.                 ip2 = 0
  29.             End If
  30.         End Set
  31.     End Property
  32.  
  33.     Private Property pip3() As Byte
  34.         Get
  35.             Return ip3
  36.         End Get
  37.         Set(ByVal value As Byte)
  38.             If value>= 0 Or value <= 255 Then
  39.                 ip3 = value
  40.             Else
  41.                 ip3 = 0
  42.             End If
  43.         End Set
  44.     End Property
  45.  
  46.     Private Property pip4() As Byte
  47.         Get
  48.             Return ip4
  49.         End Get
  50.         Set(ByVal value As Byte)
  51.             If value>= 0 Or value <= 255 Then
  52.                 ip4 = value
  53.             Else
  54.                 ip4 = 0
  55.             End If
  56.         End Set
  57.     End Property
  58.  
  59.     Sub New(ByVal a As Byte, ByVal b As Byte, ByVal c As Byte, ByVal d As Byte)
  60.         Me.ip1 = a
  61.         Me.ip2 = b
  62.         Me.ip3 = c
  63.         Me.ip4 = d
  64.  
  65.     End Sub
  66.  
  67.     Sub New(ByVal ip As String)
  68.         Dim pospyc As Integer
  69.  
  70.  
  71.         pospyc = ip.IndexOf(".")
  72.         Me.ip1 = ip.Substring(0, pospyc)
  73.         ip = ip.Remove(0, pospyc + 1)
  74.  
  75.         pospyc = ip.IndexOf(".")
  76.         Me.ip2 = ip.Substring(0, pospyc)
  77.         ip = ip.Remove(0, pospyc + 1)
  78.  
  79.         pospyc = ip.IndexOf(".")
  80.         Me.ip3 = ip.Substring(0, pospyc)
  81.         ip = ip.Remove(0, pospyc + 1)
  82.  
  83.  
  84.         Me.ip4 = ip
  85.  
  86.  
  87.     End Sub
  88.  
  89.     Public Function claseip() As String
  90.         Dim r As String = Nothing
  91.         Select Case ip1
  92.             Case 0 To 127
  93.                 r = "A"
  94.             Case 128 To 191
  95.                 r = "B"
  96.             Case 192 To 223
  97.                 r = "C"
  98.             Case 224 To 239
  99.                 r = "D"
  100.             Case 240 To 255
  101.                 r = "D"
  102.  
  103.         End Select
  104.         Return r
  105.     End Function
  106.  
  107.     Public Function mascarared() As String
  108.         Dim r As String = "255"
  109.         Select Case ip1
  110.             Case 0 To 127
  111.                 r = "255.0.0.0"
  112.             Case 128 To 191
  113.                 r = "255.255.0.0"
  114.             Case 192 To 223
  115.                 r = "255.255.255.0"
  116.             Case 224 To 239
  117.                 r = "0.0.0.0"
  118.             Case 240 To 255
  119.                 r = "0.0.0.0"
  120.  
  121.         End Select
  122.         Return r
  123.     End Function
  124.  
  125.     Public Shared Operator And(ByVal a As direccionip, ByVal b As direccionip) As direccionip
  126.         Dim r As direccionip = New direccionip(a.ip1, a.ip2, a.ip3, a.ip4)
  127.         r.ip1 = a.ip1 And b.ip1
  128.         r.ip2 = a.ip2 And b.ip2
  129.         r.ip3 = a.ip3 And b.ip3
  130.         r.ip4 = a.ip4 And b.ip4
  131.         Return r
  132.  
  133.     End Operator
  134.  
  135.     Public Shared Operator Or(ByVal a As direccionip, ByVal b As direccionip) As direccionip
  136.         Dim r As direccionip = New direccionip(a.ip1, a.ip2, a.ip3, a.ip4)
  137.         r.ip1 = a.ip1 Or (255 - b.ip1)
  138.         r.ip2 = a.ip2 Or (255 - b.ip2)
  139.         r.ip3 = a.ip3 Or (255 - b.ip3)
  140.         r.ip4 = a.ip4 Or (255 - b.ip4)
  141.         Return r
  142.  
  143.     End Operator
  144.  
  145.     Public Function direccionred(ByVal a As direccionip, ByVal b As direccionip) As String
  146.         Dim r As direccionip
  147.         Dim s As String = ""
  148.         r = a And b
  149.         s = r.ip1.ToString + "." + r.ip2.ToString + "." + r.ip3.ToString + "." + r.ip4.ToString
  150.         Return s
  151.     End Function
  152.  
  153.     Public Function direccionbroadcast(ByVal a As direccionip, ByVal b As direccionip) As String
  154.         Dim r As direccionip
  155.         Dim s As String = ""
  156.         r = a Or b
  157.         s = r.ip1.ToString + "." + r.ip2.ToString + "." + r.ip3.ToString + "." + r.ip4.ToString
  158.         Return s
  159.     End Function
  160.  
  161.  
  162.  
  163. End Class
  164.  
  165. Module Module1
  166.  
  167.     Sub Main()
  168.         Dim ip As direccionip = New direccionip("192.168.1.100")
  169.         Dim mascara As direccionip
  170.  
  171.         Console.WriteLine("Supongamos que tenemos esta ip: 192.168.1.100")
  172.         mascara = New direccionip("255.255.255.192")
  173.         Console.WriteLine("Mascara de la ip: {0} de base.", ip.mascarared)
  174.         mascara = New direccionip("255.255.255.192")
  175.  
  176.         Console.WriteLine("Clase de la ip: " & ip.claseip)
  177.         Console.WriteLine("Supongamos que tiene esta mascara de red: 255.255.255.192")
  178.         Console.WriteLine("Direccion de red: " & ip.direccionred(ip, mascara))
  179.         Console.WriteLine("Direccion de broadcast: " & ip.direccionbroadcast(ip, mascara))
  180.         Console.ReadKey()
  181.     End Sub
  182.  
  183. End Module

Escrito en Visual Basic .NET | Sin Comentarios »

« Entradas anteriores
 
ecoestadistica.com Email de contacto: kriptus@gmail.com

Foro Ayuda Informatica y Programacion