Sistema de Gráficos

Sistema de gráficos referente aos casos da Gripe H1N1 no Brasil e no mundo. Desenvolvido com o Delphi 2007.
Segue o código abaixo:

unit grafico_gripe; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Series, DBChart, TeEngine, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons, TeeDBEdit, TeeDBCrossTab; type TForm1 = class(TForm) Chart1: TChart; Series1: TBarSeries; BitBtn2: TBitBtn; GroupBox1: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Chart2: TChart; Series2: TPieSeries; BitBtn1: TBitBtn; Edit7: TEdit; Edit8: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } ft_flo_valor:real; ft_str_label:string; ft_cor_valor:TColor; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin self.Chart1.Series[0].Clear; self.Chart1.Series[0].Add( strtofloat(self.Edit1.text),'RS' ,clred ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit2.text),'SC' ,clgreen ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit3.text),'PR' ,clpurple ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit4.text),'SP' ,clblue ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit5.text),'RJ' ,claqua ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit6.text),'MG' ,clyellow ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit7.text),'BA' ,clfuchsia ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit8.text),'MS' ,clmoneygreen ) ; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin self.Chart2.Series[0].Clear; self.Chart2.Series[0].Add( strtofloat(self.Edit9.text),'Argentina' ,clred ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit10.text),'Austrália' ,clgreen ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit11.text),'Canadá' ,clyellow ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit12.text),'Chile' ,clblack ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit13.text),'Japão' ,claqua ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit14.text),'México' ,clmoneygreen ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit15.text),'Espanha' ,clpurple ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit16.text),'EUA' ,clblue ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit17.text),'Reino Unido' ,clfuchsia ) ; end; end.

E a interface do programa:

Jogo da Velha em Delphi

O primeiro programa criado no técnico,foi um jogo da velha, utilizando o programa Delphi 2007. Segue abaixo o código:

unit Unit_Tabuleiro; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Panel1: TPanel; Image1: TImage; Panel2: TPanel; Image2: TImage; Panel3: TPanel; Image3: TImage; Panel4: TPanel; Image4: TImage; Panel5: TPanel; Image5: TImage; Panel6: TPanel; Image6: TImage; Panel7: TPanel; Image7: TImage; Panel8: TPanel; Image8: TImage; Panel9: TPanel; Image9: TImage; Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label4: TLabel; Label5: TLabel; procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Image3Click(Sender: TObject); procedure Image6Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure Image4Click(Sender: TObject); procedure Image9Click(Sender: TObject); procedure Image8Click(Sender: TObject); procedure Image7Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } ft_int_jogador_da_vez: integer; procedure ft_voi_Colocar_Uma_Imagem(ft_int_tipo:Integer ; ft_obj_imagem: TImage); procedure ft_voi_Branquear_Todas_As_Imagens(); procedure ft_voi_Mudar_Jogador_Da_Vez(); procedure ft_voi_Liberar_Todas_Imagens(); function ft_boo_Jogador_Da_Vez_Venceu(): Boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //============================================================================== procedure TForm1.ft_voi_Mudar_Jogador_Da_Vez(); begin if (self.ft_int_jogador_da_vez = 1) then begin self.ft_int_jogador_da_vez:= 2; end else begin self.ft_int_jogador_da_vez := 1; end; end; //============================================================================== procedure TForm1.ft_voi_Liberar_Todas_Imagens(); begin self.Image1.Enabled := true; self.Image2.Enabled := true; self.Image3.Enabled := true; self.Image4.Enabled := true; self.Image5.Enabled := true; self.Image6.Enabled := true; self.Image7.Enabled := true; self.Image8.Enabled := true; self.Image9.Enabled := true; end; //============================================================================== procedure TForm1.ft_voi_Branquear_Todas_As_Imagens; begin self.ft_voi_Colocar_Uma_Imagem(0 , self.Image1); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image2); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image3); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image4); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image5); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image6); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image7); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image8); self.ft_voi_Colocar_Uma_Imagem(0 , self.Image9); //------ self.ft_int_jogador_da_vez:= 1; end; //============================================================================== procedure TForm1.ft_voi_Colocar_Uma_Imagem(ft_int_tipo:Integer;ft_obj_imagem:TImage); begin if(ft_int_tipo=1)then begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); end else if(ft_int_tipo=2)then begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp') end else begin ft_obj_imagem.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\vazio.bmp'); end; end; //============================================================================== procedure TForm1.Image1Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem (self.ft_int_jogador_da_vez ,self.image1); self.Image1.Enabled:=false; self.Edit4.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image2Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image2); self.Image2.Enabled:=false; self.Edit5.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image3Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image3); self.Image3.Enabled:=false; self.Edit6.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image4Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image4); self.Image4.Enabled:=false; self.Edit9.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image5Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image5); self.Image5.Enabled:=false; self.Edit8.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image6Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image6); self.Image6.Enabled:=false; self.Edit7.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image7Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image7); self.Image7.Enabled:=false; self.Edit12.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image8Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image8); self.Image8.Enabled:=false; self.Edit11.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; procedure TForm1.Image9Click(Sender: TObject); begin self.ft_voi_Colocar_Uma_Imagem(self.ft_int_jogador_da_vez , self.image9); self.Image9.Enabled:=false; self.Edit10.text:=inttostr(self.ft_int_jogador_da_vez); if (self.ft_boo_Jogador_Da_Vez_Venceu) then begin ShowMessage('O jogador ' + inttostr(self.ft_int_jogador_da_vez) + ' venceu! '); end; self.ft_voi_Mudar_Jogador_Da_Vez(); end; //============================================================================== function TForm1.ft_boo_Jogador_Da_Vez_Venceu(): Boolean; var ft_str_valor: string; ft_boo_apoio: boolean; Begin ft_str_valor := inttostr(self.ft_int_jogador_da_vez); if ((self.Edit4.text = ft_str_valor) and (self.Edit5.text = ft_str_valor) and (self.Edit6.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit7.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit9.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit10.text = ft_str_valor) and (self.Edit11.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit4.text = ft_str_valor) and (self.Edit7.text = ft_str_valor) and (self.Edit10.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit5.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit11.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit6.text = ft_str_valor) and (self.Edit9.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit4.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit12.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else if ((self.Edit10.text = ft_str_valor) and (self.Edit8.text = ft_str_valor) and (self.Edit6.Text = ft_str_valor)) then begin ft_boo_apoio := true; end else begin ft_boo_apoio := false; end; result := ft_boo_apoio; End; //============================================================================== procedure TForm1.BitBtn1Click(Sender: TObject); begin self.Image1.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image2.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image3.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image4.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image5.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image6.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image7.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image8.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); self.Image9.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\x.bmp'); end; //============================================================================== procedure TForm1.BitBtn2Click(Sender: TObject); begin self.Image1.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image2.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image3.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image4.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image5.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image6.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image7.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image8.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); self.Image9.Picture.LoadFromFile('D:\RAD Studio\Projects\Fernanda\imagens\o.bmp'); end; //============================================================================== procedure TForm1.Button1Click(Sender: TObject); begin self.ft_voi_Branquear_Todas_As_Imagens(); self.ft_voi_Liberar_Todas_Imagens(); Edit4.Clear; Edit5.Clear; Edit6.Clear; Edit7.Clear; Edit8.Clear; Edit9.Clear; Edit10.Clear; Edit11.Clear; Edit12.Clear; end; procedure TForm1.FormCreate(Sender: TObject); begin self.ft_voi_Branquear_Todas_As_Imagens(); self.ft_voi_Liberar_Todas_Imagens(); end; //============================================================================== end.

 

E as imagens:

OBS: Para que o jogo dê certo será necessário alterar algumas variáveis e endereço das imagens.

Tecnologia Inútil e Engraçada

WowWee ChatterBot é um robô falante para desktop que comenta o dia todo sobre o que você está fazendo no computador.

O WowWee ChatterBot fica conectado ao computador via USB e não pára de falar enquanto você trabalha. Ele conta piadas, faz comentários engraçadinhos sobre os sites que você está visitando, sobre seus e-mails e também comenta sobre datas importantes no seu calendário.

Ele pode ser ligado a um iPod para funcionar sem o computador e também faz fala sobre as músicas que você ouve no iTunes. E para acabar de te enlouquecer completamente ele faz piadinhas sobre palavras específicas digitadas no MSN!
São três modelos diferentes do WowWee ChatterBot: o ChatterBot Dog/Cat com um cão e um gato falante, o ChatterBot Devil/Angel com uma mistura de anjo com diabo e o ChatterBot Fairy Godfather com um padrinho mágico bem esquisito. Cada um custa US$44,97 na Walmart.com.

Visite o site do WowWee ChatterBot e confira o quão irritante ele é em um vídeo online.

O que é Mecatrônica? - Definição Científica

Segundo o Comitê Assessor para Pesquisa e Desenvolvimento Industrial da Comunidade Européia(IRDAC), "Mecatrônica é a integração sinergética da engenharia mecânica com a eletrônica e o controle inteligente por computador no projeto de processos de manufatura de produtos."

A mecatrônica é um ramo da engenharia que estuda e desenvolve projetos de controle e automação, visando integrar sistemas mecânicos, eletrônicos, de controle e programação com a finalidade de automatizar e melhorar projetos, processos e a programação no meio industrial.

É o futuro das engenharias. Nada mais é do que cursos como Mecânica e Eletrônica integrados para um novo tipo de aplicação.

O mundo do trabalho vem passando por grandes transformações, principalmente com a expansão da informática em diversos setores produtivos. E o engenheiro mecatrônico está no centro dessas mudanças. É ele que ajuda a levar a tecnologia a diversos setores da indústria.

É uma área muito abrangente. Permite projetar e operar equipamentos utilizados nos processos automatizados das indústrias, ocupar-se do gerenciamento de projetos de automação industrial e comercial, programar máquinas e adaptar softwares, e muitas outras coisas.

Se levarmos em conta a quantidade de processos e dispositivos que podemos obter através dessa união de áreas, vamos muito mais além.