１６ビット整数の特定のビットを立てたり落としたりしたい。

Question

###前提・実現したいこと
VB.netである１６ビット整数の特定のビットを操作したいです。

例：取得値「8」の１０ビット目を立てたい。

取得型：integer
取得値：8 ビットで表すと「0000 0000 0000 1000」
操作後：1032 ビットで表すと「0000 0100 0000 1000」

値は取得できています。
あとはビットを操作するだけなのですが・・・

追記：
どのビットを操作するかは変動します。
何ビット目かは値として取得しています。

Answer 1

ビット演算子を使うと良いです。

Integer 変数aのnビット目を立てるプログラムは、次のようになります。

 x = 1;  // xは、1ビット目だけが１で、他のビットは０の値になります。
 x << (n - 1);  // x を n-1 ビットだけ左にシフトします。
         //  そうすると、nビット目だけが１で、他のビットは０の値になります。

 a = a Or x;  // OR演算子を使って、aのnビット目だけを立てます。

また、nビット目だけを下ろす（０にする）には、Not演算子を使ってnビット目だけが０の値を作り、AND演算子でnビット目だけを下ろします。

 x = 1;  // xは、1ビット目だけが１で、他のビットは０の値になります。
 x << (n - 1);  // nビット目だけが１で、他のビットは０の値になります。（ここまでは上のプログラムと同じ）

 x = Not x; // Not演算子で各ビットが反転しますから、nビット目だけが０で、他のビットは１の値になります。
 a = a And x;  // And演算子を使って、aのnビット目だけをおろします。

Comments

[Battiruno]

回答ありがとうございました。

シフトさせて立てるビットを作成してビット演算で実際にビットを立てればいいんですね。

助かりました。ありがとうございます。

Answer 2

何ビット目を立てたり落としたりするにはどうすればいいのかが
思いつきません。

Integer ですと、プラスマイナスになるので
可能であれば、ULong:64ビット、UInteger:32ビット
の使用を検討してください。
'
ヒント：
10進数表記：1,2,4,8,16,32,64,128 ...
16進数表記： はどうなるでしょう
2進数表記： はどうなるでしょう
数値に対して、ＡＮＤ／ＯＲをするとは、どう云う事を行っているのでしょうか？
⇒基礎なので、丁寧に検索すれば、探せます。
ＰＬＣをやっている方であれば、理屈は解っているはずです。

Answer 3

ビットをOFFにしたいならNotでビット反転させた物とAndで論理積を求め
ビットをONにしたいならOrで論理和を求めれば望む結果が得られませんか？

Comments

[Battiruno]

回答ありがとうございます。

ビット演算に関しては理解できているのですが、
何ビット目を立てたり落としたりするにはどうすればいいのかが
思いつきません。

[HiroshiWatanabe]

bit0 は 2^0
bit1 は 2^1
bit2 は 2^2
bit3 は 2^3
なので n 番目のビットだけがONになっている数値は 2^n で求められます。
この n 番目のビットだけがONになっている数値と Or すれば目的のビットがONになります。

[Battiruno]

ありがとうございます。
おかげで光が見えてきました。

Answer 4

x = x Or &H0400

Comments

[Battiruno]

回答ありがとうございます。

質問に追記させていただきますが、
&H0400ですが、１０ビット目と限らず５や７ビット目を表す場合は
どのように計算すれば出ますでしょうか？
値として何ビット目かは取得できています。

あと、特定ビットを落とす場合はどのようにすればいいでしょうか？

Answer 5

ビット演算を行いたいとの事でしょうか。

a = 0000 0000 0000 1000
b = 0000 0100 0000 0000
c = a Or b

これで、c = 0000 0100 0000 1000
です。

「VB.net ビット演算」で検索すると、いろいろ出てきます。

公式ドキュメントは、
VB .NET プログラミングリファレンス - 3-4 演算子
こちらです。

PLCとの値のやりとりは、よくわかりません、、、すいません。

Comments

[Battiruno]

回答ありがとうございます。

ビット演算は理解できているのですが、
そこまでのプロセスがわからずに質問させていただきました。

取得してきた値を１６ビット整数に変換してビット演算・・・という感じなのでしょうか？

わかりづらい質問で申し訳ありませんでした・・・

[ItoTomonori]

取得してきた値は、integerなのでしょうか？仮にその値が、
Dim srcVal as integer
とするならば、
Dim dstVal as integer
dstVar = srcVar Or 0x0400
でよさそうですが？？？

[ItoTomonori]

もしかしてですが、
nビット目という所でつまずかれている？？？

nビット目が 1 の値は、0000 0000 0000 0001 を左に10回シフトした値ですので、

Dim bitSeed As Integer
bitSeed = 0x0001

Dim n As Integer
n = 10 '10ビット目

Dim result as Integer
result = bitSeed << (n-1)

これで、
result = &H0400 '(２進表記です)0000 0100 000 0000

が取得できます。

[Battiruno]

回答ありがとうございます。

実際その部分でつまづいていました・・・
わかりやすく解説していただきありがとうございました。

また何かあればよろしくお願いします。