Euclidao
Membros-
Posts
16 -
Joined
-
Last visited
-
Days Won
1
Euclidao last won the day on January 21 2015
Euclidao had the most liked content!
Euclidao's Achievements
Newbie (1/14)
5
Reputation
-
Olá pessoal! Andei mexendo com matrizes e consegui mais ou menos isso: Consistência de Entrada de dados, direção do cálculo e tratamento de números negativos é por conta do freguês... Function main() local aAux, cEnt:=space(30), aMain:={}, nY, nL, nH, nM MsgGet(" Variação de Valores", "digite os valores seperedos p/espaço", @cEnt) aAux:=HB_ATokens( alltrim(cEnt), " ") nL := len(aAux) aAdd(aMain,{val(aAux[1])}) for nY = 2 to nL aAdd(aMain[1]," ") aAdd(aMain[1], val(aAux[nY])) next nM:= len(aMain[1]) nL := nM/2+1 for nH = 2 to nL aAdd(aMain, array(nM)) aFill(aMain[nH], " ") for nY=nH-1 to nM do case case nY+1 > nM exit case valtype(aMain[nH-1,nY+1]) = "C" // Não faz nada otherwise aMain[nH,nY] := aMain[nH-1,nY+1] - aMain[nH-1,nY-1] endcase next next xbrowser(aMain) return nil T+, Euclides
-
kapiaba reacted to a post in a topic: Procurar uma pasta no xHarbour
-
Pois é... Eu prefiro o que o Sr. postou em 16 dezembro 2014. Faz o DEFINE: #define BIF_USENEWUI 0x0050 e aí funciona com o Harbour também T+ Euclides
-
kapiaba reacted to a post in a topic: Procurar uma pasta no xHarbour
-
Legal, Kapi... e qual é a vantagem disso em relação ao cGetDir() ? []'s, Euclides
-
Olá Valdir. Para eliminar a 1/o item em branco, é só fazer isso: - No programa do Kapi depois de DBCOMBO oDbc1... oDbc1:del(1) Acho que é isso... T+ Euclides
-
crisvam, se colocar uma vírgula em: sgls.obj+ assim: sgls.obj,+ tem grande chance de funcionar... T+ Euclides
-
crisvam, isso geramente ocorre por algum erro no .bat (build?) da compilação. revise-o, ou poste aqui. []´s, Euclides
-
Theotokos reacted to a post in a topic: erro ao indexar indices com descricao nome
-
Carlos, A não ser que esteja errado, você não pode indexar CDX ou NTX com campos de comprimento variável. Fiz um teste com: INDEX ON TRIM(descricao) TO NOME Deu o erro: Error description: Error DBFCDX/1026 Data width error Sugiro utilizar: index on subs(descricao, 1, 20) to nome O comprimento do campo do INDEX é 20 pode ser variado à vontade. T+ Euclides
-
kapiaba reacted to a post in a topic: Buscar informações corrompidas dentro de um Arquivo Dbf.
-
Buscar informações corrompidas dentro de um Arquivo Dbf.
Euclidao replied to Valdir's topic in Programação
Oi Kapi! "fui até o fim do arquivo, e tirei algo, o resultado, não me foi satisfatório." Isso parece lógica FUZZY (tem explicação no wikipedia) :-)) Esta rotina que o Rochinha postou, só verifica se o número de registros reais (tam.-do-arquivo - tam.-header) / tam.registro é igual a valor do número de registros cadastrados no header (se não for igual, tem a opção de corrigir). Anexei um arquivo DBF (modificado) para V. testar. [ ]'s, Euclides POW! Agora que eu vi a mensagem: "Você não tem permissão para fazer upload deste tipo de arquivo" (é só 'abrir' um arquivo DBF com um editor-hexa e alterar o valor na posição # 4) Sorry -
kapiaba reacted to a post in a topic: Busca CEP infalível
-
Kapi, funciona também com Harbour 3.2 (nas versões anteriores, devolvia um ARRAY em cResult) No programa: /// ISTO NAO FUNCIONA NAS NOVAS VERSOES deve ser corrigido para: @ 5,5 GROUP TO 150,268 LABEL " Cliente " OF ODLG_c PIXEL Para mim, pelo menos "SÂO PAULO" está saindo certo... QCoisa, grite... Euclies
-
William, eu também não entendi bem a sua pergunta... talvez agora... O Linares achou que você queria fazer isso pela classe tRichEdit que serve mais para digitar os dados (é meio complicado automatizar). Antigamente eu utilizava a classe RtfMerge mas ela só funciona em arquivos RTF até 64Kb Hoje eu utilizo Word com Ole (que funciona também com RTF) No forum deve ter alguns exemplos, senão, no site do Toledo... Pode tratar o arquivo RTF diretamente (fopen, fwrite). Abaixo mostro um exemplo: {\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Calibri;}{ \f1\fnil\fcharset0 Arial Rounded MT Bold;}{\f2\fnil\fcharset0 Tahoma;}} {\colortbl ;\red255\green0\blue0;} {\*\generator Msftedit 5.41.21.2509;}\viewkind4\uc1\pard\sa200\sl240\slmult1\lan g22\f0\fs18 Postado Ontem, 06:15\par \b\fs24 Amigos essa parece ser f\'e1cil mas n\'e3o \'e9:\b0\fs22\par \cf1 Tenho um richedit e 1 botao.\par \cf0 Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto ri chedit a data atual ( date() ) , s\'f3 que com fonte Tahoma e size = 10.\par \i Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo)\par \i0\f1\fs24 Grato, William Adami\par \f2\fs20 Datas:\par \par } Isso é arquivo RTF. Se substituir o último '<espaço>\par' por "10/01/2015\par \par" vai acontecer mais ou menos o que você está querendo. Para continuar, é só substituir o último '<espaço>\par' de novo. Qualquer coisa, avise. T+ Euclides
-
kapiaba reacted to a post in a topic: HAPPY BIRTHDAY ANTONIO
-
Kapi, este parabens-a-você está desafinado... experimente este... Function Birthday() local D1:= 293.7 local E := 329.6 local F := 370.0 local G := 392 local A := 440.0 local B := 493.9 local C := 523.3 local D2:= 567 local Minim := 12 local Crotchet := 6 local Quaver := 3 tone( D1, Quaver ) tone( D1, Quaver ) tone( E, Crotchet ) tone( D1, Crotchet ) tone( G, Crotchet ) tone( F, Minim ) tone( D1, Quaver ) tone( D1, Quaver ) tone( E, Crotchet ) tone( D1, Crotchet ) tone( A, Crotchet ) tone( G, Minim ) tone( D1, Quaver ) tone( D1, Quaver ) tone( D2, Crotchet ) tone( B, Crotchet ) tone( G, Crotchet ) tone( F, Crotchet ) tone( E, Crotchet ) tone( C, Quaver ) tone( C, Quaver ) tone( B, Crotchet ) tone( G, Crotchet ) tone( A, Crotchet ) tone( G, Minim + Crotchet ) return nil ... em todo caso, FELIZ ANIVERSÁRIO ANTONIO!! T+ Euclides
-
Euclidao reacted to a post in a topic: Spyware Terminator 2012
-
Euclidao reacted to a post in a topic: Spyware Terminator 2012
-
Malwarebytes Anti-Malware http://www.malwarebytes.org/lp/malware_lp_form/
-
reneumg, Pode fazer algo assim: @ 1, 20 BUTTON "SetLbx" OF oDlg SIZE 35, 12 ACTION (oLbx:nAt:=3, oLbx:Refresh(), oLbx:SetFocus()) T+ Euclides
-
MP2500 USB CONFLITO COM MULTIFUNCIONAL HP ( USB )
Euclidao replied to JUDSON ROSA's topic in Programação
Eu tive problemas quando instalei duas impressoras USB no mesmo computador. Se estiver rede, pode colocar a multifuncional em um outro computador da rede e compartilhar. Boa sorte. Euclides