Sub WriteBit(ByRef Data As byte,ByVal BitIndex As Integer, ByVal NewBit As Boolean)

If NewBit = True Then
Data = Data And Math.Pow(2, BitIndex)
Else
Data = Data And (&HFF - Math.Pow(2, BitIndex))
End If

End Sub

Function ReadBit(ByRef Data As byte,ByVal BitIndex As Integer) as Boolean

return (Data And Math.Pow(2, BitIndex))) / Math.Pow(2, BitIndex)

End Sub

創作者介紹

傑克鼠的下午茶

傑克鼠 發表在 痞客邦 PIXNET 留言(3) 人氣()


留言列表 (3)

發表留言
  • edw
  • 您好,經過我測試的結果,程式碼似乎有些問題
    我沒有辦法修改byte中的bit值
    byte傳近去修改後並沒有改變
  • edw
  • 剛發現問題了...如果byte裡面都是0,那麼會無法讀寫其中的bit
  • Terence
  • 寫入的部分
    Data = Data And Math.Pow(2, BitIndex)

    改成

    Data = Data Or Math.Pow(2, BitIndex)

    就可以了
找更多相關文章與討論