VB.NET Conversion (MHz to GHz)

Discussion in 'Mixed Languages' started by Muerto, Apr 20, 2012.

  1. Muerto

    Muerto MDL Debugger

    Mar 7, 2012
    1,855
    2,101
    60
    #1 Muerto, Apr 20, 2012
    Last edited: Jan 12, 2021
    ...
     
  2. Muerto

    Muerto MDL Debugger

    Mar 7, 2012
    1,855
    2,101
    60
    #2 Muerto, Apr 20, 2012
    Last edited: Jan 12, 2021
    (OP)
    ...
     
  3. Alphawaves

    Alphawaves Super Moderator/Developer
    Staff Member

    Aug 11, 2008
    6,218
    22,277
    210
    #3 Alphawaves, Apr 20, 2012
    Last edited by a moderator: Apr 20, 2017
    Hi incase you haven't already done it..

    Does this work for you:
    Code:
    Public Function PSpeed()
            Dim cc As String = ""
            Dim result As String = ""
            Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Processor")
            For Each Obj As ManagementObject In searcher.Get()
                cc = Obj("NumberOfCores")
                Dim speed As Double = CDbl(Obj("CurrentClockSpeed"))
                Select Case speed
                    Case Is >= 1000
                        result = String.Format("Processor: {0:0.00} GHz x " & cc, speed / 1000, 1)
                    Case Else
                        result = String.Format("Processor: {0:0.00} MHz x " & cc, speed, 1)
                End Select
            Next
            Return result
        End Function
    Usage:
    Code:
    CPUS.Text = PSpeed()
    ;)
     
  4. Muerto

    Muerto MDL Debugger

    Mar 7, 2012
    1,855
    2,101
    60
    #4 Muerto, Apr 20, 2012
    Last edited: Jan 12, 2021
    (OP)
    ...