Oi! E ai? Tudo bem? O look hoje e do nosso querido Tony Tony Chopper, a rena de nariz azul que e um medico incrivel, fofo e que fica incrivelmente sem graca quando recebe elogios. Eu procurei explorar a questao do azul e o vermelho da cartola. No inicio, Chopper era meio como que um mascote fofo, so que adquiriu um bom destaque no anime e se mostrou um nakama fiel e amigo. Espero que curtam!PRODUTOS:PELE:Base Avon True Color cor Bege MedioCorretivo Ruby Rose Naked cor 04Po Any Color cor 01OLHOS:Paleta 88 cores matteLapis marrom TangoTrio de sombras NYC cor 781Mascara 4D TangoDelineador Avon Color Trend marromLabiosBatom Quem disse Berenice cor Malvete Esse e um problema que tem acontecido comigo atualmente e creio que alguns de voce ja deve ter passado ou ainda esta passando por esse problema.Ao compilar e executar um programa em Delphi o antivirus acusa que ha um virus no programa: Trojan Downloader Dadobra.Entre varios foruns que eu pesquisei que a compilacao no Delphi 7 e tambem C Builder acabam tendo esse problema.Em testes de compilacao pelo prompt de comando a compilacao ficou perfeita e sem problemas.Entao vamos a solucao.Passo 1 - Abra o Prompt de ComandosIniciar > Executar (ou tecla Windows + R) e digite CMDPasso 2 - Pasta RTLVa ate a pasta: C:\Arquivos de programas\Borland\Delphi7\Source\Rtlcom o comando:cd \Arquivos de programas\Borland\Delphi7\Source\RtlPasso 3 - Crie um Subdiretoriodigite:MD LibPasso 4 - MakeDigite:MakeE serao recompiladas as bibliotecas DCU que deverao aparecer no diretorio Lib que foi criado anteriormente.Pode fechar essa janela.Passo 5 - Faca um backup diretorio LIB do Delphi 7Abra o Windows Explorer e va ate a pasta:C:\Arquivos de programas\Borland\Delphi7\LibAperte CTRL+C e cole em outra pasta.Passo 6 - Copie os arquivosCopie os arquivos criados novos da pasta:C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\libCTRL+CPara:C:\Arquivos de programas\Borland\Delphi7\LibSim para todos.Passo 7 - Abra o DelphiE faca todos os testes e nao ha mais problemas.Qualquer duvida, critica ou sugestao entre em contato.Se necessario Mais um pedido do nosso leitor Cristofer.ProblemaFaca um programa de apuracao de uma eleicao, onde a urna devera aceitar a votacao ate o fiscal digitar 0.Os codigos de votacao serao os seguintes:1 -> Candidato 12 -> Candidato 23 -> Candidato 34 -> Nulo5 -> BrancoSolucaoCodigo fonte:Program Eleicao;Uses Crt;varc1,c2,c3,n,b,t : Integer;voto : Integer;BeginTextColor (14);TextBackGround (1);c1 := 0; c2 :=0; c3 :=0; n :=0; b :=0; t :=0;ClrScr;WriteLn (' Eleicao');WriteLn (' =======');WriteLn;WriteLn (' 1 - Candidato 1');WriteLn (' 2 - Candidato 2');WriteLn (' 3 - Candidato 3');WriteLn (' 4 - Nulo');WriteLn (' 5 - Branco');WriteLn;WriteLn (' 0 - Sair da votacao');WriteLn;voto := 6;while voto<>0 dobeginGotoXY (1,12);Write (' Voto: ');Read (voto);if voto = 1 then c1 := c1 + 1 elseif voto = 2 then c2 := c2 + 1 elseif voto = 3 then c3 := c3 + 1 elseif voto = 4 then n := n + 1 elseif voto = 5 then b := b + 1;GotoXY (8,12); Write (' ');end;t := c1+c2+c3+n+b;WriteLn;WriteLn;WriteLn ('Resultado da Eleicao');WriteLn ('====================');WriteLn;WriteLn (' Candidato 1: ',c1, ' votos');WriteLn (' Candidato 2: ',c2, ' votos');WriteLn (' Candidato 3: ',c3, ' votos');WriteLn (' Nulos : ',n, ' votos');WriteLn (' Brancos : ',c1,