Biblioteca de Código de Visual Basic .NET

[Mace Windu]

Descripción: Convierte a minú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 minúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cadena As String = TextBox1.Text
        TextBox1.Text = Cadena.ToLower
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Invierte 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 = "Invertir una cadena"
        Button1.Text = "&Invertir"
    End Sub

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

Salu2

[Mace Windu]

Descripción: Muestra un número aleatorio entre 0 y el número escrito en TextBox1.
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 = "Generar un número aleatorio"
        Button1.Text = "&Generar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Aleatorio As Integer
        Randomize()
        Aleatorio = Rnd() * CInt(TextBox1.Text)
        MessageBox.Show("El número aleatorio es " & CStr(Aleatorio) & ".", "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua la dirección IP de tu ordenador.
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 = "Averiguar IP"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ip As Net.Dns
        Dim NombreHost As String = Ip.GetHostName
        Dim ActualHost As Net.IPHostEntry = Ip.GetHostByName(NombreHost)
        Dim DireccionIp As String = ActualHost.AddressList(0).ToString

        TextBox1.Text = "Tu dirección IP es " & DireccionIp
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Muestra si hay conexión a Internet.
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable = True Then
            TextBox1.Text = "La conexión a Internet está disponible."
        Else
            TextBox1.Text = "La conexión a Internet no está disponible."
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Text = "Saber si hay conexión a Internet"
        Button1.Text = "Conexión"
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Ejecuta cualquier archivo.
Controles: TextBox (1), Button(1).

Código:

Imports System.Diagnostics

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Proceso As Process = New Process
        Proceso.Start(TextBox1.Text)
    End Sub

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

Salu2

[Mace Windu]

Descripción: Muestra en minutos el tiempo que lleva encendido el ordenador.
Controles: TextBox (1), Button(1).

Código:

Imports System
Imports System.Environment

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Iniciaste el ordenador hace " & (TickCount / 1000 / 60).ToString & " minutos."
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Tiempo en ejecución del sistema"
        Button1.Text = "&Averiguar"
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Suspende la actividad de la aplicación durante x segundos (TextBox1).
Controles: TextBox (1), Button(1).

Código:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Threading.Thread.Sleep(CInt(TextBox1.Text) * 1000)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Suspender la actividad de la aplicación"
        Button1.Text = "&Suspender"
    End Sub
End Class

Salu2

[Mace Windu]

Descripción: Averigua el número de núcleos de tu procesador.
Controles: TextBox (1), Button(1).

Código:

Código:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = CStr(System.Environment.ProcessorCount)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar número de núcleos"
        Button1.Text = "&Averiguar"
    End Sub
End Class

Salu2