Протестируйте VPR3!

[beefon]

VPR - программа для тестирования вычислительной мощи процессора. 2-я версия, может если кто-то скачивал, неправильно определяла VPR-рейтинг проца, но в 3-й версии я реализовал другой алгоритм.
Протестируйте пожалуйста, и результаты тоже напишите, для пополнения таблицы сравнения мощи процессоров!

http://bbs.vbstreets.ru/download.php?id=1918

[Sirik]

Оценка моего проца = 72.1 VPR/сек
Проц: AMD Mobile Athlon XP-M 2500+ (твоя прога определили его частоту как 1876 МГц)

[|kerish|]

Оценка моего старичка = 32,7 VPR/сек.
AMD Duron 850 Mhz. (Твоя прога определила его частоту как 859 Mhz)

[Tarantul]

У меня процесор Pentium 4 2.66, прога определила это правильно (2672MГц). А вот что-то VPR-ов дала мало-61,5. Но при тесте загрузка процесора была 50%, а, наверно должна быть сто

[beefon]

Нет, при тесте загрузка процессора должна быть 50%.
Самое главное, что при интерпритации проги (т.е. когда ее запускаешь из среды бейсика) загрузка процессора достигает всех 100%, а в откомпилированном варианте всего-лишь 50! Но загрузка 50% есть на 3 компах, даже на 4-х получается (вместе с Tarantul-овским).

Процессоры AMD вроде как с математикой лучше работают, чем Intel. Может быть поэтому у тебя, Tarantul, реультат такой.
А объем кэша, температуру правильно показывает?

[beefon]

Я понял, почему только на 50% процессор заружается. Поэтому я выложил обновленный вариант!
Там рейтинг получается гораздо выше. Протеструйте, пожалуйста!

http://bbs.vbstreets.ru/download.php?id=1918

[Sirik]

140.5 !!!

Кстати, у кого какая рабочая температура не проце?
У меян всегда от 65 и више (в программе показана как 75)

[hCORe]

Intel Pentium 4 Northwood, 2004 MHz, 86.5 VPR/s
Кстати, почему для Интеловских процессоров отображается зловещая надпись "КЭШ:0, Температура:(знак градуса)"?

[beefon]

Я температуру и кэш определяю через WMI, так что все вопросы к нему!
А вообще на PIII 800 кэш определяется (256Кб) и температура тоже (43,5).

[Tarantul]

Провел я тест на обновленной версии, и получил 110 VPR.
Напомню, что у меня Pentium 4 2.66.
К стати, у меня так же как у hCORe'а кэш равен нулю и температура не показывается(только знак градуса)

[KiloGraf]

P3 - 900MHz
t° - °
VPR - 46,3

[beefon]

Может быть есть предложения как определять температуру и кэш иначе, не через WMI?

[Sirik]

2 beefon
Кинь кусок кода где определяется температура проца или ссылку (для личных нужд)

[beefon]

Ну что, ни у кого нет предложений? Я про кэш и температуру.

Но все равно всем спасибо за ваши результаты!

[Мамонт]

Celeron 2000 109.3 VPR/s

[HotKitten]

Celeron 800@1000MHz - 56.1VPR
а такой код на определение температыры проца я на форуме видел, и он у меня никогда не пахал (Win2k SP4, всегда говорит что 30' хотя она колеблется 27-34 градуса, при погнанном проце!, под winXP SP2 тоже проверял - так же)
этот код ???

Код: Выделить всё

Dim wbemServices  As Object, wbemObjectSet As Object
Dim Item As Object
Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"
Next

[HotKitten]

дай плизз код на определение частоты проца плизз, полезная веще!!
на мыло

[GM]

PC: Celeron 1300, - 60,4 VPR/s
2 Beefon: Кстати что бы другие проги не мешали, ты можеш установить своему процессу Real-Time приоритет.

[GM]

Щас, как раз пишу класс для определения железа:

Код: Выделить всё

Private Sub Form_Load()
Dim WMI As Object
Dim wItem As Object
Dim wObj As Object
Set WMI = GetObject("winmgmts:\\.\root\cimv2")

Set wItem = WMI.ExecQuery("Select * from Win32_Processor")
For Each wObj In wItem
MsgBox wObj.CurrentClockSpeed
MsgBox wObj.MaxClockSpeed
Next
End Sub


[beefon]

А как установить реал-тайм приоритет?

А частоту процессора я определяют с помощью DLL-ки. Где-то брал ее, по-моему даже на VBStreets.

Через WMI сейчас "не модно" определять кэш и температуру. Я хотел было делать это так же, как и CPU-Z, с помощью Panopsys... Не нашел я в инете ссылку на нее. А на сайте написано, что есть у них OCX, но ссылки на скачивание и даже на покупку его нет!

[beefon]

2 HotKitten , СПАСИБО ЗА ИСХОДНИКИ.

Всем всем всем! Скоро, в ближайшее время - сутки, не более, - выложу новую версию VPR3.4.

[beefon]

Вот обновленная версия. Только с приоритетами еще не разобрался. Но если установить приоритет реальноо времени, то ведь VPR будут другие? Прийдется заново тестировать... Долго, и не будет такой большой таблицы результатов, как сейчас.

[GM]

Если будут приоритеты, то никто не будет мешать твоей проге
Вот код:

Код: Выделить всё

Const THREAD_BASE_PRIORITY_IDLE = -15
Const THREAD_BASE_PRIORITY_LOWRT = 15
Const THREAD_BASE_PRIORITY_MIN = -2
Const THREAD_BASE_PRIORITY_MAX = 2
Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN
Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX
Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)
Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)
Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE
Const THREAD_PRIORITY_NORMAL = 0
Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT
Const HIGH_PRIORITY_CLASS = &H80
Const IDLE_PRIORITY_CLASS = &H40
Const NORMAL_PRIORITY_CLASS = &H20
Const REALTIME_PRIORITY_CLASS = &H100
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hThread As Long, hProcess As Long
    'retrieve the current thread and process
    hThread = GetCurrentThread
    hProcess = GetCurrentProcess
    'set the new thread priority to "lowest"
    SetThreadPriority hThread, THREAD_PRIORITY_TIME_CRITICAL
    'set the new priority class to "idle"
    SetPriorityClass hProcess, REALTIME_PRIORITY_CLASS
    'print some results
    Me.AutoRedraw = True
    Me.Print "Current Thread Priority:" + Str$(GetThreadPriority(hThread))
    Me.Print "Current Priority Class:" + Str$(GetPriorityClass(hProcess))
End Sub


[beefon]

Попробовал с приоритетами - получилось, что рейтинг на A-64 800MHz возрос с 61.4 до 192.6 VPR/сек!

Так что, будем заново тестировать?
Сейчас доделаю очередную "фичу", и выложу.

[Faust]

PIII 464MHz - 16.7 VPR/сек.
ЗЫ. ПОЧЕМУ??? Ну почему "...для WindowsNT, 2000, XP, 2003"? IMHO, Win98SE рулит! Неужели мы вымираем!?

[beefon]

Только на WinNT потому что модуль определения загрузки проца написан под NT. Под 98 я не уверен, что будет работать.

Выкладываю опять-таки новую версию. С приоритетами! И еще я туда добавил возможность импорта/экспорта получившихся результатов, а также некоторую базу данных с результатами, которые все могут вести сами, т.е. удалять ненужные записи, добавлять свои и... все.
ВНИМАНИЕ! Для 1-го запуска нужно запускать файл START.EXE. Он зарегистрирует нужные DLL-библиотеки в системе. А потом уже можно стартовать или файлом VPR.EXE, или START.EXE.
Старые результаты не совместимы с предыдущими версиями.

Об ошибках замеченных сообщать в форум, не стесняться!
Все постараюсь исправить.

Вот ссылка:

http://bbs.vbstreets.ru/download.php?id=1918

Да, еще во время теста курсор все равно шевелиться не будет, так что не пытайтесь двигать мышь! По крайней мере на однопроцессорных системах. А вот на P4 с Hyper Threading уже будет - проверено!

А можно как-нибудь разделить поток вычислений на 2 процессора?

[tyomitch]

А можно как-нибудь разделить поток вычислений на 2 процессора?

Запустить две нити?

[beefon]

Как запустить 2 нити?

[hCORe]

Вот, например, так:
http://bbs.vbstreets.ru/viewtopic.php?t=13775

[beefon]

Вот маленький апдейт VPR. БД приведена в порядок, и сама программа немножко подкорректирована.
Установка: разархивировать поверх старых файлов.

С нитями разобрался. Сейчас буду тестировать на двухпроцессорной машине. Если все получится, то добавлю и их.

А чего никто новую версию ни тестирует, результаты не выкладывает?