Pular para o conteúdo principal

Postagem em destaque

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️ Olá pessoal, Espero que este post encontre todos vocês bem! É com grande entusiasmo que compartilho que estou expandindo meus serviços como Desenvolvedor AdvPL para novos desafios e colaborações. Com mais de duas décadas de experiência sólida, minha jornada profissional tem sido enriquecedora, com a oportunidade de participar de projetos empolgantes ao longo dos anos. Agora, estou ansioso para trazer minha experiência e habilidades para novas equipes e projetos, trabalhando de forma remota. Minha expertise abrange não apenas AdvPL, mas também outras tecnologias-chave, incluindo JS, SQL, Infraestrutura e Otimização de Processos. Acredito que essa combinação de conhecimentos me permite oferecer soluções abrangentes e eficazes para uma variedade de necessidades de desenvolvimento. Acredito que a tecnologia tem o poder de transformar negócios e impulsionar o sucesso, e estou comprometido em ajudar meus clientes a alcançar seu

BlackTDN :: ADVPL Games ~ GAME 15 : Final

015

Finalizado o Jogo do 15. Com + de 2000 linhas de código da + pura diversão e entretenimento.

Clique aqui se a sua vontade for de obter os códigos fontes (para estudo ou diversão).

Algumas soluções parciais do jogo poderão ser obtidas ao clicar aqui.

Com o jogo finalizado teremos agora as seguintes interfaces:

 

Game15 Start Game15
About Game15 Game15 Top Record
Game 15 Top Record Clear Game15 Save
Game15 Restore Game15 You Win

 

No desenvolvimento do GAME 15 foram utilizados os seguintes recursos da Linguagem ADVPL:

Recurso ADVPL Descrição:
Classe: TPaintPanel Cria um objeto do tipo painel que permite adicionar subpainéis e shapes.
Classe: MsDialog Cria uma janela de diálogo, no programa, para entrada de dados do tipo modal. Desta forma, não é permitido que outras janelas recebam dados enquanto esta estiver ativa.
Classe: TListBox Cria um objeto do tipo lista de itens com barra de rolagem.
Classe: TRect TDN diz: Você não tem permissão para acessar esse recurso.
Classe: TFont Cria um objeto para alterar as características da fonte utilizada em outros controles visuais.
Classe: TGet Cria um objeto para entrada de dados editáveis.
Classe: SButton Cria um objeto do tipo botão.
Função: FreeObj Elimina da memória a instância do objeto informado como parâmetro.
Função: cGetFile Apresenta uma janela com os diretórios disponíveis, na estação e no servidor,  e retorna o nome do item.
Função: AScan Percorre um array procurando por um valor especificado. Pode ser especificado um valor a ser buscado, ou pode ser informada uma condição de busca através de um bloco de código.
Função: AEVal Executa um bloco de código para cada elemento de um array.
Função: MakeDir Cria um diretório.
Função: lIsDir Não documentada. Verifica se um diretório existe.
Função: Sleep A função SLEEP() tem o objetivo de fazer com que a thread corrente deixe de ser executada de acordo com o valor informado como parametro.
Função: NetErr Não documentada: Verificar se um comando de manipulação de arquivo de dados falhou em ambiente de Rede
Função: DBCreate Define uma nova tabela ou um novo arquivo do tipo tabela e sua estrutura (campos)
Função: dbUseArea Abre uma área de dados para utilização.
Função: OrdCreate Não Documentada: Utilizada para criar uma nova ordem em um arquivo de índice
Função: dbClearIndex Fecha todos os índices da área de trabalho corrente.
Função: DBCloseArea Fecha a área de trabalho corrente.
Função: OrdListAdd Não Documentada: Utilizada para abrir um arquivo de índices. Referência mais próxima: DBSeek
Função: DBSeek Localiza um registro com determinado valor da expressão de chave de índice.
Função: DBSetNickname Define um apelido para uma determinada ordem.
Função: DBOrderNickname Seleciona a ordem ativa através de seu apelido.
Função: IndexKey Determina a expressão da chave de um índice especificado na área de trabalho corrente, e o retorna na forma de uma string.
Função: DBAppend Adiciona um novo registro vazio na tabela corrente.
Função: rLock Não Documentada: Tenta efetuar o Lock no registro correte. Referência mais próxima: Função: RecLock - Comando de alteração em modo exclusivo. Que internamente faz uso da rLock para obter o Lock do registro.
Função: DBUnlock Retira bloqueios de registros e de arquivos da tabela corrente.
Função: DBDelete Marca o registro corrente para exclusão.
Função: DBCloseArea Fecha a área de trabalho corrente.
Função: StaticCall Não Documentada. Referência em BlackTDN
Função: ShellExecute Executa um arquivo.

Além das funções e classes acima, foram usadas funções e classes  da biblioteca de Funções NDJLIB também em ADVPL.

Para aqueles que estão se iniciando em ADVPL é uma boa referência.

Um “Ponto de Atenção”:

image

No fragmento de código acima, utilizado para validar o Jogo, utilizei a seguinte expressão:

lMatch    := &cMatch.(@aShapes,@nSqrtBtn,@nButtons)   

Nela faço uso do operador de macro & para executar as funções de validação com passagem de parâmetros.

aMatch         := { "AlgMatchL1" , "AlgMatchR1" , "AlgMatchL2" , "AlgMatchR2" }
nMatches    := Len( aMatch )   
For nMatch := 1 To nMatches
    cMatch    := aMatch[nMatch]
    lMatch    := &cMatch.(@aShapes,@nSqrtBtn,@nButtons)   
    IF ( lMatch )                                                                       
        EXIT
    EndIF
Next nMatch

 

Game15 Opções para Compilação

Lembrando que, para compilar o Projeto u_game15.prj, existem dependências dos includes que se encontram em:

\u_game15\include\
\u_game15\include\protheus\

Referências a BlackTDN GAME15:

[]s
иαldσ dj

Comentários

  1. problema com esse include #INCLUDE "NDJ.CH"

    Compilando arquivos...
    c:\u_game15\ndjlib\ndjlib025.prg...
    (no projeto Game15)
    Erro de compilação:
    c:\u_game15\ndjlib\NDEE67~1.PRG(1) Error C2090 File not found aabonos.ch
    Processo interrompido por erro FATAL de compilação.
    Compilação finalizada - 1 arquivo(s) - 1 mensagem(s)
    Tempo de duração da compilação: 2 segundos

    ResponderExcluir
    Respostas
    1. o include aabonos.ch econtra-se em \u_game15\include\protheus\

      Para que o Projeto u_game15.prj possa ser compilado mapeie os includes das seguintes pastas:

      \u_game15\include\
      \u_game15\include\protheus\


      []s
      иαldσ dj

      Excluir

Postar um comentário

Postagens mais visitadas deste blog

BlackTDN :: RLeg ~ Desvendando a Função ParamBox

Para quem precisar desenvolver uma interface de entrada de dados, coisa rápida, e não quer ter aquele trabalhão danado que todos já sabemos, o Protheus tem uma função que ajuda muito, é uma interface semelhante a função Pergunte, porém com muito mais opção de objeto de entrada de dados, alias até colocar o scrollbox desta interface com todos os objetos em outra MsDialog ou Wizard é simples. Vejam o exemplo abaixo, boa sorte! Rleg. //---------------------------------------------------------- // Função exemplo utilizando a função ParamBox() //---------------------------------------------------------- User Function xParamBox() Local aRet := {} Local aParamBox := {} Local aCombo := {"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro"} Local i := 0 Private cCadastro := "xParambox" // ---------------

BlackTDN :: Customizando a interface de Login no Protheus e by You

A publicação “ BlackTDN :: By You e sua nova tela de login ”  de nosso amigo OBona deu o que falar e, em função disso, esse que a muito não vos escreve resolveu criar uma versão onde será possível personalizar, “por completo”, a tela de login no Protheus/by You. Considerando que OBona já havia “mapeado, identificado e customizado” as imagens peguei-as emprestadas para o exemplo que se segue: O primeiro passo para a customização “total” da interface de login do Protheus/by You será implementar o “Ponto de Entrada” ChgPrDir (Diretório de impressão) . Usaremos esse PE juntamente como programa U_FindMsObject.prg (apresentado pela primeira vez em: Protheus :: ADVPL : The Container : Presents Pandora's box ). Diferente do exemplo proposto por OBona, que substitui, durante o processo de compilação, as imagens padrões do sistema (excluindo-as) por imagens customizadas (com o mesmo nome) este novo exemplo mantém, no RPO, as imagens padrões adicionando novas imagens customizadas que serã

Protheus :: Chamando Funções do Menu Diretamente e sem a Necessidade de Login

Ferne$ perguntou: "...é possível abrir alguma rotina do sistema sem solicitar login ao usuário, como por exemplo a rotina MATA010..." Sim Ferne$, é possível sim. Abaixo um Exemplo para a Chamada à função MATA010 sem a necessidade de Login no sistema. #INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" /*/ Funcao: MATA010Ex Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao MATA010 diretamente sem a necessidade de LOGIN no Protheus Sintaxe: 1 ) U_MATA010Ex ( Chamada diretamente na Tela de Entrada do Sistema ) ; ou 2 ) totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function MATA010Ex( cEmpFil ) Local aEmpFil Local bWindowInit := { || __Execute( "MATA010()" , "xxxxxxxxxxxxxxxxxxxx" , "MATA010" , "SIGAFAT" , "SIGAFAT", 1 , .T. ) } Local cEmp Local cFil Local cMod Local cModName := "SIGAFAT" DEFA