will der streit? gleich schalt ich ihn aus

Code: Alles auswählen
d.b = %00000001
b.b = %11111100
Debug b | d ; = %11111101
Debug %11111100 | %00000001

Code: Alles auswählen
d.b = %00000001
b.b = %11111100
Debug b | d ; = %11111101
Debug %11111100 | %00000001
Code: Alles auswählen
d.a = %00000001
b.a = %11111100
Debug b | d ; = %11111101
Debug %11111100 | %00000001
Code: Alles auswählen
Procedure.b Byte(value.b)
ProcedureReturn value
EndProcedure
d.b = %00000001
b.b = %11111100
Debug b | d ; = %11111101
Debug Byte(%11111100 | %00000001)
Code: Alles auswählen
d.b = %00000001
b.b = %11111100
Debug (b | d) & $FF ; = %11111101
Debug %11111100 | %00000001
bei der Gelegenheit kannst Du bitte auch mal den BetreffMax_der_Held hat geschrieben:wird sofort berichtigt
danke!Max_der_Held hat geschrieben:ne ok kein Problem
Code: Alles auswählen
byte.b
bodenimage = 2
woodart = 3
bergart = 1
belagart = 0
byte = (bodenimage )<< 6 | woodart <<3 | bergart << 1 | belagart
Debug "bodenimage: " + Str( ( (byte >> 6) & %00000011))
Debug "Woodart: " + Str( ( ( byte >> 3 & %00000111 )))
Debug "bergart: " + Str( ( (byte >> 1) & %00000011) )
Debug "belagart " + Str ( (byte ) & %00000001)