miércoles, 18 de abril de 2012

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.

1 comentario: