Ajuda No Codigo

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

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.

por morenoo Sex 26 Set 2014, 13:32

Ele da erro no "<" depois do and...

por dazateam Sex 26 Set 2014, 17:34

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

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..

por Conteúdo patrocinado

Ajuda No Codigo

Ajuda No Codigo

Re: Ajuda No Codigo

Re: Ajuda No Codigo

Re: Ajuda No Codigo

Re: Ajuda No Codigo

Re: Ajuda No Codigo