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

[PicNick]

Es geht darum aus den 16-Bits von Minput 8 Bits als funktios-resultat zu kriegen.
Dabei wird jedes zweite Bit ausgelassen.

I hat die Werte 0, 2, 4, 6 ...... 14
durch I2 = I / 2 --->
I2 hat die Werte 0, 1, 2, 3, ........7

Wenn also z.B. das bit Minput.4 den wert 1 hat, dann kriegt M2b.2 den Wert 0

Mit dem Manchester-Code selbst kennst du dich aus ?

[andreasw3058]

Ja mit Manchester kenne ich mich so aus.

d.h. die Funktion kann man erst benutzen wenn wen man die empfangene Manchester-Code-Folge zerlegt hat, und die Doppelttrennung von z.B. 11 gemacht hat!

Danke für die Antwort !