SOMAR COM ARRAY COM VALORES PRE DEFINIDOS
For i = 0 To 4
If Not (txttiro(i).Text = Empty) Then
iTotal1 = iTotal1 + txttiro(i).Text
iToTal = iTotal1 + iTotal2
Numero(CInt(txttiro(i).Text)) = Numero(CInt(txttiro(i).Text)) + 1
End If
Next
TxtTotal1.Text = iTotal1
txttotalpontos.Text = iToTal
For i = 5 To 9
If Not (txttiro(i).Text = Empty) Then
iTotal2 = iTotal2 + txttiro(i).Text
iToTal = iTotal1 + iTotal2
Numero(CInt(txttiro(i).Text)) = Numero(CInt(txttiro(i).Text)) + 1
End If
Next
TxtTotal2.Text = iTotal2
txttotalpontos.Text = iToTal
txttiro(i).Text onde i tem 10 campos para entrada de valores de 0 a 9
txttiro(i).Text máximo sera 9
iTotal1 máximo sera 45
iTotal2 máximo sera 45
iToTal máximo sera 90
Como fazer uma somatoria decrescente de iTotal = 90 conforme valores inseridos em txttiro(i).Text. exemplo se em um campo eu digitar 8 meu iTotal nesta condições será igual a 8, mas gostaria de mostrar a somatoria com seguinte valor igual 89 . Uma vez que todos os campos só posso ter como valor inserido 9 então se for preenchido um único campo meu iTotal seria este resultado mostrando qual valor ainda posso atingir se nos outros campos conseguir a pontuação maxima.
Bem esta seria a ideia ai pessoal é possivel prever este tipo de situação em um ARRAY ???
If Not (txttiro(i).Text = Empty) Then
iTotal1 = iTotal1 + txttiro(i).Text
iToTal = iTotal1 + iTotal2
Numero(CInt(txttiro(i).Text)) = Numero(CInt(txttiro(i).Text)) + 1
End If
Next
TxtTotal1.Text = iTotal1
txttotalpontos.Text = iToTal
For i = 5 To 9
If Not (txttiro(i).Text = Empty) Then
iTotal2 = iTotal2 + txttiro(i).Text
iToTal = iTotal1 + iTotal2
Numero(CInt(txttiro(i).Text)) = Numero(CInt(txttiro(i).Text)) + 1
End If
Next
TxtTotal2.Text = iTotal2
txttotalpontos.Text = iToTal
txttiro(i).Text onde i tem 10 campos para entrada de valores de 0 a 9
txttiro(i).Text máximo sera 9
iTotal1 máximo sera 45
iTotal2 máximo sera 45
iToTal máximo sera 90
Como fazer uma somatoria decrescente de iTotal = 90 conforme valores inseridos em txttiro(i).Text. exemplo se em um campo eu digitar 8 meu iTotal nesta condições será igual a 8, mas gostaria de mostrar a somatoria com seguinte valor igual 89 . Uma vez que todos os campos só posso ter como valor inserido 9 então se for preenchido um único campo meu iTotal seria este resultado mostrando qual valor ainda posso atingir se nos outros campos conseguir a pontuação maxima.
Bem esta seria a ideia ai pessoal é possivel prever este tipo de situação em um ARRAY ???
Se eu entendi você quer calcular uma somatória decrescente neh?
Tente isso:
Coloque o valor no Text1 e clique no botão que o botão retornará a somatória decrescente. Por exemplo vc digita 5 ele retornará 15, ou seja, ele fará o seguinte:
Tente isso:
Public Function Fatorial(ByRef Numero As Integer) As Long
If Numero <= 1 Then Fatorial = 1 Else Fatorial = Numero + Fatorial(Numero - 1)
End Function
Private Sub Command1_Click()
Dim number As Integer
number = Text1.Text
Text1.Text = Fatorial(number)
End SubColoque o valor no Text1 e clique no botão que o botão retornará a somatória decrescente. Por exemplo vc digita 5 ele retornará 15, ou seja, ele fará o seguinte:
5+4+3+2+1
Sim seria isto, so que tenho 10 txtbox que são inseridos os dados na realidade a cada 5 tenho que pegar o subtotal e por ultimo a somatoria dos dois subtotais.
Aonde cada txtbox o valor máximo inserido é 9 então posso ter em cada subtotal um valor de 45 pontos.
Gostaria de calcular qual o maior valor que ainda consigo alcançar se nas primeiras txtbox eu inserir valores menores que 9 considerando que se eu tirar nas outras o maior valor.
Aonde cada txtbox o valor máximo inserido é 9 então posso ter em cada subtotal um valor de 45 pontos.
Gostaria de calcular qual o maior valor que ainda consigo alcançar se nas primeiras txtbox eu inserir valores menores que 9 considerando que se eu tirar nas outras o maior valor.
Tópico encerrado , respostas não são mais permitidas