hiermit kannste de und encodieren:
Code:
$regfile = "m8def.dat"
$crystal = 7372800
Declare Function M2b(byval Minput As Word) As Byte
Declare Function B2m(byval Binput As Byte) As Word
Dim W As Byte
Dim W2 As Word
Dim I As Byte
Dim I2 As Byte
Dim S As String * 16
W = M2b(&B0110011001100110)
W2 = B2m(&B01010101)
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
Function B2m(byval Binput As Byte ) As Word
For I = 7 To 0 Step -1
Select Case Binput.i
Case 0 : S = S + "01"
Case 1 : S = S + "10"
End Select
Next
B2m = Binval(s)
End Function
End
Lesezeichen