日記/2011-09-22 のバックアップ(No.2)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 日記/2011-09-22 へ行く。
  • 1 (2011-09-22 (木) 16:14:12)
  • 2 (2011-09-22 (木) 18:25:08)
  • 3 (2011-09-23 (金) 00:40:54)
  • 4 (2011-09-23 (金) 11: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) 

• Prev
• Next
• 日記