purebasic.info
http://purebasic.info/phpBB3ex/

Не соблюдается условие процедуры.
http://purebasic.info/phpBB3ex/viewtopic.php?f=5&t=4661
Страница 1 из 1

Автор:  Kirya859 [ Пт фев 24, 2017 12:19 pm ]
Заголовок сообщения:  Не соблюдается условие процедуры.

Если сделать вот так,то ничего не будет происходить по задуманному и кнопка не будет нажиматься,а если эту процедуру сделать в нормальном виде,то есть в рипит вставить селект,то кнопка будет нажиматься.В чем причина?
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
OpenWindow(0,0,0,100,100,"")
StickyWindow(0,1)
EditorGadget(366,0,0,0,0)
old_txtcolor.s="Синий"
Procedure u(i)
  Select i
        Case $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$F,$A,$B,$C,$D,$E,$5,$6,$7,$8,$9,$4,$3,$2,$3C,$2C,$2D
          txtcolor.s="Синий"
         Debug("1")
Default
 
  txtcolor.s="Другой"
    EndSelect
EndProcedure
 Event = WindowEvent()
        Color366 = GetPixelColor(30,205)
  k=366
   a=color366
  SetGadgetText(k,(Hex(PeekA(@a+0))))
str$=GetGadgetText(k)
  If str$
     If Mid(str$,1,1)<>"$"
        str$="$"+str$
     EndIf
     x366= Val(str$)
  EndIf
  u(x366)
  If txtcolor.s=old_txtcolor.s
  Key = #VK_A
keybd_event_(Key, 0, 0, 0)
Delay(1)
keybd_event_(Key, 0, #KEYEVENTF_KEYUP, 0)
EndIf
 


Автор:  Пётр [ Пт фев 24, 2017 12:23 pm ]
Заголовок сообщения:  Re: Не соблюдается условие процедуры.

http://www.purebasic.com/documentation/ ... lobal.html

Автор:  Kirya859 [ Пт фев 24, 2017 1:05 pm ]
Заголовок сообщения:  Re: Не соблюдается условие процедуры.

Вы меня не поняли.Смотрите,у меня есть несколько переменных,которые вообще не связаны и поэтому,я и создал процедуру.Меня интересует вопрос:"Почему при выводе процедуры в рипит у меня не происходит нажатие,которое должно происходить?Но при этом если убрать процедуру и вставить все ее содержимое в рипит и i заменить на x366 нажатие получается".Скажите,как мне сделать процедуру,что бы она выполнялась,как полагается,то есть по сценарию.

Автор:  Пётр [ Пт фев 24, 2017 1:08 pm ]
Заголовок сообщения:  Re: Не соблюдается условие процедуры.

Разве строка
Код:
1
Global txtcolor.s

добавленная в начало кода не решает проблему?

Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/