Como obter a temperatura da CPU no VB

Escrito por mikhail polenin Google | Traduzido por josé fabián
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como obter a temperatura da CPU no VB
Seguir a temperatura do CPU pode lhe dar uma indicação de como está funcionando o sistema de arrefecimento (cpu 1 image by Robert Molnar from Fotolia.com)

Se você estiver criando um programa simples de estatísticas de hardware, o primeiro lugar a pesquisar é a referência de Windows Management Instrumentation (WMI), na qual você encontrará muitas consultas úteis que pode realizar à interface para obter muitas informações sobre o sistema. Você pode obter a temperatura das suas CPUs enviando uma consulta para o WMI de "MSAcpi_ThermalZoneTemperature" e pulando para o valor "CurrentTemperature". No entanto, é mais fácil dizê-lo do que fazê-lo, portanto certifique-se de praticar suas habilidades de programação.

Nível de dificuldade:
Desafiante

Outras pessoas estão lendo

Instruções

  1. 1

    Crie um projeto de Visual Basic Windows Forms com um nome da sua escolha.

  2. 2

    Crie um botão, selecionando o ítem correspondente na caixa de ferramenta e desenhando uma caixa no formulário com o tamanho desejado.

  3. 3

    Clique duas vezes no botão que você acabou de criar para entrar na função de evento Click na vista de código.

  4. 4

    Declare um novo Management Object Searcher dentro do evento click e passe os parámetros de construção como classe "root WMI" com uma consulta a "MSAcpi_ThermalZoneTemperature". Você pode fazer isto da seguinte forma:

    Dim s As New System.Management.ManagementObjectSearcher( _ "root/WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")

  5. 5

    Itere o buscador que criou e use um valor temporário para mostrar cada valor. A temperatura da CPU será mostrada em um fator de 0.1 unidades de Kelvin. Por exemplo, se a temperatura do CPU for 27455, isto se traduz como 2745,5 graus Kelvin. Você deverá converter a temperatura para a unidade que quer mostrar. O exemplo abaixo faz a iteração e mostra a temperatura da CPU em Celsius:

    For Each q As ManagementObject In s.Get() Dim tmp As Double = CDbl(q("CurrentTemperature")) tmp = (tmp – 2732) / 10.0 MessageBox.Show(tmp.ToString) Next

Dicas & Advertências

  • Não se esqueça de converter a temperatura para um string, pois é um valor "double", e tais valores não podem ser mostrados em uma caixa de diálogo.
  • A seguinte fórmula converte o valor em Fahrenheit, caso você não queira mostrar a temperatura em Celsius: tmp = ((tmp – 2732) / 10.0) * (9 / 5) + 32.
  • Se você achar que as instruções são confusas, provavelmente não compreende os conceitos básicos de Visual Basic. Busque na seção de recursos um tutorial que o ajudará.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível