日記/2011-10-28 の変更点

Top > 日記 > 2011-10-28
追加された行はこの色です。
削除された行はこの色です。
日記/2011-10-28 へ行く。
日記/2011-10-28 の差分を削除
**Echolink/D-STAR Gateway [#lc6db6b3]
簡易的に英語版WinXpにしたVAIO(ノートPC)でEcholink(SYSOP Mode)とDVAP+ID-91の組み合わせでEC/DST G/Wをつくり、テスト運用してみた。ID-91のコントロールは例の如くEcholinkAPIを利用。チャットにより、接続先やメッセージのセットができるようにした。
+audio設定
　音声の流れと調整箇所
　・Echolink(Single)@iPodtouch4G
　　　　↓
#ref(ID-91_SPout.JPG,right,around,60%)
　
　・Echolink(Sysop)@VAIO　←　audio出力を調整し送信時の変調度を調整する。マイクはミュート。
　　　　↓　　　　　　　　　　　　　 　適正値：マスタ２目盛り、WAVE５目盛り弱
　・ID-91(DV Mode) 　　　 　←　スピーカー出力レベル(スピーカーをモニターして
　　　　↓　　　　　　　　　　　　　　  歪が無い程度に固定する）
　・DVAPTool@ubuntu
#ref(JJ1YEG-L_audio.JPG,right,around,40%)
　
　
　・DVAPTool@ubuntu
　　　　↓
　・ID-91(DV Mode)
　　　　↓
　・Echolink(Sysop)@VAIO　←　マイク入力レベル（SP→MiC直接ではMiC目盛り１でも
　　　　↓　　　　　　　　　　　　　　歪むので、結局外部にミキサーを入れて調整）
　・Echolink(Single)@iPodtouch4G
　
+ID-91のコントロール
いつものWSHで、EcholinkAPIを利用したスクリプト(ec2dst.vbs)を作成。チャットの受け渡しにより[[UWSC]]を実行する。
 '---- ec2dst.vbs -----
 set Echo = WScript.CreateObject("EchoLink.EchoLinkSession","Echo_")
 set ws = CreateObject("WScript.Shell")
 
 ac=0
 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 & "--------------")
                ac = 1
 
 	Case "mcq"
 		ws.Run "c:\appli\uwsc\uwsc.exe c:\appli\uwsc\10.uws"
                ac = 1
 
 	Case "mu"
 		ws.Run "c:\appli\uwsc\uwsc.exe c:\appli\uwsc\11.uws"
                ac = 1
 
 中略
 End Select	
 Echo.SendChatText (mis & "[OK]")
 
 End Select
 If ac = 1 Then
	Echo.SendChatText (mis & "[OK]")
	ac = 0
 Else
	Echo.SendChatText (mis & "[???]")
	Echo.SendChatText ("Again or Next cmd:[?]")
 End If
 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)


#clear
#comment
#navi(日記)