-
Code:
Randomize
retVal = Int((20 * Rnd) + 1)
If retVal = 1 Then Call fun1
If retVal = 2 Then Call fun2
If retVal = 3 Then Call fun3
If retVal = 4 Then Call fun4
If retVal = 5 Then Call fun5
If retVal = 6 Then Call fun6
If retVal = 7 Then Call fun7
If retVal = 8 Then Call fun8
If retVal = 9 Then Call fun9
If retVal = 10 Then Call fun10
If retVal = 11 Then Call fun11
If retVal = 12 Then Call fun12
If retVal = 13 Then Call fun13
If retVal = 14 Then Call fun14
If retVal = 15 Then Call fun15
If retVal = 16 Then Call fun16
If retVal = 17 Then Call fun17
If retVal = 18 Then Call fun18
If retVal = 19 Then Call fun19
If retVal = 20 Then Call fun20
is there a way to shorten this code?
-
One way is to just make 1 function called fun and structure it like so:
Code:
Function fun(ByVal chType as Byte) As Long
Select Case chType
Case 1
'Code for fun1
Case 2
'Code for fun2
Case 3
'Code for fun3
Case 4
'Code for fun4
'...
Case 18
'Code for fun18
Case 19
'Code for fun19
Case 20
'Code for fun20
End Function
Then you could shorten the code to
Code:
Randomize
Call fun(Int((20 * Rnd) + 1))
-