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

**Malone32®** » 23.01.2005 (Вс) 22:21

Строю прогу (сменщик обоев для рабочего стола). Делаю так, чтобы при щелчке на Command1 в Image1 в случайном порядке (rnd) загружалось по одному изображению из List1. Но вот что я замечаю: при каждом запуске проги и щелчке на Command1 почему-то загружаются одни и те же изображения и в той же самой последовательности, а мне надо чтобы с каждым разом загружались РАЗНЫЕ..... Что я не так сделал??

Private Sub Command1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(Int(File1.ListCount * Rnd)))
End Sub

Private Sub Form_Load()
File1.Path = "F:\Docs\Pictures\Women"
End Sub

**A.A.Z.** » 23.01.2005 (Вс) 22:30

В начале процедуры используй команду Randomize. Лучше Randomize Timer.

**Malone32®** » 23.01.2005 (Вс) 22:42

Ооооооооооооо, большое тебе спасибо!!!!!!

**Zer** » 23.01.2005 (Вс) 23:09

Угу... Енто, собственно, ещё и в QBasic'е было...
А никто не знает алгоритм выбрасывания Rnd(Мда, какой-же это тогда Rnd, если есть алгоритм...)??? Ведь по-моему такой команды на асме нет, а значит енто происходит на праграмном уровне....

**A.A.Z.** » 23.01.2005 (Вс) 23:18

Учите матчасть, товарисч

http://algolist.manual.ru/maths/generator/index.php

**Zer** » 24.01.2005 (Пн) 23:45

Огромный спасиба...

**Eduard** » 30.01.2005 (Вс) 3:22

A.A.Z. писал(а):В начале процедуры используй команду Randomize. Лучше Randomize Timer.

А чем отличается просто Randomize от Randomize Timer ??

**tyomitch** » 30.01.2005 (Вс) 8:46

Eduard писал(а):
A.A.Z. писал(а):В начале процедуры используй команду Randomize. Лучше Randomize Timer.

А чем отличается просто Randomize от Randomize Timer ??

Да ничем, наверное:

If you omit number, the value returned by the system timer is used as the new seed value

**Zer** » 02.02.2005 (Ср) 0:31

Без Randomize Timer бэйсик выкидыввает одни и те-же значения в том-же порядке при разных запусках...

P.S. Кстати по той ссылке: Там всё-равно не RND, а просто равномерное распределение чисел по всему диапазону...

**Amed** » 02.02.2005 (Ср) 12:57

Zer писал(а):P.S. Кстати по той ссылке: Там всё-равно не RND, а просто равномерное распределение чисел по всему диапазону...

А не есть ли это RND. Что такое, по-Вашему, RND? Появление случайных чисел, каждое из которых не зависит от предыдущего, или коэффициент корреляции равен нулю. А также появление любого выбранного числа из диапазона равновероятно...

**Zer** » 02.02.2005 (Ср) 20:15

Да, я именно про RND, которое совершенно случайно и не зависит от предыдущего...

**uhm** » 02.02.2005 (Ср) 21:08

>Да, я именно про RND, которое совершенно случайно и не зависит от предыдущего...

Кхе-кхе, в русском языке это называется генератор псевдослучайных чисел. Псевдо - потому, что зависимость на самом деле существует. Вот с корреляцией - еще куда ни шло...

**Zer** » 02.02.2005 (Ср) 21:22

Не, не.... Вообще случайных чисел... Вот, к примеру, хватаешься за два провода... Убьёт или нет? RND.

**Ennor** » 02.02.2005 (Ср) 23:51

Чисто случайные генераторы программными не бывают, только аппаратными.

Канонический вариант - на счетчике Гейгера: бегаешь весь день по Чернобылю в пэйнтбол, а потом снимаешь с себя дозиметр и смотришь, через сколько суток можно заказывать гроб. Учитывая особенности командного пэйнтбола, количество оставшихся суток является вполне чистым Rnd-показателем.

**Amed** » 02.02.2005 (Ср) 23:55

Да нет, тут всё как раз очень линейно получается: 0 или 1, причём скорее ноль

**Zer** » 03.02.2005 (Чт) 20:01

Ну с аппаратными всё ясно... Оцифровал и порядок... Только енто больно напряжно...

**cashman** » 04.02.2005 (Пт) 0:10

По теории больших чисел, если подкинуть 1 млн. раз монетку - то соотношение орел/решка будет примерно одинакого.
Сам проверял

**tyomitch** » 04.02.2005 (Пт) 19:33

cashman писал(а):По теории больших чисел, если подкинуть 1 млн. раз монетку - то соотношение орел/решка будет примерно одинакого.
Сам проверял

Кидал миллион раз монетку? Респект :-)

Я когда-то давно от скуки проверял эту теорию - меня хватило всего на 200 или 250 подкидываний...

**GSerg** » 05.02.2005 (Сб) 0:33

Дык ты-то Тёмыч, а он-то cashman

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

Rnd

Rnd

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