日記/2011-10-28 のバックアップ(No.3)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 日記/2011-10-28 へ行く。
  • 1 (2011-10-28 (金) 15:40:48)
  • 2 (2011-10-29 (土) 16:41:28)
  • 3 (2011-10-30 (日) 14:51:53)
  • 4 (2011-10-30 (日) 16:50:26)

Echolink/D-STAR Gateway

簡易的に英語版WinXpにしたVAIO(ノートPC)でEcholink(SYSOP Mode)とDVAP+ID-91の組み合わせでEC/DST G/Wをつくり、テスト運用してみた。ID-91の操作コントロールは例の如くEcholinkAPIを利用。チャットにより、接続先やメッセージのセットができるようにした。

1. audio設定
   　音声の流れと調整箇所
   　・Echolink(Single)@iPodtouch4G
   　　　　↓
   
   　
   　・Echolink(Sysop)@VAIO　←　audio出力を調整し送信時の変調度を調整する。マイクはミュート。
   　　　　↓　　　　　　　　　　　　　 　適正値：マスタ２目盛り、WAVE５目盛り弱
   　・ID-91(DV Mode) 　　　 　←　スピーカー出力レベル(スピーカーをモニターして
   　　　　↓　　　　　　　　　　　　　　 歪が無い程度に固定する）
   　・DVAPTool@ubuntu
   
   　
   　
   　・DVAPTool@ubuntu
   　　　　↓
   　・ID-91(DV Mode)
   　　　　↓
   　・Echolink(Sysop)@VAIO　←　マイク入力レベル（SP→MiC直接ではMiC目盛り１でも
   　　　　↓　　　　　　　　　　　　　　歪むので、結局外部にミキサーを入れて調整）
   　・Echolink(Single)@iPodtouch4G
   　
2. ID-91のコントロール
   いつものWSHで、EcholinkAPIを利用したスクリプト(ec2dst.vbs)を作成。チャットの受け渡しによりUWSCを実行する。

   '---- ec2dst.vbs -----
   set Echo = WScript.CreateObject("EchoLink.EchoLinkSession","Echo_")
   set ws = CreateObject("WScript.Shell")
   
   sw=0
   Do while sw=0
   wscript.sleep 5000
   loop
   Wscript.Quit
   sub Echo_ChatTextReceived(sText)
   mis = Mid(sText,8,32)
   Select Case mis
   	Case "#h"
   		Echo.SendChatText ("-------" & vbCrLf & "mcq mu" & vbCrLf & "--------------")
   
   	Case "mcq"
   		ws.Run "c:\appli\uwsc\uwsc.exe c:\appli\uwsc\10.uws"
   
   	Case "mu"
   		ws.Run "c:\appli\uwsc\uwsc.exe c:\appli\uwsc\11.uws"
   中略
   End Select	
   Echo.SendChatText (mis & "[OK]")
   end sub

   ・以下はUWSCスクリプトの一例

   '---- 10.uws ----
   ACW(GETID("RS-91","TForm"),659,546,319,492,0)
   MOUSEORG(GETID("RS-91","TForm"))
   BTN(LEFT,CLICK,131,10,10)
   BTN(LEFT,CLICK,133,128,181)
   BTN(RIGHT,CLICK,133,128,300)
   BTN(LEFT,CLICK,165,139,230)
   BTN(LEFT,CLICK,156,40,80)

• Prev
• Next
• 日記