-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
Tente abrir o arquivo de modo exclusivo e se der erro é porque o mesmo está sendo usado: n = FreeFile() Open "d:\teste.xls" For Binary Lock Read As #n Close #n Abraços, Graymalkin
-
Vamos supor que a sua tabela de opções possui os seguintes campos: Código e Descrição. No DataCombo1 você vai definir as seguintes propriedades com os seguintes valores: BoundColumn -> Código ListField -> Descrição Desta maneira, na combo aparecerão as descrições das opções e quando você fizer... n = DataCombo1.SelectedItem ... você obterá o código correspondente à opção selecionada. Sacou? ;) Graymalkin
-
Ajuda Para Usar "mp3play.ocx" Ou Manipular Mp3
pergunta respondeu ao Naldo Barbosa de Graymalkin em Visual Basic
Qual a tag que você quer gravar? Se for a ID3V1 (ou 1.1) é bem simples e você mesmo pode fazer. No caso ela consiste dos últimos 128 bytes do arquivo, bastando você formatá-la de acordo com as informações disponíveis nesta página: http://www.id3.org/ID3v1 Neste site (http://www.id3.org/) você também encontrará informações sobre o novo formato (ID3v2), como uma especificação completa dele, e inclusive implementações prontas. Eu mesmo já criei uma biblioteca (XTag2) para escrita de tags baseada nas informações disponíveis neste site. Eu ainda não a disponibilizei para o público em geral porque ela ainda é beta. Com ela você pode gravar, por enquanto, quatro formatos diferentes de tags (XTag, ID3v1, ID3v2 e Vorbis Comments). Se quiser me passa seu e-mail que eu te envio ela e um pequeno exemplo de utilização: wap@openlink.com.br Abraços, Graymalkin -
Posso estar enganado, mas sinto um toque de ironia na pergunta... Graymalkin
-
Sim, para o Access 2003 você precisa usar o Jet 4.0 e não o 3.51 (que era para o Access 97). Abraços, Graymalkin
-
Programinha Basico, Qual A Melhor Forma De Fazê-lo?
pergunta respondeu ao argentino de Graymalkin em Lógica de Programação
Sim, eu e um amigo uma vez fizemos alguns "estudos" em cima dos resultados anteriores da LotoFácil a fim de verificar se existia algum tipo de padrão. Certa vez fizemos 50 jogos com bases nos "estudos" e ganhamos só R$ 10,00 (ou ainda, perdemos R$ 40,00... :(). Mas, então, você quer usar 25 números (ao invés de 6) tomados 15 a 15 (ao invés de 2 a 2)? E para quê exatamente serve aquela matriz indicando a quantidade de valores comuns entre os dois eixos? Abraços, Graymalkin -
O código está tal qual você mostrou no seu primeiro post? Porque se você estiver declarando o objeto Excel.Application dentro de uma rotina, ao final desta o objeto será destruído. O ideal é mesmo do jeito que você fez (declarando o objeto na seção General Declarations). Abraços, Graymalkin
-
Programinha Basico, Qual A Melhor Forma De Fazê-lo?
pergunta respondeu ao argentino de Graymalkin em Lógica de Programação
Bom, fiz agora a versão para VB: Dim v As Integer = 6 Dim x, y, tem As Integer Dim m1 As New ArrayList() Dim m2 As New ArrayList() Dim e1(), e2() As Integer Dim linha As ArrayList Dim matriz As ArrayList For x = 1 To v For y = x + 1 To v m1.Add(New Integer() {x, y}) Next Next m2 = m1.Clone() matriz = New ArrayList() For Each e1 In m1 linha = New ArrayList() For Each e2 In m2 tem = 0 If Array.IndexOf(e2, e1(0)) >= 0 Then tem += 1 End If If Array.IndexOf(e2, e1(1)) >= 0 Then tem += 1 End If linha.Add(tem) Next matriz.Add(linha) Next For Each linha In matriz For Each valor As Integer In linha Debug.Write(valor.ToString() & ", ") Next Debug.WriteLine("") Next Não ficou tão elegante e nem tão rápida quanto a versão em Python, mas deve dar para dar uma melhorada (pelo menos na performance). Agora, ao invés de 15 pares você quer gerar 3.268.760 pares? Ou você vai usar 3.268.760 no lugar de 6 valores? Abraços, Graymalkin -
http://scriptbrasil.com.br/forum/index.php?showtopic=68787 Você se refere a este tópico? Abraços, Graymalkin
-
Programinha Basico, Qual A Melhor Forma De Fazê-lo?
pergunta respondeu ao argentino de Graymalkin em Lógica de Programação
De qualquer maneira, este pequenino programa em Python faz a tal matriz: v = 6 m1 = [[x,y] for x in range(1, v+1) for y in range(x+1, v+1)] m2 = m1[:] matriz = [] for e1 in m1: linha = [] for e2 in m2: tem = 0 if e1[0] in e2: tem += 1 if e1[1] in e2: tem += 1 linha.append(tem) matriz.append(linha) for i, linha in enumerate(matriz): print i+1, linha Vou tentar fazer uma versão em VB dele. Abraços, Graymalkin -
Programinha Basico, Qual A Melhor Forma De Fazê-lo?
pergunta respondeu ao argentino de Graymalkin em Lógica de Programação
Seu arquivo já está lá: http://www.gs.kitbr.com/stuff/Argentino.zip Agora, por que você não postou em .NET se você está utilizando o VB 2005? Abraços, Graymalkin -
Teste se a linha não está vazia: if not (linha.Trim()="") then ... Abraços, Graymalkin
-
Dê uma procurada sobre as funções FindWindow e SendMessage e talvez você encontre algo que lhe possa ser útil (experimente procurar aqui no fórum mesmo ou no Google). Abraços, Graymalkin
-
Programinha Basico, Qual A Melhor Forma De Fazê-lo?
pergunta respondeu ao argentino de Graymalkin em Lógica de Programação
Passa o arquivo para mim que eu disponibilizo no meu site e coloco o link aqui: wap@openlink.com.br Agora, gerar as matrizes não é problema, pelo menos não em Python: v = 6 m1 = [[x,y] for x in range(1, v+1) for y in range(x+1, v+1)] m2 = m1[:] Só não entendi o que você quer fazer depois de gerar as matrizes. Abraços, Graymalkin -
Este código parece ser para versões antigas do Word. Dê uma procurada por "Word.Application" aqui mesmo no fórum e você encontrará códigos de exemplo mais atuais. Abraços, Graymalkin
-
Já tentou fazer... xl.Visible = True ... ? ;) Abraços, Graymalkin
-
Imprima linha por linha, ou seja, todas as colunas da primeira linha, depois todas as colunas da segunda linha, e assim por diante. Acho que o problema no seu código é que você usa knotmax em ambos os fors, sendo que, como você mesmo disse, nem sempre a matriz é quadrada (portanto o limite em ambos os fors podem ser diferentes). Abraços, Graymalkin
-
Assim: SetAttr "c:\teste.txt", vbHidden Certo? ;) Graymalkin
-
Amigo, isso realmente tem haver com Python? Abraços, Graymalkin
-
Faça assim: char str[5] = "K"; E observe as aspas duplas (e não simples, que denotam apenas um caracter). Abraços, Graymalkin
-
Acho que você poderia fazer assim: on error resume next err.clear() set obj = createobject("teste") if err.number=0 then 'envia com este else 'tenta outro err.clear() set obj = createobject("teste2") if err.number=0 then 'envia com este else 'tenta outro '... end if end if on error goto 0 Onde "teste" e "teste2" seriam as classes dos objetos (CDonts, Aspemail, etc.). Abraços, Graymalkin
-
Dê uma olhada no sIFR, acho que ele pode te ajudar no caso: http://www.mikeindustries.com/sifr/ Abraços, Graymalkin
-
Mas, InStr() também serve para palavras inteiras. Abraços, Graymalkin
-
Não deveria ser... sBd = sBd & "<font face=arial size=2>Nome .: " & xnam & "<br>" sBd = sBd & "<font face=arial size=2>Empresa .: " & xemp & "<br>" sBd = sBd & "<font face=arial size=2>Telefone .: " & xtel & "<br>" if xqcr2 <> "" and xpgr <> "" then sBd = sBd & "<font face=arial size=2>Quantidade .: " & xpcr2 & "<br>" sBd = sBd & "<font face=arial size=2>Programa .: " & xpgr2 & "<br>" end if ..., não? ;) Abraços, Graymalkin
-
Como é feita essa impressão? Via navegador? Porque se você estivesse jogando os dados diretamente na porta da impressora (através da instrução Open) você não teria esse problema (só que acredito que isso não seja possível com ASP/VBScript; eu já fiz isso com VB). Abraços, Graymalkin