|
GetCentralProcessorSpeed
(XAPI2000)
Deklaration
Function GetCentralProcessorSpeed () As Double
Beskrivning
Mäter och returnerar den klockfrekvens (i MHz) som datorns centralprocessor
(CPU) arbetar i. Mätningen tar ca en sekund.
Denna funktion fungerar med alla system som har lägst en Pentium-processor
(eller kompatibel) i systemet. På vissa bärbara datorer där processorn
arbetar med en variabel hastighet kan ibland resultatet bli något
annat än den förväntade. För att erhålla det värde som är nära det
som anges i datorns eller processorns specifikation kan funktionen
ReadCentralProcessorSpeed användas
istället. Den funktionen fungerar dock inte i Windows 95/98/ME (eftersom
den nyckel i Registry som avläses saknas där), men genom att kombinera
den funktionen med GetCentralProcessorSpeed enligt exemplet
nedan kan den specificerade processorhastigheten erhållas i de flesta
datorer på ett säkert sätt.
Exempel
Nedanstående exempel visar
hur funktionerna ReadCentralProcessorSpeed och GetCentralProcessorSpeed
kan kombineras för att erhålla processorns hastighet på de flesta
datorer.
Dim CPUSpeed As Integer
If IsWindowsNT() Then
CPUSpeed = ReadCentralProcessorSpeed()
Else
CPUSpeed = CInt(GetCentralProcessorSpeed())
End If
|
|
