Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Presbiopia - la 43 ani ?

Termen transcriere autovehicul

Cazare Timisoara pe 4-5 zile

Primele zile ale internetului per...
 Ditra 25

Casti USB-C ptr A-54

Aplicatie medicala / asistent med...

De ce vor atația politicieni...
 ERR_ADDRESS_UNREACHABLE

Legea 18/1968 Se mai aplica?

Digi conectare 2 routere prin fir

Succesiune notar versus instanta ...
 Montaj aer conditionat in balcon ...

Cont curent mulți valuta far...

Sugestii plan casa

Experiente cu firme care cumpara ...
 

frecventa procesor

- - - - -
  • Please log in to reply
5 replies to this topic

#1
ianus

ianus

    Active Member

  • Grup: Members
  • Posts: 1,046
  • Înscris: 01.02.2005
salut ! stie cineva vre-o functie utilizabila in VB care sa detecteze frecventa procesorului? sub Win XP? multumesc

#2
RAZ

RAZ

    Member

  • Grup: Members
  • Posts: 1,227
  • Înscris: 15.10.2004
Salut, citeste din registry ... frecventa o gasesti in
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz ;)

#3
bibi

bibi

    Active Member

  • Grup: Members
  • Posts: 1,183
  • Înscris: 05.02.2003
VB.NET (nu stiu daca merge in VB.6)

'1. Add Reference to System.Management.dll
'2.add: Imports System.Management
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		
		Label1.Text = ""
		Dim moSearch As New ManagementObjectSearcher("Select * from Win32_Processor")
		Dim moReturn As ManagementObjectCollection = moSearch.Get
		'Dim mo As ManagementObject
		For Each mo As ManagementObject In moReturn
			Label1.Text = mo("CurrentClockSpeed")
			Exit Sub

		Next
	End Sub


______
mod edit: use code tags please


Edited by RAZ, 19 April 2006 - 17:03.


#4
bibi

bibi

    Active Member

  • Grup: Members
  • Posts: 1,183
  • Înscris: 05.02.2003
In loc de   ("CurrentClockSpeed")  poti sa pui:
("Availability")
("Caption")
("CpuStatus")
("CurrentClockSpeed")
("DeviceID")
("Level")
("Name")
("ProcessorId")
("ProcessorType")
("SystemName")

Edited by bibi, 10 April 2006 - 13:28.


#5
nekhbet

nekhbet

    Junior Member

  • Grup: Members
  • Posts: 150
  • Înscris: 03.06.2004
Private Function GetCPUSpeed() As String
Dim MyOBJ
Dim cpu
Dim tmpstr As String

Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")

For Each cpu In MyOBJ
   tmpstr = cpu.CurrentClockSpeed & " MHz" & vbNewLine
Next
GetCPUSpeed = tmpstr
End Function

Ar trebui sa mearga pentru orice so mai nou decat win98

______
mod edit: use code tags please



#6
ianus

ianus

    Active Member

  • Grup: Members
  • Posts: 1,046
  • Înscris: 01.02.2005
Multumesc mult pentru indicatii, mi-au fost de folos. de faza cu cititul din registrii stiam si eu, insa prefer mai degraba o functie a windowsului.

Ar mai fi o modalitate, si anume scrierea unei functii in asamblare intr-un DLL care sa foloseasca RDTSC. Partea proasta este ca trebuie sa ai in plus un fisier DLL iar mie nu-mi place sa existe decat fisierul executabil singur.

Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate