Biblioteca de Código de Visual Basic .NET

[Mace Windu]

Biblioteca de código de Visual Basic .NET

Creo este tema para ir publicando nuestros códigos. Iré actualizando el Índice para mejorar la organización del tema.
Se podría seguir el siguiente modelo:

Descripción: lo que hace el código.
Controles: ControlTipo1 (Cantidad), ControlTipo2 (Cantidad), etc.

Código:

Código entre las etiquetas code.

Salu2

[Mace Windu]

Índice

1. Trabajo con archivos

• 
  Para ver este enlace Registrate o Inicia Sesion
  Averiguar tamaño en bytes de un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Averiguar la fecha de creación de un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Averigua la versión y la descripción de un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Crear un directorio.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Eliminar un directorio.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Copiar un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Eliminar un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Mover un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Leer el contenido de un archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Guardar texto en el archivo especificado.

2. Bases de numeración

• 
  Para ver este enlace Registrate o Inicia Sesion
  Convertir número binario a decimal.

3. Trabajo con cadenas

• 
  Para ver este enlace Registrate o Inicia Sesion
  Eliminar espacios duplicados.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Convertir a mayúsculas una cadena.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Convertir a minúsculas una cadena.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Invertir una cadena.

4. Cálculo

• 
  Para ver este enlace Registrate o Inicia Sesion
  Generar número aleatorio.

5. Network

• 
  Para ver este enlace Registrate o Inicia Sesion
  Averiguar la dirección IP de tu ordenador.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Saber si hay conexión a Internet.

6. Otros

• 
  Para ver este enlace Registrate o Inicia Sesion
  Ejecutar cualquier archivo.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Conocer el tiempo que lleva en ejecución el sistema.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Suspender la actividad de la aplicación durante x segundos.
• 
  Para ver este enlace Registrate o Inicia Sesion
  Averiguar el número de núcleos de tu procesador.

Salu2

[Mace Windu]

Descripción: Averigua el tamaño en bytes que tiene un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar tamaño"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As New FileInfo(TextBox1.Text)
        MessageBox.Show("El archivo ocupa " & Archivo.Length.ToString + " bytes.")
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Crea el directorio especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Crear"
        Me.Text = "Crear directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.CreateDirectory(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Elimina el directorio especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Copia el archivo especificado (TextBox1) en el lugar indicado(TextBox2).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Copiar"
        Me.Text = "Copiar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Copy(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Elimina el archivo especificado.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Mueve el archivo especificado (TextBox1) en el lugar indicado (TextBox2).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Mover"
        Me.Text = "Mover archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Move(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Leer el contenido de un archivo (TextBox1) y lo muestra en el TextBox2.
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Abrir"
        Me.Text = "Abrir archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamReader = File.OpenText(TextBox1.Text)
        TextBox2.SelectedText = Archivo.ReadToEnd()
        Archivo.Close()
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la fecha de creación de un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar fecha creación archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("El archivo fue creado el " & File.GetCreationTime(TextBox1.Text).ToString, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la versión y la descripción de un archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.Diagnostics

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar versión y descripción archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Informacion As FileVersionInfo = FileVersionInfo.GetVersionInfo(TextBox1.Text)
        MessageBox.Show("Versión del archivo: " & Informacion.FileVersion & vbCrLf _
                        & "Descripción: " & Informacion.FileDescription, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Guarda el contenido del TextBox2 en el archivo especificado (TextBox1).
Controles: TextBox (2), Button(1).

Código:

Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Guardar"
        Me.Text = "Guardar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamWriter = File.CreateText(TextBox1.Text)
        Archivo.WriteLine(TextBox2.Text)
        Archivo.Flush()
        Archivo.Close()
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra un número binario en decimal.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Cambiar de binario a decimal"
        Button1.Text = "&Cambiar"
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Número decimal: " & CStr(BinarioDecimal(TextBox1.Text)), "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub

    Private Function BinarioDecimal(ByVal Binario As String) As Long
        Dim N As Integer = 1, LongitudInicial As Integer = 0, Longitud As Integer = 0

        BinarioDecimal = 0
        Longitud = Len(Binario)
        LongitudInicial = Longitud

        While N <= LongitudInicial
            If Strings.Left(Binario, 1) = "1" Then
                BinarioDecimal = BinarioDecimal + (2 ^ (LongitudInicial - N))
            End If
            N = N + 1
            Binario = Strings.Right(Binario, Longitud - 1)
            Longitud = Longitud - 1
        End While
    End Function
End Class

Salu2

[Mace Windu]

Descripción: Elimina espacios duplicados en un texto.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Eliminar espacios duplicados"
        Button1.Text = "&Eliminar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const EspacioDuplicado As String = "  "
        Dim PosicionInicial As Integer, CadenaAuxiliar As String
        Dim Texto As String = Strings.Trim(TextBox1.Text)

        PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)

        Do While PosicionInicial > 0
            CadenaAuxiliar = Mid(Texto, PosicionInicial + 1).TrimStart
            Texto = Strings.Left(Texto, PosicionInicial) & CadenaAuxiliar
            PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)
        Loop

        TextBox1.Text = Texto
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Convierte a mayúsculas una cadena.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Convertir a mayúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Strings.UCase(TextBox1.Text)
    End Sub
End Class

Salu2