kuroi

da sim, pra saber qual o proximo codigo, acho que você teria que fazer assim: Select Codigo From Tabela Where Codigo = (Select Max(Codigo) From Tabela) se voltar EOF, é porque não tem nada cadastrado, então o proximo codigo é o 1. se voltar alguma coisa, o proximo codigo é o retorno do select + 1.

duvido muito hahah prefiro jogar mario kart. mas não entendi... pra que serve o nMotor?? e o h??

do mesmo jeito que você já faz esse arquivo. é so reescrever tudo de novo num novo arquivo, só que dessa vez com o ip que ele escolheu e salvar no mesmo lugar. bom, mas se quando você for reescrever, você não souber como preencher o resto do conteudo alem do ip, você pode abrir o arquivo já existente, ler linha por linha numa variavel, substituir o ip e gravar o novo arquivo. pra ler o arquivo é so usar o comando Open. so que ponha Open For Input, faca uma busca ai que você encontra exemplos. ou pode usar o FileSystemObject também, de uma olhada aqui: http://www.macoratti.net/filesyst.htm

hum... não sabia hhahah não entendo nd disso...

a ta, pode ser assim, mas depende do criterio, que eu não sei direito como é. porque por exemplo, se uma equipe tem um só piloto. e ele fica na frente de só tres pilotos. você soma 0.04 pra ele. agora uma equipe com dois pilotos, ficam os dois logo atras desse primeiro. ai você soma 0.03 pra um e 0.02 pr outro. da 0.05 no total pra essa equipe. ou seja, ela vai passar na frente da equipe do outro piloto que ficou com 0.04. mas o do 0.04 não deveria ficar na frente, já que ele acabou na frente dos outros dois?? se for isso, no desempate, você devia guardar so a pontuacao do melhor piloto de cada equipe.

sim, dava pra fazer assim, mas ai é foda tem que refazer toda a funcao. tipo, tem que ver a logica certinho, talvez ate tenha um jeito simples, mas não ta me entrando na cabeca, por isso falei de fazer a funcao nova, achei que seria mais simples. se você achar algum jeito pode fazer. alias... tava pensando aqui. se você transformar o pontos2 em decimal da pontuacao principal, deve funcionar sim... tipo, divida a pontuacao2 por 100 e some com a pontuacao principal na hora de comparar. nessa linha: If Vetor(j).pontuaçao2 < Vetor(min).pontuaçao2 Then min = j

cria um campo novo no type equipe pra guardar a colocacao na ultima corrida. ai você guarda a colocacao do melhor piloto dela (se é esse o critério pra classificacao na f1) e usa como criterio de desempate. ai o esquema é você criar uma nova variacao daquela funcao de ordenacao. a atual recebe o tamanho maximo, certo?? faca uma que receba também o tamanho inicial e ordene pela classificacao. ai você faz um for pra ler as equipes e vai contando qtas tem pontuacao igual (levando em conta que vai estar ordenado por pontuacao). ai você passa pra essa nova funcao o indice inicial e o final.

da uma olhada aqui: http://www.macoratti.net/printer.htm olha la também sobre o metodo PrintForm, talvez seja isso que você queira

ele vai selecionar o ip e ai o arquivo bat vai ser alterado, certo?? você pode então reescrever o arquivo bat salvando em cima do já existente.

entendi, valeu. mas que problema tem com o ajax??

tava vendo... os caracteres especiais tem cada um um certo codigo em html pra eu escreve-lo. por exemplo, á em html é & aacute;. queria saber se tem alguma vantagem escrever assim em codigo no meu codigo. porque tipo, sei que caracteres japoneses também são escritos em codigo. por exemplo, 黒 é & #40658;. e sei que se eu tentar escrever o caracterer direto no meu codigo, quando eu for ler na pagina sempre me aparece uns rabiscos estranhos. por isso sempre escrevo em codigo. agora sei que os acentos não tem esse problema. eu posso escrever normalmente á no meu codigo que vai aparecer sempre á. agora queria saber se tem alguma vantagem eu escrever & aacute;. vocês recomendam que eu escreva meu codigo em codigo o que eu escreva as letras direto??

bem legal, a televisaozinha foi você que desenhou?? só que no titulo da pagina ta bastar'ds. com o negocinho depois do r, acho que era pra ser depois do d, não?? ou mas death note é muito ruim, posta os episodios de berserk!!

cara, isso é sintaxe de conexao com PHP. pra conectar em ASP, você tem que declarar um objeto Connection, passar a string e abri-lo. tipo assim: <% Dim conn set conn = server.createobject("adodb.connection") conn.Open "driver=MySQL;localhost;uid=teste;pwd=senha;database=teste" %>[/code]

acho que o texto que você quer gravar é maior do que cabe no campo não?? qual o tamanho do campo e qual o texto que aparece na textbox??

sei la, não uso data control. acho é ADODC1.RecordSet.Execute, se não me engano. faz uma busca no forum ou no google, ou no site do macoratti, http://www.macoratti.net

isso é .NET??

tenta assim: sqlTabela="insert into guarda(arquivo)values('" & Replace(arrayLinha(0), "'", "''") & "')"

faca um while e leia linha por linha Set Banc = OpenDatabase("I:\Projetos\Projeto DRZ\DRZ_VB\Ábaco.mdb") Set Tabel1 = Banc.OpenRecordset("Con_Trab", dbOpenSnapshot) Set Tabel2 = Banc.OpenRecordset("EPI", dbOpenSnapshot) Do While Not Tabel1.EOF Combo1.AddItem Tabel1!Condi Tabel1.MoveNext Loop Do While Not Tabel2.EOF Combo2.AddItem Tabel2!EPI Tabel2.MoveNext Loop[/code]

tenta então pela propriedade value: If optVermelho.Value = True Then lblMensagem.ForeColor = vbRed ElseIf optVerde.Value = True Then lblMensagem.ForeColor = vbGreen ElseIf optAzul.Value = True Then lblMensagem.ForeColor = vbBlue ElseIf optMagenta.Value = True Then lblMensagem.ForeColor = vbMagenta End If lblMensagem = txtTexto.Text[/code]

cara da uma olhada se os nomes dos OptionButtons são esses mesmos, optAzul e optMagenta.

sim, você tem que executar o select. você ta usando dao, ado, ta fazendo via datacontrol, etc??

isso que eu não entendi, o que é esse quadrado?? que objeto é esse?? ou é so a borda do proprio objeto que você chama de quadrado?? se for, deve aumentar junto sim.

opa é verdade, foi mal, peguei o codigo antigo que tava errado.

a é, eu tinha esquecido, você zerou a forca mas não zerou o ia. por você ter zerado a forca, o ia, se calculado, vai ser 1 (que também serve), mas você nem chega a calcular pros 6 ultimos. ou você faz assim: For i = 0 To 21 xPiloto(i).ai = Int(xPiloto(i).força * Rnd) + 1 Next[/code] ou você faz assim: [code]For j = 7 To 21 xPiloto(j).força = 0 xPiloto(j).ai = 0 Next

a ta, olha que você ta fazendo ao contrario: For j = 7 To 21 xPiloto(j).força = 0 Next For i = 0 To 6 xPiloto(i).ai = Int(xPiloto(i).força * Rnd) + 1 Next[/code] num esquece que o primeiro colocado é o numero 21, o segundo é o 20 e etc. você ta zerando a forca dos 15 primeiros colocados e quem esta correndo na verdade são os 7 ultimos. acho que o que você quer seria isso: [code]For j = 0 To 5 xPiloto(j).força = 0 Next For i = 6 To 21 xPiloto(i).ai = Int(xPiloto(i).força * Rnd) + 1 Next