XProfan

- Página 2 -

Jac
de
Lad

En me (XP) kommen auch algunos Minuswerte (z.B. -160). Ansonsten zwischen 0 y 65 (ni idea como se esta auswirkt, dass Soy un Zweikerner habe...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Frank
Abbing

Hm, kann ser, dass todavía una kleiner Schnitzer drin es. Funktioniert esta neue Versión porque sin Minuswerte?

Prozessortest.exe	3 kB

Hochgeladen:	13.05.2007

Ladeanzahl:
		Descargar

Sebastian
Sprenger

Nein. Schon el zweite Valor fue un -94. Danach son aún en unregelmäßigen, aber großen Abständen zwanzigmal -99 y fünf otro negative Pagar aufgetaucht. Der höchste Valor war diesmal 18, y ansonsten para größten Teil otra vez Nullen y Einsen.

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Frank
Abbing

Ok, entonces taugt el Technik nichts y yo voluntad ellos no más verfolgen...
Gracias a todos Tester!!!!!

Kompilieren Marca Separación

¿Por qué no simplemente CallNtPowerInformation

sys.getcpuspeed{

    Declarar Callmem#
    Dim Callmem#,24
    Externo(powrprof.dll,CallNtPowerInformation,11,0,0,Callmem#,24)
    long mhz=Largo(Callmem#,8)
    Disponer Callmem#
    volver mhz

}

25.05.2007 ▲

iF´s Vorschlag kriege Yo no para laufen. Habs auch como PROC intenta, aber el con volver liefert irgendwie no Zahl, sagen el Errors... Bitte como verwende Yo el sys.xx{ } en XProfan10a - Gracias en el voraus...
Saludo,
Pájaro carpintero

Kompilieren Marca Separación

Also que aquí funktioniert doch bastante hervorragend:

cls
imprimir sys.getCPUSpeed()
waitKey
end

sys.getCPUSpeed{

    mem mem=24
    external("powrprof.dll","CallNtPowerInformation",11,,,mem,24)
    long mhz=long(mem#,8)
    disponer mem
    volver mhz

}

Kompilieren Marca Separación

Jörg
Sellmeyer

Yo denke, Usted hast XPSE al Werk. Damit kannst Usted lo doch simplemente starten. Ansonsten:

Proc sys.getcpuspeed

    Declarar Callmem#
    Dim Callmem#,24
    Externo("powrprof.dll","CallNtPowerInformation",11,0,0,Callmem#,24)
    Var mhz&=Largo(Callmem#,8)
    Disponer Callmem#
    volver mhz&

ENDPROC

Imprimir sys.getcpuspeed()
WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Jörg
Sellmeyer

Hier es una Ejemplo en C++: [...]

, el auch mehrere Kerne berücksichtigt.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Aso!!! Mein Fehler war, Yo no alles klein geschrieben hatte...
DANKE, se ejecuta en XP nun einwandfrei...

- Página 3 -

Jörg
Sellmeyer

Außer beim Funktionsaufruf con "CallNtPowerInformation", juega el Groß/Kleinschreibung eigentlich ningún papel. Was hast Usted porque groß geschrieben?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...