Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Imprimanta ciss rezista perioade ...

Garmin fēnix 7 / PRO / Saphi...

Care sunt cele mai mari regrete a...

Alfa Romeo Stelvio 2.2 jtd
 Intrebari srl nou

La multi ani @AndReW99!

Alegere masina £15000 uk

TVR vrea sa lanseze o platforma d...
 Strategie investie pe termen lung...

Modulator FM ptr auto alimentat p...

orange cablu f.o. - internet fara...

Robinet care comuta traseul
 A fost lansata Fedora 40

Samsung S24 plus

Imi iau un Dell? (Vostro vs others)

Abonati Qobuz?
 

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