Backup of 日記/2011-09-22(No. 4)

Backup list
View the diff.
View the diff current.
View the diff for visual.
View the source.
Go to 日記/2011-09-22.
- 1 (2011-09-21 (Wed) 21:14:12)
- 2 (2011-09-21 (Wed) 23:25:08)
- 3 (2011-09-22 (Thu) 05:40:54)
- 4 (2011-09-22 (Thu) 16:01:02)

SkyWiRES Clientの活用

JM7MUU本田さん作のBlueToothヘッドセットのインターフェースを持つSkyWiRES_ClientのPTTボタンの色の変化を読み取り、UWSCでDVToolのPTTボタンをON/OFFできるものを作ってみた。
(注意）SkyWiRESと本スクリプトの関係について、本田さんへの質問などは、一切行わないで下さいネ。 (^_-

---- dv_ptt2.uws ----
ACW(GETID("SkyWiRES 2010 Ver0.94 (Powered by
JM7MUU)","#32770"),-5,19,434,477,0)
MOUSEORG(GETID("SkyWiRES 2010 Ver0.94 (Powered by JM7MUU)","#32770"))
BTN(LEFT,DOWN,180,13,343)
MMV(180,13,10)
BTN(LEFT,UP,180,13,141)
MMV(180,13,374)
MMV(153,200,10)
MMV(153,200,499)
ct = 0

While True
//    x = G_MOUSE_X;  y = G_MOUSE_Y
   x = 150;  y = 210
   c = PeekColor(x, y)
        ifb blue(c) > 200 then
          ifb ct = 1 then
             ct = 0;
             print blue(c) + ",CT=" + ct ;
             app = exec("D:\Appli\Emirate\UWSC\uwsc.exe D:\Appli\Emirate\UWSC\dvptt.UWS");
          endif
        endif
   Sleep(0.5)
   x = 150;  y = 210
   c = PeekColor(x, y)
         ifb bule(c) < 200 then
           ifb ct = 0 then
             ct = 1;
             print blue(c) + ",CT=" + ct ;
             app = exec("D:\Appli\Emirate\UWSC\uwsc.exe D:\Appli\Emirate\UWSC\dvptt.UWS");
           endif
         endif
   Sleep(0.5)
Wend

function  blue(c)
   Result = (c and $FF0000) / $10000
fend

---- dvptt.uws ----
ACW(GETID("DVTool 2.0beta4","QWidget"),0,492,643,545,0)
MOUSEORG(GETID("DVTool 2.0beta4","QWidget"))
BTN(LEFT,CLICK,250,15,281)
BTN(LEFT,CLICK,453,510,281)

Backup of 日記/2011-09-22 (No. 4)

SkyWiRES Clientの活用