Almir_Santos's Content - Fórum iMasters
Almir_Santos
Everything posted by Almir_Santos
Almir_Santos replied to danielmessias21's question in Perguntas e respostas rápidas
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
Almir_Santos replied to Jack Oliveira's question in Perguntas e respostas rápidas
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)
Almir_Santos replied to Neusa Novaes's topic in PHP
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>"
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
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
Almir_Santos replied to Gabarito's topic in Delphi
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.
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)
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
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)
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.
Se fosse você eu faria usando a IDE do CodeTyphon .Veja um exemplo que fiz especialmente para você.Tem componentes legais. fiz um contador simples (500 ms).Cada display recebeu um nome (a,b,c) procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; begin for cen:=0 to 9 do begin for d:=0 to 9 do begin for u:=0 to 9 do begin sleep(500); application.ProcessMessages; a.Value:=cen; b.Value:=d; c.Value:=u; end; end; end; Aqui o codigo com contagem regressiva: procedure TForm1.Button1Click(Sender: TObject); var cen,d,u:integer; begin for cen:=9 downto 0 do begin for d:=9 downto 0 do begin for u:=9 downto 0 do begin sleep(500); application.ProcessMessages; a.Value:=cen; b.Value:=d; c.Value:=u; end; end; end; Visite meu blog
AJUDA PASCAL
Almir_Santos replied to LEONARDO_RODRIGUES's question in Perguntas e respostas rápidas
Isso é apenas um exercício básico e didático.Ninguem vai ajudar a resolver isso,pois é muito fácil.Tente você mesmo.
como salvo informações do meu form html?
Almir_Santos replied to Caio Lyra's topic in HTML e CSS
Pode tentar tambem dessa forma: Neste exemplo ,mostro formulario rodando em Windows + Apache com banco de dados CSV Comp DB (nosql).Não precisa de PHP e nem de Mysql neste exemplo integracao do formulario fonte do exemplo no meu blog <html> <title>CQL WEB test</title> <!--The action is called "default" in every application.GET Method only--> <form action='http://server.com/cgi-bin/executa.exe/default'> <h1>Input data on form</h1> Type your name:<br> <input type='text' name='id_name'></a><p> Type your phone:<br> <input type='text' name='id_phone'></a> <input type='submit' name='your_script.cql' value='Register'></a> </form> </html> Salve o html form na pasta htdocs como "home.html" Na pasta ".../cgi-bin" ,salve o script "your_script.cql" { c:\servidor\apache2\htdocs\AGENDA; @adicionar; (id_name;id_phone); 0;0;0; query=0; destino=0 } { c:\servidor\apache2\htdocs\AGENDA; @html; 1; 3;red;(<link_of_css>); query=0; destino=0 } { none; @resposta; <script>window.location='http://server.com/AGENDA.html'</script>; 0; 0; 0; query=0; destino=0 } (script de nome "your_script.cql" acima) (*A paggina web "agenda.html" é um espelho da tabela original "agenda.csv" .O servidor pode ser localhost) Crie uma tabela * .csv * de nome AGENDA.csv no ... \ htdocs \ AGENDA.csv " com 2 campos na primeira linha: NAME;PHONE
Almir_Santos replied to Luiz Felipe Heemann's topic in Delphi
Sou usuário de Object Pascal com a IDE Lazarus.Fiz uma solução de contagem do tempo desta forma: { Yehovah é o Nome do Santo Função para medir tempos em processos com precisão de 1 milisegundo Criação:02/12/2016 Autor:Almir Bispo Ribeirão das Neves } function milisegundo(tempo_inicio:Ttime):string; var meut:Ttimestamp; begin meut:=DateTimeToTimeStamp(now - tempo_inicio); result:= copy(Variant(TimeStampToMSecs( Ttimestamp(meut) ) *10), length(Variant(TimeStampToMSecs( Ttimestamp(meut) )*10 ) )-4 ,4) ; end; //eu uso assim procedure conta; var t:Ttime; begin T:=Ttime(now);//inicio da contagem {processamento} showmessage(milisegundo(T)); end; //Você pode fazer calculos de soma,subtração de variáveis tipo Tdatetime
Almir_Santos replied to diego.baiao's topic in PHP
Almir_Santos replied to flavinho1983's topic in Java
Você precisa de criar um programa de computador que rode no PC com um controle remoto.Eu sei como fazer,mas não sei como explicar num simples post. Basicamente vai precisar dominar : -programação de Hardware (firmware) -programação de computador -Eletronica Uma dica que te dou é faça um programa com object pascal (para PC) ,um programa no microcontrolador com c++. Eu sei como criar um equipamento desse.tenho portfólio e podemos falar em particular,caso necessário.Não é possível explicar detalhes num simples post.Tenho um projeto em andamento de um cliente que é uma pedaleira para controlar um player de musica onde podemos inclusive por a letra das músicas (tipo videokê) Basta colocar o o projetor na saida do vga do PC para mandar a letra para o telão (veja letra) (veja print)
Almir_Santos replied to hucsantos's topic in .NET
Olá eu sei exatamente o que você deseja.Porém eu fiz com a solução com outras tecnologias. -Usa base de dados em tabelas csv (ao invés de Access) -Pode ser apresentado na página html (inclusive podem ser integrados a Angular) -A base não é em Json ,mas em csv e usa uma linguagem específica Para você ter noção ,deixo o vídeo
Olá.Percebi sua grande demanda qual você relatou: " Pessoal preciso fazer um relatório que venha a gerar um arquivo xlsx automaticamente, de uma consulta do banco de dados, estou usando o "PHPEXcel" para isso. " Eu entendi que sua DEMANDA PRINCIPAL é gerar relatórios apartir de uma consulta em banco de dados e que tais relatórios possam ser abertos em planilha (Excel especificamente).Você se propôs a usar PHP para tal demanda.Você não citou o banco usado. Para solucionar sua DEMANDA PRINCIPAL outros meios podem ser usados.Vou citar uma solução que conheço: Você deveria ter um banco de dados online e usar a linguagem CQL para fazer a consulta de busca e com os resultados da consulta fazer o tratamento(Testes com 5 milhoes de registros e 15 mil campos ja foram feitos) Suponha que tem a tabela "EMPREGADOS" conforme abaixo. ID ; EMPREGADO ; SALARIO ;FUNCAO 001 ;José Silva ; 1220,00 ; Aux.Produção 002;Maria Santos ; 1230,00 ; Diretora ... ; .. . ; centenas de rows ; ...... 999;Sandro Maciel ; 5900,00 ; Presidente Então você faria uma busca : {none;@coment;(Vai selecionar os valores entre 1200 e 1250 do campo Salario (índice 2 da tabela));0;0;0;0;query=0;destino=0} { c:\Path_servidor\htdocs\EMPREGADOS; @min_max; (*); (1200,00); (1250,00); 0; query=2; destino=0 } {none;@coment;(Apos a busca,poderá fazer um relatório online mesmo em html borda 1,fonte 12 ,cor de fonte orange,folha de estilo);0;0;0;0;query=0;destino=0} { c:\Path_servidor\htdocs\EMPREGADOS; @html; 1; 12; ('hostpath\sua_folha_de_estilos.css'); Orange; query=0; destino=0 } Poderá baixar o resultados e abrir diretamente no openOficce (Calc) ou Excel (importação),bastaria apenas copiar os resultados da busca para uma nova tabela temporária.(2 linhas de código para fazer isso) Poderá até manipular a base que se encontra remota por uma aplicação personalizada como nas fotos anexadas: (Com essa tecnologia não é necessário manipular xls,pois a base inteira é em formato CSV.So usaríamos o Excel ou Calc para abrir o arquivo). Mais informações no blog do autor Fiz o exemplo do video abaixo hoje,especialmente para você ter noção:
Almir_Santos replied to Lucas Meira's topic in E-Commerce e Pagamentos Online
Posso disponibilizar algo pronto (codigo fonte completo) por um certo valor ou Posso te indicar a ferramenta do vídeo.Basta seguir os documentos e tutoriais: (Observação.Vendo o código fonte do projeto do vídeo) Para se fazer algo como o apresentado no vídeo requer dedicação de anos de estudos,mesmo nessa ferramenta.O video mostra de forma cabal a capacidade de solução a qual as tecnologias apresentadas se propõem.Você pode baixar toda documentação e aplicativos no meu blog sem custo.