Ein bestimmtes Bit einer Variable überschreiben

[Dane]

Hallo,

ich will in einem Programm ein bestimmtes Bit einer Integer-Variable (ich brauche nur 12 Bit) auf 0 setzen, die restlichen Bits aber unverändert lassen.
Mir wäre jetzt nur diese Möglichkeit eingefallen, die aber nicht gerade codesparend ist:


Select Case Bitnummer
Case 0
Ausgaenge = Ausgaenge And &B111111111110

Case 1
Ausgaenge = Ausgaenge And &B111111111101

Case 2
Ausgaenge = Ausgaenge And &B111111111011

Case 3
Ausgaenge = Ausgaenge And &B111111110111

Case 4
Ausgaenge = Ausgaenge And &B111111101111

Case 5
Ausgaenge = Ausgaenge And &B111111011111

Case 6
Ausgaenge = Ausgaenge And &B111110111111

Case 7
Ausgaenge = Ausgaenge And &B111101111111

Case 8
Ausgaenge = Ausgaenge And &B111011111111

Case 9
Ausgaenge = Ausgaenge And &B110111111111

Case 10
Ausgaenge = Ausgaenge And &B101111111111

Case 11
Ausgaenge = Ausgaenge And &B011111111111
End Select

Gibt es vielleicht einen Befehl, der mir ein bestimmtes Bit auf 0 setzt?
Sowas in der Art wäre perfekt:

Befehl Variable , Bitnummer , 0

Gibt es sowas?

MfG, Dane

[x-ryder]

variable.bit = 0 ^^

Martin

[Dane]

Danke!

Manchmal sind es eben die einfachen Sachen, auf die man nicht kommt :)

Dane

[tobimc]

Hi!

Anmerkung, da mans auch ganz gerne übersieht und oder vergisst: Bits zählt man immer von 0-7.

Bitte nicht als persönlichen Angriff oder so werten, aber evtl. liest das mal in nem Jahr jemand und macht genau den Fehler. Deshalb ist es gut, wenn das hier dabeisteht... ;D

VLG Tobi