Конференция VBStreets

**Ruslan Demidow** » 16.03.2005 (Ср) 22:10

sashar2
А бета-тестеры не люди что ли? :roll:

**sashar2** » 17.03.2005 (Чт) 6:32

1) Да люди, но вообще в каких-то постах раньше это писалось.

2) Я вот знаю, чтобы передать файл человеку, у котого нет vb можно воспользоваться утилитой Package & Deployment Wizard, вот я нашел какие файлы она сохраняет помимо самой программы:

[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,7/15/00 12:00:00 AM,101888,6.0.84.50
File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5/31/98 12:00:00 AM,22288,4.71.1460.1
File3=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/8/00 5:00:00 PM,16896,2.40.4515.0
File4=@ASYCFILT.DLL,$(WinSysPathSysFile),,,6/8/00 5:00:00 PM,143632,2.40.4515.0
File5=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,6/8/00 5:00:00 PM,164112,5.0.4515.0
File6=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,8/29/02 10:20:30 AM,569344,3.50.5016.0
File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,2/23/04 8:42:40 PM,1386496,6.0.97.82

Если убрать все не нужно, то вот что выходит:
VB6STKIT.DLL,$(WinSysPathSysFile)
COMCAT.DLL,$(WinSysPathSysFile)
STDOLE2.TLB,$(WinSysPathSysFile)
ASYCFILT.DLL,$(WinSysPathSysFile)
OLEPRO32.DLL,$(WinSysPathSysFile)
OLEAUT32.DLL,$(WinSysPathSysFile)
msvbvm60.dll,$(WinSysPathSysFile)

Значит эти файлы записываюются в папку System, а как мне в установщике прописать тоже самое? Или может быть эти dll можно просто в папку с программой кидать и будет все ок?

3)Что вот это за строка в приложении Client-Server, такая строка встречается и у клиента и у сервака, если ее нет или она хоть чуть-чуть изменена, то коннекта не происходит. Главное я смотрел значение переменной requestID, в моем случае значение оказалось 108, не знаю, что бы это могло обозначать. Скажи плиз кто знает:

Private Sub WinSock1_ConnectionRequest(ByVal requestID As Long)
WinSock1.Close
WinSock1.Accept requestID
End Sub

P.S>
Результатов чего-то мало....

GM » 17.03.2005 (Чт) 8:17

3)2Sashar2:
WinSock1.Accept requestID - подтвереждение коннекта

Кстати для более высокой точности для измерения времени, можеш юзать QueryPerformanceCounter.

**sashar2** » 17.03.2005 (Чт) 16:40

GM
1) Насчет первого случайно не знаешь?
2) Насчет WinSock я так и подозревал.
3) Пойду поищу в справочнике, если не пойму, то спрошу, но думаю это не понадобится.

**dimix** » 17.03.2005 (Чт) 21:24

Прикольно, у Sashar2 появился персональный раздел сайта, где уже чего только не обсуждалось

В принципе, и сабж вполне подходящий, чего не напиши - все в тему.

Только нельзя просить много помочь, для этого нужно создать отдельную тему

**sashar2** » 17.03.2005 (Чт) 22:49

dimix
Шутник, лучше бы результатов больше было... хотя бы столько же сколько и раньше.

Еще хочу сообщить всем, что я разобрался в DLL, теперь то все ясно... Все необходимые DLL файлы должны находиться:
1) В папке с программой, либо:
2) В Windows\SYSTEM
Вот так вот! Правда эти DLL занимают около мега..., но зато на любом компе и без тупых инсталяторов.

GM » 17.03.2005 (Чт) 22:59

Celeron 1300 - 424152409

**sashar2** » 17.03.2005 (Чт) 23:02

GM
Спасибо больше за поддержку, да ты мне вообще много чем помог... Только вот компьютер ты видимо нагрузил во время теста... Просто у меня есть запись:
Intel Celeron 1000 MHz - 458 080 983...

GM » 17.03.2005 (Чт) 23:24

Ну да чуть загруженый. Только чо то не видно было что приложение получает реал-тайм приоритет?

**sashar2** » 17.03.2005 (Чт) 23:29

GM
А в чем дело? Раньше кстати я мог два теста без потери производительности запустить а сейчас не могу... будет меньше результат , да и больше сейчас он стал вроде... Скажи что не так?

**xolod** » 17.03.2005 (Чт) 23:42

Результат: 3 309 421 553.
Время выполнения: 3289 миллисекунд.

**sashar2** » 17.03.2005 (Чт) 23:53

Очень большое время выполнения странно... По прошлым данным у тебя комп обгонял меня в 6 раз, а здесь в 3.5, может быть два проца не задействованы?
Еще придется сделать тройную проверку, надесюсь xolod через день не затруднит пройти мой тестик еще раз...

**sashar2** » 18.03.2005 (Пт) 0:07

Вывешиваю новую версию программы, для особо мощных компов и более точной проверки результата.
Предупреждаю! Тест длится дольше!

**xolod** » 18.03.2005 (Пт) 0:56

2 sashar2
Все ессено выполняется на одном процессоре. Или ты сделал расспаралеливание?

**sashar2** » 18.03.2005 (Пт) 1:09

xolod
Конечно же нет

. Когда будет я тебе сообщю, но скорее всего моего умения не хватит... Хотя посмотрю, если через два дня не будет результата - значит я не смог и мне нужно помоч.

GM » 18.03.2005 (Пт) 2:44

sashar2 писал(а):GM
А в чем дело? Раньше кстати я мог два теста без потери производительности запустить а сейчас не могу... будет меньше результат , да и больше сейчас он стал вроде... Скажи что не так?

ИМХО ты что то не то сделал с приоритетом. Вот выкладываю пример, по этому тесту результат вроде бы стабильный.

**Ruslan Demidow** » 18.03.2005 (Пт) 11:27

Cel 1000

Время выполнения: 27 297
Результат : 393355250

**Qubicz** » 18.03.2005 (Пт) 13:31

682477485/15733
А как насчет того, чтобы выводить вместо знач/с знач/мс?
Или типа попугаев 682477485\15733

AMD Athlon XP 2000+

**sashar2** » 18.03.2005 (Пт) 15:34

Qubicz
Да я говорю, придумаю я единицу, только название надо дать, а число на которые поделить надо, это я уж найду...

И напиши пожалуйста, что за проц, а то я уже забыл... сорри.

**hCORe** » 18.03.2005 (Пт) 19:17

P4 2000 MHz, 1024 Mb RAM, 721067640 pts/14891 ms

**sashar2** » 19.03.2005 (Сб) 9:37

Пожалуй база теперь стала побольше, и я сделаю список для сравнения с другими процессорами, как вы и хотели. А единица измерения будет vps или ips. Как я думаю...

**sashar2** » 19.03.2005 (Сб) 11:04

GM
Спасибо тебе за пример, кстати у тебя дизайн мне больше понравился, можно его использовать?
Эх, я наверное никогда так не буду писать

, хотя я на vb с появления на этом форуме и до этого не было опыта с другими языками, но всеравно...

**sashar2** » 19.03.2005 (Сб) 12:11

И немного мне объясни про tm, думаю это замена GetTickCount ? Только чего-то она большая вышла... эта замена. Кстати теперь другие приложения будут меньше влиять или вообще не буду влиять?

**sashar2** » 19.03.2005 (Сб) 12:17

Новая версия.
Огромное спасибо GM ! Можно даже сказать это его версия

.
Мне понравилось его рассположение элементов... Только вот хочу всетаки сделать список, для того чтобы сравнивать можно было с другими процессорами. А единицы я решил не делать, потому что результат будет не точен, а мы так долго к этому шли.

Кстати как сделать упорядочивание в списке с конца строки? Т.е сейчас придется делать:
100 - Ваша система
140 - Intel Pentium IV 2000 Mhz
А мне кажется будет красивей, если будет:
Ваша система - 100
Intel Pentium IV 2000 Mhz - 140
Вот! Еще думаю сделать файлик, тогда любой сможет добавить резульлаты!

**sashar2** » 19.03.2005 (Сб) 12:36

И вот сразу выкладываю изменную версию с файлом, где БУДУТ другие результаты... И скажите пожалуйста ваши пожелания!

**sashar2** » 19.03.2005 (Сб) 12:51

Блин, надо что-то делать с упорядочиванием!!! У меня вообще не выходит

. Даже как я сказал... Жду вашей помощи...

GM » 20.03.2005 (Вс) 7:48

Насчет tm*, это я просто юзаю high-resolution performance counter, для более высокой точности. Приложения не должны влиять, у меня например тест давал практически равные результаты, в любых случаях.
Мой результат - 650 161 564.

Блин, надо что-то делать с упорядочиванием!!! У меня вообще не выходит . Даже как я сказал... Жду вашей помощи...

Точнее можеш сказать, что с ним.

ЗЫ Дизайн, понятно что можеш использовать.

**sashar2** » 20.03.2005 (Вс) 12:31

GM
Я немного выше писал, сейчас у меня список выглядит так:
1 111 111 111 - проц
2 222 222 222 -
233 543 542 -
423 434 134 -
607 234 325-
Это как пример, я хочу чтобы результаты упорядочивались от лучшему (вверху списка) к низшему (внизу списка), а сейчас у меня наоборот да еще и не правильно. Желательно (но это уже не обязательно), чтобы писался сначало процессор, а потом результат, я этоого не делал потому что трудно упорядочивать потом. В идеале вместо примера выше должно быть так:
проц - 2 222 222 222
проц - 1 111 111 111
проц - 607 234 325
проц - 423 434 134
проц - 233 543 542
Помоги пожалуйста придти к такому результату...
Видимо придется считывать информацию из второй части строки, здесь темой выше приводили пример, кстати он будет работать:
Dim data as string
Open "data.txt" For Input As #1
data = Input(LOF(1), 1)
Close #1
Dim rez() As String
rez() = Split(data, vbCrLf)
MsgBox rez(3)
Если нет, то надо что-то другое.
А после изъятия строки ее надо будет поочередно сравнивать с другими строками и таким образом узнать индекс строки.
И вот можно сделать как я сказал? И как можно сделать проще?
P.S>
За резрешение использовать твое оформление спасибо!

**sashar2** » 20.03.2005 (Вс) 12:34

Вот выкладываю программу с базой, но криво упорядочивающимся списком, который и предстоит исправить.

**sashar2** » 20.03.2005 (Вс) 12:44

Вот это помогло считать часть строки, ту часть, где результат:
===
Open "data.txt" For Input As #1
Input #1, score, processor
MsgBox processor
Close #1
===
Если data:
===
535352225,celeron
===
Вот, но проблему с упорядочиванием так и не решена.

Конференция VBStreets

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

Кто сейчас на конференции