Destaque
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...
Recente
Como devemos encarar nossa vida profissional
Postado por Paulo H Oliveira as 13:51 em July 22 2010
Algumas pessoas me perguntam que tipo de trabalho elas poderiam fazer pra ganhar dinheiro, para estas pessoas sempre mostro este texto:
O MSN, por Arnaldo Jabor
Postado por Paulo H Oliveira as 14:58 em July 17 2010
Sempre odiei o que a maioria das pessoas fazem com os seus MSN’s. Não estou falando desta vez dos emoticons insuportáveis que transformaram a leitura em um jogo de decodificação, mas as declarações de amor, saudades, empolgação traduzidas através do nick.
Como a realidade aumentada poderá mudar sua vida no futuro
Postado por Paulo H Oliveira as 12:30 em July 14 2010
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.
Error 404: Skynet, o computador que sabe tudo sobre você
Postado por Paulo H Oliveira as 17:25 em July 10 2010
Todos os seus passos são controlados. Cada ação sua é informada à consciência virtual que controla o mundo. Conheça o futuro apocalíptico que nos espera quando as máquinas dominarem os humanos.
HDbaseT: o fim do HDMI!
Postado por Paulo H Oliveira as 16:23 em July 10 2010
Nova tecnologia quer substituir o padrão atual de vídeo por um cabo de rede. Será que essa moda pega?
Todo dia é assim: tecnologias desatualizadas são aposentadas para dar lugares a outras mais eficientes. Não que o HDMI seja antigo ou que sua qualidade deixe a desejar, mas é raro encontrar um padrão no mundo da informática ou dos eletrônicos que consiga durar muito tempo.
Flow Switching: a internet até 1000 x mais rápida
Postado por Paulo H Oliveira as 16:18 em July 10 2010
Pesquisadores do MIT (sigla em inglês para Instituto Tecnológico do Massachusetts) desenvolveram um projeto que simplesmente pode aumentar a velocidade da internet entre 100 e 1000 vezes.
ASP e SQL Server: Pegar o retorno do campo ID da tabela
Postado por Paulo H Oliveira as 19:19 em September 18 2009
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 Feita em ASP com banco de Dados SQL Server, Caso queiram solicitação Uma Outra façam e estudarei...
Banco de Dados: Randomizar Dados
Postado por Paulo H Oliveira as 18:38 em September 18 2009
Select a random row with MySQL:
SELECT column FROM table
ORDER BY RAND()
LIMIT 1
Select a random row with PostgreSQL:
SELECT column FROM table
ORDER BY RANDOM()
LIMIT 1
Select a random row with Microsoft SQL Server:
SELECT TOP 1 column FROM table
ORDER BY NEWID()
Select a random row with IBM DB2
SELECT column, RAND() as IDX
FROM table
ORDER BY IDX FETCH FIRST 1 ROWS ONLY
Thanks Tim
Select a random...
Firebird: Diagnosticando e Reparando Banco de Dados Corrompidos
Postado por Paulo H Oliveira as 18:33 em September 18 2009
Um número grande de tipos de corrupções podem ser reparadas através dos utilitários gfix e gbak. No entanto, é possível que em alguns casos raros o arquivo de banco de dados esteja corrompido de tal maneira que seja impossível para esses utilitários restaura-lo. Nesses casos, medidas mais drásticas podem ser necessárias para colocar o BD on-line novamente. Se voce não conseguir recuperar...
PHP: Convertendo datas no PHP com MySql
Postado por Paulo H Oliveira as 00:10 em July 31 2009
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...
- ASP: Função iif também no asp (0)
function IIF(Condicao, valret1, valret2) if Condicao then IIF = valret1 ...
- Sobre (0)
A ph0 tem como objetivo a pesquisa e desenvolvimento de tecnologia em...
- ASP: formata a data (0)
function formatadata(data) '--Criando um vetor para teste vVetor = "0,1,2" vVetor...
- Delphi: funções para calculo de juros (0)
{ Funçao que retorna o valor de cada parcela para financiamento ou...
- ASP: Funções de Data, semana e mês (0)
Function Semana(DiaSemana) select case DiaSemana case 1 Semana = "Domingo" case...
- Delphi: Várias dicas de impressão pelo TPrinter - 316 views
- Ajax: Autosuggest com PHP - 145 views
- ASP e SQL Server: Pegar o retorno do campo ID da tabela - 73 views
- Delphi: Funções Matemáticas - 51 views
- O MSN, por Arnaldo Jabor - 49 views
Delphi: Transação DBExpress (Vários exemplos)
Postado por Paulo H Oliveira as 17:01 em July 19 2009
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:=...
Delphi: Redimesionar form child em MDI
Postado por Paulo H Oliveira as 16:32 em July 19 2009
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,...
TurboPascal: Efeito Matrix
Postado por Paulo H Oliveira as 15:59 em July 19 2009
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.
Program MATRIX;
Uses...
Delphi: Várias dicas de impressão pelo TPrinter
Postado por Paulo H Oliveira as 15:56 em July 19 2009
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,...
Javascript: Executar um EXE
Postado por Paulo H Oliveira as 15:55 em July 19 2009
<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’,...
Delphi: Funções Matemáticas
Postado por Paulo H Oliveira as 15:51 em July 19 2009
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,...
Fireworks: Efeito pintura à óleo
Postado por Paulo H Oliveira as 15:46 em July 19 2009
É 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.
É 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.
Delphi: QuickReport Marca d’agua
Postado por Paulo H Oliveira as 15:37 em July 19 2009
Esta dica nos mostra como colocar uma imagem de fundo na página, simulando o efeito marca d’água. Para tal, declaremos a procedure:
procedure ImprimeBitMap(Cnv: TCanvas; BitMap: TBitMap; R: TRect);
var
Info : PBitMapInfo;
InfoSize : DWORD;
Image : Pointer;
ImageSize : DWORD;
begin
with BitMap do
begin
GetDIBSizes(Handle, InfoSize, ImageSize);
GetMem(Info, InfoSize);
try
Getmem(Image, ImageSize);
try
GetDIB(Handle,...
Ajax: Autosuggest com PHP
Postado por Paulo H Oliveira as 15:18 em July 19 2009
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.
Arquivo ajax.php:
<html>
<head>
<script>
var xmlHttp
function showHint(str)
{
if (str.length==0)
{
document.getElementById(“txtHint”).innerHTML=”";
return;
}
xmlHttp=GetXmlHttpObject()
if...
Ajax: Filtrando combo cidades pelo estado
Postado por Paulo H Oliveira as 15:12 em July 19 2009
// Combo das cidades
<%
set rsCids = Server.CreateObject(“adodb.recordset”)
rsCids.open “SELECT CATCODIGO, CATDESCRICAO FROM CATEGORIAS WHERE CATTIPO=’C’ ORDER BY CATDESCRICAO”, conn
%>
<select name=”scidades” id=”scidades” onchange=”grupobairros();”>
<option value=”">Escolha a Cidade</option>
<%...
