Como devemos encarar nossa vida profissional Algumas pessoas me perguntam que tipo de trabalho elas poderiam fazer pra ganhar dinheiro, para estas pessoas sempre mostro este texto: "Não paute sua vida, nem sua carreira, pelo dinheiro. Ame seu ofício com todo o coração. Persiga fazer o melhor. Seja fascinado pelo realizar, que o dinheiro...
Como a realidade aumentada poderá mudar sua vida no... GPS mais desenvolvido, redes sociais revolucionárias e novas maneiras de fazer compras. Faça um passeio pela realidade aumentada e veja como esta tecnologia pode mudar a nossa vida nos próximos anos. Quando assistimos aos filmes de ficção com ambientação no futuro é comum vermos carros voadores,...
Delphi: Redimesionar form child em MDI Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai. procedure TForm1.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var MainForm: TForm; Rect: TRect; //OurWidth: Integer; //OurHeight: Integer; begin if Showing then begin MainForm :=...
ASP e SQL Server: Pegar o retorno do campo ID da tabela... Bom Pessoal, vamos idealizar Uma Rotina Muito Usada, tipo Uma Vendas de Produtos, existem Onde a Tabela de Vendas da EA tabela de itens das Vendas, EO Grande Problema É Como gravar nd tabela itens de Vendas Vendas o ID da tabela, tem aqui uma Solução sem gambiarras código Tabajara Nem. Rotina ESSA...
Aqui está uma solução completa para manipulação de dados para usar no PHP com Mysql
Para gravar no banco faremos uma função:
<?php
function formatadata($data){
$dataarray=split(‘/’,&data);
$datanova=&dataarray[2].’-’.&dataarray[1].’-’.&dataarray[0];
return $datanova;
}
?>
Agora para mostrar na pagina a data no formato correto PT_BR:
<?php echo date(‘d/m/Y’, strtotime($data));?> mostrará no formato dd/mm/aaaa
var
Transacao: TTransactionDesc;
begin
SQLDataSet1.CommandText:= ‘select ID, NOME from CLIENTES where ID = :id;
SQLDataSet1.ParamByName(‘id’).AsInteger:= 1;
ClientDataSet1.Open; // Note que apenas o TClientDataSet deve ser aberto
with ClientDataSet1 do
begin
Append;
FieldByName(‘ID’).AsInteger:= 2005;
FieldByName(‘NOME’).AsString:= ‘ClubeDelphi’;
Post;
Transacao.TransactionID:= 1;
Transacao.IsolationLevel:= xilReadCommitted;
SQLConnection1.StartTransaction(Transacao);
if ApplyUpdates(0) = 0 then
SQLConnection1.Commit(Transacao)
else SQLConnection1.Rollback(Transacao);
end;
Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai.
procedure TForm1.SetBounds(ALeft, ATop, AWidth,
AHeight: Integer);
var
MainForm: TForm;
Rect: TRect;
//OurWidth: Integer;
//OurHeight: Integer;
begin
if Showing then begin
MainForm := Application.MainForm;
// Obtem o retângulo da área cliente MDI
Windows.GetWindowRect(MainForm.ClientHandle, Rect);
// Calcular largura e altura da área cliente
//OurWidth := Rect.Right – Rect.Left;
//OurHeight := Rect.Bottom – Rect.Top;
// Calcula a nova posição
//ALeft := (OurWidth – Width) div 2;
//ATop := (OurHeight – Height) div 2;
end;
inherited SetBounds(0, 0, Rect.Right-Rect.Left-5, Rect.Bottom-Rect.Top-5);
//inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;
Program MATRIX;
Uses Crt;
Var
col,lin,ql,cont,aux:integer;
letra:char;
Begin
Clrscr;
Repeat
col:=1+Random(79);
lin:=1+Random(23);
ql:= Random(10);
for cont:= lin to lin+ql do
Begin
if cont<24 then
Begin
letra:= chr(Random(255));
for aux:=1 to 2 do
Begin
if aux= 1 Then
Textcolor(10)
else
Textcolor(2);
gotoxy(col,cont);
write(letra);
delay(50);
end;
end;
end;
until keypressed;
end.
if PrintDialog1.Execute then begin
vPrinterLinha := 0;
vFormulario := 66;
Canvas.Font.Name := ‘Courier New’;
Canvas.Font.Size := 8;
Printer.BeginDoc;
with Printer do begin
vPrinterLinha := 1;
vAltura := Canvas.TextHeight(‘A’);
cdsRel.Last;
cdsRel.First;
try
for vI := 1 to cdsRel.RecordCount do begin
vString := cdsRel.Fieldbyname(‘LinRel’).Value;
Canvas.TextOut(0, (vI – 1) * vAltura, vString);
inc(vPrinterLinha);
cdsRel.Next;
if vPrinterLinha > vFormulario – 3 then begin
Printer.NewPage;
vPrinterLinha := 1
end;
end;
finally
EndDoc;
end;
end;
end;
<script TYPE=”text/javascript”>
function Executar(Servidor, Caminho, DirTrabalho) {
var param = “/inc/TerminalService/rodar.asp?Servidor=”+Servidor+”&Caminho=”+escape(Caminho)+”&DirTrabalho=”+escape(DirTrabalho);
// alert(Caminho);
window.open(param,’_blank’,”);
}</script>
<a HREF=”java script:Executar(‘SERVIDOR’, ‘C:/Terminal/arquivo.exe’,”);”>Teste</a>
Funções Matematicas do Delphi
O artigo irá mostrar as principais funções matemáticas utilizadas tanto pelo Delphi quanto no Kylix. Para quem é amante da matemática e utiliza o recurso da informática (na programação) para calcular, não pode deixar de ler este artigo que contém várias funções para cálculo, tais como: cáculo de ângulos, médias e muito mais.
Mas, porque deste artigo, se as mesmas podem ser encontradas no Help do Delphi? Ai é que está! As definições do help estão em inglês e para uma pessoa que não entenda este idioma ficaria difícil descobrir para que servem determinadas funções. Por isso este artigo, que irá facilitar a vida de milhares de programadores que têm dificuldade com o inglês. Agora deixamos de muita convera e vamos ao que interessa. Confira as principais funções com suas respectivas definições e como declará-las.
É super fácil
1°-Abra sua imagem,dê ctrl + J para duplicar.
Mude de normal para darken.
Vá em filter>blur>glaussian blur e ponha 50,3
2°-Irá perceber um efeito super rápido.
Esta dica nos mostra como colocar uma imagem de fundo na página, simulando o efeito marca d’água. Para tal, declaremos a procedure:
Auto-sugestão de busca (sem banco de dados) utilizando AJAX. O exemplo pode ser utilizado com banco de dados facilmente, bastando vincular a linha de chamada com o indice enviado pelo GET do AJAX.
0