バイナリー演算を勉強したい

バイナリーの計算を勉強したいので、
サンプルのコードを書いて頂けますか。

例題として、
1バイトの項目a、bにヘキサでそれぞれ数値を入れ、
その差額(b-a)を求め、
差額の10分の1を項目aに加える

10進数で書けば以下の通りですが、
これをバイナリーの世界で勉強したいのです。
項目の定義の仕方から、実演算式まで、
宜しくお願いします。

＜10進法でのコードです。＞
Sub sample1()
Dim a As Integer
Dim b As Integer
Dim w As Single
a = 28
b = 200
w = b - a
w = w / 10
a = a + w
MsgBox a & "," & b & "," & w
End Sub

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/04/19 15:51

VBAで使用できる整数の型は以下の通りです。

①1バイト　整数型　Byte 0～255
②2バイト　整数型　Integer -32768～32767
③4バイト　整数型　Long -2147483648～2147483647

16進数を扱う場合、上記の型のどれを使用しても良いですが、
1バイトということなので、Byte型を使います。

10進数の28は16進数の1C
10進数の200は16進数のC8 です。
16進定数の1Cは、1Cの前に&Hをつけて、&H1C　のように記述します。
この時点で、&H1C　と 28 は同じ値となっています。（表記法が違うだけです）

Public Sub sample()
Dim a As Byte
Dim b As Byte
Dim w As Single
a = &H1C '=28
b = &HC8 '=200
w = b - a
w = w / 10
a = a + w
MsgBox a & "," & b & "," & w
End Sub

実行結果：
45,200,17.2
と表示されます。

この回答へのお礼

何時も的確な、かつ完璧な回答、
ありがとうございます。
出来ました。
これで、取っ掛かりが出来たので、
奥を広げてみます。
お世話になりました。

またいつものこと、ベストは選べないので、お許しを。

お礼日時：2023/04/19 16:41