Graymalkin

Tipo esse acima... queria saber se depois no meu form eu devo citar de alguma maneira que as váriaveis de conexão e grade cn e rs estao num módulo.... E como ficaria a declaração de variável acima em um módulo... ficaria assim ? abraços......... Do mesmo jeito que com Dim, porém trocando "Dim" por "Public": Public cn As New ADODB.Connection Public rs As New ADODB.Recordset E não, não precisa colocar nada que referencie ao módulo. A não ser que você tenha uma variável no form com o mesmo nome de uma do módulo. Daí, você pode fazer "módulo.variável" para acessá-la. Abraços, Graymalkin

A solução também é parecida, veja: datagrid1.Columns(índice_da_coluna).Width = tamanho Onde índice_da_coluna começa de 0. Abraços, Graymalkin

Uma breve explicação: Mid(string, início, n) retorna uma substring a partir de início com o tamanho de n caracteres. Exemplo: msgbox mid("teste", 2, 3) 'Começa no 2 caractere e retorna uma sequência de 3 a partir dele (inclusive). Left(string, n) retorna n caracteres a partir da esquerda. Exemplo: msgbox left("teste", 2) Right(string, n) o mesmo que Left, porém a partir da direita. Exemplo: msgbox right("teste", 2) Abraços, Graymalkin

Você vai ter que pegar um campo que identifique aquele registro como único (um código de cliente, por exemplo) que está na mesma linha da seleção atual e procurar no Data. Para pegar o campo, dê uma olhada na propriedade TextMatrix. Caso não consiga, retorne a sua tentativa para cá. Abraços, Graymalkin

Sempre faça uma busca no fórum antes de postar, ok? . O seguinte tópico responde já responde isso: http://scriptbrasil.com.br/forum/index.php?showtopic=20687 Abraços, Graymalkin

Então isso aqui deve resolver o caso: Dim matriz() n = FreeFile() Open "c:\temp\numeros.txt" For Input As #n texto = Input(LOF(n), n) Close #n linhas = Split(texto, vbCrLf) i = 0 For Each linha In linhas valores = Split(linha, " ") ReDim Preserve matriz(i) matriz(i) = valores i = i + 1 Next linha Abraços, Graymalkin

Quase a mesma coisa: import datetime hoje = datetime.date.today() dias_atraso = (hoje-data_venc).days valor = 70 juros = 0.27 print valor + (valor * juros / 100) * dias_atraso O que muda é que Python tem um módulo especialmente criado para se trabalhar com datas e tempos (datetime). Abraços, Graymalkin

Para criar o DOC você poderia usar automação do Word, mas aí você precisa do Word instalado no servidor. Abraços, Graymalkin

E? Essa dúvida está no fórum certo? Abraços, Graymalkin

Acho que ler o arquivo é fundamental... De qualquer forma, dê um exemplo desse arquivo aqui e talvez possamos ajudar melhor. Abraços, Graymalkin

De onde virão os valores é meio relativo (já que você ainda nem criou a tabela, o BD, e muito menos a conexão do mesmo com o programa), porém seria algo do tipo (em VB): valor = 70 dias_atraso = Date() - data_de_vencimento juros = 0.27 MsgBox valor + (valor * juros / 100) * dias_atraso É claro que isso fica muito mais prático (e rápido) quando colocado em uma SQL que vai executar para todos os registros existentes (o código acima só vale para um e teria que ser repetido, através de um laço, para todos os registros). Abraços, Graymalkin

No texto acima, você mesmo já deu a solução para o seu próprio problema... Veja: if len(tabela_item_venda("descricao"))>=50 then 'divide a string em n caracteres por linha, incrementando o Y para as linhas subsequentes e imprimindo de acordo. else Printer.Print tabela_item_venda("descricao") endif Para dividir a string você pode usar as funções Mid(), Left() ou Right(), por exemplo. Abraços, Graymalkin

O DBGrid32.OCX está presente na pasta Windows\System? Tentou registrá-lo com (estando nesta pasta)... regsvr32 dbgrid32.ocx ? Abraços, Graymalkin

Para impedir a alteração de texto, mude a propriedade LabelEdit para 1. Quanto a segunda questão, não sei. Abraços, Graymalkin

Adoro Clipper! Programo constantemente nela. Clarion, só conheço de nome, mas como é outra linguagem XBase (assim como Clipper e FoxPro), tenho idéia de como seja. Python, apesar de ser bem antiga (data do começo de 1990, se não me engano) é atualizada até hoje, e a cada dia vejo que ganha novos adeptos. Abraços, Graymalkin

Como assim "não funciona"? Dá algum erro? Abraços, Graymalkin

Assim: MSFlexGrid1.ColWidth(índice_da_coluna) = tamanho Onde índice_da_coluna começa de 0. Abraços, Graymalkin

Dê uma olhada nisso aqui: valor = 1.23 texto = Space(20) RSet texto = valor Printer.Font.Name = "Courier New" Printer.Print texto Printer.EndDoc Daí, basta adaptar (criando uma funçãozinha, pra não ter que ficar repetindo esse código todo). Abraços, Graymalkin

Sim, um único curso de lógica serve como base para toda e qualquer linguagem que você queira aprender. No fundo, no fundo, o que muda de uma linguagem para outra é a sintaxe (é claro que algumas possuem certos "adendos" que as tornam diferentes, mas cada caso é um caso). Abraços, Graymalkin

Sim, precisa. Graymalkin

É, parece que não... acho que usei o método lusitano para descobrir o tamanho da página na época : Width = 777, Height = 505, ScaleMode = 3. Veja aí se dá certo. Abaços, Graymalkin

Verdade... mas eu já consegui imprimir uma folha inteira, porém acho que eu usei os parâmetros que existem em Printer.PaintPicture. Vou ver se acho aqui como eu fiz isso. Experimente usar "Printer.PaintPicture picbFigura.Image, 0, 0". Abraços, Graymalkin

Sim, você pode fazer isso assim: import arquivo Ou assim: execfile('arquivo.py') Sendo que existem ainda outras maneiras de se fazer isso. Abraços, Graymalkin

Claro. Def define uma função (um bloco de código qualquer). Por exemplo: def DigiteSeuNome(): nome = raw_input("Digite seu nome:") return nome Daí, sempre que você quiser pedir um nome, bastará fazer: nomedigitado = DigiteSeuNome() Funções também pode receber parâmetros. Por exemplo, se você quer o fatorial de 5 (5x4x3x2x1=120) e depois quer o fatorial de 6 (6x5x4x3x2x1=720), poderia fazer uma função assim: def fatorial(n): resultado = 1 for i in range(1, n+1): resultado *= i return resultado Daí, bastaria usar: print "O fatorial de 5 é %i" % fatorial(5) print "O fatorial de 6 é %i" % fatorial(6) valor = int(raw_input('Digite um valor qualquer:')) print "O fatorial de %i é %i" % (valor, fatorial(valor)) Sacou? Abraços, Graymalkin

Bom, a música deve continuar tocando porque essa API deve fazer um cópia dela para a memória antes de tocá-la. De qualquer forma, já tentou usar a API PlaySound() ao invés de sndPlaySound()? Aparentemente esta última chama a primeira, mas não custa tentar. Abraços, Graymalkin