Die Funktion BitHigh testet, ob das angegebene Bit den Binärwert 1 hat. Wenn ja, ist das Ergebnis TRUE. BitHigh wird ausschließlich in Abfragen genutzt um den Zustand eines Bits auszuwerten.
BitHigh ( < das_Bit > ) ;
das_Bit = Der Parameter muss als Bit im Vereinbarungsteil vorher vereinbart worden sein (z.B. Eingang[PinC,0] : 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. |
Das Beispiel liest das Bit 0 des Registers C (als "Eingang" definiert) ein und testet, ob es den Binärert 1 (High) hat.
Wenn ja, wird das Bit 1 des Registers C (als "Ausgang" definiert) gelöscht. Hat das Bit 0 des Registers C den Binärwert 0, so wird die else-Schleife der if-Abfrage angesprungen und das Bit "Ausgang" wird gesetzt.