Erro ao fazer um sistema (vb6.0)

por williamg15 Qua 15 Ago 2012, 18:59

Eae galera estou fazendo uma engine para praticar e talvez usar em um dbz futuramente .

Lá estava eu fazendo o sistema de voar do lucas roberto, pra quem nao conhece:

http://www.mmorpgbr.com/t6459-sistema-voar-completo

Fiz o tutorial 3 vezes , consiguir compilar o client mais no servidor da isso:

https://2img.net/r/ihimg/photo/my-images/27/semttulogkg.png/ (Print do erro, veja pf)

Quem puder me ajudar a resolver este erro e me explicar os seguintes codigos eu agradeço:

[spoiler]Sub DeixarVoar(ByVal Index As Long)

Select Case GetPlayerSprite(Index)

Case 2
Call SetPlayerSprite(Index, 0)
Call SendPlayerData(Index)
Exit Sub

Case 4
Call SetPlayerSprite(Index, 11)
Call SendPlayerData(Index)
Exit Sub
End Select
End Sub

Sub InicioVoar(ByVal Index As Long)

Select Case GetPlayerSprite(Index)

Case 1
Call SetPlayerSprite(Index, 11)
Call SendPlayerData(Index)
Exit Sub

Case 3
Call SetPlayerSprite(Index, 0)
Call SendPlayerData(Index)
Exit Sub
End Select
End Sub
[/
spoiler]

por caiozinho100 Sáb 25 Ago 2012, 07:37

A "sub deixarvoar" começa com Case 2;
Caso vc ageite(ou ajeite) e coloque começando com case 1 e a segunda case sendo case 2... a "sub iniciovoar" vai dar erro tb pq começa com case 1 e a segunda case eh case 3

faz assim:

na primeira sub no lugar de Case 2 coloque Case 1... e no lugar de Case 4 coloque 2.
na segunda sub no lugar de Case 3 coloque Case 2.

OBS: nao sei se vai funcionar mas creio que eh isso.

por zenny2010 Sáb 25 Ago 2012, 14:38

Da o print do erro que da nao só a linhA '-'

por Guardian Sáb 25 Ago 2012, 15:27

Antes de tudo, Este tutorial não é do Lucas Roberto. É meu tongue

(Só ver os créditos no final do tópico kkk')
Acho que eu posso te ajudar ja que os códigos são todos meus kkkk' Que erro você teve ai ? Você só disse a linha... Porém, eu aconselho você a refazer porque ja testei aquele tutorial umas 20 vezes, funciona 100% se fizer certinho. Smile

Good Luck!

por KiraKai Ter 28 Ago 2012, 20:32

Olá amigo gostaria de ajuda-lo, mais sempre olhe melhor os tutoriais que está fazendo para não cometer erros bestas do tipo. Bom estarei remontando o código para que você tente pô-lo em pratica e testar, caso dê o mesmo erro certifique-se de que fez tudo corretamente no tutorial

Código:: Sub DeixarVoar(ByVal Index As Long) Select Case GetPlayerSprite(Index) Case 2 Call SetPlayerSprite(Index, 1) Call SendPlayerData(Index) Exit Sub Case 4 Call SetPlayerSprite(Index, 3) Call SendPlayerData(Index) Exit Sub End Select End Sub Sub InicioVoar(ByVal Index As Long) Select Case GetPlayerSprite(Index) Case 1 Call SetPlayerSprite(Index, 2) Call SendPlayerData(Index) Exit Sub Case 3 Call SetPlayerSprite(Index, 4) Call SendPlayerData(Index) Exit Sub End Select End Sub

Atenciosamente,
KiraKai

por Conteúdo patrocinado

Erro ao fazer um sistema (vb6.0)

Erro ao fazer um sistema (vb6.0)

Re: Erro ao fazer um sistema (vb6.0)

Re: Erro ao fazer um sistema (vb6.0)

Re: Erro ao fazer um sistema (vb6.0)

Re: Erro ao fazer um sistema (vb6.0)

Re: Erro ao fazer um sistema (vb6.0)