HAMLOG プログラム開発室

先日初めてQSLの連続印刷を「JARL指定の逆順」で印刷してましたが、
JARLが指定する順番には印刷しないようです。
例：印刷後の並びは、JAを0～9まで並べ、次にJDを0～9、次にJEを0～9
となっています。
エリア順にJA,JD,JE,JF,JGと並びません。
何か手順に間違いがあるのでしょうか？

JG1MOU 浜田OM アドバイス有難うございます。浜田OMの言うとおりだと
思います。アッセンブラとの出会いは　東京　蒲田に有りました　日本
電子工学院と言う学校で　コンピューターハードウェアコースという学
科で　習ったのが最初です。コンピューターの機械の勉強をしたのです
が　習った言語は　アセンブラが主体で COBOL や FORTRANの簡単なプ
ログラムも勉強しました。私はそのコースの　一期生です。
学校を卒業してから　２年間通信関係の会社に就職して　回路の設計の様な仕事をしていたのですが退社してその後コンピューターとは関係の
ない仕事をしています。３０年位前に　NEC より TK-80 と言うマイコン
キットが出たときに買って　組み立てて　プログラム入力して　遊んで
いるうちに　学校で習った　アセンブラを思い出しました。現在は　Z-
80 や PIC 等の CPU で遊んでいます。
私は　趣味でプログラムを組んで居ますので　冗長なコードを書くくせ
が有ります。直せる所は直していきたいと思いますので　宜しくお願い
します。いつもお世話になります。ではさようなら

> さすが　浜田OM 私の書いた説明を的確に理解されて　プログラムの

恐縮です。hi

> 以下　プログラムのコードを送ります。

私のプログラミング流儀、アマチュアなので、あくまでも我流ですが・・・

unsigned int c = 0
ですが、ループの中で必ず変数 c には代入されますので、宣言時にも
代入する必要は無いと思います。生成されるコードの効率化のため。

unsigned short mask = 0x8001;
一度しか代入しない変数は、定数にすべきと考えております。
#define MASK 0x8001;
その方が効率の良いコードが生成されるはずです。
吐き出されたアセンブリコードを見ても、変数の内容をいったんレジスタに
コピーしてからアンドをとってますので、定数にすれば直接いけるのではないでしょうか？

それから、GetAsyncKeyState() の引数は符号付き整数ですので、変数
c は int型で宣言しないとコンパイル時に警告が出るのではないでしょうか？

最近、あまりC言語やらないので、ちょっと自身がないところもありますけど。
では、がんばってください。

JG1MOU 浜田OM je6lao 長野OM アドバイス有難うございます。
早速浜田OMのプログラムを　コンパイルやアッセンブルして　動作を
確認しました。私の考えた　C++のコードと　全く同じ動作をしました。
さすが　浜田OM 私の書いた説明を的確に理解されて　プログラムの
サンプルのコードを書けるのは　すばらしいとおもいます。長野OMも
いつもアドバイスありがとうございます。私の作った CW自動交信プロ
グラムのことで　まだ２．３質問したい　事が有るのですが　日を
改めて　したいと思います。
以下　プログラムのコードを送ります。


int CONINQ (void)

{ unsigned int c = 0,a = 0;
unsigned short mask = 0x8001;
int i,
char key1[] = {'A','M','D','H','L','E'};
for (i=0; i<6; i++)
{ c = (unsigned int)key1[i];
if ((GetAsyncKeyState(c)) & mask)
a = c;
}
return a;

}

上記の　C++ のコードの MASM アッセンブリコード

PUBLIC _CONINQ ; CONINQ
EXTRN __imp__GetAsyncKeyState@4:NEAR;
Function compile flags: /Odt
_TEXT SEGMENT
_c$ = -40 ; size = 4
_mask$ = -36 ; size = 2
_key1$ = -32 ; size = 24
_i$ = -8 ; size = 4
_a$ = -4 ; size = 4
_CONINQ PROC NEAR ; CONINQ;
Line 145
push ebp
mov ebp, esp
sub esp, 40 ; 00000028H;
Line 146
mov DWORD PTR _c$[ebp], 0
mov DWORD PTR _a$[ebp], 0;
Line 147
mov WORD PTR _mask$[ebp], 32769 ; 00008001H;
Line 149
mov DWORD PTR _key1$[ebp], 65 ; 00000041H
mov DWORD PTR _key1$[ebp+4], 77 ; 0000004dH
mov DWORD PTR _key1$[ebp+8], 68 ; 00000044H
mov DWORD PTR _key1$[ebp+12], 72 ; 00000048H
mov DWORD PTR _key1$[ebp+16], 76 ; 0000004cH
mov DWORD PTR _key1$[ebp+20], 69 ;00000045H;
Line 150
mov DWORD PTR _i$[ebp], 0
jmp SHORT $L63353
$L63354:
mov eax, DWORD PTR _i$[ebp]
add eax, 1
mov DWORD PTR _i$[ebp], eax
$L63353:
cmp DWORD PTR _i$[ebp], 6
jge SHORT $L63355;
Line 151
mov ecx, DWORD PTR _i$[ebp]
mov edx, DWORD PTR _key1$[ebp+ecx*4]
mov DWORD PTR _c$[ebp], edx;
Line 152
mov eax, DWORD PTR _c$[ebp]
push eax
call DWORD PTR __imp__GetAsyncKeyState@4
movsx ecx, ax
movzx edx, WORD PTR _mask$[ebp]
and ecx, edx
je SHORT $L63357;
Line 153
mov eax, DWORD PTR _c$[ebp]
mov DWORD PTR _a$[ebp], eax
$L63357:;
Line 154
jmp SHORT $L63354
$L63355:;
Line 155
mov eax, DWORD PTR _a$[ebp];
Line 157
mov esp, ebp
pop ebp
ret 0
_CONINQ ENDP ; CONINQ
_TEXT ENDS

では　さようなら

キー入力のサブルーチンはわかりました。
このサブルーチンをどのようなタイミングで呼び出しているかが鍵だと思います。
下記はDelphiでのWindowsプログラムの一例です。
メインフォームには、Memo1とMomo2という窓があります。
F5のキーが押されたときに、フォーカスがある方に
文字fを追加します。
このコードをタイマーで繰り返し呼び出しています。
Memo1からMemo2にフォーカスを移したとき、
文字が余分にプリントされることはありませんでした。

MS-DOSとは考え方が異なるかもしれませんが、
少しでも参考になれば幸いです。

procedure TForm1.Timer1Timer(Sender: TObject);
var
f: integer;
begin
f := GetAsyncKeyState(VK_F5);

if f<>0 then
if Memo1.Focused then Memo1.Text := Memo1.Text + 'f'
else if Memo2.Focused then Memo2.Text := Memo2.Text + 'f';
end;

ループで処理すれば、もう少し簡単に記述できると思います。

int CONINQ (void)

{ int i, c;
char key1[] = {'A','M','D','H','L','E'};
for (i=0; i<6; i++)
{ c = (int)key1[i];
if (GetAsyncKeyState(c) & 0x8000)
return c;
}
return 0;
}

> 関数をもう一度呼び出せば、クリアされるようですけど。
> よその掲示板では質問者が具体的なコードを示して、
> それに対して回答者がアドバイスをするようです。
> ここでもそれが望ましいと私は考えます。
> 回答者が無駄な推測をしなくてすみます。
>
> 以下、MSDNより
>
> 関数が成功すると、前回の GetAsyncKeyState 関数呼び出し以降にキーが押されたかどうか、およ> 関数をもう一度呼び出せば、クリアされるようですけど。
> よその掲示板では質問者が具体的なコードを示して、
> それに対して回答者がアドバイスをするようです。
> ここでもそれが望ましいと私は考えます。
> 回答者が無駄な推測をしなくてすみます。
>
> 以下、MSDNより

ja6lao 長野OM　アドバイス有難うございます。キー入力サブルーチン
のソースコードを送ります。なんの為にこのサブルーチンが必要かと
いうと　CWのスピードを調整する為の変数の値を　インクリメントや
デクリメント等の操作をするためです。交信中にキーを押すのでその時
画面には　送信や受信解読した文字が表示されているので押したキーの
文字が表示されないほうが良いのです。決められた特定の文字のキーが
押されたときの後プログラムがこのサブルーチンを実行するとその文字
のコードを返しそれ以外の文字のキーを押した時やキーを押さなかった
時は　00Hを返します。文字による機能は次の通りです。

A AUTO 自動調整　　　　M MANUAL 手動調整
H スピード早く　変数のデクリメント
L スピード遅く　変数のインクリメント
E 送信又は受信の終わり

プログラム自体は WINDOWS XP の MSDOS 画面で動作します。

C++プログラムは次の通りです。


int CONINQ (void)


{
unsigned short b;

unsigned int c;

unsigned short mask = 0x8001;

c = (unsigned int)'A';

b = GetAsyncKeyState(c);

if ((b & mask)!= 0)

goto
endc;

else


{c = (unsigned int)'M';

b = GetAsyncKeyState(c);

if ((b & mask) != 0)

goto
endc;

else


{c = (unsigned int)'D';

b = GetAsyncKeyState(c);

if ((b & mask) != 0)

goto
endc;

else


{c = (unsigned int)'H';

b = GetAsyncKeyState(c);

if ((b & mask) != 0)

goto
endc;

else


{c = (unsigned int)'L';

b = GetAsyncKeyState(c);

if ((b & mask) != 0)

goto
endc;

else


{c = (unsigned int)'E';

b = GetAsyncKeyState(c);

if ((b & mask) != 0)

goto
endc;

else

c = 0; goto endc;
}
}}}}
endc:


return c;


}


上記の C++のプログラムをアッセンブルリストを出力するオプションで
コンパイルしたもの。

PUBLIC
_CONINQ



;
CONINQ
EXTRN
__imp__GetAsyncKeyState@4:NEAR;
Function compile flags: /Odt
_TEXT
SEGMENT
_c$ = -12




;
size = 4
_b$ = -8




;
size = 2
_mask$ = -4




;
size = 2
_CONINQ
PROC NEAR


;
CONINQ;
Line 145

push
ebp

mov
ebp, esp

sub
esp, 12



;
0000000cH;
Line 148

mov
WORD PTR _mask$[ebp], 32769
;
00008001H;
Line 149

mov
DWORD PTR _c$[ebp], 65

;
00000041H;
Line 150

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 151

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63352;
Line 152

jmp
$endc$63353
$L63352:;
Line 154

mov
DWORD PTR _c$[ebp], 77

;
0000004dH;
Line 155

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 156

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63357;
Line 157

jmp
$endc$63353
$L63357:;
Line 159

mov
DWORD PTR _c$[ebp], 68

;
00000044H;
Line 160

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 161

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63361;
Line 162

jmp
SHORT $endc$63353
$L63361:;
Line 164

mov
DWORD PTR _c$[ebp], 72

;
00000048H;
Line 165

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 166

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63365;
Line 167

jmp
SHORT $endc$63353
$L63365:;
Line 169

mov
DWORD PTR _c$[ebp], 76

;
0000004cH;
Line 170

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 171

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63369;
Line 172

jmp
SHORT $endc$63353
$L63369:;
Line 174

mov
DWORD PTR _c$[ebp], 69

;
00000045H;
Line 175

mov
eax, DWORD PTR _c$[ebp]

push
eax

call
DWORD PTR __imp__GetAsyncKeyState@4

mov
WORD PTR _b$[ebp], ax;
Line 176

movzx
ecx, WORD PTR _b$[ebp]

movzx
edx, WORD PTR _mask$[ebp]

and
ecx, edx

je
SHORT $L63373;
Line 177

jmp
SHORT $endc$63353
$L63373:;
Line 179

mov
DWORD PTR _c$[ebp], 0
$endc$63353:;
Line 183

mov
eax, DWORD PTR _c$[ebp];
Line 185

mov
esp, ebp

pop
ebp

ret
0
_CONINQ
ENDP



;
CONINQ
_TEXT
ENDS

どうぞ宜しくお願いします。ではさようなら

関数をもう一度呼び出せば、クリアされるようですけど。
よその掲示板では質問者が具体的なコードを示して、
それに対して回答者がアドバイスをするようです。
ここでもそれが望ましいと私は考えます。
回答者が無駄な推測をしなくてすみます。

以下、MSDNより

関数が成功すると、前回の GetAsyncKeyState 関数呼び出し以降にキーが押されたかどうか、およびキーが現在押されているかどうかを示す値が返ります。最上位ビットがセットされたときは現在そのキーが押されていることを示し、最下位ビットがセットされたときは前回の GetAsyncKeyState 関数呼び出し以降にそのキーが押されたことを示します。

> > GUIではなくて、Windows-APIが使えるのであれば、GetKeyboardState()、GetAsyncKeyState()、GetKeyState()などでしょうか。
>
> JG1MOU 浜田OM ご回答有難うございます。LOG管理ではお世話になって
> おります。GetKeyState()関数は　特定の文字キーが押されたかどうか
> チェックする為の関数だと　マイクロソフトのホームページで調べて
> その使い方も分かったのですが　自分の作った　CW自動交信プログラム
> に組み込んでやって見たのですが　決められた文字のキーを押してから
> プログラムが　GetKeyState()関数の所を通ると思った通りの動作をする
> のですが その後キー押さないで居て　２度目に　GetKeyState()関数の
> 所を通ると　最初に押された状態を記憶していて　最初に通った時と
> 同じ動作をしてしまうので　不都合が有るのですが　KeyStateの状態
> を　クリア　解除するにはどういうコマンドを書けばいいのでしょう
> か。もし分かりましたら教えて下さい。宜しくお願いします。
> ではさようなら
>

JG1MOU 浜田OM いつも有難うございます。上記の件ですが　浜田OMが
教えてくれた　GetAsyncKeyState()関数を　使ったら旨く動作しまし
た。もう１つ質問があります。上記の関数を使って　キーを押すと
旨く動作はするのですが　その情報が残っていて　他のキー入力画面
で　その文字が表示されてしまうのですが　キー入力した文字情報を
画面に表示しないで　はきださせる　捨てる　クリアーする方法はあ
るでしょうか。分かりましたら教えて下さい。宜しくおねがいします。では　さようなら

> そのソフトはGUIですか？
> だとすれば、メッセージループの中で、フォーカスのあるコントロール
> 上でキーボードが押された> そのソフトはGUIですか？
> だとすれば、メッセージループの中で、フォーカスのあるコントロール
> 上でキーボードが押されたことをチェックすればよろしいのでは？
> WM_KEYDOWN など。
>
> GUIではなくて、Windows-APIが使えるのであれば、GetKeyboardState()、GetAsyncKeyState()、GetKeyState()などでしょうか。

JG1MOU 浜田OM ご回答有難うございます。LOG管理ではお世話になって
おります。GetKeState()関数は　特定の文字キーが押されたかどうか
チェックする為の関数だと　マイクロソフトのホームページで調べて
その使い方も分かったのですが　自分の作った　CW自動交信プログラム
に組み込んでやって見たのですが　決められた文字のキーを押してから
プログラムが　GetKeyState()関数の所を通ると思った通りの動作をする
のですが その後キー押さないで居て　２度目に　GetKeyState()関数の
所を通ると　最初に押された状態を記憶していて　最初に通った時と
同じ動作をしてしまうので　不都合が有るのですが　KeyStateの状態
を　クリア　解除するにはどういうコマンドを書けばいいのでしょう
か。もし分かりましたら教えて下さい。宜しくお願いします。
ではさようなら

ことをチェックすればよろしいのでは？
> WM_KEYDOWN など。
>
> GUIではなくて、Windows-APIが使えるのであれば、GetKeyboardState()、GetAsyncKeyState()、GetKeyState()などでしょうか。