פונקציות

[דוקטור VB]

פונקציות

יש לי שש פונקציות שעושות כל מיני דברים ואני רוצה בעזרת טיימר כל פעם לקרוא לפונקציה אחת מהשש באופן רנדומלי , יש למישהו רעיון איך עושים את זה ?

 

[1Unlimited]

ככה

Sub Timer1() dim r as integer randomize timer r=int(rnd(0)*6)+1 select case r case 1 ´ run the first function case 2 ´ run the second function case 3 ... case 6 ´ run the sixth function end select end sub​