Graymalkin

Se não me engano era com o comando /join #canal. Abraços, Graymalkin

Não, no manual não tem nada acerca disso. Eu andei a vasculhar em sites de Visual basic e o mais parecido que encontrei foi a forma de comunicar uma balança com o computador. Precisava mesmo de conseguir acabar este projecto! Sabes de algum código ou exemplo de código que eu possa usar? Não tenho nem idéia. Mas, se o telefone tem esse recurso deveria existir um local para obter estas informações. E o mais apropriado seria no manual. Por exemplo, a central telefônica aqui de casa tem uma porta paralela na qual é possível ligar uma impressora matricial e imprimir exatamente estas informações de que você precisa (número chamado, duração, hora, etc.) Teoricamente é possível ligar esta porta ao computador (ao invés da impressora) e "ler" as informações que são enviadas. Todavia, para tal processo é preciso configurar devidamente a central através de códigos que constam no manual dela. Agora, se me permite perguntar, foram vocês que escolheram esse projeto? Abraços, Graymalkin

É só declará-la lá no início: :rolleyes: Dim celula As DataGridViewCell Qual o erro que dá e em qual linha? Abraços, Graymalkin

Eu costumo colocar objetos na DataGridView, então para buscar bastaria percorrer as linhas verificando a propriedade Nome de cada objeto. Mas, no seu caso você está olhando o texto das células, então ficaria algo como: Dim texto As String = Nothing If frmClientes.txtNomePesq.Text <> String.Empty Then 'percorre cada linha do DataGridView For Each linha As DataGridViewRow In frmClientes.DataGridView1.Rows celula = linha(1) 'Índice 1 = coluna nome texto = celula.Value.ToString().ToLower() 'se o texto informado estiver contido na célula então seleciona toda linha If texto.Contains(frmClientes.txtNomePesq.Text) Then 'seleciona a linha frmClientes.DataGridView1.CurrentCell = celula Exit Sub End If Next End If Quanto ao erro, talvez alguma célula sua esteja com um valor nulo, então seria bom fazer uma verificação do tipo: if celula.value isnot nothing then texto = celula.value.tostring().tolower() else texto = "" endif Certo? ;) Graymalkin

Não se pode nomear variáveis com caracteres numéricos, nem colocar tais caracteres no início do nome (somente no meio ou no fim). Obviamente, idem para o espaço em branco. Nestes casos você vai ter que dar nomes como um, dois, espaço, etc. Agora, o que você não conseguiu naquele outro jeito que passei? Acho que seria bem mais simples daquela forma. Da sua maneira você tem que alterar em dois locais ao acrescentar cada caractere. Abraços, Graymalkin

Dependendo da formatação no arquivo você pode usar a instrução COPY ... FROM. Dê uma olhada no help do próprio Postgre para mais detalhes sobre esta instrução. Abraços, Graymalkin

O manual do próprio telefone não tem algo a respeito? Porque deve haver uma sequência de comandos a serem enviados para este a fim de que ele retorne uma resposta. Abraços, Graymalkin

E em qual linha ocorre o erro? Ah, e você não precisa percorrer todas as células se quer procurar em uma coluna específica. Basta usar a propriedade Cells diretamente. Abraços, Graymalkin

Para caracteres acentuados basta fazer do mesmo jeito que você faz para caracteres normais. Aliás, como você está usando variáveis com as letras do alfabeto, saiba que também pode usá-las acentuadas pois isso não é um problema no VB: ã = Array("00", "00", "00", "00") ... Case "ã" organiza = organiza + " " + ã(Chave) Certo? ;) Agora, ainda acho que o método que passei (usando uma coleção) é bem mais simples de se usar (e de inserir novos caracteres, como é o caso). Abraços, Graymalkin

Parabéns, KaKarotto! Definitivamente merecido! Abraços, Graymalkin

A função mouse_event da API Win32. Dê uma pesquisada aqui no fórum e você deverá encontrar algo a respeito. Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=50722 Abraços, Graymalkin

Você instalou a .NET Framework no outro computador? Qualquer programa criado para esta plataforma só vai funcionar se ela estiver instalada no sistema. Abraços, Graymalkin

É o mesmo processo para as duas versões (2005 e 2008): vá no menu Build e escolha Build nome do seu projeto. Seus executáveis serão gerados nas pastas bin\Release e Bin\Debug. Abraços, Graymalkin

Desvie a saída do ping para um arquivo texto: ping 10.0.1.10 > arquivo.txt Depois é só abrir o arquivo e verificar seu conteúdo. Abraços, Graymalkin

O que esse "i" está fazendo ali... int impar(int vet[i]) { ... ...? Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=114716 Abraços, Graymalkin

Dê uma olhada na minha resposta neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=49382 Experimente e veja se dá certo. Abraços, Graymalkin

Cara, esse jogo realmente é sensacional! Há muito que não me interessava mais por jogos, mas fiquei horas a fio jogando esse no dia que comprei uma placa de vídeo decente! Quanto a sua dúvida, toda a maravilha do jogo está no seu engine (mecanismo), chamado CryENGINE2 que, aliás, é utilizado em outros jogos também. Você encontrará mais informações nos links: http://www.cryengine2.org/ http://en.wikipedia.org/wiki/CryENGINE2 http://konakona.nbtxathcx.net/sb2/index.php Abraços, Graymalkin

Aqui também abriu o mesmo site com ambos os endereços. :huh: Abraços, Graymalkin

Movendo para Ajax, JavaScript, XML, DOM. Abraços, Graymalkin

Um exemplo simples: Set proc = Cells.Find("NOME") If Not proc Is Nothing Then 'Se achou MsgBox "O funcionário existe!" Else MsgBox "O funcionário não existe!" End If Abraços, Graymalkin

Fica bem mais simples usando uma coleção, onde se pode atribuir uma chave ao elemento (no caso, o caracter): Dim letras As New Collection Dim frase As String letras.Add Array("01", "02", "03", "04"), "a" letras.Add Array("11", "12", "13", "14"), "b" letras.Add Array("21", "22", "23", "24"), "c" letras.Add Array("31", "32", "33", "34"), "d" letras.Add Array("41", "42", "43", "44"), "e" letras.Add Array("51", "52", "53", "54"), "f" letras.Add Array("61", "62", "63", "64"), "g" letras.Add Array("71", "72", "73", "74"), "h" letras.Add Array("81", "82", "83", "84"), "i" letras.Add Array("91", "92", "93", "94"), "j" letras.Add Array("05", "06", "07", "08"), "k" letras.Add Array("15", "16", "17", "18"), "l" letras.Add Array("25", "26", "27", "28"), "m" letras.Add Array("35", "36", "37", "38"), "n" letras.Add Array("45", "46", "47", "48"), "o" letras.Add Array("55", "56", "57", "58"), "p" letras.Add Array("65", "66", "67", "68"), "q" letras.Add Array("75", "76", "77", "78"), "r" letras.Add Array("85", "86", "87", "88"), "s" letras.Add Array("95", "96", "97", "98"), "t" letras.Add Array("10", "20", "30", "40"), "u" letras.Add Array("50", "60", "70", "80"), "v" letras.Add Array("90", "00", "A0", "B0"), "w" letras.Add Array("C0", "D0", "E0", "F0"), "x" letras.Add Array("G0", "H0", "I0", "J0"), "y" letras.Add Array("K0", "L0", "M0", "N0"), "z" Randomize 'Renova a semente geradora de números aleatórios frase = "eu to fudido" For i = 1 To Len(frase) c = Mid(frase, i, 1) 'Obtém um caracter If c <> " " Then 'Ignorar espaços n = Int(Rnd() * 4) 'Gera um número aleatório entre 0 e 3 nc = letras(c)(n) 'Pega da coleção acima, o n-ésimo elemento do array cuja chave é c Debug.Print c & " = " & nc End If Next i Certo? ;) Graymalkin

Retirado do help do VB5: Abraços, Graymalkin

Usando a rotina SendKeys. Exemplo: Shell "Notepad", vbNormalFocus AppActivate "Sem Título - Bloco de notas" SendKeys "Isto é um teste{ENTER}" SendKeys "e mais outro teste{ENTER}" Certo? ;) Graymalkin