HAMLOG開発室BBS

Re: QSOデータの共有オープン 投稿者：JG1MOU浜田

> > nnnは、1を20ビット左シフトした値、すなわち&H80000とアンドが
> > とれれば共有、ということになるかと思います。
>
> そう言う手法が良いのでしょうが、今のところは単純に１０進数を２進数に変換して右から２０桁を取得し左端の文字で判定しています。
> ２０桁に満たない事もあるので２進数にしてからゼロを２０ケ左側に加えていますが。

環境設定のチェックボックスのすべてチェックを外すと、KSet=0
共有オープンだけチェックを入れると、　KSet=524288
つまり、KSet=&H80000 です。これを使えば間違いありません。

if (nnn & 0x80000)　//　Ｃ言語
　　共有中;

if LongBool(nnn and $80000) then　// PASCAL言語
　　共有中;

if (nnn And &H80000) > 0 then　; VisualBasicたぶんこんな感じ
　　共有中;

2017/03/04(Sat) 08:19:20 [No.725]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > > > nnnは、1を20ビット左シフトした値、すなわち&H80000とアンドが > > > とれれば共有、ということになるかと思います。 > > > > そう言う手法が良いのでしょうが、今のところは単純に１０進数を２進数に変換して右から２０桁を取得し左端の文字で判定しています。 > > ２０桁に満たない事もあるので２進数にしてからゼロを２０ケ左側に加えていますが。 > > 環境設定のチェックボックスのすべてチェックを外すと、KSet=0 > 共有オープンだけチェックを入れると、　KSet=524288 > つまり、KSet=&H80000 です。これを使えば間違いありません。 > > if (nnn & 0x80000)　//　Ｃ言語 > 　　共有中; > > if LongBool(nnn and $80000) then　// PASCAL言語 > 　　共有中; > > if (nnn And &H80000) > 0 then　; VisualBasicたぶんこんな感じ > 　　共有中;
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー