Nesse vídeo demonstraremos a utilização das funções Dec2Hex e Hex2Dec que servem para converter valores de decimal para hexadecimal e vice versa.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe136 Exemplo para conversão entre números inteiros para hexadecimal e vice versa @type Function @author Atilio @since 15/12/2022 @obs Função Dec2Hex Parâmetros + Valor a ser convertido Retorno + Retorna a String com valor Hexadecimal Função Hex2Dec Parâmetros + String em hexadecimal a ser convertida Retorno + Valor convertido **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe136() Local aArea := FWGetArea() Local nValor := 0 Local cHexa := "" //Convertendo e mostrando o resultado (de decimal para hexa) nValor := 100 cHexa := Dec2Hex(nValor) FWAlertInfo("A conversão de '" + cValToChar(nValor) + "' deu '" + cHexa + "' em hexa", "Exemplo Dec2Hex") //Convertendo e mostrando o resultado (de hexa para decimal) cHexa := "FFF" nValor := Hex2Dec(cHexa) FWAlertInfo("A conversão de '" + cHexa + "' deu '" + cValToChar(nValor) + "' em decimal", "Exemplo Hex2Dec") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.