Die Prozedur ClearBit löscht das angegebene Bit (setzt das Bit auf den Binärwert 0).
ClearBit ( < das_Bit > ) ;
das_Bit = Der Parameter muss als Bit im Vereinbarungsteil vorher vereinbart worden sein (z.B. Ausgang[PORTC,1] : Bit;)
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
PROGRAM test_b2w;
DEVICE = mega8;
VAR
PORTC, DDRC, PinC : ByteConReg;
Eingang[PinC,0] : Bit;
Ausgang[PORTC,1] : Bit;
BEGIN
DDRC:=%11111110;
if BitHigh(Eingang) then
ClearBit(Ausgang);
else
SetBit(Ausgang);
endif;
END test_b2w. |
Die Prozedur ClearBit löscht das Bit 1 (wird auf den Binärwert 0 gesetzt) in PORTC (Ausgang).