 |
|
Модераторы: Akina |
 
|
|
Помогите с random в VB, генератор случайных чисел 
| Vlood |
|
|||
|
Unregistered |
помогите пожалуйста!
мне нужно присвоить переменной a случайное значение как это сделать?? |
|||
|
||||
Загрузка ...
| Alexei |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 382 Регистрация: 20.8.2003 Репутация: нет Всего: 4 |
randomize
Dim a As Single a=Rnd |
|||
|
||||
| hobotyara |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 23 Регистрация: 15.8.2003 Репутация: нет Всего: нет |
Вопрос не очень конкретный. Какое случайное число?
Функция Rnd возвращает значение от 0 до 1 поэтому, например, если нужно чтобы было случайное целое в промежутке от [a;b], придется преобразовать dim a as long dim b as long dim Sl as long Sl=(b-a+1)*int(Rnd)+a |
|||
|
||||
| Vlood |
|
|||
|
Unregistered |
У меня при перезапуске проэкта рандом возвращает те же числа: то-есть генерирует одинаковые последоывательности чисел при каждом запуске программы. В чем может быть проблема?
|
|||
|
||||
| -Mikle- |
|
|||
 Невидимка Vingrad'а Профиль Группа: Экс. модератор Сообщений: 1672 Регистрация: 22.6.2003 Где: Казахстан, Астана Репутация: 8 Всего: 59 |
В начале функции, в которой используешь Rnd, или в Form_Load напиши оператор Randomize.
Rnd возвращает вещественное число между 0 и 1. Несколько примеров: а=Clng(Rnd*20) 'целое число от 0 до 20 a=Clng(Rnd*50)+50 'целое число от 50 до 100 a=CSng(Rnd*(-50)) 'вещественное число от -50 до 0 -------------------- Если тебе плюют в спину, значит ты впереди... |
|||
|
||||
| ~FoX~ |
|
|||
 НЕ рыжий!!! Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 10 Всего: 68 |
dim a as integer Randomize timer a = rnd*100 --------------------  …множественность никогда не следует полагать без необходимости… |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0869 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |