Ik zie het al, bedankt....
Device 16F628A
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE
Dim OrgString[20] As Byte
Str OrgString = "ABCKLM" ; Data
Dim encoded As Word ; 16 bits na codering karakter
Dim Loop As Byte ; uit te lezen aantal karakters uit Orgstring
Dim OrgByte As Byte ; Karakter uit Orgstring
Dim index As Byte ; index
Dim BitValue As Byte ; te lezen/schrijven bit waarde
Dim FirstByteENcoded As Byte ; eerste byte van gecodeerde 16 bits
Dim SecondByteENcoded As Byte; ; tweede byte van gecodeerde 16 bits
Start:
For Loop = 0 To 5
OrgByte = OrgString[Loop]
For index = 0 To 7
BitValue = GetBit OrgByte , index
If BitValue = 0 Then ; (0 -> 01)
LoadBit encoded , (index * 2) , 0
LoadBit encoded , (index * 2 + 1) , 1
Else ; (1 -> 10)
LoadBit encoded , (index * 2) , 1
LoadBit encoded , (index * 2 + 1) , 0
EndIf
Next index
For index = 0 To 15
If index > 7 Then
BitValue = GetBit encoded , index
LoadBit SecondByteENcoded, (index - 8) , BitValue
Else
BitValue = GetBit encoded , index
LoadBit FirstByteENcoded , index , BitValue
EndIf
Next index
Cls
Print BIN encoded
;Print At 2, 1 , BIN SecondByteENcoded , BIN FirstByteENcoded
DelayMS 1000
Print At 2, 1 , BIN SecondByteENcoded
DelayMS 1000
Print At 2, 9 , BIN FirstByteENcoded
DelayMS 1000
Clear FirstByteENcoded:Clear SecondByteENcoded
Next Loop
End
[Bericht gewijzigd door Skyjumper op (21%)]