Pular para o conteúdo principal

E a gripe suína?

homer gripe suina Concordo que vejo quase tudo com muita desconfiança, principalmente quando essa coisa esta no foco da mídia, logo a gripe H1N1 não poderia ser diferente.
Desde o inicio a importância dada a ela com tão poucos casos fatais (tendo em vista outras enfermidades) era no mínimo estranho. Já era de meu conhecimento o exagero, não estou dizendo que não e nada demais e que ninguém deve se preocupar, mas a maneira como as coisas estão chega a ser ridículo, principalmente em nosso pais onde existem uma serie de outras doenças mais perigosas, ou todos já se esqueceram da dengue?
Bom, apesar da desconfiança não imaginava ao certo o porque de tudo isso, vender aquelas mascaras nunca me pareceu muito rentável então com certeza haveria outro motivo e o documentário abaixo nos mostra fatos reais e uma explicação bem convincente do porque dessa comoção toda.
gripe suina
Resumindo, o vídeo fala da gripe aviaria (lembram dessa?) mostrando a comoção da época e os gastos dos EUA com o tal do Tamiflu, no fim das contas o numero de mortes da gripe aviaria foi insignificante e o grande investimento com esse medicamento desnecessário. Por acaso? Acredito que não, na época gente graúda da empresa que fabricava o tal remédio foi trabalhar no próprio governo americano e agora surge a tal gripe suína. O Tamiflu combate uma serie de tipos de gripe (viva! serve para H1N1!) o que já foi comprado seria utilizado e novos seriam adquiridos.
Os corruptos americanos ainda tem que aprender bastante com os nossos, os frequentadores da casa de tolerância mor ($enado) não precisam de comoções mundiais para embolsar alguns milhões.
Assistam ao vídeo, lá existem datas, cifras e nomes envolvidos em todo esse esquema que resultou na tal pandemia.

Comentários

Mais visitadas

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...

Funções de Data e Hora (Delphi)

É muito comum nos depararmos no dia a dia com a necessidade de manipular datas e horas, seja para um calculo de permanência, dias de atraso enfim, é praticamente escapar de alguma situação que necessite desse tipo de controle. Assim como a necessidade e se utilizar algum recurso para manipular as datas e horas de alguma maneira e freqüente, as duvidas de como o faze-lo também é, basta um breve olhar em qualquer fórum especializado e lá está, alguma duvida relacionada, por isso decidi falar um pouco sobre uma unit muito poderosa chamada DateUtils para a manipulação de data e hora, com um grande numero de métodos e classes que facilitam a vida de qualquer um. Alguns exemplos: CompareDate(constA, B: TDateTime): TValueRelationship; Compara apenas a data de dois valores (do tipo TDateTime) retornando: LessThanValue O primeiro valor é menor que o segundo EqualsValue Os valores são iguais GreaterThanValue O primeiro valor é maior que o segundo CompareDateTime(const A, B: TD...

Listar arquivos existentes em diretório (Delphi)

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 ...