Crear un Reloj en VB.NET

  Creamos un proyecto nuevo e insertamos 2 labels y Timer que se encuentra en la barra de herramientas (toolbox) en componentes, lo seleccionamos y lo insertamos en el formulario

1. Seleccionamos el T imer1 y en l a paleta de propiedades modificar la propiedad Interval=100 a Interval=1000 esto es milisegundos  quiere decir que su intervalo de cambio sera de 1seg

2. Damos doble click en el componente Timer1 y escribimos lo siguiente

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
 End Sub

3. Nos vamos al FormLoad

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Timer1.Enabled = True
                Label2.Text = Today
  End Sub

Mostrar IP y Host de mi pc en VB.NET

  En esta practica visualizaremos en u textbox la direccion IP de nuestra Pc y su Host. Creamos un proyecto nuevo e insertamos 2 textbox para mostrar la informacion.

1. Importamos esta libreria
              
                        Imports System.Net

2. Creamos un procedimiento
              
   Private Sub ObtenerDatos()
        Dim nombreHost As String = System.Net.Dns.GetHostName
        Dim hostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(nombreHost)

        TextBox1.Text = hostInfo.HostName.ToString
        For Each ip As System.Net.IPAddress In hostInfo.AddressList
            TextBox2.Text = ip.ToString
        Next
    End Sub

3. Madamos llamar el procedimiento en el Load de la forma

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ObtenerDatos()
    End Sub


Ejecutamos la aplicacion

Informacion del Microprocesador en VB.NET

  Esata practica muestra como desplegar informacion basica de nuetro procesador mediante una aplicacion en VB.net. Para esto necesitamos  crear un proyecto nuevo y agregar unos controles a nuestro formulario e importar unas alibrerias para poder accesar al ainformacion del microporsedor.

6 textbox , 6 labels , 1 boton

 1. Vamos a imprtar estas librerias
        
           Imports System
           Imports System.Management
           Imports System.Windows.Forms

2. Vamos a crar un procedimiento

     Private Sub micro()
        Try
            Dim query As String = "SELECT * FROM Win32_Processor"
            Using jobQuery As New ManagementObjectSearcher(query)
            Using jobs As ManagementObjectCollection = jobQuery.Get()
            For Each job As ManagementObject In jobs
                                        
                        TextBox1.Text = job("Description")     'nombre
                        TextBox2.Text = job("CpuStatus")  'cpu estatus esta o no esta activado
                        TextBox3.Text = job("CurrentClockSpeed") 'velocidad de reloj
                        TextBox4.Text = job("Manufacturer")  'manufacture
                        TextBox5.Text = job("Status")  'estatus
                        TextBox6.Text = job("ProcessorType") 'tipo de procesador el 3 es centralprocesor

                    Next
                End Using
            End Using

                    Catch ex As Exception
            MsgBox("No se puede actualizar...!", MsgBoxStyle.Information, "Error del Sistema")
        End Try
            End Sub

3.  En el boton solo llamamos el procedimiento   "micro()"        

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call micro()
    End Sub

Ejecutamos la aplicacion y le damos click al boton.