.net - Dice Roller for any sided dice in VB.Net -

.net - Dice Roller for any sided dice in VB.Net -

i wanting create dice roller user can take number of sides on dice , randomise response, current code chucks out same number of time.

sub rolldie(byval sides integer) dim rand single = rnd() cnt integer = 1 sides if rand < cnt / sides diceroll = cnt exit end if next console.writeline("you rolled {0} sided die landed on {1}", sides, diceroll) end sub

i think improve putting of die logic class , using system.random class generate random numbers this:

public class die private _sides integer private shared _generator new system.random '<<<one prng no matter how many dice public readonly property sides integer homecoming _sides end end property public sub new(sides integer) _sides = sides end sub ''' <summary> ''' returns random number between 1 , number of sides of die ''' </summary> ''' <returns></returns> ''' <remarks></remarks> public function roll() integer homecoming _generator.next(1, _sides + 1) end function end class

then can utilize this:

dim elevensideddie new die(11) debug.writeline("you rolled a(n) {0} sided die landed on {1}", elevensideddie.sides, elevensideddie.roll)

.net vb.net random dice