Random function 1 - 4

[I Hate My Computer]

I need to create a random code to run a function 1 - 4. i.e. random number is 1 so it runs function 1 random number is 2 so it runs function 2. I would like to have this in VBA because that is all I have.

Thanks for your support.

[Killer42]

I need to create a random code to run a function 1 - 4. i.e. random number is 1 so it runs function 1 random number is 2 so it runs function 2. I would like to have this in VBA because that is all I have.

Generate a value into a variable using the rnd function, then use Select Case to make the decision.

[I Hate My Computer]

Generate a value into a variable using the rnd function, then use Select Case to make the decision.

When you say that do you mean something like this:

Select Case KeyCode
Case vbKeyEscape
    End
    GO.Visible = False
Case vbKeyLeft
    G_Ship.Left = (G_Ship.Left - 18)
Case vbKeyRight
    GO.Visible = False
    G_Ship.Left = (G_Ship.Left + 18)
Case vbKeyUp
    GO.Visible = False
    G_Ship.Top = (G_Ship.Top - 18)
Case vbKeyDown
    GO.Visible = False
    G_Ship.Top = (G_Ship.Top + 18)
End Select

If so is their something I should put as the case. If not can you give me an example?

[Killer42]

When you say that do you mean something like this:

Select Case KeyCode
Case vbKeyEscape
    End
    GO.Visible = False
...
End Select

If so is their something I should put as the case. If not can you give me an example?

You said that you needed to "create a random code to run a function", not use a keypress. What I was suggesting was something like...

MyNumber = RND * 4 ' <-- Probably not quite correct.
Select Case MyNumber
  Case 1
    Do function 1
  Case 2
    Do function 2
  Case 3
    Do function 3
  Case 4 ' Or "Case Else"
    Do function 4
End Select

By the way, any statement following the End statement, such as the one I highlighted above, will not be executed. End causes the program to end immediately.

[I Hate My Computer]

You said that you needed to "create a random code to run a function", not use a keypress. What I was suggesting was something like...

MyNumber = RND * 4 ' <-- Probably not quite correct.
Select Case MyNumber
  Case 1
    Do function 1
  Case 2
    Do function 2
  Case 3
    Do function 3
  Case 4 ' Or "Case Else"
    Do function 4
End Select

By the way, any statement following the End statement, such as the one I highlighted above, will not be executed. End causes the program to end immediately.

I understand I was asking about how to do the case. I will be sure to take your example into consideration.

[Killer42]

I understand I was asking about how to do the case. I will be sure to take your example into consideration.

Cool.

Hope it works out.