Graymalkin

Ficou meio que ambígua a sua dúvida. O "erro" a que você se refere é: * utilizar uma frase como "24 horas e 10 minutos" e transformar isso em 1 dia e 10 minutos? * que "24 horas e 10 minutos" não pode ser representado simplesmente com hh:mm? Graymalkin

Depois disso você não executa o programa? Clicando no botão de play (ou usando a tecla F5)? Ela começa a aparecer na hora, desde que você *execute* o programa e clique no botão. Abraços, Graymalkin

Quais os erros e em qual código? Você precisa ser mais específico quando postar uma dúvida. Graymalkin

Ao executar o programa e clicar no botão a matriz deve estar sendo mostrada na janela de depuração: http://www.gs.kitbr.com/stuff/immediate.jpg Quanto a gerar o executável, utilize o menu Build (sendo que não vai adiantar nada, uma vez que as informações mostradas na janela de depuração só servem para tempo de desenvolvimento). Por favor, concentre-se apenas neste tópico. Não precisa sair espalhando posts em outros tópicos/salas. Isso só atrapalha a você mesmo porque me faz perder tempo apagando seus posts em outros tópicos, enquanto eu poderia estar vendo este aqui. Abraços, Graymalkin

A matriz está sendo mostrada na janela de depuração (Debug). Ela fica na parte inferior da tela. Aquele último For é que faz isso. Sim, era através de estatística. :) Obrigado! Você foi o primeiro a me parabenizar este ano! Abraços, Graymalkin

O código funcionou aqui. Só o nome da função que estava errada: Abraços, Graymalkin

O problema no caso é que Val() só considera o ponto (.) como separador decimal (a vírgula (,), neste sentido, é separador de milhar). Porém, nós, brasileiros, usamos a vírgula (,) como separador decimal (e o ponto (.) como separador de milhar). Você pode fazer o teste aí: msgbox val("2.33") Vai mostrar: 2,33 msgbox val("2,33") Vai mostrar: 2 Já CSng (e CDbl) considera o separador decimal do sistema, que no nosso caso é a vírgula, convertendo corretamente o valor. Certo? ;) Graymalkin

Ok, mas qual a mensagem de erro que aparece então? Abraços, Graymalkin

Você está utilizando o VB? Se for, basta colocar um botão no form e dar um duplo-clique nele (para chegar até o procedimento Click do mesmo). Basta colocar o código dentro do procedimento. Abraços, Graymalkin

O da serialização? é sim. e como faz para gravar num arquivo de texto? A serialização eu expliquei ali em cima: serializar consiste em pegar um objeto qualquer e armazená-lo em disco, podendo recuperá-lo depois. É isso que o módulo Pickle faz. Para armazenar um arquivo texto é simples, porém neste caso é mais trabalhoso do que usar a serialização (tanto para gravar quanto para ler): #Gravando dados = {"thb_matrix":"1234-4321", "slipknot":"4321-1234"} arquivo = "c:/teste.txt" h = file(arquivo, "w") for nome, telefone in dados.items(): h.write(nome) h.write('\n') # Pulando linha h.write(telefone) h.write('\n') # Pulando linha h.close() #Lendo dados = {} arquivo = "c:/teste.txt" h = file(arquivo, "r") for linha, dado in enumerate(h): dado = dado.strip("\n") if linha%2==0: nome = dado else: valor = dado dados[nome] = valor h.close() Abraços, Graymalkin

O problema pode estar em usar o Val() nesta linha: soma = soma + Val(rs(nomecampo)) Experimente usar CSng() no lugar de Val() e veja se dá certo. Abraços, Graymalkin

É realmente para fazer por meio de um diagrama? Porque se for, fica complicado de explicar sem usar imagens. Ou seria por algoritmo ao invés de diagrama? Abraços, Graymalkin

Como você faz para realmente "imprimir" o relatório? Se você fizer... Printer.Print txtNome.Text ... independentemente de txtNome estar visível ou não, o texto contido na mesma será impresso. Você deveria checar a checkbox para imprimir ou não a referida caixa de texto: If chkNome.Value Then Printer.Print txtNome.Text End If Certo? ;) Graymalkin

O da serialização? Graymalkin

No caso da data estar junto você não precisa fazer o cálculo "na mão". O problema do usuário anterior é que ele não levava a data em consideração. Abraços, Graymalkin

Não basta apenas testar se a checkbox relacionada com o campo está marcada ou não e então imprimir de acordo? Graymalkin

A propriedade CancelError está habilitada (com True)? Caso positivo, isso realmente vai acontecer quando você clicar no Cancelar e serve justamente para você poder detectar quando este é pressionado (você pode usar as instruções de tratamento de erro [On Error Goto e On Error Resume Next] para isso). Abraços, Graymalkin

Recentemente meu provedor habilitou o serviço de anti-spam (SpamAssassin) para todas as contas de e-mail. Depois disto parei de receber as mensagens do fórum (notificação de resposta e notificação de tópico). Configurei então o anti-spam para não bloquear as mensagens e sim colocar "[sPAM]" no assunto. Isso resolveu o problema de não receber as mensagens. Porém, fazendo alguns testes com o envio e o recebimento de e-mails notei que é possível ver o(s) motivo(s) da mensagem ser considerada spam. Desta maneira, concluí que na verdade a mensagem enviada pelo fórum é que não está de acordo com certos padrões. Segue o relatório de uma mensagem recebida do fórum: X-Spam-Report: * 3.4 SUBJ_ILLEGAL_CHARS Subject: has too many raw illegal characters * 1.2 BLANK_LINES_70_80 BODY: Message body has 70-80% blank lines O primeiro erro se refere a falta de declaração de codificação no assunto da mensagem (o que torna incorreta a utilização de caracteres acentuados do nosso idioma). A especificação de como este tipo de texto deve ser formatado é regulamentada pela RFC 2047: http://www.rfc-editor.org/rfc/rfc2047.txt O segundo erro é mais simples e fácil de entender: ele diz que de 70 a 80% do corpo da mensagem é composto de linhas em branco. E creio que, de fato, não há necessidade de tantas linhas em branco assim. Se for possível corrigir estes itens, acredito que as mensagens poderão passar por bloqueadores de spam cujos critérios sejam semelhantes aos do SpamAssassin (além de estar contribuindo para a utilização de regras de normatização propostas para a Internet). Desde já, agradeço a atenção. Abraços, Graymalkin

Ah, e isso já tinha sido falado em outro tópico sim: http://scriptbrasil.com.br/forum/index.php?showtopic=68438 Abraços, Graymalkin

Retire a máscara, limpe e coloque-a novamente: oldmask = mskactdep.Mask mskactdep.Mask = "" mskactdep.Text = "" mskactdep.Mask = oldmask Certo? ;) Graymalkin

Se você quiser que o seu programa possa alternar entre diferentes SGBDs, sim você precisará que tudo que exista em um (procedures, triggers, tabelas, etc.) também exista no(s) outro(s). Além disso, a nível de programação seria interessante você criar uma interface padrão de acesso a dados e depois criar uma classe para cada SGBD obedecendo a mesma. Se a intenção for apenas fazer um backup para um SGBD diferente, você poderia simplesmente criar rotinas de replicação/atualização de dados para outros BDs. Abraços, Graymalkin

Se me lembro bem, com a função ShellExecute (da API Win32) você pode fazer isso. Dê uma pesquisada a respeito. Abraços, Graymalkin

Aqui no fórum mesmo você encontra como popular uma TreeView e também como percorrer arquivos e diretórios (com a função Dir()). É só juntar. Abraços, Graymalkin

Dê uma procurada sobra a instrução Open. Abraços, Graymalkin

Já experimentou usar a MS Hierarchical FlexGrid? Ela é compatível com ADO e talvez possa mostrar mais registros do que se você preenchê-la manualmente. Abraços, Graymalkin