Jhonas

como responder as perguntas que são feitas e ainda não possuem "respostas" ? voce tem que aplicar o conceito de inteligência artifical https://scholar.google.com.br/scholar?hl=pt-BR&as_sdt=0%2C5&as_vis=1&q=machine+learning++from+intelligence+artificial&o que=machine+learning++from+inteligence+a abraço

ok... então voce deve criar um campo porcentagem na sua tabela depois voce pode optar por 2 formas de colocar essa porcentagem nos registros 1 - crie um comando For para varrer todos os registros da tabela e atribua ao campo porcentagem o valor que voce quer exemplo: var i : integer; begin ClientDataSet1.Open; for i := 0 to ClientDataSet1.RecordCount -1 do begin ClientDataSet1.Edit; ClientDataSet1PORCENT.Value := 0.35; // 35% ClientDataSet1.Post; ClientDataSet1.ApplyUpdates(-1); ClientDataSet1.Next; end; end; 2 - use o comando UPDATE dentro da propriedade SQL do componente Query ou IBQuery ou outro, dependendo do seu banco de dados, para mudar todos registros com um só comando update nome_tabela set Campo = 0.35 ( 35% ) Update produtos set Porcent = 0.35 ou usando parametros: Update produtos set Porcent = :Perc https://dev.mysql.com/doc/refman/5.7/en/update.html abraço

se voce esta somando esta errado... veja a explicação: Somando: Subtraindo: Dividindo: abraço

Se eu quiser mudar essa percentagem em todos os registros tenho que calcular 1 a 1 . há maneira de alterar em todos os registros de uma só vez? quando voce fala de alterar em todos os registros de uma só vez? voce está se referindo a todos os registros da sua tabela ou somente a registros específicos ? essa porcentagem é igual para todos os registros ? Obs : dê sempre um exemplo do que voce quer fazer... facilita o entendimento abraço

é possível implementar o código abaixo no delphi usando TEdit com mácara para graus minutos e segundos para a pessoa entrar manualmente com a latitude e longitude e o resultado ser mostrado em 2 label ? sim... se voce conhece o delphi, basta converter os comandos do python para delphi http://www.atug.com/andypatterns/pythonDelphiTalk.htm ou pode ver exemplos em delphi https://www.google.com.br/search?ei=EfqiWu2fD8SnwATiw5KICQ&q=latitude+e+longitude+no+delphi&o que=latitude+e+longitude+delphi&gs_l=psy-ab.1.0.0i22i30k1.1503.4055.0.5931.7.7.0.0.0.0.131.815.0j7.7.0....0...1.1.64.psy-ab..0.7.810...0j0i67k1.0.U6IgUyrRsTE usando MaskEdit com mácara para graus minutos e segundos na propriedade EditMask voce pode colocar essa mascara !90º 00' 00">LL;1;_ abraço

exemplos: https://www.google.com.br/search?source=hp&ei=DNGhWtyaMoO3wAS07q9Q&q=graus+minutos+e+segundos+no+excel&o que=graus+min&gs_l=psy-ab.1.1.0l7.6117.8408.0.11269.9.9.0.0.0.0.258.1321.0j5j2.7.0....0...1.1.64.psy-ab..2.7.1316...0i131k1.0.GszlUF3-DJU http://www.cleibsonalmeida.blog.br/site/python-transformacao-de-coordenadas/ abraço

trabalhe com limitação de registros https://dev.mysql.com/doc/refman/5.5/en/limit-optimization.html abraço

exemplo: http://clienttemplates.content.office.net/support/templates/pt-BR/tp01225355.cab abraço

amigo, trabalho com computadores há muitos anos .... quanto ao firefox, não deixo mais ele fazer atualizações de versão, pois essas atualizações deixaram o firefox muito lento ou travando para o meu gosto. então mantenho uma versão do firefox ( 34 ) que esta muito mais rapida e bloqueei as atualizaçoes dele. quanto ao windows, já fiz dezenas de atualizações na minha maquina e em outras tambem cada vez que instalo o windows em alguma maquina, tambem bloqueio as atualizações do windows upade .. só servem para atrapalhar mas, se voce esta na dúvida, então não faça. abraço

exemplo... basta voce somar os numeros pares abraço

não vou perder nada, nenhum programa? por favor, você teria o passo a passo como fazer. Como já informei tenho o Windows 7 profissional, com licença, minha máquina ainda é 32bts. Atualização do Windows 7 Se sua versão do Windows pode ser atualizada, escolha Atualização para conservar seus arquivos, configurações e programas. Se a sua versão do Windows não puder ser atualizada, escolha a opção Personalizada, que instala uma nova cópia do Windows. já te passei o passo a passo ... esta nesse link http://br.ccm.net/faq/4517-instalacao-personalizada-e-atualizacao-do-windows-7 voce não vai perder nenhum programa ... mas pode ser que voce precise criar novamente os atalhos para esses programas. OBS: eu se fosse voce, não me preocuparia com as atualizações do Windows Update ( para mim não são necessárias ) abraço

só tenho 2 sugestões: 1 - voce instala outra versão do windows ( Atualização ) e mantem a anterior ( Windows.OLD ) para não perder nada...depois copia os arquivos que precisa, da pasta Windows.OLD para Windows ( versão Atual ) 2 - instala o windows apagando a versão anterior, sem precisar formatar o HD ou ainda antes de fazer isso, voce pode digitar no prompt de comando " msconfig " http://www.tecnologiasdeultimogrito.com/como-usar-ferramenta-msconfig-windows-7/ e verificar na Aba Serviços se a Atualização do Windos UPdate está parado .. e se estiver voce pode colocar o Serviço Em execução novamente. abraço

execute o comando como administrador http://www.techtudo.com.br/dicas-e-tutoriais/noticia/2015/04/como-executar-o-prompt-de-comando-como-administrador-no-seu-pc.html Lembrete: ao executar o comando sfc /scannow o disco de instalação do windows 7 deve estar no drive de CDRom abraço

Quanto a programação, veja nesses links https://www.google.com.br/search?source=hp&ei=A3OYWtySHIjWzgKz6a7YAg&q=cursos+de+programação+online&o que=cursos+de+pro&gs_l=psy-ab.1.2.0l7.2249.8222.0.12796.13.13.0.0.0.0.333.1921.0j3j4j1.8.0....0...1.1.64.psy-ab..5.8.1919...0i131k1.0.yO43lnnqNxk A informática tem varios ramos que voce pode seguir https://www.oficinadanet.com.br/artigo/carreira/quais_as_areas_de_atuacao_em_informatica_tecnologia Veja qual o seu interesse, e dedique-se muito ( estudo e pratica ) No meu caso escolhi linguagens de programação em uso, mais atuais no mercado mas engenharia de redes tambem é muito promissor ou a área de segurança digital abraço

tente essa outra então ... https://www.google.com.br/search?source=hp&ei=TnKYWouzJcq4zwLGtrGYBA&q=scannow+%2Fsfc&o que=scannow+&gs_l=psy-ab.1.0.0l5.1682.4027.0.6305.8.8.0.0.0.0.223.1327.0j6j1.7.0....0...1.1.64.psy-ab..1.7.1323...0i131k1j0i10k1.0.sbXddjjtMmU abraço

"Erro dbx: o driver não pôde ser inicializado corretamente. A biblioteca do cliente pode estar faltando, não instalada corretamente, versão errada, ou o driver pode estar faltando no caminho do sistema ". tente outra versão do DbExpress http://dbexpress-driver-for-oracle.win7dwnld.com/download-new-version/ https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=4&cad=rja&uact=8&ved=0ahUKEwiNnOuviMzZAhWqt1kKHdxWBmoQFghEMAM&url=http%3A%2F%2Fdbexpress-driver-for-oracle.win7dwnld.com%2Fdownload-new-version%2F&usg=AOvVaw2-G5uryzoQrm1t3S-JRPqA abraço

Loops := 10; ///<== Numero de repetições do FOR For A := 0 to loops do // Ajuste aqui para vender mais itens begin with Det.Add do begin nItem := A; Frmfinalizar_Venda.ClientDataSet2.Open; Frmfinalizar_Venda.ClientDataSet2.Filter := '[n_pedido] = ' + QuotedStr(FrmVenda_Balcao.lblpedido.Caption); Frmfinalizar_Venda. ClientDataSet2.Filtered := True; // ativa o filtro Frmfinalizar_Venda.ClientDataSet2.First; while not Frmfinalizar_Venda.ClientDataSet2.Eof do BEGIN Prod.cProd := Frmfinalizar_Venda.ClientDataSet2.FieldByName('COD_PRODUTO').AsString; Prod.cEAN := '6291041500213'; Prod.xProd := Frmfinalizar_Venda.ClientDataSet2.FieldByName('PRODUTO').AsString; Frmfinalizar_Venda.ClientDataSet2.Next; END; /// ATENÇÃO: O código acima só vai trazer o ultimo registro /// do Frmfinalizar_Venda.ClientDataSet2 Frmfinalizar_Venda.ClientDataSet3.Open; Frmfinalizar_Venda.ClientDataSet3.Filter := '[cod_produto] = ' + QuotedStr(Frmfinalizar_Venda.ClientDataSet2.FieldByName('cod_produto').AsString); Frmfinalizar_Venda.ClientDataSet3.Filtered := True; // ativa o filtro while not Frmfinalizar_Venda.ClientDataSet3.Eof do begin prod.NCM := Frmfinalizar_Venda.ClientDataSet3.FieldByName('NCM').AsString; Prod.CFOP := Frmfinalizar_Venda.ClientDataSet3.FieldByName('cfop').AsString; Prod.uCom := Frmfinalizar_Venda.ClientDataSet3.FieldByName('unidade_medida').AsString; Frmfinalizar_Venda.ClientDataSet3.Next; end; /// ATENÇÃO: O código acima só vai trazer o ultimo registro /// do Frmfinalizar_Venda.ClientDataSet3 while not Frmfinalizar_Venda.ClientDataSet2.Eof do BEGIN Prod.qCom := Frmfinalizar_Venda.ClientDataSet2.FieldByName('QUANTIDADE').AsInteger; Prod.vUnCom := Frmfinalizar_Venda.ClientDataSet2.FieldByName('VALOR_UN').AsFloat; Prod.indRegra := irTruncamento; Prod.vDesc := StrToCurr(Frmfinalizar_Venda.txtdesconto.text); Frmfinalizar_Venda.ClientDataSet2.Next; END; /// ATENÇÃO: O código acima só vai trazer o ultimo registro /// do Frmfinalizar_Venda.ClientDataSet2 OBS: Voce tem que lembrar que um comando While ficara sendo executado até que a condição de fim de arquivo seja encontrada ( ou seja, somente quando chegar o ultimo registro da sua tabela - Frmfinalizar_Venda.ClientDataSet2 ) somente depois disso é que o fluxo de comandos continua mas ao encontrar outro comando While, o mesmo processo continuara até que, novamente o fim de arquivo seja encontrado ( ou seja, novamente, somente quando chegar no ultimo registro da outra tabela - Frmfinalizar_Venda.ClientDataSet3 ) então, não importa quantas repetições tenha no comando " For A := 0 to loops do " sugiro que voce repense a lógica nessa parte do programa se usar o comando FOR, coloque nele, toda a sequencia de comandos para executar a impressão de um registro ... depois disso voce continua no proximo laço ( loop ) para o proximo registro ... e assim até que a repetição do comando FOR termine. abraço

Se voce tem o disco de instalação do windows, use-o para fazer uma atualização e não nova instalação se voce fizer a atualização do windows ( não precisa formatar o HD ) , os arquivos com problemas serão substituidos siga este tutorial: http://br.ccm.net/faq/4517-instalacao-personalizada-e-atualizacao-do-windows-7 entretanto, na minha opnião, não gosto de fazer atualizações do windows, pois são muitos arquivos que o windows update traz para o seu micro e isso acaba deixando o windows 7 mais lento abraço

Um algoritmo nada mais é do que uma receita que mostra passo a passo os procedimentos necessários para a resolução de uma tarefa. Ele não responde a pergunta “o que fazer?”, mas sim “como fazer”. Em termos mais técnicos, um algoritmo é uma sequência lógica, finita e definida de instruções que devem ser seguidas para resolver um problema ou executar uma tarefa. Embora você não perceba, utiliza algoritmos de forma intuitiva e automática diariamente quando executa tarefas comuns. Como estas atividades são simples e dispensam ficar pensando nas instruções necessárias para fazê-las, o algoritmo presente nelas acaba passando despercebido. Exemplos: https://alissonsilveira.wordpress.com/2014/05/20/exercicio-de-algoritmos/ no seu caso: Algoritmo "exemplopara" /// nome dado ao algoritmo var /// definição de variaveis soma, num : real //// as variaveis soma e num são do tipo real i, n: inteiro //// as variaveis i e n são do tipo inteiro inicio escreva ("Digite o número de elementos: ") //// mostra na tela a frase leia (n) //// valor numerico de repetições ( 3) soma := 0 //// zera a vaviável soma para i de 1 ate n faca //// executa um loop até que o valor de i ( 1) seja igual ao valor de n (3 ) escreva ("Digite um número: ") //// mostra na tela a frase leia (num) //// valor númerico dado a cada repetição ( 7 ) soma := soma + num //// a variavel soma será igual a ela mesma + o valor de num Soma := Soma + 7 ou seja 0 := 0 + 7 7 := 7 + 7 14 := 14 + 7 então soma = 21 fimpara //// finaliza o loop ( repetições ) escreva ("Total dos", n, " elementos ",soma) //// mostra da tela o valor da soma das repetiçoes Fimalgoritmo OBS: material para pesquisa nesses links https://www.google.com.br/search?source=hp&ei=lROXWqyeNMWd5wLJ_qKgCQ&q=conceito+de+algoritmo&o que=conceito+de+algo&gs_l=psy-ab.1.0.0l3j0i22i30k1l4.2438.9381.0.11586.30.24.5.0.0.0.300.3293.0j13j3j1.17.0....0...1.1.64.psy-ab..8.22.3331...0i131k1j0i10k1j0i3k1.0.TSfDYSzJBkk abraço

LaérciOoOliveira ...se não for esse abaixo, pode por o seu link sim... https://www.dafontfree.net/freefonts-xtreem-fat-demo-f41891.htm abraço

Como precisa de login e senha para acessar a pagina, não tenho como verificar mas deu para perceber que o que aparece na tela é uma figura e não texto então voce pode usar a tecla Print Screen e jogar a figura no Paint Brush do windows e imprimir abraço

Qual é o site ?

nItem := A + (A * 0); Todo numero multiplicado por zero ( 0 ) sempre será zero ( 0 ) então se voce fizer : nItem := 1 + ( 1 * 0 ) será 1 nItem := 2 + ( 2 * 0 ) será 2 nItem := 3 + (3 * 0 ) será 3 nItem := 4 + (4 * 0 ) será 4 OBS: Depois de um Comando For ...do se coloca o begin .. depois dele voce coloca outros comando veja alguns exemplos ... a acho que voce esta com dificuldades com o comando FOR procedure TForm1.Button1Click(Sender: TObject); var A, Loops, nItem : integer; begin Loops := 10; for A := 0 to Loops do begin /// Sem necessidade desse comando Loops := Loops + A; nItem := A + (A * 0); showmessage('nItem = ' + inttostr( nItem)); end; end; procedure TForm1.Button2Click(Sender: TObject); var A, Loops, nItem : integer; begin Loops := 10; for A := 0 to Loops do begin // Sem necessidade desse comando Loops := Loops + A; nItem := A + (A * 3); showmessage('nItem = ' + inttostr( nItem)); end; end; procedure TForm1.Button3Click(Sender: TObject); var A, Loops, nItem : integer; begin Loops := 10; for A := 0 to Loops do /// onde está o erro ... o begin vem depois do /// " for A := 0 to Loops do " Loops := Loops + A; //// <== ERRO begin nItem := A; showmessage('nItem = ' + inttostr( nItem)); end; end; OBS: no código acima, veja que não é necessario o Loops := Loops + A e na variavel nItem basta colocar somente a variavel A para receber o valor Correção do seu Código: For A := 0 to loops do // Ajuste aqui para vender mais itens begin with Det.Add do begin nItem := A; WHILE NOT Frmfinalizar_Venda.ClientDataSet2.Eof DO BEGIN Prod.cProd := Frmfinalizar_Venda.ClientDataSet2.FieldByName('COD_PRODUTO').AsString; Prod.cEAN := '6291041500213'; Prod.xProd := Frmfinalizar_Venda.ClientDataSet2.FieldByName('PRODUTO').AsString; Frmfinalizar_Venda.ClientDataSet3.Open; Frmfinalizar_Venda.ClientDataSet3.Filter := '[cod_produto] = ' + QuotedStr(Frmfinalizar_Venda.ClientDataSet2.FieldByName('cod_produto').AsString); Frmfinalizar_Venda.ClientDataSet3.Filtered := True; // ativa o filtro END; <<< Voce não Finaliza esse While ??? while not Frmfinalizar_Venda.ClientDataSet3.Eof do begin prod.NCM := Frmfinalizar_Venda.ClientDataSet3.FieldByName('NCM').AsString; Prod.CFOP := Frmfinalizar_Venda.ClientDataSet3.FieldByName('cfop').AsString; Prod.uCom := Frmfinalizar_Venda.ClientDataSet3.FieldByName('unidade_medida').AsString; Frmfinalizar_Venda.ClientDataSet3.Next; end; abraço

da erro de somatória de item ... aparece na tag nitem uma contagem tipo 34. For A := 0 to loops do ... nItem := 1 + (A * 3); nesse caso A vale 11 ... onde o valor de nItem será 34 não entendi a sua dúvida... sugiro que voce use o Break Point do Delphi para acompanhar os resultados no código abraço

links para instalação: https://www.google.com.br/search?source=hp&ei=xUmTWvesLI3W5gLCtZDoBA&q=pip+install+pytest&o que=(pip+install+pyttsx)&gs_l=psy-ab.1.0.0i22i10i30k1.1919.1919.0.4795.1.1.0.0.0.0.179.179.0j1.1.0....0...1.1.64.psy-ab..0.1.179....0.Wd5hmWMsyAI abraço