Blog do Titio Trevas

Palestra hoje na FABEL

2011-11-29T09:01:00.000-08:00

Palestra Hoje - CEFET Itaguaí

2011-10-18T09:51:00.000-07:00

Diagramas de Caso de Uso - Turma 1201

2011-08-19T12:34:00.000-07:00

Conforme prometido, segue uma possibilidade de construção do diagrama de caso de uso para o sistema de Veterinária e para o sistema de Advocacia.

Defesa de dissertação

2011-08-11T18:51:00.000-07:00

Michael Jackson X Mr. Bean

2011-06-12T17:13:00.000-07:00

Muito Legal - Animação em Stop Motion

Saudação ao Internauta em PHP

2011-05-14T07:01:00.000-07:00

É só copiar e aproveitar:

<?php
$hourdiff = "-5"; // diferença de horas entre o servidor e a máquina local
$dayofweek = date("l",time() + ($hourdiff * 3600));
$day = date("d",time() + ($hourdiff * 3600));
$month = date("F",time() + ($hourdiff * 3600));
$year = date("Y",time() + ($hourdiff * 3600));
$hours = date("H:i:s",time() + ($hourdiff * 3600));
$hora = date("H",time() + ($hourdiff * 3600));

if ($dayofweek == "Monday")
$dayofweek = "Segunda-Feira";
elseif ($dayofweek == "Tuesday")
$dayofweek = "Terça-Feira";
elseif ($dayofweek == "Wednesday")
$dayofweek = "Quarta-Feira";
elseif ($dayofweek == "Thursday")
$dayofweek = "Quinta-Feira";
elseif ($dayofweek == "Friday")
$dayofweek = "Sexta-Feira";
elseif ($dayofweek == "Saturday")
$dayofweek = "Sábado";
elseif ($dayofweek == "Sunday")
$dayofweek = "Domingo";
{
if ($month == "January")
$month = "janeiro";
elseif ($month == "February")
$month = "fevereiro";
elseif ($month == "March")
$month = "março";
elseif ($month == "April")
$month = "abril";
elseif ($month == "May")
$month = "maio";
elseif ($month == "June")
$month = "junho";
elseif ($month == "July")
$month = "julho";
elseif ($month == "August")
$month = "agosto";
elseif ($month == "September")
$month = "setembro";
elseif ($month == "October")
$month = "outubro";
elseif ($month == "November")
$month = "novembro";
elseif ($month == "December")
$month = "dezembro";
}
{
if ($hora < 12)
print ("<div align=center><center><table border=0 width=800 cellspacing=12 cellpading=4 bgcolor=#0000FF><tr><th><font color=#FFFFFF face='Trebuchet MS' size=3>Bom dia! Hoje é $dayofweek, $day de $month de $year, e no Rio de Janeiro/RJ são: $hours hs.</font></th></tr></table></center></div>");
elseif ($hora < 18)
print ("<div align=center><center><table border=0 width=800 cellspacing=12 cellpading=4 bgcolor=#0000FF><tr><th><font color=#FFFFFF face='Trebuchet MS' size=3>Boa tarde! Hoje é $dayofweek, $day de $month de $year, e no Rio de Janeiro/RJ são: $hours hs.</font></th></tr></table></center></div>");
elseif ($hora < 24)
print ("<div align=center><center><table border=0 width=800 cellspacing=12 cellpading=4 bgcolor=#0000FF><tr><th><font color=#FFFFFF face='Trebuchet MS' size=3>Boa noite! Hoje é $dayofweek, $day de $month de $year, e no Rio de Janeiro/RJ são: $hours hs.</font></th></tr></table></center></div>");
}
?>

É muita alegria!!!! Campeão !!!

2011-05-01T16:39:00.001-07:00

Uma animação bacana

2011-04-24T17:42:00.000-07:00

Depois de horas de muita dedicação o trabalho fica muito interessante.

Amigo secreto de chocolate - Turma 82

2011-04-20T11:23:00.000-07:00

Foi uma farra de chocolate - Valeu 82!

Imagens para o pessoal do 2º Ano Web

2011-04-08T12:44:00.001-07:00

Borda do topo: Salvar esta imagem com o nome de:
bdr_topo

Borda do centro: Salvar esta imagem com o nome de:
bdr_centro

Borda da base: Salvar esta imagem com o nome de:
bdr_base

Saiu o QR Code do meu Blog!

2011-04-03T10:37:00.000-07:00

Se você possui um leitor de QR Code no seu aparelho celular, ficou fácil de achar meu site quando estiver navegando na Internet pelo celular. Basta ler o QR Code abaixo e.... deixar seu comentário.

Crie o seu também através do site: http://reader.kaywa.com/getit

Escolha a ZONA DE TESTES que está no rodapé da página e depois clique em GENERATE YOUR OWN QR-CODES.

A pedido de minha amiga Isadora

2011-03-30T17:39:00.001-07:00

Isadora, está aí o que você me pediu. Um super abraço Titio Trevas

Vamos construir nossos quadrinhos!

2011-02-25T09:50:00.000-08:00

Meus amigos do 6º Ano!

Vocês sabem que podem criar as historinhas em qualquer lugar, para isso, vou dar três opções, mas se alguém conhecer outras possibilidades, deixe um comentário.

1ª opção: Turma da Mônica
site: http://www.maquinadequadrinhos.com.br/

2ª opção: Heróis da Marvel
site: http://superherosquad.marvel.com/home

Quando você acessar este site, aparecerá a seguinte tela:

Click na bandeira "Create your own comic" como mostra a setinha preta na figura.

Quando você clicar, aparecerá uma tela igual a essa:

Escolha a opção da direita. A opção da esquerda só permite fazer tirinhas. Se sua história tiver mais de 4 quadrinhos, você não vai conseguir. A opção da direita, permite criar história maiores.
Quando você clicar nesta opção, escolha um tipo (modelo) qualquer para criar sua historinha.

Depois de escolher o Estilo, aparecerá a tela para criação da história. Nesta tela, aparecerá o seguinte quadro:

Este quadro é muito importante. Em cada opção, você escolhe o que vai conter no seu quadrinho.
Background: Você escolhe o cenário desejado.
Characters: Você escolhe o personagem desejado.
Objects: Possibilita a inclusão de algum objeto na cena. Não tem quase nada.
Dialogue: Você escolhe o balão que irá colocar para os diálogos.
Sound Efects: Você pode escolher os balões que simulam o som de objetos.

3ª opção: Tirinhas do Gui e Estopa
site: http://iguinho.ig.com.br/diversoes.html

Quando abrir a tela, escolha logo no início, uma entre as três opções de "Monte sua tirinha ..."

Boa Diversão e Boas Histórias!
Encontro com vocês no CR!
Abraços
Titio Trevas

2010-11-14T11:49:00.000-08:00

O Melhor Super Adiantamento de Aniversário que já tive.

A galera toda junta.

Eu, Mari e Mari (Meninas, amo vocês!)

Eu e o Brucutu Thiago Mulim (Sangue bom!)

Palestra no CEFET Itaguaí

2010-10-21T18:13:00.000-07:00

Galera! Hoje estive no CEFET em Itaguaí. Muito bom, os alunos corresponderam muito melhor do que poderia imaginar.

Espero encontrá-los novamente! Até a próxima!
Abs
Ney Trevas

Validando um CPF ou CNPJ

2010-09-16T18:49:00.000-07:00

Esta rotina valida um CPF ou CNPJ (CGC) digitado em um Edit.

No Code Editor, antes do último END. colocar:

function TForm1.TestaCpfCgc(Dado: string): String;
var
i: integer;
begin
for i:= 1 to length(Dado) do begin
if not (Dado[i] in ['0'..'9']) then delete(Dado,i,1);
end;
if ((length(Dado) <> 11) and (length(Dado) <> 14))then
MessageDlg('ATENÇÃO: O número informado NÃO representa' + #13 +
'um CPF ou CGC válido pelas regras da Receita Federal',mtWarning,[mbOK],0);
if length(Dado) = 14 then begin
if TestaCGC(Dado) then begin
insert('-',Dado,13);
insert('/',Dado,9);
insert('.',Dado,6);
insert('.',Dado,3);
end
else MessageDlg('O número informado NÃO representa um CGC' + #13 +
'válido pelas regras da Receita Federal', mtWarning, [mbOK], 0);
end;
if length(Dado) = 11 then begin
if TestaCPF(Dado) then begin
insert('-',Dado,10);
insert('.',Dado,7);
insert('.',Dado,4);
end
else
begin
MessageDlg('O número informado NÃO representa um CPF' + #13 +
'válido pelas regras da Receita Federal', mtWarning, [mbOK], 0);
edit#.clear;
edit#.SetFocus;
end;
end;
Result := Dado;
end;

{Valida dígito verificador de CGC}
function TForm1.TestaCGC(Dado : string) : boolean;
var D1 : array[1..12] of byte;
I,
DF1,
DF2,
DF3,
DF4,
DF5,
DF6,
Resto1,
Resto2,
PrimeiroDigito,
SegundoDigito : integer;
begin
Result := true;
if Length(Dado) = 14 then
begin
for I := 1 to 12 do
if Dado[I] in ['0'..'9'] then
D1[I] := StrToInt(Dado[I])
else
Result := false;
if Result then
begin
DF1 := 0;
DF2 := 0;
DF3 := 0;
DF4 := 0;
DF5 := 0;
DF6 := 0;
Resto1 := 0;
Resto2 := 0;
PrimeiroDigito := 0;
SegundoDigito := 0;
DF1 := 5*D1[1] + 4*D1[2] + 3*D1[3] + 2*D1[4] + 9*D1[5] + 8*D1[6] +
7*D1[7] + 6*D1[8] + 5*D1[9] + 4*D1[10] + 3*D1[11] + 2*D1[12];
DF2 := DF1 div 11;
DF3 := DF2 * 11;
Resto1 := DF1 - DF3;
if (Resto1 = 0) or (Resto1 = 1) then
PrimeiroDigito := 0
else
PrimeiroDigito := 11 - Resto1;
DF4 := 6*D1[1] + 5*D1[2] + 4*D1[3] + 3*D1[4] + 2*D1[5] + 9*D1[6] +
8*D1[7] + 7*D1[8] + 6*D1[9] + 5*D1[10] + 4*D1[11] + 3*D1[12] +
2*PrimeiroDigito;
DF5 := DF4 div 11;
DF6 := DF5 * 11;
Resto2 := DF4 - DF6;
if (Resto2 = 0) or (Resto2 = 1) then
SegundoDigito := 0
else
SegundoDigito := 11 - Resto2;
if (PrimeiroDigito <> StrToInt(Dado[13])) or
(SegundoDigito <> StrToInt(Dado[14])) then
Result := false;
end;
end
else
if Length(Dado) <> 0 then
Result := false;
end;

{Valida dígito verificador de CPF}
function TForm1.TestaCPF(Dado : string) : boolean;
var D1 : array[1..9] of byte;
I,
DF1,
DF2,
DF3,
DF4,
DF5,
DF6,
Resto1,
Resto2,
PrimeiroDigito,
SegundoDigito : integer;
begin
Result := true;
if Length(Dado) = 11 then
begin
for I := 1 to 9 do
if Dado[I] in ['0'..'9'] then
D1[I] := StrToInt(Dado[I])
else
Result := false;
if Result then
begin
DF1 := 0;
DF2 := 0;
DF3 := 0;
DF4 := 0;
DF5 := 0;
DF6 := 0;
Resto1 := 0;
Resto2 := 0;
PrimeiroDigito := 0;
SegundoDigito := 0;
DF1 := 10*D1[1] + 9*D1[2] + 8*D1[3] + 7*D1[4] + 6*D1[5] + 5*D1[6] +
4*D1[7] + 3*D1[8] + 2*D1[9];
DF2 := DF1 div 11;
DF3 := DF2 * 11;
Resto1 := DF1 - DF3;
if (Resto1 = 0) or (Resto1 = 1) then
PrimeiroDigito := 0
else
PrimeiroDigito := 11 - Resto1;
DF4 := 11*D1[1] + 10*D1[2] + 9*D1[3] + 8*D1[4] + 7*D1[5] + 6*D1[6] +
5*D1[7] + 4*D1[8] + 3*D1[9] + 2*PrimeiroDigito;
DF5 := DF4 div 11;
DF6 := DF5 * 11;
Resto2 := DF4 - DF6;
if (Resto2 = 0) or (Resto2 = 1) then
SegundoDigito := 0
else
SegundoDigito := 11 - Resto2;
if (PrimeiroDigito <> StrToInt(Dado[10])) or
(SegundoDigito <> StrToInt(Dado[11])) then
Result := false;
end;
end
else
if Length(Dado) <> 0 then
Result := false;
end;

*************************************************

Para chamar esta rotina, devemos colocar no OnExit do edit o seguinte código:

begin
edit#.Text:= Form1.TestaCpfCgc(edit#.Text);
end;

lembrando que o # será substituído pelo múmero do edit que você digitará o CPF/CNPJ.

*************************************************
Para finalizar, devemos declarar as funções, para isso, vá, no início do código:

type
TForm1 = class(TForm)
.
.
.
private
{ Private declarations }
function TestaCpfCgc(Dado: string): String;
function TestaCGC(Dado : string) : boolean;
function TestaCPF(Dado : string) : boolean;
public
{ Public declarations }
end;

Pronto, é só rodar.
Abraços
Titio Trevas

Criticando / Validando Datas

2010-09-16T18:17:00.000-07:00

Uma obrigação que todo programador deve ter é a validação de alguns campos na tela.
Vamos agora validar um campo DATA.

Evento Change (só para acrescentar as barras que separam o dia do mês e o mês do ano.

var vdata:string;
begin
if length(edit5.Text) = 8 then
begin
vdata:=edit5.Text;
insert('/',vdata,3);
insert('/',vdata,6);
edit5.Text:=vdata;
end;

end;

Lógica:
Você digitará apenas os números da data e o código formatará para você, acrescentando as barras.

Evento OnExit (Agora vamos validar a data)

begin
try
StrToDate(Edit5.Text);
except
on EConvertError do
begin
ShowMessage ('Data Inválida!');
edit5.Clear;
edit5.SetFocus;
end;
end;
end;

Obs: Isso só roda no executável fora do delphi (compile e rode). Para isto, basta dar o F9, sair do programa, ir na pasta onde o projeto está salvo e rodar o aplicativo.

Abraços
Titio Trevas

Esse código é muito bom!

2010-08-19T20:02:00.000-07:00

Segue agora um código extremamente importante para TODOS os grupos.

Exemplo da tela:

É preciso tirar os componentes de banco de dados. Os mesmos estarão no Data Module.

Obs1: O button1 é o OK
O button2 é o Verificar receita
O button3 é o Verificar receita no período

Obs2: A tabela no banco de dados se chama teste e só possui três campos: pgto, valor e data (tudo do tipo texto).

É preciso colocar o comando SQL no ADOQuery do Data Modulo:
Select * from teste

Vamos ao código:

*******************************************************************
procedure TForm1.Button1Click(Sender: TObject);
begin
DM.AdoQuery1.Append;
DM.AdoQuery1.FieldByName('pgto').value := combobox1.text;
DM.AdoQuery1.FieldByName('Valor').value := strtofloat(edit1.text);
DM.AdoQuery1.FieldByName('Data').value := edit2.text;
DM.AdoQuery1.post;
end;
********************************************************************
procedure TForm1.Button2Click(Sender: TObject);
var
vtot:Real;
begin
vtot:=0;
DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Dinheiro'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;
if (DM.AdoQuery1.fields.fields[0].IsNull) then
label3.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label3.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cartão'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label5.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label5.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cheque'+chr(39)+ 'and data = :dtespecifica');
DM.teste.Parameters.Parambyname('dtespecifica').value := Strtodate(edit2.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label7.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label7.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.AdoQuery1.sql.Add('Select * from teste');
DM.AdoQuery1.Open;

label11.caption:=floattostrf(vtot,ffCurrency,6,2);

end;
****************************************************************************
procedure TForm1.Button3Click(Sender: TObject);
var
vtot:Real;
begin
vtot:=0;
DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Dinheiro'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;
if (DM.AdoQuery1.fields.fields[0].isnull) then
label3.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label3.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cartão'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label5.caption:='R$ 0,00'
else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label5.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.teste.sql.Add('Select sum(Valor) from teste where pgto = ' +chr(39)+'Cheque'+chr(39)+ 'and data BETWEEN :dtinicial and :dtfinal');
DM.teste.Parameters.Parambyname('dtinicial').value := Strtodate(edit3.text);
DM.teste.Parameters.ParamByName('dtFinal').value := Strtodate(edit4.text);
DM.AdoQuery1.Open;

if (DM.AdoQuery1.fields.fields[0].isnull) then
label7.caption:='R$ 0,00'

else
begin
vtot:=vtot+DM.AdoQuery1.fields.fields[0].value;
label7.caption:=floattostrf(DM.AdoQuery1.fields.fields[0].value,ffCurrency,6,2);
end;

DM.AdoQuery1.Close;
DM.AdoQuery1.sql.clear;
DM.AdoQuery1.sql.Add('Select * from teste');
DM.AdoQuery1.Open;

label11.caption:=floattostrf(vtot,ffCurrency,6,2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Filtrando letra a letra com SQL

2010-08-15T18:42:00.000-07:00

Não se esqueçam que é preciso colocar um ListBox e três Edits para este código.

procedure TForm1.Edit1Change(Sender: TObject);
begin
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome like '+chr(39)+edit1.text+'%'+chr(39));
q1.open;
listbox1.Clear;
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
vnome:string;
begin
vnome:=listbox1.items[listbox1.Itemindex];
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome ='+chr(39)+vnome+chr(39));
q1.open;
edit1.text:=q1.fields.fields[0].value;
edit2.text:=q1.fields.fields[1].value;
edit3.text:=q1.fields.fields[2].value;
end;

Para os alunos do 3º Ano Informática

2010-08-15T18:37:00.000-07:00

Código de exemplo para efetuar uma venda.
Obs1: Não esqueça que este código deverá ser adaptado para suas necessidades.
Obs2: A variável TOTAL deve ser declarada na parte de declaração do FORM e não na PROCEDURE.

Exemplo da tela

var
Form1: TForm1;
total:real;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
vitem:real;
ncarac,x:integer;
result:string;

begin
vitem:=strtocurr(edit1.text);
edit1.text := FloatToStrF(vitem,ffCurrency,7,2);
ncarac:=length(combobox1.text);
for x:=1 to 10 do
begin
if x <= ncarac then
result := result + copy(combobox1.text, x, 1)
else
result := result + ' ';
end;

listbox1.Items.add(result+edit1.text);

total:= total + vitem;
label5.Caption := FloatToStrF(total,ffCurrency,7,2);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
edit1.Clear;
end;

end.

Palestra - Faculdade de Belford Roxo

2010-05-29T16:06:00.000-07:00

Palestra realizada na Faculdade de Belford Roxo em 28/05/2010 pela 10ª Semana Acadêmica. Presentes os cursos de Pedagogia e Administração de Empresas e outros convidados.

Muito Bom! Público Excelente!

Como é dura a vida de professor

2009-10-19T10:06:00.000-07:00

O PROFESSOR SEMPRE ESTÁ ERRADO (Será?)

“Quando...
É jovem, não tem experiência.
É velho, está superado.
Não tem automóvel, é um coitado.
Tem automóvel, chora de "barriga cheia".
Fala em voz alta, vive gritando.
Fala em tom normal, ninguém escuta.
Não falta às aulas, é um "Caxias".
Precisa faltar, é "turista"
Conversa com outros professores, está "malhando" os alunos.
Não conversa, é um desligado.
Dá muita matéria, não tem dó dos alunos.
Dá pouca matéria, não prepara os alunos.
Brinca com a turma, é metido a engraçado.
Não brinca com a turma, é um chato.
Chama à atenção, é um grosso.
Não chama à atenção, não sabe se impor.
A prova é longa, não dá tempo.
A prova é curta, tira as chances dos alunos.
Escreve muito, não explica.
Explica muito, o caderno não tem nada.
Fala corretamente, ninguém entende.
Fala a "língua" do aluno, não tem vocabulário.
Exige, é rude.
Elogia, é debochado.
O aluno é reprovado, é perseguição.
O aluno é aprovado, "deu mole".” (Autor desconhecido)

É, o professor pode estar sempre errado na visão de alguns, eu diria que cada um deles faz o que sabe e acredita ser o melhor naquele momento e que isso demonstra o empenho que nós professores colocamos em nossas ações!
Agradeço a todos os professores e alunos que passaram e passam por minha vida, me ensinando um pouco mais sobre como ser um professor melhor a cada dia.
Que as críticas sejam construtivas e os elogios sinceros. Que predomine a parceria e o respeito para que todos ganhem nesta relação permanente de ensinoaprendizagem.
Professores, não deixem que as críticas e as dificuldades do dia-a-dia lhes retirem o prazer de ensinar e fazer o que acredita, deva ser feito!
Que o Brasil, sua população e governantes, possam investir na melhoria desta parceria incentivando o respeito e a valorização destes profissionais.

Lembranças da Escola

2009-07-13T13:35:00.000-07:00

As imagens de que me lembro não representam necessariamente a realidade, mas são imagens fantásticas.

por Ney Trevas Santos Junior

Provavelmente sou o que se pode dizer de felizardo, minhas memórias da escola estão mergulhadas em nuvens de alegria. Para mim, a escola sempre foi um espaço de prazer e felicidade. Foi lá, no Jardim Escola Peter Pan, que dei meus primeiros passos que me conduziram ao que sou hoje e, para minha felicidade, esses primeiros passos, aconteceram em um ambiente sadio e repleto de coisas boas a começar por tia Claudia. Tia Claudia era (já naquela época) o que depois de alguns anos eu comecei a classificar como “espetacular”. Atire a primeira pedra quem nunca se apaixonou por alguma tia Claudia. Lá, comecei a estabelecer as primeiras significações de palavras em minha mente. Lembro-me que todo dia, para entrar-mos em nossa sala de aula, antes deveríamos formar no pátio e nos deslocarmos contanto um alegre “piuí tic-tac, piuí tic-tac”. Como morava longe da linha férrea e ainda não era um leitor, imaginava uma máquina “gigantesca” (éramos 25 alunos) que fizesse o tal “piuí tic-tac”. Mais tarde, descobri que a imagem não era necessariamente a mais correta, mas com muita boa vontade se assemelhava, eu disse, com muito boa vontade, a uma “coisa” muito parecida com uma Maria Fumaça. Agora, me ocorre que uma outra significação que estabeleci nesta época e que, esta sim, não teve absolutamente nada a ver com a realidade, foi com a história do gafanhoto. Lembra-se do canto: “um atrás do outro, igual a um gafanhoto...”, pois é, o gafanhoto que imaginei, bom, deixa pra lá. Nessas nuvens de recordações, trago a minha consciência os vários momentos de pura diversão, que me permitiam exercitar a arte de ser criança. Momentos em que aprendi, por vezes com alguma dificuldade, que o outro também quer se divertir e tem esse direito, que a tinta era de todos, que a Tia Claudia, não era só minha, enfim, hoje entendo que já estavam plantando em minha mente naquela época, o conceito de compartilhar. Uma nova nuvem chega agora e resgata imagens das festas: caipira, dia das mães, dos pais, do folclore e tantas outras. Sei, hoje, que são alegrias que não voltam mais, entretanto, foram tão marcantes, que hoje posso deitar, fechar meus olhos e vivê-las intensamente, posso até mesmo rir do Pedro que sempre deixava seu lanche cair no chão, ou até chorar em ver minha mãe emocionada ao me ver com muita dificuldade recitar um versinho para ela no seu oficial dia. Mas o que mais orgulho desta época é que posso afirmar hoje que sou um felizardo, pois, minhas memórias da escola estão mergulhadas em nuvens de alegria, e isso, ninguém tirará de mim.

Será que você também acha isso?

2009-07-03T10:09:00.001-07:00

Lógica aparentemente perfeita

2009-07-02T13:23:00.000-07:00

Parece que a lógica estava perfeita, pena que deu errado.

Visita a PPP da UERJ

2009-07-01T11:07:00.000-07:00

Hoje farei uma visita à turma de PPP da UERJ para falar um pouco sobre o meu projeto de pesquisa.