kuroi

sem mudar uma linha no seu código, olha como foi a minha segunda corrida: Alonso - 10 Pontos Hamilton - 6 Pontos Resultado: McLaren 16 Pontos ou seja, ta certo Raikonen - 8 pontos Massa - 5 Pontos Resultado: Ferrari 13 Pontos ou seja, ta certo também. qual o problema que tinha pra você?? outra coisa, pra facilitar pra você, em vez de gravar o nome da equipe pra cada piloto, grave o numero do indice dela no array. assim, pra acessar você não precisa daquele For todo, é so passar o numero no indice. quanto ao negocio das pecas, presta atencao que você define o nome dos pneus, por exemplo, depois de definir qual pneu cada equipe usa. assim você poe o nome do pneu pra equipe, mas o nome esta vazio já que os pneus so vao receber nome la no final. alias, o melhor a se fazer, como eu disse acima é gravar o numero do pneu pra equipe, em vez do nome.

não entendi direito... você quer acessar um banco de dados remoto hospedado na internet?? se for isso, na verdade nunca tentei, mas acredito que deve dar sim, desde que sejam banco de dados como sql ou mysql (que não seja do tipo access que você so copia o arquivo). você passando na connection string, o ip ou o dns do servidor, o nome do banco de dados e, o mais importante, a senha, deve dar pra conectar sim.

ou da pra me mandar o projeto então pra eu dar uma olhada??

opa, então renato, como eu disse antes a chave do 017 não aparece mais em modo de seguranca. ela so aparece em modo normal e so depois que eu conectar o speedy. então, eu pus fix checked em modo normal mesmo, mas depois reinicei de novo e quando fiz outro log ele tava la ainda. quando ao controle remoto é um codigo fonte vb que eu baixei que nem lembro mais o que faz, então não apaguei ele com o killbox, acho que não deve ter problema, quando tiver um tempo vo dar uma estudada nele. mas e quanto a esse monte de virus que o kaspersky disse que esta no volume information?? o dnschanger ta entre eles. novo log: EDITADO: a e só pra dexar claro, o hyjco foi apagado sim.

cara, não tenho o vb5 pra testar aqui, mas acredito que deve funcionar igual. de qualquer modo, tente então esse codigo aqui que deve dar certo: http://scriptbrasil.com.br/forum/index.php?showtopic=105586 agora se não der certo, aponta a linha e a descricao do erro.

log do kaspersky: hijackthis.log

como esta aparecendo?? ele soma errado ou nem soma?? tenta isso...

ta acontecendo algum erro?? SomaPontos indice, pontos exemplo: SomaPontos 19, 10 alias, eu tinha passado com parenteses, mas na verdade tem que ser sem, como no exemplo acima, foi mal. tanto faz. se for declarar no module, declare como Public. Tem que se exatamente no mesmo lugar onde tava o código antigo. mas não esqueca que é sem parenteses.

sim, os parametros passados, tanto o i como o pontos devem ser do tipo Integer. pra arrumar ou você altera o tipo das variaveis passadas como parametro ou você altera o tipo dos parametros na declaracao da sub, de modo que os tipos batam.

a, você pos no module ne?? troque Private Sub por Public Sub.

ue, pra que essa linha?? xEquipe(j).pontuaçao = xEquipe(j).pontuaçao - xPiloto(i).pontos então, declare uma funcao tipo assim: Private Sub SomaPontos(i As Integer, pontos As Integer) Dim j As Integer xPiloto(i).pontos = xPiloto(i).pontos + pontos For j = 0 To UBound(xEquipe) If xEquipe(j).nome = xPiloto(i).Equipe Then xEquipe(j).pontuaçao2 = xEquipe(j).pontuaçao2 + pontos Exit For End If Next End Sub[/code] ai substitua esse codigo: [code]xPiloto(19).pontos = xPiloto(19).pontos + 10 xPiloto(18).pontos = xPiloto(18).pontos + 8 xPiloto(17).pontos = xPiloto(17).pontos + 6 xPiloto(16).pontos = xPiloto(16).pontos + 5 xPiloto(15).pontos = xPiloto(15).pontos + 4 xPiloto(14).pontos = xPiloto(14).pontos + 3 xPiloto(13).pontos = xPiloto(13).pontos + 2 xPiloto(12).pontos = xPiloto(12).pontos + 1 por: SomaPontos(19, 10) SomaPontos(18, 8) .... .... SomaPontos(12, 1)[/code] mas não esqueca de zerar a pontuacao2 da equipe antes de comecar a chamar o SomaPontos.

haha mas você tentou alguma coisa?? como ficou o codigo??

exatamente como você faz aqui: so que em vez de você somar os pontos do piloto, some os pontos pela colocacao, como aqui: xPiloto(19).pontos = xPiloto(19).pontos + 10 xPiloto(18).pontos = xPiloto(18).pontos + 8 xPiloto(17).pontos = xPiloto(17).pontos + 6 xPiloto(16).pontos = xPiloto(16).pontos + 5 xPiloto(15).pontos = xPiloto(15).pontos + 4 xPiloto(14).pontos = xPiloto(14).pontos + 3 xPiloto(13).pontos = xPiloto(13).pontos + 2 xPiloto(12).pontos = xPiloto(12).pontos + 1[/code] o equipe do piloto 19 ganha 10 pontos, a do 18 ganha 8 e etc.

ainda é esse erro:

você pode fazer isso de varios jeitos. pode fazer um array novo e somar a pontuacao mas so a da ultima corrida. ou pode adicionar uma propriedade nova no tipo equipe que guarde a pontuacao so da ultima corrida e ai na hora de somar na pontuacao acumulada, você substitui o novo campo, ect.

a ta você tem duas opcoes então. na hora que você soma o ponto pro jogador, procure também a equipe dele (use o segundo For) ou antes de somar a pontuacao pra equipe, zere o campo (pontuacao) pra todas as equipes com um For.

ou ta bem loco o jogo la ou, foi mal, no for, troque: xEquipe(j).pontuaçao = xPiloto(i).pontos por: xEquipe(j).pontuaçao = xEquipe(j).pontuaçao + xPiloto(i).pontos agora deve dar

nem pega nd não, depois da ordenacao de valores, o tópico não tratou de nenhum assunto especifico, so das suas proprias duvidas pro seu jogo, não tem necessidade de outros topicos. alem de que, tudo junto fica melhor, é td sobre a mesma coisa mesmo... o que acontece?? ele soma errado ou nem soma?? lembra do negocio do debug que eu falei?? do F8, F9, etc?? poe o breakpoint na linha desse for e va olhando a cada linha o que acontece. veja qual o piloto que ele esta testando, veja se ele encontra a equipe, e veja se ele faz a soma correta, etc.

ou a gente vai conversando e nem percebe hahaha... mas esse aqui já virou disparado o maior tópico da sala de visual basic!! e caraio... tudo isso em 1 semana...

hahah beleza... faca tipo assim... onde você associa as equipes com os pilotos?? não sei se você já esta fazendo isso, mas você teria duas opcoes: - por uma propriedade nova no type piloto pra guardar o nome da equipe. - criar um tipo equipe que guarde um array de pilotos a segunda opcao seria a mais "certa". mas de novo, o modo certo de fazer seria usando classes. já que usando tipos, você não tem como vincular os pilotos com a equipe. ai por mais que você tentasse deixar "bunitinho", uma hora ia aparecer um "buraco" que você teria que emendar com alguma gambiarra. não que você esteja indo pelo caminho errado. só não é o mais orgazinado, o mais bunito... mas tipo, levando em conta que você guarda o nome da equipe no piloto. você teria que ter um outro tipo pra guardar a pontuacao total da equipe. ai você percorria o array dos pilotos e ia somando os valores pra cada equipe. tipo assim: For i = 0 To UBound(xPiloto) For j = 0 to UBound(xEquipe) If xEquipe(j).Nome = xPiloto(i).Equipe Then xEquipe(j).Pontos = xEquipe(j).Pontos + xPiloto(i).Pontos Exit For End If Next Next[/code] EDITADO: opa, no codigo acima, passei o nome do piloto onde era pra passar a equipe, agora ta corrigido.

também não acho que seja necessario ou obrigatorio. não to falando que TEM que ter isso de qualquer jeito. e também não to falando pelo lado de que va ajudar a resolver problemas de usuario, ou evitar qualquer outro tipo de problema. tipo não vejam pelo lado de se seria util ou não... vejam pelo lado de que seria legal, interessante ter as informacoes com um facil acesso. assim como tem funcoes totalmente inuteis por ai, como por exemplo, saber o numero de pessoas que visualizou meu perfil, ou quem foram os ultimos visitantes, ou ainda adicionar amigos. são coisas que não adicionam em nd no conteudo, mas que são legais de ter por ai... ou seja, é bestera é mesmo, mas ia ser legal se tivesse

haha ou quando ce acabar tudo, manda pra mim aí tem sim... Private Sub Timer1_Timer() tempo = tempo + 1 Me.Controls("lbl" & 20 - (tempo - 1)).Caption = xPiloto(tempo - 1).nome If tempo = 20 Then Timer1.Enabled = False End If[/code] é ai que entrava o negocio da classe. ia ser bem mais simples, se tivesse uma classe equipe com uma propriedade que fosse uma colecao da classe piloto pra guardar todos os pilotos da equipe. e ai você tinha uma classe corrida e etc... bom, mas você não tem que obrigatoriamente fazer isso, já que se fosse pra criar classe, você teria que jogar fora praticamente tdo que já fez. alem do que eu disse que seria bem mais simples pra ordenar, já que você faria isso numa unica linha. mas a estrutura das classes por tras disso pode dar muito trabalho (mas que vale a pena, já que ficaria tdo melhor organizado e mais facil de mexer). pra poder ordenar nas equipes seguindo o que você já fez, crie uma matriz qualquer pra guardar o nome e os pontos da equipe, percorra o array dos pilotos com um For e va procurando as equipes e somando os pontos nesse array. ai depois você orderna usando aquela funcao de novo.

ponha um timer no seu form, com intervalo de 1 segundo (1000 milisegundos) e va somando uma variavel a cada vez. use ela pra acessar os indices, assim você mostra uma de cada vez. pra mais detalhes de como usar o timer: http://scriptbrasil.com.br/forum/index.php?showtopic=50047 http://scriptbrasil.com.br/forum/index.php?showtopic=77918 http://scriptbrasil.com.br/forum/index.php?showtopic=76882

Dim x As Control For Each x In Me.Controls If TypeOf x Is CommandButton Then x.Enabled = False Next[/code]

seria isso?? document.getElementById("iddocampo").focus();