| Últimas 20 atualizações de Gladstone Matos |
|
|
ola Pessoal
Estava a procura de um jeito mais 'facil' de ensinar algoritmo para criancas. O método de compor algoritmos no papel se demonstrou 'chato' para criancas abaixo de 10 anos.
Procurando na net encontrei o joguinho abaixo, achei muito interessante e queria compartilhar com a comunidade:
abracos -->"> |
|
|
|
settimeout permite simular um 'timer' com JavaScript, executando uma acao em intervalos programaveis (similar ao objeto TTimer do Delphi);
veja abaixo um exemplo basico de uso do settimeout com JavaScript (um relogio digital):
function startTime()
{
var today=new Date();
var h=today.getHours();
var m=today.getMinutes();
var s=today.getSeconds();
// add a zero in front of numbers<10
m=checkTime(m);
s=checkTime(s);
document.getElementById('txt').innerHTML=h+":"+m+":"+s;
t=setTimeout('startTime()',500);
}
function checkTime(i)
{
if (i<10)
{
i="0" + i;
}
return i;
} < body onload="startTime()" > < div id="txt"></div >
-->">
|
|
|
|
<HTML>
<HEAD><TITLE>Obter o código da tecla pressionada</TITLE>
</HEAD>
<BODY>
<p>Experimente pressionar qualquer tecla e uma
mensagem mostrará o código da tecla pressionada.</p>
<script language="JavaScript">
function tecla(){
window.alert("O código da tecla pressionada
foi: " + event.keyCode);
}
document.body.onkeypress = tecla;
</script>
</BODY>
</HTML>
-->"> |
|
|
|
SINTAXE: string substr
( string $string
, int $start
[, int $length
] ) Usando um início negativo
<?php
$rest = substr("abcdef", -1); // retorna "f"
$rest = substr("abcdef", -2); // retorna "ef"
$rest = substr("abcdef", -3, 1); // retorna "d"
?>
Usando um length
negativo
<?php
$rest = substr("abcdef", 0, -1); // retorna "abcde"
$rest = substr("abcdef", 2, -1); // retorna "cde"
$rest = sub
... Exibição do post interrompida. Para ler conteúdo completo, clique aqui |
|
|
|
apesar de o problema parecer complexo, a solucao é simples: <script language="javascript">
function abreJanela() {
// definindo o objeto que será a janela
var janela = window.open("http://www.globo.com", "janela", "width=700, height=600");
janela.onbeforeunload = function() {
alert('A janela foi fechada pelo usuário');
}
}
</script>
bons códigos!
-->"> |
|
|
|
Dica para desenvolvedores web e desktop: alguns sites com toneladas de icones gratis - acesse e confira:
http://www.iconesgratis.com.br
http://www.iconfinder.net/ultimate
http://www.freeiconsdownload.com/
bons codigos!
-->">
|
|
|
|
Exibição do post interrompida. Para ler conteúdo completo, clique aqui |
|
|
|
Para obter o IP do visitante da pagina utilize a variavel
de cabecalho "LOCAL_ADDR"; Veja o exemplo abaixo:
ip_address = request.ServerVariables("LOCAL_ADDR")
response.write ip_address
-->">
|
|
|
|
Delphi: Exemplo de uso da função StringReplace
var
before, after : string;
begin
before := 'This is a way to live A big life';
after := StringReplace(before, ' a ', ' THE ',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;
Before = This is a way to live A big life
After = This is THE way to live THE big life
www.devmedia.com.br
-->">
|
|
|
|
Como esperar uma função como parâmetro de outra função:
type
TFunctionParameter = function(const value : integer) : string;
...
function One(const value : integer) : string;
begin
result := IntToStr(value) ;
end;
function Two(const value : integer) : string;
begin
result := IntToStr(2 * value) ;
end;
function DynamicFunction(f : TFunctionParameter) : string;
begin
result := f(2006) ;
end;
...
//Examplo de uso:
var
s : string;
begin
s := DynamicFunction(One) ;
ShowMessage(s) ; //mostra "2006"
s := DynamicFunction(Two) ;
ShowMessage(s) ; // mostra "4012"
end;
-->">
|
|
|
|
Como abrir um TComboBox sem clica-lo
ComboBox1.DroppedDown := True;
-->">
|
|
|
|
DICA: Alterar nome do campo no firebird sem stress Para mudar o nome do campo: ALTER TABLE table1 ALTER [COLUMN] field1 TO field2;
Para mudar o tipo do campo:
ALTER TABLE table1 ALTER [COLUMN] field1 TYPE char(20);
Para alterar sua posição:
ALTER TABLE table1 ALTER [COLUMN] field1 POSITION 4;
-->"> |
|
|
|
{O exemplo abaixo simula o pressionamento da tecla do botãoesquerdo do mouse
em uma determinada posição da tela. No exemplo serão utilizados dois botões
(Button1 e Button2), ao clicar no Button2 ser? executado o onClick do Button1
como se o mouse tivesse clicado sobre ele }
Fonte: http://www.delphibr.com.br/
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Button 1 clicked');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Pt : TPoint;
begin
Application.ProcessMessages;
{Obt?m o point no centro do Button1}
Pt.x := Button1.Left + (Button1.Width div 2);
Pt.y := Button1.Top + (Button1.Height div 2);
{Converte Pt para as coordenadas da tela }
Pt := ClientToScreen(Pt);
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
{Move o mouse}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
{Simula o pressionamento do botãoesquerdo do mouse}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
{ Simula soltando o botãoesquerdo do mouse }
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;
-->"> |
|
|
|
private
procedure DBGridClick(Sender: TObject);
implementation
{$R *.DFM}
procedure TForm1.DBGridClick(Sender: TObject);
begin
ShowMessage('Clicou no DBGrid.');
end;
//Coloque as instruções abaixo no evento OnCreate do Form:
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.ControlStyle := DBGrid1.ControlStyle + [csClickEvents];
TForm(DBGrid1).OnClick := DBGridClick;
end;
Observações:
{O segredo principal desta dica está OnCreate do Form.
A primeira instrução ativa o evento OnClick. A segunda instrução acessa o manipulador
do evento OnClick.
Para isto precisamos tratar o DBGrid como se fosse Form, pois o evento
OnClick está declarado como protegido (protected) na classe TDBGrid.
}
Dica retirada de http://www.delphibr.com.br/
-->">
|
|
|
|
Para seu programa executar uma tarefa quando o usuário tiver clicado em
Desligar Computador (ou Reiniciar, qualquer coisa do tipo), primeiramente vá
na seção private da declaração de classe na unit do form principal e digite
a seguinte linha:
procedure WMEndSession (var Msg : TWMEndSession); message WM_ENDSESSION;
Depois, na seção implementation da unit, digite a seguinte rotina:
procedure TNomeDoForm.WMEndSession (var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
FazAlgo; // Aqui você faz o que tem que fazer
inherited;
end;
FONTE: http://www.guiadodelphi.com.br/ler.php?codigo=667
-->">
|
|
|
|
| > Como não parar a aplicação durante um processo longo? | ">
...
Exibição do post interrompida. Para ler conteúdo completo, clique aqui |
|
|
|
DEVMEDIA AVISO (IMPORTANTE)
MUDANCA DE RSSEm função de uma sobrecarga no servidor, o motor de geração de RSS foi completamente modificado. Por favor, atualize o seu link de RSS em http://www.devmedia.com.br/feed (mudanca valida a partir de 4 de julho de 2008). Contamos com sua compreensao Equipe DevMedia
-->">
|
|
|
|
Como simular um click do mouse via código
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure PressMouseDown(IsLeftButton: Boolean);
begin
if IsLeftButton then
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
else
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
end;
procedure PressMouseUp(IsLeftButton: Boolean);
begin
if IsLeftButton then
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
else
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;
procedure ClickMouseButton(IsLeftButton: Boolean);
begin
PressMouseDown(IsLeftButton);
PressMouseUp(IsLeftButton);
end;
procedure TForm1.FormClick(Sender: TObject);
begin
ShowMessage('Fui clicado');
end;
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
PressMouseDown(True);
PressMouseUp(True);
end;
end.
FONTE: http://www.arquivodecodigos.net/arquivo/visualizar_dica.php?qual_dica=140 -->"> |
|
|
|
Como ligar ou desligar Caps Lock
usando Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
KeyState:
TKeyboardState;
begin
GetKeyboardState(KeyState);
if(KeyState[VK_CAPITAL]
= 0) then
begin
Keybd_Event(VK_CAPITAL,
1, KEYEVENTF_EXTENDEDKEY or 0, 0);
">
...
Exibição do post interrompida. Para ler conteúdo completo, clique aqui |
|
|
|
Instalando o QuickReport no Delphi 7''
O pacote está disponível no Delphi 7, só não está instalado.
1. Abra o Delphi;
2. Menu: Component > Install Packages;
3. Clique no botão Add ou teclas ALT+A;
4. Localize a pasta bin dentro da pasta de instalação do Delphi, o
caminho se não foi alterado, geralmente é: C:\Arquivos de
programas\Borland\Delphi7\Bin;
5. Localize um pacote com o nome: "dclqrt70.bpl", selecione e clique
no botão abrir;
6. Pressione o botão ok
E pronto, o pacote do Quick Report já está instalado, ele será o
último item na paleta de componentes.
-->">
|
|
|
| |
|
18/05/2010 3:14:00 PM
2010
2010
32
11
