Что нового

Запуск случайной функции

Delima6

Новичок
Сообщения
7
Репутация
0
Всем привет!
Подскажите пожалуйста как запустить случайную функцию!
Есть лист функций
f1()
f2()
f3()
f4()
f5()

как с помощью random запустить любую слуйчайно выбранную?
 

Alecsis

Знающий
Сообщения
30
Репутация
15
Привет!
Если «в лоб», то что-то в этом роде:
Код:
; ──────────────────────────────────────────────────────────────────────────────
Local $i
;
While True             ; выход по клику на Exit в трее
  $i = Random(1, 5, 1)
  Switch($i)
    Case 1
      F1()
    Case 2
      F2()
    Case 3
      F3()
    Case 4
      F4()
    Case Else
      F5()
  EndSwitch
Wend
;
Func F1()
  MsgBox(0, 'Test', 'Запуск F1')
EndFunc
;
Func F2()
  MsgBox(0, 'Test', 'Запуск F2')
EndFunc
;
Func F3()
  MsgBox(0, 'Test', 'Запуск F3')
EndFunc
;
Func F4()
  MsgBox(0, 'Test', 'Запуск F4')
EndFunc
;
Func F5()
  MsgBox(0, 'Test', 'Запуск F5')
EndFunc
 

joiner

Модератор
Локальный модератор
Сообщения
3 362
Репутация
586
как вариант
Код:
HotKeySet('{Esc}', '_exit')
Local $arrayfunc[5] = ['f1()', 'f2()', 'f3()', 'f4()', 'f5()']
Local $Random

While 1
    $Random = Random(0, 4, 1)
    Execute($arrayfunc[$Random])
    Sleep(500)
WEnd

Func f1()
    ConsoleWrite(111 & @LF)
EndFunc   ;==>f1
Func f2()
    ConsoleWrite(222 & @LF)
EndFunc   ;==>f2
Func f3()
    ConsoleWrite(3333 & @LF)
EndFunc   ;==>f3
Func f4()
    ConsoleWrite(4444 & @LF)
EndFunc   ;==>f4
Func f5()
    ConsoleWrite(5555 & @LF)
EndFunc   ;==>f5

Func _exit()
    Exit
EndFunc   ;==>_exit
 
Верх