calendar 日記/2011.09

Top > calendar - 日記

2011年 09月の日記

30
September, 2011

D-STARシステムのＧ１onＧ２化

G2機をそのままG1機に
G2をG1のみ稼動させた状態でG2関係のプログラムを一時停止させ、runlevelも一時的に変更。

chkconfig --list | grep ds
dsm             0:off   1:off   2:off   3:on    4:on    5:on    6:off
dssecd          0:off   1:off   2:off   3:on    4:on    5:on    6:off
dstar_gw        0:off   1:off   2:on    3:on    4:on    5:on    6:off
^^^^^^^^                        ^^^^^
これを取り合えずoffにしておく。
[root@dst2 etc]# chkconfig --level 2 dstar_gw off
[root@dst2 etc]# chkconfig --list | grep ds
dsm             0:off   1:off   2:off   3:on    4:on    5:on    6:off
dssecd          0:off   1:off   2:off   3:on    4:on    5:on    6:off
dstar_gw        0:off   1:off   2:off   3:on    4:on    5:on    6:off

tail -f /var/log/dsgwd.log していると、２重に吐き出されている

/etc/syslog.conf　にダブリ（最初からか、G2によるかは不明）があったのでコメントアウト
# for D-STAR
local0.*                        /var/log/dsgwd.log
local1.*                        /var/log/dscgi.log
local2.*                        /var/log/dsipsvd.log
# for D-STAR
#local0.*                        /var/log/dsgwd.log
#local1.*                        /var/log/dscgi.log
#local2.*                        /var/log/dsipsvd.log

Trackback(0)

22
September, 2011

SkyWiRES Clientの活用

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

---- 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)

Trackback(0)

08
September, 2011

温湿度計

ケースに入れて動作は正常だった温湿度計をUSBケーブルのみで使えるようにしようと、USBシリアル変換および昇圧電源モジュールを
秋月電子通商(ここ→）とストロベリー・リナクス(ここ→）から購入し、組み立てた。
1.USB-シリアル変換モジュール　　　　　　2.昇圧電源モジュール
(K-04377)　　　(CP2102)　組立て内部

Trackback(0)

01
September, 2011

ID-91のリモート

9月に入り、ID-91をSkypeからコントロールする構想ができたので、一時WiRES-Ⅱを停止させて、ＰＣと常駐ソフトも以下のとおり変更した。

VAIO（英語版）
Echolink＋mmdtmf.vbs、DVAR HotSpot*2
　→　DVAR HotSpot、Skype１
Acer（日本語版）
WiRES-Ⅱ、WiRES-Chat、Skype２、Echolink-Proxy、LcwMessenger*3
　→　Echolink＋mmdtmf.vbs、RS-91*4、Skype２＋dst_change.js*5

mmdtmf.vbs*6
EcholinkAPIを利用し、DTMFデータ　→　RFのON/OFF、時報など。また今回は同じPC上にRS-91が起動しているので、あまり効果は無いが、dst_change.jsと同じ操作ができるようにした。

'Instantiate EchoLink's Session component, and set up an event connection
Set oEchoLink = WScript.CreateObject("EchoLink.EchoLinkSession", "EchoLink_")
Set SysEchoLink = oEchoLink.SysopConfig
Set ConfEchoLink = oEchoLink.SystemConfig
中略
case "xx" 
   CreateObject("Wscript.Shell").Run "C:\archive\emirate\uwsc\txon.uws"
   Wscript.Sleep 1000
   oEchoLink.SayPhrase 4 'Online
case "xx" 
   oEchoLink.PTTActivation 1
   oEchoLink.SayString "OK OFF"
   Wscript.Sleep 1000
   CreateObject("Wscript.Shell").Run "C:\archive\emirate\uwsc\txoff.uws"
以下省略

dst_change.js
遠方よりSkypeChatでコマンドを送り、ID-91のメモリー操作を行う。
これを起動する前に、Skype4COMを組み込む参照→

var skype = new ActiveXObject('Skype4COM.Skype');
WScript.ConnectObject(skype, 'Skype_');
skype.Attach();
&nbsp;
while(true){
  WScript.Sleep(1000);
}

function Skype_MessageStatus(msg, status){
 if(status == skype.Convert.TextToChatMessageStatus('RECEIVED')){
	var sh = new ActiveXObject( "WScript.Shell" );
   var user = msg.FromDisplayName;
   var body = msg.Body;
   var chat = msg.Chat;
	switch (body){
		case "#cq":
			sh.Run( "C:/archive/emirate/uwsc/p20.uws");
			chat.SendMessage(user + '\n' + 'Your:CQCQCQ');
			beak;

		case "#u":
			sh.Run( "C:/archive/emirate/uwsc/p21.uws");
			chat.SendMessage(user + '\n' + 'Your: ______U');
			beak;
以下省略

p20.uws
UWSCにより画面操作を記録したもの*8

ACW(GETID("RS-91","TForm"),987,542,283,382,0)
BTN(LEFT,CLICK,1103,555,300)
BTN(LEFT,CLICK,1096,660,300)
KBD(VK_CTRL,DOWN,50)
KBD(VK_CTRL,DOWN,50)
KBD(VK_RETURN,DOWN,50)
KBD(VK_CTRL,UP,50)