Author Topic: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ  (Read 2081 times)

0 Members and 1 Guest are viewing this topic.

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« on: May 12, 2017, 07:45:07 PM »
Можно ли переделать или упростить?

Code: (clickermann) [Select]
ancor:     
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")
   KEYPRESS(#L)
   WAITMS(1500)
   $an=$an+1
   IF($an>1) 
      GOTO(con)
   END_IF  //
   GOTO(ancor)
END_IF //
con:   
SOUND("EGoingUp.wav")

open_78

  • Активный участник
  • ***
  • Posts: 285
  • v4.13.014 x64
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #1 on: May 12, 2017, 08:11:01 PM »
Можно. :)
« Last Edit: May 12, 2017, 08:17:23 PM by open_78 »

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #2 on: May 12, 2017, 08:47:33 PM »
Code: (clickermann) [Select]
$check = 0
WHILE($check < 2)
   GETSCREEN
   IF_PICTURE_IN (567,488, 895,515,"lose1.bmp")
      KEYPRESS(#L)
      WAITMS(1500)
      INC($check,1)
   ELSE
      $check = 2
   END_IF
END_CYC
SOUND("EGoingUp.wav")

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #3 on: May 19, 2017, 08:05:30 PM »
Все работает нормально но думаю что та не так можно ли попроще сделать?

Code: (clickermann) [Select]
$check=0
ancor://  метка повторной проверки
GETSCREEN
if_picture_in(567,488, 895,515,"lose1.bmp")// если есть рисунок Ждите
   ancor2://   метка повтора
   KEYPRESS(#L)
   WAITMS(2000)//  ждем 2с
   
   GETSCREEN
   if_picture_in(567,488, 895,515,"win1.bmp")// если есть рисунок
      $check=0
      GOTO(ancor2)//  переход на повтор
   END_IF
   
   INC($check)
   LOGWRITE ("Сообщение",$check)
   IF($check>30) // если кол проверок превысило 30
      GOTO(con) // выходим из цикла проверок
   END_IF  //
   
   GOTO(ancor)//  переход на начало проверки Ждите
END_IF //
con://   метка выхода
SOUND("EGoingUp.wav")// звук выхода
WAIT(2)

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #4 on: May 21, 2017, 02:16:47 PM »
И в ответ тишина . :)

open_78

  • Активный участник
  • ***
  • Posts: 285
  • v4.13.014 x64
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #5 on: May 21, 2017, 04:07:37 PM »
Как понял - так и написал.
Code: (clickermann) [Select]
$check=0
WHILE($check<30)
   GETSCREEN
   IF_PICTURE_IN(567,488, 895,515,"lose1.bmp")// если есть рисунок Ждите
      $check2=0
      WHILE($check2=0)
         KEYPRESS(#L)
         WAITMS(2000)//  ждем 2с
         GETSCREEN
         IF_PICTURE_IN(567,488, 895,515,"win1.bmp")// если есть рисунок
            $check=0
         ELSE
            $check2=1
            INC($check,1)
            LOGWRITE ("Проверок ",$check)
         END_IF
      END_CYC
   ELSE
      WAITMS(50)
   END_IF
END_CYC
SOUND("EGoingUp.wav")// звук выхода
WAITMS(2000)

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
Re: ЕСТЬ ЛИ ДРУГОЙ ВАРИАНТ
« Reply #6 on: May 21, 2017, 07:51:21 PM »
спасибо работает как надо  :)