CWコンテスト中、他バンドでマルチが欲しくてQSYリクエストをする際、これまではすべて手打ちでしたが、手打ちを極力なくしたいと思い、Win-Test用の LUA Scriptを考えてみました。私の場合、通常QSOをログする場合、プラスキーをリダイレクトしたピリオドキーで通常のQSL message ("TU 9M6NA")、F3キーをリダイレクトした Shift+ピリオドキーで Short QSL message ("TU")ですが、これに加え、Alt+ピリオドキーで Short QSO message に続けて "PSE QSY 〇〇〇〇〇"(〇〇〇〇〇=ネットワーク上のもう1台のPCに接続したリグの周波数)を送出しようと言うものです。以下、そのScriptです。
---- ここから
wtKeyer:Play("$F3") -- F3キーに入れてある Short QSL Messageを送出
MyFreq = ( wtRadio:GetFreq() - wtRadio:GetFreq() % 1000 ) /1000 -- 自PC接続のリグ周波数を取得しMHz台の整数に
-- 上記MyFreqからBand No. 1~6に変換
if (MyFreq == 1) then MyBand = 1
elseif (MyFreq == 3) then MyBand = 2
elseif (MyFreq == 7) then MyBand = 3
elseif (MyFreq == 14) then MyBand = 4
elseif (MyFreq == 21) then MyBand = 5
elseif (MyFreq == 28) then Myband = 6
end
-- 以下をBand No.1から6(160mから10mに相当)まで繰り返す
for BandNr = 1, 6 do
-- Band No. 1~6を Band 160m~10mに変換
if BandNr == 1 then Band = 160
elseif BandNr == 2 then Band = 80
elseif BandNr == 3 then Band = 40
elseif BandNr == 4 then Band = 20
elseif BandNr == 5 then Band = 15
elseif BandNr == 6 then Band = 10
end
Freq = wtStatus:GetFreq(Band,"CW") -- ネットワーク上のリグに該当Bandの周波数があれば読み出し
-- 該当の周波数がなかったり、周波数が読み出せなかったり、自PC接続のリグと同じバンドの場合次のバンドへ (自PC接続のリグの周波数も読み出してしまうので、その場合も想定)
if (Freq == 0) or (Freq == 1800) or (Freq == 3500) or (Freq == 7000) or
(Freq == 14000) or (Freq == 21000) or (Freq == 28000) or (MyBand == BandNr)
then
else
-- 該当Bandの周波数が見つかった場合は PSE QSY に続けて その周波数を送出し、Scriptを抜ける
wtKeyer:Play("PSE QSY")
if BandNr == 1 then wtKeyer:Play("$FREQ160") wtKeyer:Play("$FREQ160")
elseif BandNr == 2 then wtKeyer:Play("$FREQ80") wtKeyer:Play("$FREQ80")
elseif BandNr == 3 then wtKeyer:Play("$FREQ40") wtKeyer:Play("$FREQ40")
elseif BandNr == 4 then wtKeyer:Play("$FREQ20") wtKeyer:Play("$FREQ20")
elseif BandNr == 5 then wtKeyer:Play("$FREQ15") wtKeyer:Play("$FREQ15")
elseif BandNr == 6 then wtKeyer:Play("$FREQ10") wtKeyer:Play("$FREQ10")
end
return
end
end
-- どのBandにも該当がない場合はエラー表示
wtApp:MessageBox("No QSY Frequency!",0,"Freq Error")
---- ここまで
この他、Ctrl+1 で ”PSE QSY 〇〇〇〇〇 〇〇〇〇〇"送出、Ctrl+2で ”〇〇〇〇〇”(周波数だけ)送出のScriptも用意しました。
これで随分QSYリクエストが楽になりますが、一つ心配も。相手が気心の知れたコンテスターであれば、いきなり "PSE QSY" でも良いでしょうが、そうでない場合はちょっと失礼かな…とも思います。まず "QSY 〇〇m?" と聞いて、"R" と返って来たら QSY周波数を伝える、と手順を踏むべきでしょうか?これをご覧いただいた方から、ご意見いただければ、うれしいです。