нужен генератор

[Роман Волков]

мен бы код такого типа. когда я нажимаю по книпке в textboxe1 генерируются произвольно несколько цифр или одна. помогите, если кто знает! спасибо!

[xolod]

А что, RND отменили уже?

[Роман Волков]

Что это ещё! Я очень мало знаю VB, совсем мало. Мне просто нужен код. А если мен его пояснят, то это будет просто замечательно!

[A.A.Z.]

Rnd - функция, возвращающая "случайное" число. Для полной "случайности" рекомендую использрвать процедуру Randomize. Пример:

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

Sub CommandButton1_Click()
Randomize
TextBox1.Text = RandomNumber(1, 99)
End Sub

Function RandomNumber(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long
RandomNumber = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
End Function

'ПОЯСНЕНИЕ
'Процедура нажатия на кнопку CommandButton1
'Генерируем случайные числа заново
'Присваиваем свойству Text объекта TextBox1 значение функции RandomNumber, которая возвращает целое случайное число от 1 до 99 (это задается в ее параметрах)
'Конец процедуры
'
'Функция целого типа RandomNumber(Значение самого маленького возможного целого числа, Значение самого большого возможного целого числа)
'Присваиваем значению этой функции формулу (взятую из http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctrnd.asp) для получения случайного целого числа из указанного промежутка
'Конец функции

Будет еще что-то непонятно - спрашивай!

[xolod]

Ох, ну не ужели в лом купить книгу и почитать про самые-самые азы???

Чтобы вывести число в диапазоне от LowerBound до UpperBound, следует использовать этот код

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

MyValue = Int((UpperBound * Rnd()) + LowerBound)


[xolod]

Ну вот, опаздал

[ism]

Randomize лутше поставить на Form_Load(), несколько раз подряд инициализировать генератор случайных чисел некчему

[Sedge]

А еще лучше - использовать Randomize (Timer)

[Роман Волков]

Спасибо всем - я попробую разобраться. Там ещё кто-то писал, что книгу не могу купить. Я то могу, но я столько книг покупаю, что не на все хватает. Вот недавно купил книгу o php. 200р - отдал. была и по vb, но она стоила 320р. А зачем вообще форумы народ? Вы считаете, что какие-то книжки лучше Вас объяснят? Мне кажется, что нет!!!

[GSerg]

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

[Роман Волков]

Всё разобрался!
Использовал чисто этот код:
Sub CommandButton1_Click()
Randomize
TextBox1.Text = RandomNumber(1, 99)
End Sub

Function RandomNumber(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long
RandomNumber = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
End Function

[A.A.Z.]

[off]
Ага Значит, я прав, чел в VBA пишет

когда я нажимаю по книпке в textboxe1

[/off]