Vídeo Aula – AdvPL 003 – Variáveis e Constantes

Vídeo Aula – AdvPL 003 – Variáveis e Constantes

Olá pessoal…

Na vídeo aula de hoje, vou falar um pouco sobre Variáveis e Constantes.


Abaixo os links do TDN sobre o assunto:
Tipos de Dados

Abaixo os códigos fontes mostrados na vídeo aula:

//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"

//Se for espanhol
#Ifdef SPANISH
#Define STR_TESTE'Un gran poder conlleva una gran responsabilidad.'
#Define STR_TITULO'Precaución'

//Senão, irá fazer outros testes
#Else
//Se for em Inglês
#Ifdef ENGLISH
#Define STR_TESTE'With great power comes great responsibility.'
#Define STR_TITULO'Caution'

//Senão, será o padrão (Português)
#Else
#Define STR_TESTE'Com grandes poderes vêm grandes responsabilidades.'
#Define STR_TITULO'Atenção'
#EndIf
#EndIf

//Constantes
#Define STR_PULAChr(13)+Chr(10)

/*/{Protheus.doc} zConstantes
Exemplo de teste com diretivas / constantes
@author Atilio
@since 13/10/2015
@version 1.0
@example
u_zConstantes()
/*/
User Function zConstantes()
Local aArea := GetArea()

//Mostrando mensagem
MsgAlert(STR_TESTE + STR_PULA + "...", STR_TITULO)

RestArea(aArea)
Return

e…

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zVariaveis
Exemplo de declaração de variáveis
@author Atilio
@since 13/10/2015
@version 1.0
@example
u_zVariaveis()
/*/
User Function zVariaveis()
Local aArea := GetArea()

//Declaração de variáveis
Local nValor:= 0
Local dData:= Date()
Local lTeste:= .T.
Local cTexto:= "Terminal de Informação"
Local oObjeto:= TFont():New("Tahoma")
Local xInfo:= 0
Local aDados:= {"Daniel", "Atilio", dData}
Local bBloco1:= {||nValor := 1,;
Alert("Valor é igual a "+cValToChar(nValor))}
Local bBloco2:= {|nValor|nValor += 2,;
Alert("Valor é igual a "+cValToChar(nValor))}

//Executando o bloco de código
EVal(bBloco1)
EVal(bBloco2, 5)

//Alterando valores
xInfo := "Teste"

RestArea(aArea)
Return

Esses e outros códigos, estão disponíveis gratuitamente no nosso GitHub, acesse em github.com/dan-atilio/AdvPL.
Caso queira uma customização específica para sua empresa, saiba mais em nossa Loja.

Se quiser fazer o download desses códigos, acesse nosso GitHub pelo link github.com/dan-atilio/AdvPL (Exemplos > Vídeo Aulas > 003 – Variáveis e Constantes).

Boim pessoal, por hoje é só.
Abraços e até a próxima.

About Dan_Atilio

Analista e desenvolvedor de sistemas. Técnico em Informática pelo CTI da Unesp. Graduado em Banco de Dados pela Fatec Bauru. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor do projeto Terminal de Informação, onde são postados tutoriais e notícias envolvendo o mundo da tecnologia.

Deixe uma resposta

%d blogueiros gostam disto: