Enumerations And Random Numbers

[One Handed Man \( OHM - Terry Burns \)]

I have a basic question thats been niggling me, but I never found time to
look at it before.
If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection
Now I want to set the Direction Randomly to one of the TravelDirection enum
values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want to
worry about coding all the changes, so how could I easily do this I know I
can do it, and I have but Im looking for the most simple solution. There
doesent seem to be a Max property for enumerations.

If this sounds dumb, then I appologise




--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--

[Cor Ligthert]

Hi Terry,

Is there a reason that it seems that you do it for me difficult? I think I
miss something.

Two times the last position of environment tickcount + 5 divided by 5 should
in my opinion do the trick.

Cor
"One Handed Man ( OHM - Terry Burns )" <news.microsoft .com>

I have a basic question thats been niggling me, but I never found time to
look at it before.
If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection
Now I want to set the Direction Randomly to one of the TravelDirection
enum values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want to
worry about coding all the changes, so how could I easily do this I know
I can do it, and I have but Im looking for the most simple solution. There
doesent seem to be a Max property for enumerations.

If this sounds dumb, then I appologise




--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--

[Herfried K. Wagner [MVP]]

"One Handed Man ( OHM - Terry Burns )" <news.microsoft .com> schrieb:

If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection

Now I want to set the Direction Randomly to one of the TravelDirection
enum values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want to
worry about coding all the changes, so how could I easily do this I know
I can do it, and I have but Im looking for the most simple solution.

\\\
Dim Values() As AnchorStyles = [Enum].GetValues(GetT ype(AnchorStyle s))
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length - 1)).ToString())
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Larry Serflaten]

"One Handed Man ( OHM - Terry Burns )" <news.microsoft .com> wrote

I have a basic question thats been niggling me, but I never found time to
look at it before.
If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection

That should be:

Direction = TravelDirection .East

Or some other specific value. You wouldn't be able to assign the
entire enum to a variable.
Now I want to set the Direction Randomly to one of the TravelDirection enum
values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want to
worry about coding all the changes, so how could I easily do this I know I
can do it, and I have but Im looking for the most simple solution. There
doesent seem to be a Max property for enumerations.
Why not use one of the values?
East
West MaxDirection = West End Enum

LFS

[Mr Newbie]

Sorry, I think I F*c(ed up here.

What I meant was how to set the variable to a Random number somwhere in the
range of the enumeration.

So Direction = ( Some Random Number In the Range )

I dont want to explicitly set it like this

Direction = RandomNumber( 0, 10)

I was looking for something more like

Direction = RandomNumber.ne xt( 0, MyEnumeration.M ax )

See what I mean, I mat have missed something here

--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--
"Larry Serflaten" <se*******@usin ternet.com> wrote in message
news:eb******** ******@TK2MSFTN GP10.phx.gbl...

"One Handed Man ( OHM - Terry Burns )" <news.microsoft .com> wrote

I have a basic question thats been niggling me, but I never found time to
look at it before.
If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection

That should be:

Direction = TravelDirection .East

Or some other specific value. You wouldn't be able to assign the
entire enum to a variable.

Now I want to set the Direction Randomly to one of the TravelDirection
enum
values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want
to
worry about coding all the changes, so how could I easily do this I know
I
can do it, and I have but Im looking for the most simple solution. There
doesent seem to be a Max property for enumerations.

Why not use one of the values?

East
West

MaxDirection = West

End Enum

LFS

[Larry Serflaten]

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote

Dim Values() As AnchorStyles = [Enum].GetValues(GetT ype(AnchorStyle s))
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length - 1)).ToString())

The maxValue of Next needs to be one greater than the last value desired:

Dim Values() As AnchorStyles = CType([Enum].GetValues(GetT ype(AnchorStyle s)), AnchorStyles())
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length)) .ToString())

LFS

[Herfried K. Wagner [MVP]]

"Larry Serflaten" <se*******@usin ternet.com> schrieb:

Dim Values() As AnchorStyles = [Enum].GetValues(GetT ype(AnchorStyle s))
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length - 1)).ToString())

The maxValue of Next needs to be one greater than the last value desired:

Dim Values() As AnchorStyles =
CType([Enum].GetValues(GetT ype(AnchorStyle s)), AnchorStyles())
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length)) .ToString())

ACK, I should have read the documentation.. . ;-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Larry Serflaten]

"Mr Newbie" <NO********@THI SADDRESS.COM> wrote

What I meant was how to set the variable to a Random number somwhere in the
range of the enumeration.

So Direction = ( Some Random Number In the Range )

As Herfried shows, the best solution is to add the members to an array, and
pick some random value out of the array. It may be that the values in the Enum
are NOT sequential, so that you can't just pick some number from 0 to some
max value. With the actual Enum values in an array, you can be sure picking
one element of the array will give you some value that is actually in the Enum.

Make sense?

BTW, another route would be something like this:

Dim pick As Integer() = New Integer() {TravelDirectio n.North, TravelDirection .South, _
TravelDirection .East, TravelDirection .West}

test = pick(Rnd.Next(0 , 4))
;-)
LFS

[One Handed Man \( OHM - Terry Burns \)]

Thanks 2 both, i've used something similar in the past but its just a shame
this was not built in to an enum class.

Cheers

--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:uT******** *****@TK2MSFTNG P11.phx.gbl...

"Larry Serflaten" <se*******@usin ternet.com> schrieb:

Dim Values() As AnchorStyles = [Enum].GetValues(GetT ype(AnchorStyle s))
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length - 1)).ToString())

The maxValue of Next needs to be one greater than the last value desired:

Dim Values() As AnchorStyles =
CType([Enum].GetValues(GetT ype(AnchorStyle s)), AnchorStyles())
Dim r As New Random
MsgBox(Values(r .Next(0, Values.Length)) .ToString())

ACK, I should have read the documentation.. . ;-).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[One Handed Man \( OHM - Terry Burns \)]

Cheers Cor

--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--
"Cor Ligthert" <no************ @planet.nl> wrote in message
news:%2******** **********@TK2M SFTNGP09.phx.gb l...

Hi Terry,

Is there a reason that it seems that you do it for me difficult? I think
I miss something.

Two times the last position of environment tickcount + 5 divided by 5
should in my opinion do the trick.

Cor
"One Handed Man ( OHM - Terry Burns )" <news.microsoft .com>

I have a basic question thats been niggling me, but I never found time to
look at it before.
If I have an enumeration such as this

Fiend Enum TravelDirection
North
South
East
West
End Enum

and

Direction = TravelDirection
Now I want to set the Direction Randomly to one of the TravelDirection
enum values

If I know that my enum is between 1 and 4 I can easily get a new random
number and assign it, however, As I add to the enumeration, I wont want
to worry about coding all the changes, so how could I easily do this I
know I can do it, and I have but Im looking for the most simple solution.
There doesent seem to be a Max property for enumerations.

If this sounds dumb, then I appologise




--
OHM ( Terry Burns ) * Use the following to email me *

Dim ch() As Char = "ufssz/cvsotAhsfbuTpmv ujpotXjui/OFU".ToCharArra y()
For i As Int32 = 0 To ch.Length - 1
ch(i) = Convert.ToChar( Convert.ToInt16 (ch(i)) - 1)
Next
Process.Start(" mailto:" & New String(ch))
--