Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
casa verde 2024

Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata
 Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...
 teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN
 Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.
 

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

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

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