none
Obter informações do sistema RRS feed

  • Pergunta

  • Ola estou a desenvolver uma aplicação para obter informações do sistema

    Como posso obter:

    • nome da placa grafica
    • memoria da placa grafica
    • memoria total do HD
    • memoria disponivel do HD
    • versão do sistema (64bits ou 32bits)

    E já agora como faço para dividir o valor de uma label ?? Tenho que fazer o seguinte calculo /1024 /1024 /1024 para converter bytes para Gb



    O meu objetivo ______ criar um sistema operativo

    terça-feira, 17 de julho de 2012 14:34

Respostas

  • da mesma maneira que se faz em qualquer lugar... faça uma função com o cálculo e peça que o texto saia com o resultado...

    'exemplo...
    '
    public sub UmaFuncao(ByVal a As Int, ByVal b As int)
    
    Dim c As Int
    'o q vc precisa fazer aqui...
    'até concluir...
    c=a+b
    
    label1.Text = String.Format ("{0}", c)
    
    end sub

    e pega o formato do label e converte pra int assim... 

    a = cType(label1.text,integer)
    'ou
    '
    a = cInt(label1.text)

     

    **A blonde girl who tries understand the world in C# and VB**

    ***_Hey, se alguém resolveu seu problema, não esquece de marcar e/ou deixar sua solução!_***

    ***** Winter is coming *****

    terça-feira, 17 de julho de 2012 17:35
  • Segue um exemplo para conseguir as informações, creio que resolve o seu problema.

    Agora deve filtrar e pegar apenas informações que são relevantes para sua implementação.

    Imports System
    Imports System.Management
    
    Public Class Form1
    
        Dim objEv As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_Environment")
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            For Each objMgmt As ManagementObject In objEv.Get
                Debug.Print(objMgmt("Name") & " = " & objMgmt("VariableValue"))
            Next
        End Sub
    
    End Class

    além de pegar as informações de "Win32_Environment" você pode usar também outros que estão no link: codeproject

    caso não tenha referência ao System.Management import.

    mais um material que foi utilizado freevbcode.



    quinta-feira, 19 de julho de 2012 13:11

Todas as Respostas

  • da mesma maneira que se faz em qualquer lugar... faça uma função com o cálculo e peça que o texto saia com o resultado...

    'exemplo...
    '
    public sub UmaFuncao(ByVal a As Int, ByVal b As int)
    
    Dim c As Int
    'o q vc precisa fazer aqui...
    'até concluir...
    c=a+b
    
    label1.Text = String.Format ("{0}", c)
    
    end sub

    e pega o formato do label e converte pra int assim... 

    a = cType(label1.text,integer)
    'ou
    '
    a = cInt(label1.text)

     

    **A blonde girl who tries understand the world in C# and VB**

    ***_Hey, se alguém resolveu seu problema, não esquece de marcar e/ou deixar sua solução!_***

    ***** Winter is coming *****

    terça-feira, 17 de julho de 2012 17:35
  • Segue um exemplo para conseguir as informações, creio que resolve o seu problema.

    Agora deve filtrar e pegar apenas informações que são relevantes para sua implementação.

    Imports System
    Imports System.Management
    
    Public Class Form1
    
        Dim objEv As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_Environment")
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            For Each objMgmt As ManagementObject In objEv.Get
                Debug.Print(objMgmt("Name") & " = " & objMgmt("VariableValue"))
            Next
        End Sub
    
    End Class

    além de pegar as informações de "Win32_Environment" você pode usar também outros que estão no link: codeproject

    caso não tenha referência ao System.Management import.

    mais um material que foi utilizado freevbcode.



    quinta-feira, 19 de julho de 2012 13:11
  • vou ver isso. obrigado aos dois


    O meu objetivo ______ criar um sistema operativo

    quinta-feira, 19 de julho de 2012 16:47