DevClub


Você não está conectado. Conecte-se ou registre-se

Photo

Tabela de Add Pontos

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

GuiinhoLP

GuiinhoLP
Membro
[center]Bom Segundo tutorial esse e para add Pontos bom vamos Lah

Primeio Crie uma PictureBox Com Nome de PicAddPonto e Nela Crie 4 Label e TextBox

Nomei e adicione os Item pedido a Acima da Seguinte Forma:

Aprimeira Label Mude Caption para Força e renomei de LblForça e adicione nela:

Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 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 If
Na Seguinda Label Mude Caption Para Defesa e Renomei de LblDef e Adicione:

Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 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 If
Na Terceira Label Mude Caption Para Magia e Renomei de lblmag e adicione:

Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 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 If
Na Quarta Lebel Mude a Caption para Agilidade e renomei de LblAgi e adicione:

Código:
If GetPlayerAccess(MyIndex) >= 0 Then
If Val(txtPontos.Text) >= 0 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 If

No TextBox Renomei de txtPontos

E Fim do Tutorial

O meu Fikou Assim A Caption da Label Fika a Sua Escolha Vou deixar uma imagen de como o meu fikou !

Tabela de Add Pontos  52855784

Edit: Bom Muitos deve saber mais vo Posta Como Colokar um uma label Para Abrir e Fexar a Tabela de Add Pontos Vamo Lah'

Cliente:
crie uma Label Na FrmMirage Com Caption:ADD PONTOS de 2 Clikes e adicione

Código:
If PicAddPonto.Visible = True Then
  PicAddPonto.Visible = False
  Else
  PicAddPonto.Visible = True
  End If

e Pronto Ao Clikar na Label Add Pontos você Podera Abri e Fexar a Tabela de add Pontos Lembrado Coloke a PicAddPonto Em False Smile"

Math320

avatar
Novato
Este Sistema e Muito util pra quem deseja upar muito sem se preocupar com add pontos depois Vlw por postar

Att. Math320

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

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