Прошу немного помоч

[sashar2]

Вот я быстро написал программу буквально 17 строчек, для выяснения от чего зависит скорость работы программы. Смысл в том, что в течении 10 секунд идет цикл, который присваивает +1 к i. И вот я думаю от чего зависит скорость выполнения этой операции. Вот запустил прогу на 600 пентаке там выдало 29000, потом на своем селерочике (2500) вышло 32000, но хард у меня на селероне очень плохой стоит. Запускал мой друг селерон 2800 у него выдало 881119 !!! Я не понял из-за чего... Опера сто пудов здесь не причем, видео тоже, ну проц у него немного лучше, но не на столько же! Вот только харды у нас уж очень различаються. Вот и хочу чтобы:
1) Вы протестили и написали релультат с параметрами вашего компьютера
2) Сказали от чего это зависит

P.S>
А может быть просто моя программа не правильно работает?

[Amed]

1) На моём Celeron 1200 результат - 17254...

[sashar2]

Больше никто не прверял что ли?
Может быть это еще зависит от настроек винды?
Вроде бы задача не сложная, неужели ни у кого нет 10 секунд или ответа на вопрос, который должен был уже за такое время существования языка решиться.

[sashar2]

И еще, кто-нибудь знает как справиться с мерцанием объекта при движении? Я хотел бы перейти на Direct3d, но в инете инфы почти не нашел и наверное надо будет ехать искать книги...

[Qubicz]

4640338 AMD Athlon 2000+
Код такой:

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

Option Explicit
Dim yess As Boolean, i As Long
Private Sub Form_Load()
i = 0
yess = False
Do Until yess
DoEvents
i = i + 1
Loop
End Sub
Private Sub Timer1_Timer()
yess = True
MsgBox i
Clipboard.Clear
Clipboard.SetText i
Unload Me
End Sub

[sashar2]

to Qubicz
Это у тебя результаты в твоем коде или в моем?
В тоем у меня 1732626.
Кстати из-за чего в твоем коде программа не "зависaет"? У меня ясно, у меня все останавливаеться при несовпадении условий, а вот у тебя...

[sashar2]

Кажеться до меня дошло, у тебя не дает зависать:
DoEvents
Правильно? Ведь это тормозит процесс что ли? Просто у меня код почти такой же, различие в until и while и нет этой строки...

[Qubicz]

Он самый DoEvents

[sashar2]

Очень странно... Ну ладно спасибо, вообщем-то проблема решена !

P.S>
Теперь пойду с 3D разбираться.

[A.A.Z.]

Intel P4 1800

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

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Form_Load()
Dim T&, I&
T = GetTickCount
While GetTickCount - T < 10000
I = I + 1
Wend
MsgBox I
End Sub

33636607
[edit]Ага, а с DoEvents гораздо меньше 3027985 [/edit]

[sashar2]

у тебя тоже интересный кодик.

[tyomitch]

Люди, я может чего-то не понимаю... А в чём фишка-то? Только в том, что выполнение DoEvents занимает время?

[A.A.Z.]

Нет, изначально вопрос был про хдд А я свое слово вставил просто так

[tyomitch]

А хдд при чём?

Может, ещё на направление ветра за окном обращать внимание?

[Demonx]

Intel P4 1800

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

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Form_Load()
Dim T&, I&
T = GetTickCount
While GetTickCount - T < 10000
I = I + 1
Wend
MsgBox I
End Sub

33636607
[edit]Ага, а с DoEvents гораздо меньше 3027985 [/edit]

AMD Athlon 1800+ - 48676281

[Qubicz]

2 A.A.Z. AMD Athlon XP 2000+(частота 1768 MHz) - 54276010
Почему пентиум так отстает?

[HotKitten]

Celeron 800@1000MHz 1149761

[GM]

Комп перегруженый, Intel Celeron 1300
40222905
Да, частота менше чем в компьютера A.A.Z. Так почему же Пентиум отстает?

[hCORe]

Процессор - Pentium 4 2004 MHz Northwood
Память - 1 Гб.
Условия работы - открыто 4 приложения, всего работает 38 процессов. Загрузка ЦП - 4-5%
Результат - 42953655

[Faust]

Эх, где вы такие машины берете...
Мои показатели:
Celeron 416MHz
32 Mb RAM
HDD: Fujitsu 8.4 Gb 7200 об/мин
14362940

[A.A.Z.]

Хм... Самому стало интересно... Перезагрузил, вошел в Millenium...43276010 Странно

[sashar2]

to A.A.Z.
Объясни пожалуйста свой код, просто ОЧЕНЬ интересно. В твоем коде показывает ~56 000 000.

[sashar2]

От винды вижу тоже зависит в XP немного медленее работает.

to A.A.Z.
Всетаки очень жду твоего ответа...

[sashar2]

Теперь это будет эталоном скорости , а мой пример как всегда самый дерьмовый.

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

Option Explicit
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
Dim T&, I&
T = GetTickCount
While GetTickCount - T < 10000
I = I + 1
Wend
MsgBox "Ваш компьютер перерабатывает " & Int(I / 10) & " значений в секунду", vbOKOnly, "CPU Test"
Clipboard.Clear
Clipboard.SetText Int(I / 10)
Unload Me
End Sub


P.S>
Сильно извиняюсь за количество сообщений! Просто я сейчас с модема, а не модеме проще написать чем исправить... дома придеться править.

[tyomitch]

А, до меня доходит... Люди, похоже, свой бенчмарк собрались написать?

[KDima]

Celeron 2.4
5557971

[GSerg]

5557971

Классический номер телефона из голливудского фильма

[KDima]

5557971

Классический номер телефона из голливудского фильма

Хм... я так тоже подумал

[sashar2]

Dim T&, I&
Вот эта строка не понятна, что означает & после переменной?
GetTickCount
Тоже не очень понятно, ясно только то, что использует библиотеку Lib "kernel32".
И о While и Wend почти ничего не слышал...
Уж, помогите немного =), всетаки раздел для новичков...
to tyomitch
А что неплохая идея, вот только жалко тест очень не стабильный будет...

[KDima]

Хм... даже необычно....
Бенчмарк, который зависит даже от движений мышки.