Graymalkin

Declare a sua procedure da seguinte maneira: procedure TForm1.Rotina(); begin { código } end; Onde "TForm1" você troca pelo seu form. Depois, vá no public do type presente em interface desse mesmo form, e inclua a declaração: procedure Rotina(); E pronto. Abraços, Graymalkin

Você reparou que, naquela expressão, qualquer número que for menor que 600 não vai resultar em um inteiro? Abraços, Graymalkin

Com o Inno eu sei que tem. O ISTool (o aplicativo que recomendo utilizar em conjunto com o Inno) tem, do lado esquerdo da tela, uma opção chamada "Executar na Instalação" a qual permite que você especifique um executável qualquer (que é parte do arquivo de instalação) para ser executado durante a instalação. Abraços, Graymalkin

O problema está na comparação... If gridGrid <> Nothing Then Set gridGrid.DataSource = rsRecordSet ... cujo certo seria: If gridGrid is Nothing Then Set gridGrid.DataSource = rsRecordSet Utiliza-se o operador Is para comparar referências a objetos. Abraços, Graymalkin

O que ser um "fx"? Um arquivo texto? Se for o que eu estou pensando, e o seu código possuir uma palavrinha "Output", troque-a por "Append" e veja se dá certo. Abraços, Graymalkin

O que você está utilizando para o acesso ao banco de dados? ADO ou DAO? Data Control ou por código? De qualquer forma, no caso do DAO, basta chamar o método Edit do recordset, alterar os campos e depois chamar o método Update. No caso do ADO, basta alterar os campos e chamar o método Update, também no recordset. Abraços, Graymalkin

Sim, você pode. Só acho desaconselhável fazer isso enquanto você estiver desenvolvendo. Isso porque enquanto desenvolvemos é inevitável que hajam erros que passem desapercebidos durante a programação e que surjam na hora da execução. Com essa instrução você não os detectaria durante a execução (já que ele pegaria qualquer erro) e só veria as mensagens onde estivesse um "if err.number<>0 then response.write("Erro ocorrido: " & err.description)" ou algo semelhante. Após estar tudo funcionando eu acho recomendável habilitar o On Error Resume Next, pois aí você já tem mais certeza de que qualquer erro gerado foi causado mais por fatores externos do que pela programação. Certo? Graymalkin

Para isso acredito que você possa se valer do On Error Resume Next antes da abertura do BD e depois checar a propriedade Number do objeto Err para saber se ocorreu algum erro. Exemplo: on error resume next 'aqui você abre o BD e tals if err.number<>0 then 'se ocorreu algum erro 'transfere para a outra página (Server.Transfer, se não me engano) endif Certo? Graymalkin

O primeiro parâmetro de InStr() é a posição inicial a partir da qual a string será procurada. Em geral você especifica a primeira posição, ou seja, seu código deveria ser: descricao = InStr(1, localizar, buscar) Certo? Graymalkin

Sim, acho que deu pra pegar a idéia. Se quiser enviar a imagem por e-mail, você pode mandar para wap@openlink.com.br. Se você pudesse mandar o jogo também (o compilado), só para eu confirmar mesmo se entendi, seria melhor ainda. Abraços, Graymalkin

Experimentou instalar o MDAC (o 2.0 e o 2.8) e o JET (4.0) nesse com Win98? Abraços, Graymalkin

O método OpenDatabase tem Connect como último parâmetro, certo? Caso positivo, acredito que basta colocar ";pwd=senha" (sim, uma string) nele. Faça o teste aí e veja se dá certo. Abraços, Graymalkin

Sim, você pode fazer isso. Aliás, já até existe um tópico acerca disso: http://scriptbrasil.com.br/forum/index.php?showtopic=32484. Há um tempo atrás fiz um exemplo, a pedido de um amigo, sobre como embutir diversos executáveis em um único e o princípio é o mesmo. Se quiser, os fontes estão aqui: http://www.graymalkin.globalhosts.com.br/stuff/Juntar.zip http://www.graymalkin.globalhosts.com.br/stuff/Juntar2.zip Abraços, Graymalkin

Isso deve ao escopo de variáveis. Variáveis declaradas (ou simplesmente criadas) dentro de procedimentos (subs ou functions) *só* existem dentro das mesmas. No caso ali, a variável "valor" que você utiliza em Form_Load é destruída ao final do procedimento. Para que ela exista o tempo todo, você tem duas opções: declará-la em um módulo ou no General Declarations do form. Quanto ao tipo, você pode declará-la como integer sim, bastando converter o valor para um inteiro ao atribuir. Exemplo: valor = int(cmbdia.List(cmbdia.ListIndex)) Certo? Graymalkin

Em uma picturebox do VB6? Que eu saiba, não. Talvez você encontre alguma OCX que permita isso, mas uma alternativa seria converter um PNG para um BMP ou JPG e carregar o arquivo convertido. Em Python dá pra fazer um conversor assim, que pode inclusive ser utilizado a partir do VB (por uma DLL) ou externamente (por um EXE, que poderia ser chamado com a função Shell do VB). Se quiser posso te fornecer um exemplo disso. Ok? Graymalkin

Realmente, não funciona! Fiz testes ainda com Delphi e C, sendo que só o do Delphi funcionou tanto no XP quanto no 98. VB e C só funcionaram no XP. O porquê disso eu realmente não sei... Abraços, Graymalkin

Não? Você leu o segundo post? A saber: Graymalkin

Sim, de fato eu uso o XP. Vou testar no Win98 daqui a pouco. Abraços, Graymalkin

O compilador do VB.NET pode ser usado a partir da linha de comando ou através do ambiente do Visual Studio .NET. Comparando com o ambiente do VB6, o ambiente do Visual Studio .NET é bastante semelhante. Quantos às diferenças entre o VB6 e o VB.NET dê uma procurada no fórum, pois já houveram diversos posts acerca disso. Abraços, Graymalkin

Precisa mesmo ser o menu padrão? Com o SmartMenu XP você faz isso facilmente, e ele é bem mais bonito que o padrão. Aqui você encontra um exemplo dele: http://scriptbrasil.com.br/forum/index.php?showtopic=37812. O controle em si você encontra em algum lugar da Net (é só procurar no onipresente Google). Abraços, Graymalkin

Ali em cima, ao lado de "Ajuda" tem "Pesquisa" e veja o que ela magicamente me retornou: http://scriptbrasil.com.br/forum/index.php?showtopic=25441 http://scriptbrasil.com.br/forum/index.php?showtopic=46198 http://scriptbrasil.com.br/forum/index.php?showtopic=40587 http://scriptbrasil.com.br/forum/index.php?showtopic=17311 http://scriptbrasil.com.br/forum/index.php?showtopic=10404 http://scriptbrasil.com.br/forum/index.php?showtopic=6030 http://scriptbrasil.com.br/forum/index.php?showtopic=6089 Certo? Abraços, Graymalkin

É só usar a função upper() para transformar tudo em maiúsculas na hora da busca, tanto no valor do campo quanto no valor procurado. Exemplo: Query1.sql.add('SELECT * FROM Table1 WHERE Upper(Nome) Like Upper(' + #39 + '%' + Edit1.Text + '%' + #39 + ')'); Certo? Abraços, Graymalkin

Hummm... é, são muitas casas mesmo. Eu não tinha imaginado tantas assim. E, de fato, não conheço esse jogo. Qual é, exatamente, o objetivo do jogo? É parecido com o jogo da velha? Abraços, Graymalkin

numero1 = 6 numero2 = 3 soma = numero1 + numero2 If soma > 0 Then p1 = numero1 * 100 / soma p2 = numero2 * 100 / soma Response.Write(p1) Response.Write(p2) End If Seria isso? Abraços, Graymalkin

Interessante, porém acho que você não precisa de IA nesse caso. Aliás, a intenção da IA clássica é, na verdade, dar a uma máquina uma "inteligência" igual ou semelhante a nossa. Ou seja, dar ao computador a capacidade de se comportar como um ser humano. No caso em questão, você pode simplesmente fazer com que o computador realize todas as jogadas possíveis e decida qual é a melhor. Dependendo do tamanho da tabuleiro, creio que isso não tomará tanto tempo. A decisão de "qual é a melhor" vai ser feita levando em conta as possibilidades de vitória daquele ponto em diante seguindo uma das possibilidades possíveis. Quando criei um jogo da velha, no qual o computador pode jogar contra ele mesmo, não usei tanta sofisticação, mas fiz com que ao deixar os dois no modo difícil nenhum dos adversários ganhe. Ou seja, sempre dá velha (o objetivo do jogo, aliás). É claro que um jogo da velha tem poucas casas e é possível traçar estratégias que levem diretamente à situação de velha. Certo? Abraços, Graymalkin