; 横長の電子QSL 表形式のレポートを任意の位置に出力する ;====== コンスタント値定義 =============== #Mov $$D="FT8,FT4,JT65" ;------ 表示したい情報を編集 以下 ----------- #Mov $$C="From:!Ca QTH(運用地住所) JCC#0000" #Mov $$Q="QSOありがとうございました。" #Mov $$B="OP:氏名/Name" ;--------------------------------------------- ;======= 印字位置オフセット ============== ;この値を変更して出力位置を調整する #Mov $$X=-10 ; 左端 #Mov $$Y=470 ; 上端   ;======= サイズとJPEGファイルの指定 ====== #Size 1024,652,0x00FFFFFF ;ベース色 白 ;-- 画像ファイルを同一フォルダに置く-- ; 1024 X 652 のJPEGファイルを用意する ;下の方を透明にする命令 #Alpha 0,462,1024,190,12 ; Left, Top, Width, Height, [薄さ] #Jpg 0,0,0,0,"QSLアンテナ下Ver1.jpg" ;====== To Radio 相手局と移動判定 ======== #FontName="MS UI Gothic" #FontSize=14 #FontColor=0x000000FF ;赤 #FontStyle=3 #Print 100+$$X,10+$$Y, "To Radio " #FontSize=15 #FontColor=0x0000FFFF ;黄 #Print -1000,10+$$Y, "!cp " ? nData7 "!$$D" ; デジタル(FT8,FT4,JT65)の時は 5678へジャンプ #Goto *5678 ; デジタルでは相手局運用地がわからないので ;======= 移動(/x)の場合は QTH + "移動" とする ========= #FontSize=13 #FontColor=0x00000000 ? Potbl ;ポータブルか否か #Print -1000,10+$$Y, "!QT移動" ? Potbl! ;#Print -1000,10+$$Y, "!QT" ;-------------- *5678 ;-------------- ;======= Confirming Our QSO 印字 ================= #FontName="MS 明朝" #FontSize=13 #FontColor=0x00000000 #FontStyle=3 #Print 100+$$X, 36+$$Y, "Confirming Our QSO" ;====== レポート枠の書式設定 ====================== #FillBox 80+$$X, 60+$$Y, 370, 30, 0x00AAFFAA ;薄緑 見出し   #FillBox 80+$$X, 90+$$Y, 370, 40, 0x00FFFFFF ;白 セル色 ;0x00FFFFB5 薄水 ;0x00AAFFAA 薄緑 ;0x00FFB3FF 薄桃 ;0x00FFFFFF 白 ;0x00D9D9D9 薄灰 #FontName="MS ゴシック" #FontSize=14 #FontColor=0 #FontStyle=0 #LineS 2, 0,000  ;枠 太さ,種類,色 ;#LineS 3, 0,255 #LineR 80+$$X, 60+$$Y, 450+$$X, 130+$$Y #LineX 80+$$X, 90+$$Y, 368 #LineY 200+$$X, 60+$$Y, 69 #LineY 300+$$X, 60+$$Y, 69 #LineY 345+$$X, 60+$$Y, 69 #LineY 395+$$X, 60+$$Y, 69 ;========== レポート値セット====================== #Print 115+$$X, 68+$$Y, "Date" #Print 220+$$X, 68+$$Y, "Time" ;#Print 90+$$X, 100+$$Y, "'!DT" #Print 90+$$X, 100+$$Y, "!DY/!DM/!DD" ? UTC! #Print 210+$$X,100+$$Y,"!TH:!TMJST" ? UTC #Print 210+$$X,100+$$Y,"!TH:!TMUTC" ;====== モードによってRST,RS,dBの表示を変える========= ? nData7 "!$$D" ; デジタル #Print 310+$$X, 68+$$Y, "dB" #Goto *1234 ? End ? nData7 "CW,A1" ; CW" #Print 310+$$X, 68+$$Y, "RST" #Goto *1234 ? End #Print 310+$$X, 68+$$Y, "RS" *1234 #Print 310+$$X, 100+$$Y, "!HR" ; RST ;======== 周波数、モード出力 ============================ #Print 355+$$X, 68+$$Y, "MHz" #PrintC 350+$$X, 100+$$Y, 30,"!FR" ; 周波数帯 #Print 405+$$X, 68+$$Y, "2Way" #PrintC 400+$$X, 100+$$Y, 40,"!MD" ; モード ;========== From の定義値 !$$C 出力 ====================== #FontSize=13 #FontStyle=1 #FontColor=0x00000000    ;黒 #PrintA 80+$$X, 140+$$Y, 2,"!$$C" ;=========== リグ・アンテナ 出力 ========================= #FontSize=13 #FontStyle=1 #FontColor=0x00000000    ;黒 #Print 550, 40+$$Y, "Rig: !RG !PwW" ;リグ  #Print 550, 60+$$Y, "Ant: !AN !HimH " ;アンテナ  ;=========== !$$Q(QSOありがとう) 出力 ================== #FontSize=13 #FontColor=0x00FF0000 青 #FontColor=0x000000FF ;赤 #FontColor=0x00000000   ;黒 #FontColor=0x00FFFFFF   ;白 #Print 550,80+$$Y, "!$$Q" ;============ QSLカード 送付・受領 判定 ===============   #FontColor=0x00FF00FF ;紫  #FontColor=0x000000FF   ;赤  #FontColor=0x00FF0000   ;青  #FontColor=0x0000FF00   ;緑 #FontColor=0x0000FFFF    ;黄    ? Rcv! ;QSLカードの送受 #Print 880, 100+$$Y, "QSL PSE" ; QSL Pse ? Rcv #Print 880, 100+$$Y, "QSL TNX" ; QSL Tnx ;========= !$$B オペレータ名を出力 =========================== #FontSize=12 #FontColor=0x000000FF   ;赤 #FontColor=0x00000000   ;黒  #FontColor=0x00FF0000   ;青 #FontColor=0x00FFFFFF   ;白 #FontStyle=1 #Print 550,120+$$Y,"!$$B" ;========= QSL No 出力 ================ #FontSize=12 #FontColor=0x000000FF   ;赤 #FontColor=0x00000000   ;黒  #FontColor=0x00FF0000   ;青 #FontColor=0x00FFFFFF   ;白 #FontStyle=1 #Print 830, 140+$$Y, "QSL No.!No" ; QSL No.印刷 出力するときはコメントを外す ;======== 自局コールサイン出力 =================================== ; JPEG画像に含まれているので出力しない(コメントアウト) ;--- お好みのフォントを選択(または追加) ;#FontName="Broadway" ;#FontName="MS ゴシック" ;#FontName="メイリオ" ;#FontName="Yu Gothic UI" #FontName="Tahoma" ;#FontName="Modern No. 20" ;--- フォントのサイズ、スタイル、色を選択 #FontSize=80 #FontStyle=1 ; #FontColor=0x00FF00FF ;紫 ; #FontColor=0x000000FF   ;赤 ; #FontColor=0x00000000   ;黒 ; #FontColor=0x00FF0000   ;青 ; #FontColor=0x0000FF00   ;緑 #FontColor=0x0000FFFF   ;黄 ;--- コールサインの表示位置を指定して表示 ;#Print 50,20,"!Ca" ; 自分のコールサイン