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.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

2 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos

Ir para baixo

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos Empty [Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

Mensagem por DrayonDuarte Sáb 26 Fev 2011, 08:19

Olha eu fiz 1 tabela de adc pontos Com 4 ComandButton e 1 TextBox Ai Tipo Eu Coloco 1000 No TextBox

So Que So Adc 1 Ponto Sad Vou Mandar Abaixo Toda a Form Abaixo

Código:
Private Sub Command1_Click()
If GetPlayerAccess(MyIndex) >= 1 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End Sub

Private Sub Command2_Click()
If GetPlayerAccess(MyIndex) >= 1 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End Sub

Private Sub Command3_Click()
If GetPlayerAccess(MyIndex) >= 1 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End Sub

Private Sub Command4_Click()
If GetPlayerAccess(MyIndex) >= 1 Then
If (Val(txtPontos.Text)) <= GetPlayerPOINTS(MyIndex) > 0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End Sub
Sad Sad Sad Sad Sad
DrayonDuarte
DrayonDuarte
Membro
Membro

Mensagens : 243

Ir para o topo Ir para baixo

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos Empty Re: [Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

Mensagem por Ian Seg 28 Fev 2011, 17:42

amigo voce tem certeza que foi voce que feiz eu ja 1 tutorial desses aki mais tava incompleto
Ian
Ian
Membro Veterano
Membro Veterano

Mensagens : 1238

Ir para o topo Ir para baixo

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos Empty Re: [Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

Mensagem por DrayonDuarte Ter 01 Mar 2011, 19:41

faz 1 ai pra mim
DrayonDuarte
DrayonDuarte
Membro
Membro

Mensagens : 243

Ir para o topo Ir para baixo

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos Empty Re: [Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

Mensagem por Ian Ter 01 Mar 2011, 20:17

Bom to meio ocupado aki mais amanha vo ver issu pra voce bhother ^^
Ian
Ian
Membro Veterano
Membro Veterano

Mensagens : 1238

Ir para o topo Ir para baixo

[Help]Alguem Mim Ajuda Na Tabela de Adc Pontos Empty Re: [Help]Alguem Mim Ajuda Na Tabela de Adc Pontos

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos

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