Pular para o conteúdo principal

Postagens

Mostrando postagens de agosto, 2015

Postagem em destaque

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

Por
🚀 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
3 comentários
Leia mais

BlackTDN :: Dominando o uso de Threads no Protheus – uThreadT5

Por
Os exemplos para entendimento do funcionamento de Threads no Protheus (StartJob, IPCWaitEx, IPCGo e IPCCount) bem como o uso de variaveis Globais (PutGlbValue, GetGlbValue, GetGlbVars e ClearGlbValue) foram atualizados. A classe utThread agora permite o controle de processamento via semaforo e está, de certa forma, funcional. Um exemplo de uso seria:   #include "tbiconn.ch" #include "tBigNumber.ch" #define TST_MAXTHREAD 50 /* Funcao:ThreadT5 Autor:Marinaldo de Jesus [http://www.blacktdn.com.br] Data:12/08/2015 Descricao:Exemplo (5) de uso da Classe utThread (derivada de tBigNThread) Sintaxe:u_ThreadT5 */ user procedure ThreadT5() local bProc:={|oProcess|thProcess(oProcess,@oProcess:lEnd)} local bonWInit:={||oProcess:=tNewProcess():New(@cProcD,@cProcT,@bProc,@cProcD,NIL,NIL,NIL,NIL,NIL,@lViewExecute,@lOneMeter),oMainWnd:End()} local cProcD:=ProcName() local cProcT:="Processando Threads..." Local lViewExecute:=.T.
3 comentários
Leia mais

BlackTDN :: uThreadT4.prg ~ Um novo exemplo para uso da Classe uTThread (tBigNThread)

Por
#include "tBigNumber.ch" #define TST_MAXTHREAD 50 /* Funcao:ThreadT4 Autor:Marinaldo de Jesus [http://www.blacktdn.com.br] Data:01/08/2015 Descricao:Exemplo (4) de uso da Classe utThread (derivada de tBigNThread) Sintaxe:u_ThreadT4 */ user procedure ThreadT4() local oProcess:=MsNewProcess():New({||thProcess(oProcess)}) oProcess:Activate() return static function thProcess(oProcess) local aEvent local bEvent local cTypeR local nNode local nTotal local nValor1 local nValor2 local nThread local nResult local nResults local nThreads:=TST_MAXTHREAD local oThread:=utThread():New(oProcess) oThread:Start(nThreads) oProcess:SetRegua1(nThreads) oProcess:SetRegua2(0) For nThread:=1 To nThreads oProcess:IncRegua2() nValor1:=nThread nValor2:=(nThreads-nThread) if ((nThread%9)==0) aEvent:={; {{|n|u_Sum4(n[1],n[2])},nValor1,nValor2
Postar um comentário
Leia mais