Advpl - Hello World

Como o objetivo desse blog é trazer o conhecimento para iniciantes em diversas linguagens de programação, nada mais justo do que iniciar agora uma nova categoria de posts. Já que atualmente eu também sou um iniciante nessa linguagem de programação. Destinarei essa nova categoria a linguagem ADVPL. A seguir um pequeno paragrafo sobre o Advpl:

“A Linguagem AdvPl teve seu início em 1994, sendo na verdade uma evolução na utilização de linguagens no padrão xBase pela Microsiga Software S.A. (Clipper, Visual Objects e depois FiveWin). Com a criação da tecnologia Protheus, era necessário criar uma linguagem que suportasse o padrão xBase para a manutenção de todo o código existente do sistema de ERP Siga Advanced. Foi então criada a linguagem chamada Advanced Protheus Language.” (paragrafo retirado da Bíblia do Advpl)

Depois das apresentações vamos ao mais interessante, a programação. Primeiramente como já é de praxe vamos começar com o ‘hello world’. Abra o DevStudio inicie  um novo projeto e coloque essa seguinte linha de código.

User function PTESTE() 

         alert("Hello World")

return

 Importante: Antes de pressionar Ctrl+F9, certifique-se de que o combo esta com o nome da function que esta sendo usada no momento, no nosso caso a PTESTE, dentro do combo sera digitado a seguinte da seguinte forma ‘u_pteste’ o ‘u_’ significa que essa função sera a função principal para a execução do código.

Apos digitar esse código pressione Ctrl+F9 para compilar o código, caso o código não tenha nenhum erro como é o nosso exemplo. Aparecera na parte interior de sua tela a seguinte mensagem.

A mensagem retornada à informação de que a compilação terminou, e teve um tempo de duração de 9 segundos. Como não ocorreu nenhum erro então pressione F9 para executar o código. Em instantes aparecerá na sua tela a seguinte mensagem.

Espero que tenham gostado do post, este é apenas um post inicial mais adiante postarei códigos bem mais interessantes.

"A vida me ensinou a nunca desistir. Nem ganhar, nem perder mas procurar evoluir."
(Chorão)