Olá a todos.
Bem... quem gosta de ping pong? Muita gente... Olha o show desses doidos...
Link do video no YT.
Edit: Olha esses outros vídeos dos mesmos kras:
- Salto com vara
- Karate
Kra por isso que eu digo q japa são os kras mais doidos! Só tem maluco japa sinistro.
Abraços, até.
Olá olá a todos.
Neste post vou falar sobre um site interessante que eu encontrei passeando um pouco no IRC do Debian.
Vocês já se depararam com uma situação onde vocês precisem mostrar um código ou um texto para várias pessoas (talvez uma só) e não têm onde colocar este texto? Quem usa IRC sabe hehe.
Bem um cara criou esse site que é muito legal. Você escolhe seu nick, seleciona o tipo de texto (ele pinta código xD), coloca uma descrição e pronto. É só mandar a url para qualquer um.
Eu acho uma super ferramenta para trocar códigos ou informações com um número bom de gente.
Imagina: 5 pessoas no MSN conversando sobre um programa e precisam mostrar partes de código umas para as outras... Com esse site é possível.
Então valeu. abraços para todos e aproveitem. Ia me esquecendo. Como diz o FAQ o cara apaga a parada em 24 horas. Mas vale a moral e a idéia do cara. Foi para o meu del.icio.us na hora. Em tempo: criem e divulguem os seus favoritos também para a galera saber quais sites cada um gosta de acessar e conhecer algo novo.
Agora sim, abraços a todos.
É uma linguagem de programação declarativa, fortemente tipada.
Declarativa: Significa que cada declaração possui uma seção especifica para tal.
Contém todo o conceito da orientação a objetos:
And Exports Library Set
Array File Mod Shl
As Finnaly Nil Shr
Asm For Not String
Begin Function Object Then
Case Goto Of To
Class If On Try
Const Implementation Or Type
Constructor In Packed Unit
Destructor Inherited Procedure Until
Div Initialization Program Uses
Do Inline Property Var
Downto Interface Raise While
Else Is Record With
End Label Repeat Xor
Except
Absolute Export Name Published
Abstract External Near Read
Assembler Far Nodefault Resident
At Forward Override Stored
Cdecl Index Private Virtual
Default Interrupt Protected Write
Dynamic Message Public
[Declaração Constante] [Identificador] (=) [constante] (;)
Ab Length Ord SizeOf
Chr Lo Pred Succ
Hi Low Ptr Swap
High Odd Round Trunc
Únicos @, Not
Multiplicativos >, /, div, mod, and, shl, shr, as
Adicionais +, -, or, xor
Relacionais =, < >, <, >, < =, > =, in, is
begin
{ ... comandos iniciais ... }
with form1 do
begin
Caption := ‘Teste’; Equivalente a Form1.Caption
BorderStyle := bsSizable; Equivalente a Form1.BorderStyle
end;
end;
begin
{ ... comandos iniciais ... }
begin
{ ... bloco 1 ... }
end;
begin
{ ... bloco 2 ... }
end;
{ ... comandos finais ... }
end;
begin
{ ... comandos iniciais ... }
if x > 2 then
{ ... Bloco verdadeiro ... }
else
{ ... Bloco falso ... };
end;
label
primeiro;
begin
{ ... comandos iniciais ... }
if x = 2 then
goto primeiro;
{ ... outros comandos ... }
Primeiro:
{ ... comandos do Primeiro ... }
end;
begin
{ ... comandos iniciais ... }
case x of
1: { ... Bloco para x = 1 ... }
2, 3: { ... Bloco para x = 2 ou X = 3... }
4..6: { ... Bloco para 4 <= x <= 6 ... }
else { ... Bloco para x <> 6 ... };
end;
end;
begin
{ ... comandos iniciais ... }
x := 0;
repeat
x := x + 1
until (x = 2);
end;
begin
{ ... comandos iniciais ... }
for i := 1 to 10 do Executa o [comandos A] para i = 1,2,3,4,5,6,7,8,9 e 10
{ ... Comandos A ... }
for s := 10 downto 1 do Executa o [comandos B] para i = 10,9,8,7,6,5,4,3,2 e 1
{ ... Comandos B... }
end;
begin
{ ... comandos iniciais ... }
while i := 1 do Repete o [Bloco de comandos] enquanto i = 1
{ ... Bloco de comandos ... }
end;
begin
{ ... comandos iniciais ... }
for i := 1 to 10 do
begin
if i = 8 then
break; Salta para os [comandos C]
{... comandos A...}
if i = 5 then
continue; Retorna para o comando for pulando os [comandos B]
{... comandos B ...}
end;
{... comandos C ...}
end;
Olá a todos os queridos freqüentadores do blog.
Vocês conhecem o funk carioca? Sabem dançar o funk carioca?
Vejam essa aula com os professores Josicreuda e Magalhãese:
Esse artigo é continuação do post “Robustez no Delphi”
Dando continuidade a seqüência de artigos sobre tratamento de exceções.....
A Estrutura “Try…Finally…End”:
{Aqui vc aloca os recursos}
try
{Aqui temos comandos que usam os recursos}
finally
{Libera os recursos de forma gsarantida}
end;
procedure TForm1.Button1Click(Sender:TObject);
var
ZnMyPointer : Pointer;
ZnInteger, ZnDividend : Integer;
begin
ZnDividend := 0;
GetMem(ZnMypointer, 512);
try
ZnInteger := 10 Div ZnDividend;
finally
FreeMem(ZnMypointer, 512);
end;
end;
try
{Comandos que você deseja proteger}
except
{Comandos de tratamento de erros}
end;
function ZnDivisao (const ZnSoma, ZnNum : Integer) : Integer;
begin
try
Result := ZnSoma div ZnNum;
except
on EDivByZero do Result := 0;
end;
end;
try
{* Comandos * }
except
on E: EInvalidOperation do
MessageDlg(‘Personalizando a exceção – Minha mensagem é ... a da exceção é:‘+E.Message,
mtinformation,[mbOk],0);
end;
function Divisao (const ZnSoma, ZnNum : Integer) : Integer;
begin
try
Result := ZnSoma div ZnNum;
except
on EDivByZero do Result 0;
on EIntError do
MessageDlg('Outro erro com inteiros aconteceu', mtError, [mbOk],0);
end;
end;
try
{Comandos}
except
on EintOverFlow do
{Código especifico para o primeiro tipo de erro]
on EintError do
{Código específico para o segundo tipo de erro}
else
MessageDlg('Um erro aconteceu, mas com certeza está relacionada com inteiros',
mtError, [mbOk],0);
end;
Exceções de conversão.
Exceções de entrada e saída.
Exceções de Hardware.
Exceções de memória heap.
Exceções matemáticas envolvendo inteiros.
Exceções matemáticas envolvendo pontos flutuantes.
Exceções de typecast.
var
ZnNumInteriro: Integer;
begin
ZnNumInteriro := StrToInt(Edit1.text);
end;
Efault (Exceção Base),
EGPFault (Falha Geral de Proteção),
EstackedFault (acesso ilegal ao seguimento stack do processador),
EpageFault (O windows não está conseguindo realizar o swap),
EinvalidOpCode (O processador encontra uma instrução indefinida),
EbreakPoint (A aplicação gerou uma interrupção breakpoint),
Esinglestep (A aplicação gera uma interrupção single-step).
(* para esse exemplo coloquei um edit e um button, palheta standard, num form. *)
procedure TForm1.Button1Click(Sender: TObject);
begin
(Sender as TBitBtn).Glyph.LoadFromFile('C:\Img.bmp');
end;
EDataBaseError: Gerado sempre que ocorre um erro no Banco de Dados
EDBEngineError: Gerado sempre ocorre um erro no BDE.
EPrinter: Gerado quando ocorre um erro com a impressora.
EDDEError: Gerado a aplicação não consegue encontrar um servidor DDE.
EMCIDeviceError: Gerado quando ocorre um erro ao tentarmos
acessar um dispositivo multimídia.
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure ExcecaoSilenciosa;// Ao terminar de digitar, pressione “Ctrl+ Shift + C”
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ExcecaoSilenciosa;
const
ATexto = '%d° Elemetnto';
begin
Listbox1.Items.Add(‘Preparando para adicionar’);
//Estrutura de repetição, utilizada para adicionar os itens
Repeat
// adicionado os elementos
Listbox1.Items.Add(Format(ATexto, [ListBox1.Items.Count]));
// um teste louco pra forçar a exceção silenciosa
if (ListBox1.Items.Count mod 21 = 0) then Abort;
until ListBox1.Items.Count > 50;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ExcecaoSilenciosa;
except
on Exception do
begin
Self.Color := clRed;
Self.Caption := 'Exceção Silenciosa!'
end;
end;
end;
Olá a todos os amigos.
Esse post traz algo realmente nada a ver. Eu estou postando só porque eu e minha mulher adoramos: jogar perda, papel e tesoura.
Felipeeeee... O que é pedra, papel e tesoura?
Bem. Conhecem o famoso par-ou-ímpar? É parecido. É um jogo de mãos em que há três elementos (advinha quais são):
Pedra - mão fechada (como se fosse zero)
Papel - mão aberta (como se fosse cinco)
Tesoura - dois dedos (indicando dois)
Aqui estão as regras:
Papel embrulha a Pedra (Papel > Pedra)
Pedra quebra a Tesoura (Pedra > Tesoura)
Tesoura corta o Papel (Tesoura > Papel).
Simples assim. Quem já teve o prazer de jogar no Master System o jogo Alex Kidd in Miracle World (Há... esse é da antiga! xD) já enfrentou duelos de Pedra-Papel-Tesoura em alguns chefões. Huahuahauahauhaua bons tempos aqueles...
Para quem acha que isso é só brincadeira, confira esse artigo na Wikipedia.
Eu achei na net até um artigo sobre táticas e (acreditem) trapaças em Pedra-Papel-Tesoura. O conteúdo dos links está em inglês.
Sempre que eu e minha mulher estamos num impasse nós recorremos ao Janken (esse é o nome japoronga do jogo). Posso dizer uma coisa: Ou eu sou péssimo ou ela é muito boa! pq ela ganha toda hora xD.
Tentem jogar e vejam se não é muito melhor que par-ou-ímpar...
xD Abraços e até mais.
raise EMathError.Create(‘Erro: EMathError’);// Específico
Ou simplesmente
raise Exception.Create(‘Erro bla: Exception’);// Genérico
(* para esse exemplo coloquei um edit e um button, palheta standard, num form. *)
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' then
raise EMathError.Create('Digite um número.');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
Edit1.Text := '';// atribui vazio para forçar a exceção
Button1Click(Button1);// chama o procedimento que vai criar a axceção.
Form1.Color := clYellow;
except
Edit1.Text := '2'; // Ocorrendo a exceção, atribui ‘2’ para a prop. text de edit1.
Form1.Caption := 'Exceção ocorrida.'; // atribui valor para o captio do From1
Button2.Caption := 'Pressionado!';
end;
end;
.
(* Adicione mais um botão, TButton da palheta standard *)
procedure TForm1.Button3Click(Sender: TObject);
begin
try
Edit1.Text := '';
Button1Click(Button1);
Form1.Color := clYellow;// executado somente se não ocorrer a exceção
except
on MyVar: Exception do
MessageDlg(‘A msg capturada foi: ’ + MyVar.Message, mtWarning, [mbOK], 0);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
try
Edit1.Text := '';
Button1Click(Button1);
Form1.Color := clYellow;// executado somente se não ocorrer a exceção
except
on MyVar: Exception do
begin
Form1.Caption := MyVar.Message;
Button3.Caption := 'Pressionado!';
MessageDlg('A msg capturada foi: ' + MyVar.Message, mtWarning, [mbOK], 0);
end;
end;
end;
(* Adicione mais um Edit, Edit2, e um Button, Button4. Ambos da palheta standard *)
procedure TForm1.Button4Click(Sender: TObject);
var
AuxInteiro: Integer;
begin
try
AuxInteiro := StrToInt(Edit2.Text);
if (Edit1.Text <> '') and (Edit2.Text <> '') then
raise Exception.Create('Exceção genérica!');
Edit1.Text := '';
Button1Click(Button1);
except
on Bl: EMathError do
begin
Form1.Color := clRed;
Form1.Caption := E.Message;
MessageDlg('Msg capturada: Edit1 ' + Bl.message, mtWarning, [mbOK], 0);
end;
on E: EConvertError do
begin
Form1.Color := clGreen;
Form1.Caption := E.Message;
MessageDlg('Msg (EConvertError): ' + E.message, mtConfirmation, [mbCancel], 0);
end;
on E: Excetpion do
begin
Form1.Color := clWhite;
Form1.Caption := '';
MessageDlg(E.message, mtInformation, [mbAbort], 0);
end;
end;
end;
Entretanto, basta vc digitar qualquer número no Edit2 para que sejam executados os comandos da última estrutura “on ..do , onde testamos o tipo mais genérico de todos, “Exception”.
(* trocando a estrutura de lugar *)
procedure TForm1.Button4Click(Sender: TObject);
var
AuxInteiro: Integer;
begin
try
AuxInteiro := StrToInt(Edit2.Text);
if (Edit1.Text <> '') and (Edit2.Text <> '') then
raise Exception.Create('Exceção genérica!');
Edit1.Text := '';
Button1Click(Button1);
except
on E: Excetpion do
begin
Form1.Color := clWhite;
Form1.Caption := '';
MessageDlg(E.message, mtInformation, [mbAbort], 0);
end;
(* não importa o que vc faça, essas linhas nunca serão executadas *)
on Bl: EMathError do
begin
Form1.Color := clRed;
Form1.Caption := E.Message;
MessageDlg('Msg capturada: Edit1 ' + Bl.message, mtWarning, [mbOK], 0);
end;
on E: EConvertError do
begin
Form1.Color := clGreen;
Form1.Caption := E.Message;
MessageDlg('Msg (EConvertError): ' + E.message, mtConfirmation, [mbCancel], 0);
end;
end;
end;
Type
EExternal = class(Exception)
EExternalException = class(EExternal);
EIntError = class(EExternal);
EDivByZero = class(EIntError);
ERangeError = class(EIntError);
EIntOverflow = class(EIntError);
EMathError = class(EExternal);
EInvalidOp = class(EMathError);
EZeroDivide = class(EMathError);
EOverflow = class(EMathError);
EUnderflow = class(EMathError);
EInvalidPointer = class(EHeapException);
EInvalidCast = class(Exception);
EConvertError = class(Exception);
EAccessViolation = class(EExternal);
.
.
.
Olá a todos os freqüentadores do nosso blog. Eu peço muitas desculpas a todos por não ter postado durante uns 10 dias... Eu estive em pequenas férias e aproveitei um pouco xD
Vim trazer um post bem light e uma recomendação.
Muita gente por aí já usa o Firefox. Talvez nem tanta gente saiba que no site há milhares (centenas na verdade xD) de extensões e temas para personalizar o navegador e também dar novas funcionalidades. Eu, por exemplo, navego por horas na net só procurando boas extensões. Vou recomendar algumas agora.
Adblock Plus - Não exibe no navegador algumas propagandas e banners chatos que ocupam o lugar do conteúdo de alguns sites.
Fasterfox - Aumenta a performance do navegador (que já é boa).
Firefox Showcase - Bem... eh... Vocês sabem o Ctrl+Q do IE7? Pois é... eh... [sem graça] Não é tão bonito, mas é muito legal. Mostra todas as abas numa janela com preview.
MeasureIt - Quer saber quais são as dimensões daquela imagem? Daquele div? Essa extensão permite desenhar um retículo em qualquer parte da página e ele dá as dimensões. Para mim é muito útil.
Por último e não menos importante...
Greasemonkey - Essa extensão é uma doideira...
Há um site onde pessoas criam scripts em JavaScript que interagem com praticamente todos os sites da internet.
Como assim Felipe? Eu explico...
Imagina o GMail... Imagina se você pudesse tirar algumas partes, adicionar outras e mudar o tema dele? Pois é, já criaram este script.
Imagina você lendo um artigo na internet e quer pesquisar determinada palavra na wikipedia? Como seria fácil se você selecionasse a palavra e apertasse 'w' no teclado e abrisse uma barra do lado com o conteúdo da Wikipedia? Pois é, já criaram este script.
Eu podia ficar aqui meia hora listando as 223 páginas de scripts que esse site tem, mas acho que já deu pra pegar a idéia.
Mas Felipe, você estava falando de extensões do Firefox, lembra? Lembro. O ponto é: Esta extensão - Greasemonkey - permite você instalar estes scripts e toda sua experiência de navegação muda completamente!
Vou mostrar algumas imagens:
Este é meu GMail atual
Aqui eu selecionei a palavra activeX e pressionei 'w' e aquela barra no lado direito apareceu com o artigo da Wikipedia sobre ActiveX. Legal, não.
Por aí vai... Você encontra download de vídeos do YT (e todos os outros sites similares também), remodelador de margens, mostrar 100 resulados por página no Google, exibir resultados do Google em duas colunas, mostrar o vídeo do YT direto mesmo que no site haja apenas a url... Para sites de blog e notícia tem quilos... Tem até uma que troca o nome do George Bush! Hehe... Realmente há milhares de scripts para mudar completamente a maneira de navegar na internet.
Como é JavaScript logo eu também vou tentar criar alguma parada dessas, mas por enquanto eu só estou abrindo os fontes dos outros e fazendo umas pequenas modificações. Estou gostando muito.
Bem, então valeu... Divirtam-se com o Firefox e 'redescubra a web'!
P.S.: Vocês repararam que o meu Firefox está muito parecido com um navegador bem conhecido? É assustador. Tem gente muito talentosa por aí galera...
