PLACAR

JUNHO 07/08/2012 09:28:36
#407358
Pessoal estou fazendo um placar de competição. Porem não to conseguindo fazer o seguinte.

A cada 2 pontos de punição retira 1 ponto da pontuação total dele
A cada 2 pontos de Vantagem adiciona 1 ponto no placar total.

Alguem poderia me ajudar com esse comando ?

Segue a tela como é e o nome dos componentes

ZERO TOTAL = Text13
ZERO VANTAGEM = Text8
ZERO PUNIÇÃO = Text9

BOTÃO +1 VANTAGEM = Command14
BOTÃO -1 VANTAGEM = Command13

BOTÃO +1 PUNIÇÃO = Command11
BOTÃO -1 PUNIÇÃO = Command12

Alguem Poderia me ajudar com alguma sugestão

Grato deste Já a todos
LLAIA 07/08/2012 13:55:44
#407410
Crie uma Sub assim:

Public Sub CalculaPontos()
         Text13.Text = (Val(Text8.Text) \ 2) - (Val(Text9.Text) \ 2)
End Sub


No evento Click dos botões faça a chamada da Sub:

Call CalculaPontos


A barra \ é divisão inteira

Acho que vai dá certo.
JUNHO 07/08/2012 15:50:26
#407434
LLAIA ficou perfeito porem causou um problema.

Agora estou com o seguinte problema.

O placar esta 2 no TOTAL Que é o Text3

Ai quando clico no + da vantagem ou no + da Punição ele me Zera o total

pq ?
MARCELO.TREZE 07/08/2012 17:22:27
#407439 Resposta escolhida
soma é algo fácil de fazer no seu caso mais fácil ainda.

declare no general do form duas variaveis assim:

Dim V As Integer, P As Integer, T As Integer


No botão

BOTÃO +1 VANTAGEM = Command14

V = V + 1
If (V Mod 2) = 0 Then
T = T + 1
End if
Text8.Text = V
Text13.Text = T


no botão

BOTÃO -1 VANTAGEM = Command13

V = V - 1
Text8.Text = V
[txt-color=#007100][ô] aqui fiquei na duvida se ao tirar a vantagem se tira também do total[/txt-color]


agora no botão Punição

BOTÃO +1 PUNIÇÃO = Command11

P = P + 1
If (P Mod 2) = 0 Then
T = T - 1
End if
Text9.Text = P
Text13.Text = T


e o ultimo botão

BOTÃO -1 PUNIÇÃO = Command12

P = P - 1
Text9.Text = P
[txt-color=#007100][ô] aqui támbem  fiquei na duvida se ao tirar a punição se acrescenta ponto noo total[/txt-color]
JUNHO 08/08/2012 00:23:00
#407467
Olha eu tinha feito assim :


No botão

BOTÃO +1 VANTAGEM = Command14

Private Sub Command14_Click()
Dim vCon As Integer
If Text8 = Empty Then
Text8 = 0
Else
vCon = Text8 + 1
Text8 = vCon
End If
End Sub

No botão

BOTÃO -1 VANTAGEM = Command13

Private Sub Command13_Click()
Dim vCon As Integer
If CInt(Text8.Text) = 0 Then
Text8 = 0
Else
vCon = Text8 - 1
Text8 = vCon
End If
End Sub

No botão Punição

BOTÃO +1 PUNIÇÃO = Command11

Private Sub Command11_Click()
Dim vCon As Integer
If CInt(Text9.Text) = 0 Then
Text9 = 0
Else
vCon = Text9 - 1
Text9 = vCon
End If
End Sub

No botão Punição

BOTÃO -1 PUNIÇÃO = Command12

Private Sub Command12_Click()
Dim vCon As Integer
If Text9 = Empty Then
Text9 = 0
Else
vCon = Text9 + 1
Text9 = vCon
End If
End Sub


Porem os botoes apenas muda o numeral da propria Label. Ai a ideia que vc Marcelo-Treze e LLAIA me passou deu certo. pois quando dou 2 vantagem ele me da um ponto. porem o problema que me ocorre agora é o seguinte.

Quando tenho 4 pontos no placar TOTAL. ai dou uma vantagem ele zera o total. e quando dou mais uma vantagem ele da apenas 1 ponto sem somar com os pontos anteriores.

A respeito de suas duvidas.
Se der 2 punição tira 1 ponto do total
se tirar a punição acrescenta Ponto no total

Acho que consegui explicar agora né.

E deste já muito obrigado pela ajuda que Vcs estão me dando.

Abraço
MARCELO.TREZE 08/08/2012 12:51:01
#407490
testa ai colega
JUNHO 08/08/2012 13:20:33
#407499
Testado e muito obrigado mesmo pela ajuda que vem me dando . pois o projeto que estou tentando fazer vc fez em poucas horas.

Só que o que aconteceu agora é que minha caixa de total não é label. ela é text pois posso adicionar numero nela.

Se eu deixar como text a função caption não funciona. e se eu mudar pra label não irei conseguir mudar o numero .

teria outra sugestão ?

Abraço
MARCELO.TREZE 08/08/2012 14:09:53
#407503
bom colega fiz uma alteração no projeto, existem algumas restrições que coloquei porém você poderá altera-las
JUNHO 08/08/2012 14:27:15
#407505
Muito Obrigado pela ajuda novamente MARCEL-TREZE ceder parte de seu tempo para me ajudar

Deu certo agora era isso mesmo que desejava.

Obrigado
JUNHO 08/08/2012 14:45:49
#407508
Desculpa Reabrir o tópico. porem aconteceu uma duvida.

Só consigo dar punção se tiver vantagem.

Tem como fazer se tiver 2 punição ser eliminado 1 ponto do lbltotal?

pois ai não amarrarei o botão com a vantagem.

Abraço
MARCELO.TREZE 08/08/2012 14:49:42
#407510
eram estas as condições que eu havia dito mas cole este código no lugar do que está

Dim V As Integer, P As Integer

Private Sub btnMaisP_Click()
If P >= 0 Then
P = P + 1
If (P Mod 2) = 0 Then
txtTotal.Text = CInt(txtTotal.Text) - 1
End If
lblpunicao.Caption = Format(P, [Ô]00[Ô])
End If
End Sub

Private Sub btnMaisV_Click()
If V >= 0 Then
V = V + 1
If (V Mod 2) = 0 Then
If CInt(txtTotal.Text) >= 0 Then
txtTotal.Text = CInt(txtTotal.Text) + 1
End If
End If
lblVantagem.Caption = Format(V, [Ô]00[Ô])
End If
End Sub

Private Sub btnMenosP_Click()
If P > 0 Then
P = P - 1
If (P Mod 2) = 0 Then
If CInt(txtTotal.Text) >= 0 Then
txtTotal.Text = CInt(txtTotal.Text) + 1
End If
End If
lblpunicao.Caption = Format(P, [Ô]00[Ô])
End If
End Sub

Private Sub btnMenosV_Click()
If V > 0 Then
V = V - 1
If (V Mod 2) = 0 Then
If CInt(txtTotal.Text) > 0 Then
txtTotal.Text = CInt(txtTotal.Text) - 1
End If
End If
lblVantagem.Caption = Format(V, [Ô]00[Ô])
End If
End Sub

Private Sub Form_Load()
P = 0
V = 0
End Sub
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar