Jump to content

Almir_Santos

Members
  • Content count

    28
  • Joined

  • Last visited

Community Reputation

7 Regular

1 Follower

About Almir_Santos

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Almir_Santos

    [PEDIDO] SISTEMA ESTOQUE

    Olá amigo. Eu sei onde você encontra essa solução.Na realidade eu a desenvolvi. Trata-se do CSV Comp DB (tipo nosql que tem uma CGI totalmente integrada e usa arquivos no formato CSV como tabelas reais). *Não o subestime,pode inclusive fazer relações entre tabelas csv usando a própria linguagem (CQL ,comma query language). Tal linguagem serve tanto para manipular os dados como escrever as páginas web Veja exemplos no meu canal,deixo um vídeo como aperitivo: https://www.youtube.com/watch?v=p2hq-we5cB8 Documentação,software livre no meu blog: http://adltecnologia.blogspot.com.br
  2. Almir_Santos

    TRANFORMAR ARQUIVO XLS PARA SQL

    Veja como usar o aplicativo:
  3. Almir_Santos

    TRANFORMAR ARQUIVO XLS PARA SQL

    Eu tenho uma solução para você.No meu blog tenho um conjunto de aplicativos.Entre eles,tenho um editor de sql que consegue transformar um arquivo csv em "inserts" SQL. Basta ir até meu blog e na página de "download" baixar a versão CSV Comp DB (Desktop para Windows). Depois de instalar,abra o prompt e poderá procurar no menu o editor SQL Você precisará apenas salvar seu xls como CSV antes de usar o aplicativo. No aplicativo de editor sql bastará ir no menu "Editar" e preencher os dados do formulário (questões sobre delimitadores,campos)
  4. Almir_Santos

    Banco de Dados

    Tem um erro no html do codigo acima.O erro é na parte: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> </head> Está faltando abrir o cabeçalho "<head>"
  5. Almir_Santos

    Banco de Dados

    Isso vai depender da boa vontade de alguem.Se eu soubesse de php te ajudaria já.Mas como disse,uso outra tecnologia.
  6. Almir_Santos

    Banco de Dados

    Não se preocupe,pois em breve um especialista em php vai te ajudar.
  7. Almir_Santos

    Banco de Dados

    Como citei no post anterior , eu apenas corrigi a parte a respeito do codigo em html.Não sou especialista em PHP e não o uso para meus projetos WEB.Nas minhas aplicações WEB eu utilizo outra tecnologia.De qualquer forma,caso você desejar criar um sistema de cadastro WEB usando a tecnologia que eu domino poderei faze-lo com baixo custo. A saber: Um servidor semi dedicado (15 mensais,pag em taxa unica de 190 anual) um dominio (opcional ou poderá direcionar pelo numero IP apenas) (30 anual) Mais detalhes em mensagem privada Sim.Seu erro anterior era no html.Agora você progrediu e o erro está apenas no Mysql
  8. Almir_Santos

    Banco de Dados

    Descobri vários erros no seu html e resolvi os erros dele.Basta agora você juntar com seu codigo PHP. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <head> <!--estava faltando fechar o head--></head> <BGSOUND src="'.$url_site.'/afrecom/'.$arq_som.'" loop=infinite> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=iso-8859-1"> <link href="'.$url_site.'/afrecom/style.css" rel="stylesheet" type="text/css"> <body background="'.$url_site.'/afrecom/'.$fundopag.'" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0"> <div align="center"> <table border="7" bordercolor="#808000" bordercolorlight="#FFFF99"> <tr> <td align="center"> <table border="10" bordercolor="#808000"> <tr> <td> <img border="0" src="'.$url_site.'/afrecom/banner1.gif" width="468" height="60"> </td> </tr> </table> </td> </tr> </table> </div> <p>&nbsp;</p> <div align="center"> <table border="15" cellpadding="6" width="90%" bordercolordark="#808000" bordercolorlight="#FFFF99"> <tr> <td width="100%" align="left" class="tabela"> <i><font color="#ffffff" size="1">Mensagem automática, por favor não responda.<br>'.$data.'</font></i> <HR width="100%" color=#ffffff SIZE=1 align="left"> <br> Olá <b>&nbsp;'.$nnome.'! </font></b><br><br> A&nbsp;mensagem&nbsp;que&nbsp;você&nbsp;enviou&nbsp;para:&nbsp; <br><b>'.$namigo.'</b>&nbsp;&nbsp;e-mail:&nbsp;&nbsp;<b>'.$eamigo.'</b> <br>foi&nbsp;visualizada&nbsp;em&nbsp;nossos&nbsp;servidores&nbsp; nesta(e)&nbsp;&nbsp; <br><b>'.$data.'</b><br><br> <!-- faltava td--> </td> <!-- faltava tr--> </tr> </table> <!--estava faltando esta div--> </div> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <!--estava faltando fechar o head--></head> <BGSOUND src="'.$url_site.'/afrecom/'.$arq_som.'" loop=infinite> <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=iso-8859-1"> <link href="'.$url_site.'/afrecom/style.css" rel="stylesheet" type="text/css"> <body background="'.$url_site.'/afrecom/'.$fundopag.'" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0"> <div align="center"> <table border="7" bordercolor="#808000" bordercolorlight="#FFFF99"> <tr> <td align="center"> <table border="10" bordercolor="#808000"> <tr> <td> <img border="0" src="'.$url_site.'/afrecom/banner1.gif" width="468" height="60"> </td> </tr> </table> </td> </tr> </table> </div> <p>&nbsp;</p> <div align="center"> <table border="15" cellpadding="6" width="90%" bordercolordark="#808000" bordercolorlight="#FFFF99"> <tr> <td width="100%" align="left" class="tabela"> <i><font color="#ffffff" size="1">Mensagem automática, por favor não responda.<br>'.$data.'</font></i> <HR width="100%" color=#ffffff SIZE=1 align="left"> <br> <font color="#ffffff" size="1">Olá &nbsp;'.$nnome.'! </font><br><br> A&nbsp;mensagem&nbsp;que&nbsp;você&nbsp;enviou&nbsp;para:&nbsp; <br><b>'.$namigo.'</b>&nbsp;&nbsp;e-mail:&nbsp;&nbsp;<b>'.$eamigo.'</b> <br>foi&nbsp;visualizada&nbsp;em&nbsp;nossos&nbsp;servidores&nbsp; nesta(e)&nbsp;&nbsp; <br><b>'.$data.'</b><br><br> <!-- faltava td--> </td> <!-- faltava tr--> </tr> </table> <!--estava faltando esta div--> </div> </body> </html> Fui no site Amorepaixão e vi um design bonito.Parabéns.Eu não uso PHP para construir meus sites.Uso outra tecnologia.Faça uma visita no meu blog
  9. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    sua label tem esse valor 41.756.271 Casa_dos_dezmilhoes : =copy(label.caption , 1, 1); //pegou o primeiro caractere "4" Casa_dos_unidmilhoes : =copy(label.caption , 2, 1); //pegou o segundo caractere "1" (o importante é considerar a casa decimal e ignorar o valor em si) você não deve se preocupar com sua aplicação.Deve entender como fiz o codigo de exemplo.Deve criar as variaveis para cada casa decimal.
  10. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    sua label tem esse valor 41.756.271 Casa_dos_dezmilhoes : =copy(label.caption , 1, 1); //pegou o primeiro caractere "4" Casa_dos_unidmilhoes : =copy(label.caption , 2, 1); //pegou o segundo caractere "1" (o importante é considerar a casa decimal e ignorar o valor em si) você não deve se preocupar com sua aplicação.Deve entender como fiz o codigo de exemplo.Deve criar as variaveis para cada casa decimal.
  11. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    A diretiva é do compilador free Pascal no modo Object PASCAL FPC (não estou usando modo Delphi) Você vai pegar o label onde se mostra os tempo dos segundos da mesma forma que o codigo exemplo pega os valor do Edit1 (use a função copy)
  12. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Siga o modelo acima.Lembre-se que para cada casa decimal do numero ( 41.756.271 )será necessário um laço FOR encadeado.Nesse seu numero será necessario 8 FOR encadeado.
  13. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Fiz exemplo com 3 casas decimais carregando do arquivo.Você poderá acrescentar a casa do milhar Roda perfeito: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, TplRadioButtonUnit, TplCheckBoxUnit, TplSpinEditUnit, TplLCDLineUnit, TplLed7SegUnit, ECGroupCtrls, LedNumber, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TForm1 } TForm1 = class(TForm) a: TplLed7Seg; b: TplLed7Seg; Button1: TButton; c: TplLed7Seg; Edit1: TEdit; Image1: TImage; Image2: TImage; Image3: TImage; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; Lc,Ld,Lu:integer;//valores limitadores do inicio da contagem begin Lc:=strtoint( copy(edit1.text,1,1) );//centenas Ld:=strtoint( copy(edit1.text,2,1) );//dezenas Lu:=strtoint( copy(edit1.text,3,1) ); //unidades for cen:=(Lc) downto 0 do begin for d:=(Ld) downto 0 do begin for u:=(Lu) downto 0 do begin sleep(500); application.ProcessMessages; image1.Picture.LoadFromFile('c:\num\'+inttostr(cen)+'.bmp'); image2.Picture.LoadFromFile('c:\num\'+inttostr(d)+'.bmp'); image3.Picture.LoadFromFile('c:\num\'+inttostr(u)+'.bmp'); end; end; end; end; procedure TForm1.FormShow(Sender: TObject); begin doublebuffered:=true; end; end. Resultado
  14. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    Carregar imagem não é problema e é até fácil.O problema é a transição.Se for usar imagem de números estáticos isso fica fácil até demais.Basta dar nome aos arquivos de imagem com numeros: "1.bmp" e carregar dentro do laço for(u) (como no exemplo acima) imagem.picture.loadfromfile(inttostr( u) + '.bmp' ) ; Depois basta seguir o modelo do meu codigo acima com o carregamento das 3 imagens no lugar do (a.value ,b.value , c.value)
  15. Almir_Santos

    Contagem regressiva com uso de imagens - [RESOLVIDO]

    O código de contagem é simples.O problema da imagem com transiçõ é que deve criar uma função para desenhar essas transições usando Tcanvas.Isso é mais questão de design do que programação em Si. Poderia por dentro do laço For (u) um conjunto de carregamento de imagem do arquivo com várias transições.Mais isso fica complexo e pesado.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.