Bit schreiben / lesen

[NicTheQuick]

Ach, guck mal an. Das war anscheinend mal von mir.

[STARGÅTE]

Ich frag mich allerdings warum du (damals?) bei SetBitFalse() erst noch ein Bit setzt und dann wieder löschst ?
Also im Prinzip reich doch:

Code: Alles auswählen

Procedure SetBit(Quad.q, Bit.i, Value.i)
  ProcedureReturn Quad & ~(1<<Bit) | Value<<Bit
EndProcedure

Debug RSet(Bin(SetBit(%0000, 0, 1)),4,"0")
Debug RSet(Bin(SetBit(%0000, 3, 1)),4,"0")
Debug RSet(Bin(SetBit(%1111, 0, 1)),4,"0")
Debug RSet(Bin(SetBit(%1111, 3, 1)),4,"0")
Debug RSet(Bin(SetBit(%0000, 0, 0)),4,"0") 
Debug RSet(Bin(SetBit(%0000, 3, 0)),4,"0")
Debug RSet(Bin(SetBit(%1111, 0, 0)),4,"0") 
Debug RSet(Bin(SetBit(%1111, 3, 0)),4,"0")

Hier noch der Vollständigkeitshalber:

Code: Alles auswählen

Procedure GetBit(Quad.q, Bit.i)
  ProcedureReturn Quad>>Bit & 1
EndProcedure

Debug GetBit(%0000, 3)
Debug GetBit(%1111, 3)

Edit: SetBit geht ja noch einfacher, ohne Abfrage ^^

[Christian H]

Code: Alles auswählen

Procedure SetBit(Quad.q, Bit.i, Value.i)

Sollte man dass nicht als Makro schreiben?!

Code: Alles auswählen

Macro SetBit(var, Bit, Value)
  var & ~(1<<Bit) | Value<<Bit
EndMacro

Define.b
Test = %0000
SetBit(Test, 0, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 3, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 1, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 2, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 0, 0) : Debug RSet(Bin(Test),4,"0")

Debug "--------------"

Define.q
Test = %0000
SetBit(Test, 0, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 3, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 1, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 2, 1) : Debug RSet(Bin(Test),4,"0")
SetBit(Test, 0, 0) : Debug RSet(Bin(Test),4,"0")

Gruß Christian

[STARGÅTE]

Jo, vermutlich günstiger, dann aber bitte alles schön einklammern, damit es nicht zu flaschen Ergebnissen kommt, weil sich die Priorität ändert:

Code: Alles auswählen

Macro SetBit(var, Bit, Value)
  ( (var) & ~(1<<(Bit)) | (Value)<<(Bit) )
EndMacro

Macro GetBit(var, Bit)
  ( (var)>>(Bit) & 1 )
EndMacro

[ts-soft]

Wäre auch schön, wenn es richtige Ergebnisse bringen würde

Code: Alles auswählen

Debug RSet(Bin(SetBit(%1111, 0, 1)),4,"0")

Ergibt bei mir immer noch %1111, weil Bit 0 ist bereits gesetzt, also keine
Änderung!

Oder was macht euer Code, was ich nicht verstehe

[NicTheQuick]

Ich frag mich allerdings warum du (damals?) bei SetBitFalse() erst noch ein Bit setzt und dann wieder löschst ?
Also im Prinzip reich doch:

Code: Alles auswählen

Procedure SetBit(Quad.q, Bit.i, Value.i)
  ProcedureReturn Quad & ~(1<<Bit) | Value<<Bit
EndProcedure

Debug RSet(Bin(SetBit(%0000, 0, 1)),4,"0")
Debug RSet(Bin(SetBit(%0000, 3, 1)),4,"0")
Debug RSet(Bin(SetBit(%1111, 0, 1)),4,"0")
Debug RSet(Bin(SetBit(%1111, 3, 1)),4,"0")
Debug RSet(Bin(SetBit(%0000, 0, 0)),4,"0") 
Debug RSet(Bin(SetBit(%0000, 3, 0)),4,"0")
Debug RSet(Bin(SetBit(%1111, 0, 0)),4,"0") 
Debug RSet(Bin(SetBit(%1111, 3, 0)),4,"0")

Ich weiß auch nicht mehr so genau, was ich mir vor mehr als 7 Jahren dabei gedacht habe. ^^

Wäre auch schön, wenn es richtige Ergebnisse bringen würde

Code: Alles auswählen

Debug RSet(Bin(SetBit(%1111, 0, 1)),4,"0")

Ergibt bei mir immer noch %1111, weil Bit 0 ist bereits gesetzt, also keine
Änderung!

Oder was macht euer Code, was ich nicht verstehe

Das ist schon richtig, dass da %1111 heraus kommt. Du setzt Bit 0 auf 1. Und da es vorher schon 1 war, bleibt es das auch.

///Edit:
Im Übrigen hier mein Vorschlag für die Makros:

Code: Alles auswählen

Macro _BV(bit)
	(1 << bit)
EndMacro

Macro SetBitFalse(var, bit)
	(var  & ~_BV(bit))
EndMacro

Macro SetBitTrue(var, bit)
	(var | _BV(bit))
EndMacro

Macro SetBit(var, bit, value)
	((var | _BV(bit)) ! ((value ! 1) << bit))
EndMacro

Macro GetBit(var, bit)
	((var & _BV(bit)) >> bit) & 1
EndMacro

Ich denke über 'SetBit()' kann man sich streiten.

[ts-soft]

Das ist schon richtig, dass da %1111 heraus kommt. Du setzt Bit 0 auf 1. Und da es vorher schon 1 war, bleibt es das auch.

Code: Alles auswählen

Macro SetBit(var, Bit, Value)
  ( (var) & (1<<(Bit)) | (Value)<<(Bit) )
EndMacro

Macro GetBit(var, Bit)
  ( (var)>>(Bit) & 1 )
EndMacro

Debug RSet(Bin(SetBit(%1111, 0, 1)),4,"0") 

Dann sind also alle von STARGÅTE geposteten Version schlichtweg falsch
nur so nebenbei angemerkt, nicht das sich das jemand wegspeichert ohne zu prüfen.

[NicTheQuick]

Doch, sein Code ist richtig. Aber aus irgendeinem Grund hast du die Tilde (~) nicht kopiert.

[ts-soft]

Doch, sein Code ist richtig. Aber aus irgendeinem Grund hast du die Tilde (~) nicht kopiert.

Achso, das alte Tilde Problem mit meinem Greasemonkey Script
Dann nehme ich alles zurück.

Schon das zweite mal, das ich in die Tilde-Falle laufe.

[STARGÅTE]

Achso, das alte Tilde Problem mit meinem Greasemonkey Script

Ja sry, ich kanns mir zur Zeit noch nicht erklären, warum das in FF verschwindet ...
versuche mich aber darum zu kümmern ...