Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: stars1981 on September 05, 2017, 03:09:45 PM

Title: Вызов подпрограммы переменной. Возможно такое реализовать?
Post by: stars1981 on September 05, 2017, 03:09:45 PM

Доброго времени суток!!! Подскажите пожалуйста, как правильно вызвать подпрограмму переменной. Пример: имеется множество подпрограмм SUB(mysub1),SUB(mysub2),SUB(mysub3) и при работе скрипта нужно вызывать каждый раз другую подпрограмму.

Title: Re: Вызов подпрограммы переменной. Возможно такое реализовать?
Post by: stars1981 on September 05, 2017, 03:37:46 PM

Поконкретней:

Code: [Select]

SUB(mysub31)
   TFCLEAR("zakonchili.txt", 0)
   STRWRITELN("zakonchili.txt","mysub32",0)
   IF($PS = 1)
      WHEELDOWN(100)
      $NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
      $NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
      $NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
      $stcoord_X = 400
      $stcoord_Y = 560
      $encoord_X = $_xmax
      $encoord_Y = $_ymax
      $percent = 100
      $colorm = 0
      $offsetX = 20
      $offsetY = -20
      #include "Zadanie.cms"
   END_IF
END_SUB
SUB(mysub31)
   TFCLEAR("zakonchili.txt", 0)
   STRWRITELN("zakonchili.txt","mysub33",0)
   IF($PS = 1)
      WHEELDOWN(100)
      $NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
      $NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
      $NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
      $stcoord_X = 400
      $stcoord_Y = 560
      $encoord_X = $_xmax
      $encoord_Y = $_ymax
      $percent = 100
      $colorm = 0
      $offsetX = 20
      $offsetY = -20
      #include "Zadanie.cms"
   END_IF
END_SUB
SUB(mysub31)
   TFCLEAR("zakonchili.txt", 0)
   STRWRITELN("zakonchili.txt","mysub34",0)
   IF($PS = 1)
      WHEELDOWN(100)
      $NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
      $NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
      $NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
      $stcoord_X = 400
      $stcoord_Y = 560
      $encoord_X = $_xmax
      $encoord_Y = $_ymax
      $percent = 100
      $colorm = 0
      $offsetX = 20
      $offsetY = -20
      #include "Zadanie.cms"
   END_IF
END_SUB
$SKIP = STRREADLN("zakonchili.txt", 1)
// здесь нужно вызывать подпрограмму, при каждом цикле ту, название которой прописалось в txt файл.


Title: Re: Вызов подпрограммы переменной. Возможно такое реализовать?
Post by: Vint on September 05, 2017, 03:40:23 PM

Можно. Но не на прямую.

Code: (clickermann) [Select]

SUB(mysub1)
    PRINT("sub1")
END_SUB
SUB(mysub2)
    PRINT("sub2")
END_SUB
SUB(mysub3)
    PRINT("sub3")
END_SUB


SUB(mysub, $numsub)
    SWITCH($numsub)
    CASE(1)
        mysub1()
    CASE(2)
        mysub2()
    CASE(3)
        mysub3()
    END_SWITCH
END_SUB

// пример
FOR($i=0, $i < 10)
    mysub(RND(1,3))
END_CYC

HALT

Title: Re: Вызов подпрограммы переменной. Возможно такое реализовать?
Post by: Vint on September 05, 2017, 03:51:35 PM

Что это во 2-м сообщении?
Почему 3 раза ПП с одним именем и почти одинаковые?

Title: Re: Вызов подпрограммы переменной. Возможно такое реализовать?
Post by: stars1981 on September 05, 2017, 04:17:54 PM

Quote from: Vint on September 05, 2017, 03:40:23 PM

Можно. Но не на прямую.

Code: (clickermann) [Select]

SUB(mysub1)
    PRINT("sub1")
END_SUB
SUB(mysub2)
    PRINT("sub2")
END_SUB
SUB(mysub3)
    PRINT("sub3")
END_SUB


SUB(mysub, $numsub)
    SWITCH($numsub)
    CASE(1)
        mysub1()
    CASE(2)
        mysub2()
    CASE(3)
        mysub3()
    END_SWITCH
END_SUB

// пример
FOR($i=0, $i < 10)
    mysub(RND(1,3))
END_CYC

HALT

Благодарю!!! Получилось.