VB Bits tauschen

[Michi (Gast)]

Hallo
Ich muß in vb ein Programm entwerfen wo ich daten über die serielle 
schnittstelle senden muß jetzt mein problem:
ich muß die bits in dem byte das ich dende tauschen also lsb als erstes. 
da ich mich leider in vb nicht so gut auskenne frage ich euch wie ich es 
am einfachsten machen kann in c++ wärs kein problem.

gruß

[Philipp B. (philipp_burch)]

Bäh, Bitmanipulationen in VB sind mühsam (Es geht doch um VB6, oder?), 
aber versuch's mal so:


Dim v1 As Byte, v2 As Byte
v2 = 0
Dim i As Long
For i = 0 To 7
  if v1 And (2 ^ i) Then v2 = v2 Or 2 ^ (7 - i)
Next i