MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Ajuda No Codigo

2 participantes

Ir para baixo

Ajuda No Codigo Empty Ajuda No Codigo

Mensagem por morenoo Sex 26 Set 2014, 08:13

Ola gostaria que alguem me ajuda-se em so uma coisa que to quebrando a cabeca pra faze...

Public Sub DrawPlayerCargo(ByVal Index As Long)
If Player(Index).Kill < 0 Then Exit Sub

Dim Orgname As String
Dim ColorOrg As Long

If Player(Index).Vila = 2 Then
If Player(Index).Kill = 0 < 19 Then
        Orgname = "Marinheiro"
        ColorOrg = QBColor(Cyan)
If Player(Index).Kill = 20 < 39 Then
        Orgname = "Oficial"
        ColorOrg = QBColor(Cyan)
If Player(Index).Kill = 40 < 79 Then
        Orgname = "Tenente"
        ColorOrg = QBColor(BrightRed)


eu queria assim se a kill for de 0 a 19 fica com o cargo de marinheiro e se a kill for 20 a 39 ser oficial...
so que como o codigo "If Player(Index).Kill = 0 < 19 Then"  fala se a kill for maior que 0 o cargo sera marinheiro e os outros codigos nao vao servir para nada porque fica sempre como marinheiro...

Agradeço desde ja Smile
morenoo
morenoo
Membro Junior
Membro Junior

Mensagens : 99

Ir para o topo Ir para baixo

Ajuda No Codigo Empty Re: Ajuda No Codigo

Mensagem por dazateam Sex 26 Set 2014, 10:06

Código:
Public Sub DrawPlayerCargo(ByVal Index As Long)
If Player(Index).Kill < 0 Then Exit Sub

Dim Orgname As String
Dim ColorOrg As Long

If Player(Index).Vila = 2 Then
If Player(Index).Kill =< 19 Then
        Orgname = "Marinheiro"
        ColorOrg = QBColor(Cyan)
If Player(Index).Kill > 19 and < 39 Then
        Orgname = "Oficial"
        ColorOrg = QBColor(Cyan)
If Player(Index).Kill = > 39 and < 79 Then
        Orgname = "Tenente"
        ColorOrg = QBColor(BrightRed)

ta isso ai, não tenho certeza se irá funcionar, fiz usando uma lógica meio bosta kk'
Mais tarde tento fazer certinho.
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

Ajuda No Codigo Empty Re: Ajuda No Codigo

Mensagem por morenoo Sex 26 Set 2014, 13:32

Ele da erro no "<" depois do and...
morenoo
morenoo
Membro Junior
Membro Junior

Mensagens : 99

Ir para o topo Ir para baixo

Ajuda No Codigo Empty Re: Ajuda No Codigo

Mensagem por dazateam Sex 26 Set 2014, 17:34

a mals, troca os and's por or e pronto
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

Ajuda No Codigo Empty Re: Ajuda No Codigo

Mensagem por morenoo Seg 29 Set 2014, 08:12

ja tentei troca por or mais mesmo assim da erro..


EDIT....

Consegui so mudei algumas coisas e nao pode por o end if no final do codigo tem que por durante ele...

Código:
If Player(MyIndex).Vila = 2 Then
    If Player(Index).Kill <= 19 Then
            Orgname = "Marinheiro"
            ColorOrg = QBColor(Cyan)
    End If
    If Player(Index).Kill > 19 And Player(Index).Kill <= 39 Then
            Orgname = "Oficial"
            ColorOrg = QBColor(Cyan)
        End If
    If Player(Index).Kill > 39 And Player(Index).Kill <= 79 Then
            Orgname = "Tenente"
            ColorOrg = QBColor(BrightRed)
        End If
End If


vlw..
morenoo
morenoo
Membro Junior
Membro Junior

Mensagens : 99

Ir para o topo Ir para baixo

Ajuda No Codigo Empty Re: Ajuda No Codigo

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos