biți de pavilion

Tabelul arată că adăugarea unui bit de pavilion comută 0 la 1 la poziția corespunzătoare. Pentru a lucra cu steagurile funcții și BITAND BITOR utilizate.

Cu BITAND controale pentru funcția de pavilion, acesta este pornit.

$ = 44 platină
Dacă BITAND ($ platină. 8) Apoi,
MsgBox (0. „Mesaj“. „Da, acest indicator este activat“)
altfel
MsgBox (0. „Mesaj“. „Nu, acest indicator este oprit“)
endif

Cu BITOR se pot combina în condiții de siguranță steaguri

$ = 12 platină; 8 + 4
$ = BITOR platină ($ 4 platină). Adaugă un steag 4
MsgBox (0. 'Mesaj' $ platină.); Numărul 12 nu sa schimbat de când steagul a fost activat înainte de

Acest lucru este permis de a rezuma steaguri biți fără BITOR. de exemplu 8 + 4 + 2, dar uneori folosind constantele, cum ar fi un stil pentru GUICreate poate face o greșeală. Unele dintre constantele conțin deja o combinație de steaguri biți și cu adaos de pavilion, care este deja prezentă în constanta poate obține o combinație complet diferit de steaguri de biți. De exemplu, dacă încercați să 14 (8 + 4 + 2) 4 pentru a adăuga un steag, veți obține numărul 18 (16 + 2), iar acest lucru este o altă combinație de steaguri. Este evident că orice număr de zecimale cu extinderea în steaguri biți dau cu siguranță o singură combinație de steaguri, precum și orice combinație de steaguri dă un singur număr zecimal unic, deoarece este, de fapt, unul și același număr numai în zecimal sau reprezentare binară .

Utilizarea bit de pavilion

Funcția EXEMPLU cu pavilion bit.

MsgBox (0. 'Mesaj'. _Check (32 + 8 + 4))

FUNC _Check ($ platină)
$ SText Local
Dacă BITAND ($ platină. 1), apoi $ sText = '1' @LF
Dacă BITAND ($ platină. 2) Atunci $ sText = '2' @LF
Dacă BITAND ($ platină. 4) Apoi $ sText = '4' @LF
Dacă BITAND ($ platină. 8) Apoi $ sText = '8' @LF
Dacă BITAND ($ platină. 16), apoi $ sText = '16' @LF
Dacă BITAND ($ platină. 32), apoi $ sText = '32' @LF
Dacă BITAND ($ platină. 64), apoi $ sText = '64' @LF
Dacă BITAND ($ platină. 128), apoi $ sText = '128' @LF
Întoarcere $ sText
ENDFUNC; ==> _ Verificare

proces de excepții pavilion

$ = 12 platină
Dacă BITAND ($ 4. platină) Apoi $ platină - = 4
MsgBox (0. 'Mesaj'. $ Platină)

$ = 12 platină
$ = BitNOT platină (BITOR (BitNOT ($ platină), 4))
MsgBox (0. 'Mesaj'. $ Platină)