frage zu beispiel code Manchester

[andreasw3058]

Hallo

habe eine Frage zu dem Beispiel der zu download steht.

was ist /macht I2 = I / 2 und M2b.i2 = 0/1
für was wird das verwendet, könnte mir einer das erklären?


Minput.i geht doch das bit für bit durch , 1,2,3,4

Declare Function M2b(byval Minput As Word) As Byte

Dim W As Byte
Dim W2 As Word
Dim I As Byte
Dim I2 As Byte
Dim S As String * 16

'W = M2b(&B)

Function M2b(byval Minput As Word) As Byte

   For I = 0 To 15 Step 2
      I2 = I / 2
      Select Case Minput.i
         Case 1 : M2b.i2 = 0
         Case 0 : M2b.i2 = 1
      End Select
   Next

End Function
End

Lg andreas