بررسی یک عدد به صورت بیتی

[سپهر-111]

سلام دوستان

من یک بایت دارم که میخوام به صورت بیتی ، اون مورد بررسی قرار بدم . . .


مثلا 140 = 10001100

حالا میخوام از صفر یا یک بودن ، بیتهای اول و دوم و سوم با خبر بشم ؟!

چطور میتونم این کار انجام بدم

باتشکر از دوستانی که وقت میزارن و جواب میدن

[ho3ein.3ven]

سلام بر شما
اول عدد را به مبنای 2 برده و بعد سه رقم سمت چپ را جدا می کنیم . به صورت زیر :

Private Sub Command1_Click()
p = ""
num = Text1.Text
If num = 0 Then
n = 0
GoTo kj
End If
Do While num <> 1
h = num Mod 2
p = p & Str(h)
num = num \ 2
Loop
p = p & "1"
n = StrReverse(p)
kj:
n = Replace(n, " ", "")
Label1.Caption = Left(n, 3)
End Sub

موفق باشید

[سپهر-111]

سلام دوستان

من یک بایت دارم که میخوام به صورت بیتی ، اون مورد بررسی قرار بدم . . .


مثلا 140 = 10001100

حالا میخوام از صفر یا یک بودن ، بیتهای اول و دوم و سوم با خبر بشم ؟!

چطور میتونم این کار انجام بدم

باتشکر از دوستانی که وقت میزارن و جواب میدن


ممنون از دوستان
این تابع را نوشتم

Public Function DecimalToBinary(ByVal InputByte As Byte) As String

Dim C As Long
Dim D As String
Dim F As Byte

For F = 1 To 8
C = InputByte Mod 2
InputByte = InputByte \ 2
D = Str(C) + D
Next
DecimalToBinary = D

End Function