日記/2011-09-22 の変更点

Top > 日記 > 2011-09-22
追加された行はこの色です。
削除された行はこの色です。
日記/2011-09-22 へ行く。
日記/2011-09-22 の差分を削除
**SkyWiRES Clientの活用 [#x06f3bc3]
#ref(DV_PTT.JPG,right,around,30%)
JM7MUU本田さん作のBlueToothヘッドセットのインターフェースを持つSkyWiRES_ClientのPTTボタンの色の変化を読み取り、[[UWSC]]で[[DVTool]]のPTTボタンをON/OFFできるものを作ってみた。
''&color(Maroon){(注意）SkyWiRESと本スクリプトの関係について、本田さんへの質問などは、一切行わないで下さいネ。};'' (^_- 
''&color(Maroon){(注意）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) 

#clear
#comment
#navi(日記)