PROGRAMERO

Após novo adiamento para a instalação da CPI da Petrobras estamos aqui para exigir que os senhores senadores compareçam a sala onde funcionará a comissão, já que na última semana por duas vezes não o fizeram. Entenda a CPI A CPI criada para investigar irregularidades na Petrobras contou com o apoio de 30 senadores, três a mais que o número mínimo necessário para a criação de uma Comissão de Inquérito. O autor do pedido é o senador tucano Álvaro Dias (PSDB-PR). Em seu requerimento, Álvaro destaca os seguintes pontos a serem investigados: Indícios de fraudes nas licitações para reforma de plataformas de exploração de petróleo apontados pela operação “Águas Profundas” da Polícia Federal; Graves irregularidades nos contratos de construção de plataformas, apontados pelo Tribunal de Contas da União; Indícios de superfaturamento na construção da refinaria Abreu e Lima, em Pernambuco, apontados por relatório do Tribunal de Contas da União; Denúncias de desvi

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do       begin         if TemAtributo(F.Attr,

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes. Segue a cadificação do evento click do botão: procedure TForm1.Button1Click(Sender: TObject); var   SR: TSearchRec;   I: integer; begin   I := FindFirst(Edit1.Text, faArchive, SR);   try     if I = 0 then       Edit2.Text := IntToStr( SR.Size )     else       Edit2.Text := '-1';   finally     FindClose(SR);   end; end; Baixe o exemplo completo aqui .

Para os mais atentos não é novidade que a TV Globo não só deturpa a realidade de certos acontecimentos em prol de determinados indivíduos como mina a capacidade de discernimento do certo e errado do nosso país com suas superproduções recheadas com enredos absurdos que passam longe da realidade da nação. Novelas com contextos que não ignoram o flagelo da maioria, mas que sempre passam a falsa impressão de que nem tudo esta tão mal assim ou que um dia tudo melhora, ou seus programas vazios de conteúdo que exploram o que ha de pior nos participantes (que já não são grande coisa, e eu me recuso ate a escrever o nome, mas que todos já devem imaginar do que estou falando) tem sido de grande importância para a manutenção de tantos governos corruptos, civis ou militares, que tem alargado cada vez mais o abismo entre os pobres e ricos. A lavagem cerebral realizada ao longo e tantos anos e notória, basta olhar agora para a TV do seu vizinho ou mesmo a sua e verificar em qual canal ela esta sinto

Quando a esmola é grande o santo desconfia, acabei por perder a data mas não poderia deixar de falar, depois de proibidas as viagens dos senhores FDPs dePUTADOS foram liberadas novamente , o calor das noticias diminuíram, a coisa toda deixou de ser novidade e tudo ficou como está, eles aproveitando da maneira que bem entendem do nosso dinheiro. Simplesmente uma palhaçada, as cifras desse roubo anunciado e sacramentado é absurda num país que possui em sua grande maioria maltrapilhos famintos que se contentam com esmolas dum governo assistencialista que promove (com grande ajuda da mídia) a ignorância sustentando da situação como sempre foi (e a cada dia parece que sempre será). Quer saber mais sobre essa e outras palhaçadas de uma lida aqui e aqui , reportagens do Estadão, ou nesse blog que é fantástico e aborda os assuntos políticos com grande maestria.

Caso não seja necessário uma atualização de página a cada vez que o usuário pressionar a tecla “ ENTER ” podemos codificar uma pequena função em javascript anulando esse comportamento, segue o código: < script language ="javascript"> function desabilitaPostDoEnter(e) {      var key;      if (window.event)           key = window.event.keyCode;  //IE      else           key = e.which;                      //firefox      if (key == 13)           return false ;      else           return true ; } </ script > Agora nos objetos que se deseja cancelar o “ POST ” basta apenas chamar a função, segue o exemplo de um “ TextBox ”: < asp : TextBox ID ="TextBox1" runat ="server" onKeyPress ="return disableEnterKey(event)"></ asp : TextBox >

Uma cosia que com certeza deixa muita gente perdido e porque não dizer puto ao executar determinada rotina de um sistema e a desorientação, principalmente se for uma rotina demorada, não saber se ela terminou, se ainda esta executando ou mesmo se abortou por alguma razão é desesperador. Hoje mostraremos como montar um esquema bem simples para indicar o progresso de uma rotina, para iniciar vamos criar um Website, colocar um botão e um label (apenas para mérito de ilustração). Agora para fazermos o prometido vamos colocar um ScriptManager (dentro do da marca form, deve estar onde exista o runat=server): Em seguida precisamos de um UpdatePanel englobando tudo aquilo passível de uma execução demorada (no nosso caso tudo): Para finalizar o UpdateProgress, nele existirá a mensagem e uma imagem, um gif animado dando a impressão de “trabalho”: O código completo da página (dentro do form, além disso nada foi alterado): Finalizando forçaremos a espera de três segundos ao clicar no botão, pa