Boas,
Preciso inserir valores individualmente, e fazer uma contagem do que foi inserido...
input:
1000, 2000, 2000, 1000, 2000;
output:
t:1 // s:1 d:1 // s:1 d:2 // s:2 d:2 // s:2 d:3
Só há dois tipos de valores inseridos (simples e duplo) s e d, se algum for 0, não faço distinção entre simples e duplo, escrevo só o total t.
podem ser 1000 e 2000, ou então 500 e 1000, ou 5000 e 10000 etc....
Fiz aqui um code (em vb6) que parece funcionar pelos testes que fiz....
Mas tou a achar que tem condições a mais....
Alguem sugere uma alternativa?
Option Explicit
Private simples As Integer
Private duplo As Integer
Private minimo As Long
Private Sub Command1_Click()
If minimo = 0 Then
minimo = Val(txtIn.Text)
simples = simples + 1
Else
If minimo = Val(txtIn.Text) Then
simples = simples + 1
ElseIf Val(txtIn.Text) < minimo Then
minimo = Val(txtIn.Text)
duplo = simples
simples = 1
Else
duplo = duplo + 1
End If
End If
If simples = 0 Or duplo = 0 Then
txtOut.Text = "total: " & simples + duplo
Else
txtOut.Text = "s: " & simples & " d:" & duplo
End If
End Sub
Private Sub Form_Load()
minimo = 0
End Sub
Obrigado desde já!
↧