Pyrosoftware {Source code}

Home / Products / Download / Links / Contact / Work blog / Source Code

{Function to simulate the rolling of dice, you wouldn't believe how many people don't know how to do this.}

Public Function Rolldice(ByVal number_of_dice As Long, ByVal sides_per_die As Long)
Dim dicerolling As Long
For dicerolling = 1 To number_of_dice
Rolldice = Rolldice + Int(Rnd * sides_per_die + 1)
Next dicerolling
End Function