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