TOTVSTEC

Árvore de páginas

Verifica se possui os primeiros bits de uma string estão com 0.

Sintaxe

BitOn( < cStr >, < nStart >, < nTest >, < nLength > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cStr

caractere

Indica a string que será verificada.

X

 

nStart

numérico

Indica o índice do bit inicial.

X

 

nTest

numérico

Indica a quantidade de bits que devem estar em 0.

X

 

nLength

numérico

Indica o índice do último byte que será testado.

X

 

Observações

  • nStart inicia em 1.
  • nLength inicia em 0.
  • Caso o tamanho da string passada em cStr seja menor do que o valor passado em nLength, a aplicação AdvPL é interrompida com a exceção "Bit string out of bounds on BitOn".

Exemplos

Exemplo 1
User Function tstBitOn()
  Local cStr := ""
  Local nStart := 0, nTest := 0, nLen := 0, nRet := -1
  
  cStr := chr( 0 ) + chr( 15 ) + chr( 255 ) + chr( 255 )
  nStart := 1
  nTest := 12
  nLen := Len( cStr ) - 1
  nRet := BitOn( cStr, nStart, nTest, nLen )
  
  //será exibido 1
  conout( nRet )
return

Veja também

  • Sem rótulos