Форум программистов [Powered by Invision Power Board]

Код


Option Explicit
Dim i As Integer, j As Integer, k As Integer

Const ColKl As Integer = 50
Public Gr(1 To ColKl, 1 To ColKl) As New Ground

Public Sub Generation()
Dim per As Double
Randomize Timer
    For i = 1 To ColKl
        For j = 1 To ColKl
            Gr(i, j).X = i
            Gr(i, j).Y = j
            per = Rnd(1)
            If per < 0.25 Then
                Gr(i, j).GrType = 2    
                Gr(i, j).DopType = Int(Rnd(1) * 3) + 1
                Select Case Gr(i, j).DopType
                    Case 1
                        Gr(i, j).DobMet = 0
                        Gr(i, j).DobGl = 0
                        Gr(i, j).DobFor = 25
                        Gr(i, j).DobZer = 0
                    Case 2
                        Gr(i, j).DobMet = 25
                        Gr(i, j).DobGl = 0
                        Gr(i, j).DobFor = 0
                        Gr(i, j).DobZer = 0
                    Case 3
                        Gr(i, j).DobMet = 0
                        Gr(i, j).DobGl = 0
                        Gr(i, j).DobFor = 0
                        Gr(i, j).DobZer = 25
                End Select
            Else
                If per < 0.65 Then
                    Gr(i, j).GrType = 1 
                    Gr(i, j).DopType = Int(Rnd(1) * 10) + 1
                        Gr(i, j).DobZer = CByte(Rnd(1) * 8)
                        Gr(i, j).DobMet = CByte(Rnd(1) * (18 - Gr(i, j).DobZer) / 2)
                        Gr(i, j).DobGl = CByte(Rnd(1) * (18 - Gr(i, j).DobZer - Gr(i, j).DobMet) * 2 / 3)
                        Gr(i, j).DobFor = 18 - Gr(i, j).DobZer - Gr(i, j).DobMet - Gr(i, j).DobGl
                Else
                    Gr(i, j).GrType = 0     
                    Gr(i, j).DopType = 1
                    Gr(i, j).DobMet = 4
                    Gr(i, j).DobGl = 4
                    Gr(i, j).DobFor = 4
                    Gr(i, j).DobZer = 6
                End If
            End If
        Next j
    Next i
End Sub

Цитата

Если параметр number        То функцией Rnd генерируется
Меньше нуля       Каждый раз одно и то же число, при этом аргумент number используется как начальное значение.
Больше нуля        Следующее случайное число в последовательности.
Равно нулю          Последнее сгенерированное случайное число.
Не задается         Следующее случайное число в последовательности.

Примечания
Функция Rnd возвращает значение, которое меньше единицы, но больше или равно нулю.

Cпособ генерации случайного числа в функции Rnd определяется значением параметра number:

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

Перед вызовом Rnd для инициализации генератора случайных чисел с начальным значением на основе системного таймера воспользуйтесь оператором Randomize без указания аргументов.

Цитата(neiron @ 30.4.2007, 10:11

)

т.е. тут тогда вообще нет смысла ставить какой-либо аргумент в rnd()?

Цитата(neiron @ 30.4.2007, 10:11

)

как я понимаю, можно просто randomize?

Цитата(neiron @ 30.4.2007, 10:11

)

Т.е. как я понимаю задавать 1 или оставлять пустым без разницы

Цитата(neiron @ 1.5.2007, 01:09

)

не зря же придумывали параметр... где-то когда-то он применяется? Кто-нибудь знает где и когда?

Код


Синтаксис

Rnd[(число)]

Необязательный аргумент число представляет значение типа Single или любое допустимое числовое выражение.

Возвращаемые значения

Если число:     Rnd возвращает:

Меньше нуля     Каждый раз одно и то же число, используя аргумент число в качестве опорного числа.
Больше нуля     Следующее случайное число в последовательности.
Равняется нулю     Случайное число, возвращенное при предыдущем вызове этой функции.
Не указано     Следующее случайное число в последовательности.

Дополнительные сведения

Функция Rnd возвращает значение, меньшее 1 и большее или равное нулю.
Аргумент число определяет способ генерации случайного числа функцией Rnd:
При использовании одинаковых опорных чисел получаются одинаковые последовательности случайных чисел, поскольку при генерации каждого следующего члена последовательности используется предыдущий член.
Перед вызовом функции Rnd используйте инструкцию Randomize без аргумента для инициализации генератора случайных чисел значением, возвращаемым системным таймером.

Ниже приведена формула, предназначенная для получения случайных целых чисел в заданном диапазоне:

Int((верхняяГраница - нижняяГраница+ 1) * Rnd + нижняяГраница)

Здесь верхняяГраница представляет максимальное число в диапазоне, а нижняяГраница минимальное число в диапазоне.

Примечание.   Для повторения последовательности случайных чисел следует вызвать функцию Rnd с отрицательным аргументом сразу после использования инструкции Randomize с числовым аргументом.  Повторное использование инструкции Randomize с тем же числовым аргументом не приведет к повторению предыдущей последовательности случайных чисел.

Цитата(neiron @ 2.5.2007, 01:22

)

хм... и?

Код


Private Sub Command1_Click()
Debug.Print Rnd(число)
End Sub

Код

? rnd(2)