vb4 binary manipulation

Does anybody know how i can rotate a binary number?

eg from

110000110101

to

101011000011


TIA


Comments

  • : Does anybody know how i can rotate a binary number?

    : eg from

    : 110000110101

    : to

    : 101011000011


    : TIA


    Private Sub Command1_Click()

    Dim w As Integer

    Dim x As Integer

    Dim y As String

    Dim z As String

    w = Len(Text1)

    For x = w To 1 Step -1

    y = Mid(Text1, x, 1)

    z = z & y

    Next

    Text2 = z

    End Sub


Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories