Генератор случайных ЧИСЕЛ

«генерация случайных чисел слишком важна, чтобы оставлять её на волю случая». Кавью

 Генератор псевдослучайных чисел (ГПСЧ, англ. pseudorandom number generator, PRNG) — алгоритм, порождающий последовательность чисел, элементы которой почти независимы друг от друга и подчиняются заданному распределению (обычно равномерному).

 В этой статье мы не будем разрабатывать свою ГПСЧ, а будем использовать уже готовую, предоставленную языком программирования VB.net.

 На форму поместим кнопку, 3 текстовых поля(1 из них сделаем многострочным), и 2 ярлыка под описание.

Public Class Form1

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

 Dim r As New Random 'случайность)

 Dim bk ' 1 < ak < bk, граница генерируемых чисел 1 до bk-1

 Dim ak ' случайное число от 1 до bk-1

 Dim max 'колво чисел (для цикла)


 'очищаем текстовое поле

 txtRez.Text = "ak = "

 'из текста в переменную

 bk = Val(txtBk.Text)

 max = Val(txtMax.Text)


 Randomize() 'функция генерации случайных чисел

 For i = 1 To max 'цикл получения новых случ в количестве MAX

 ak = r.Next(1, bk) 'создание случ числа

 txtRez.Text += Str(ak) + ", " 'записываем в текстполе новое случ число

 Next

 End Sub

End Class

Запускаем проект, и в зависимости от введенных чисел, у нас будут получаться различные последовательности.

макс количество выберем 10, что бы увидеть "случайность",

bk - выберем 35.

Вот получаемые примеры цепочек случайных чисел

ak =  1,  9,  11,  27,  19,  9,  25,  34,  27,  16,

ak =  31,  31,  20,  2,  34,  24,  8,  29,  34,  16,

ak =  30,  12,  14,  26,  2,  1,  25,  15,  23,  15,

На основе этой программы возможно создать генератор простых паролей(а если добавить большие и маленькие буквы, то и сложных).

смотреть видеоурок

END