Pular para o conteúdo principal

Postagens

Mostrando postagens de agosto, 2015

Postagem em destaque

BlackTDN :: Social :: Rifa Festival da Arte Capoeira Projeto Eu Sou Ninja

Por
Angariar fundos para cobrir os custos logísticos do "Festival da Arte Capoeira" e apoiar o projeto Eu Sou Ninja em sua missão de promover a integração social e cultural na comunidade de Jacaraípe. Com a criação da rifa, buscamos envolver a comunidade de forma ativa no financiamento do evento, permitindo que todos contribuam para o sucesso do festival e para a continuidade das atividades do projeto. Prêmio: Copia da minha biblioteca pessoal de AdvPL/TLpp ..etc Participe da Rifa Eu já contribui. Só falta você! ```cmd Pasta de C:\GitHub\naldodj-tlpp 13/04/2024 19:17 . 19/03/2024 13:49 .. 05/01/2024 12:22 2.742 .gitattributes 14/11/2023 16:02 83 .gitignore 02/12/2023 20:08 .vscode 05/01/2024 12:05 bin 13/04/2024 19:18 4.121 ChangeLog.txt 27/12/2023 02:05 include 14/11/2023 16:02 27.030 LICENSE.txt 14/11/2023 16:02 0 makepatch.lst 14/11/2
Postar um comentário
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