COMPARACAO ENTRE PRECO MAIOR E MENOR

CRCJ 02/10/2012 15:31:04
#411057
Ola A todos
Tenho 3 preços em 3 TextBox: Preco1, Preco2, Preco3,
e 2 TextBox: Menor Preco, Maior Preco
Como faço para que me mostre o menor preço na TextBox Menor Preco, e maior preço na TextBox Maior Preco
GANDA.NICK 02/10/2012 15:44:19
#411060
beleza

indexe as 3 txt(0), txt(1) e txt(2)

faça dois ciclo FOR, um enviado dentro do outro e compare os valores.....


mande o valor menor para a txtmenor e o valor maior para a txtmaior
CRCJ 02/10/2012 15:54:54
#411061
Desculpe Ganda, o meu conhecimento em VB não é dos melhores, não sei como faço esses cilcos For......enviando......
poderia me mostrar como
GANDA.NICK 02/10/2012 16:32:05
#411071
nem precisa de dois ciclos, 2 ciclos seria para ordenar....

basta um ciclo e comparar as txt[ô]s,

veja isto:

Option Explicit

Private Sub CmdMaiorMenor_Click()
Dim i As Integer, vMenor As Double, vMaior As Double

vMenor = CDbl(Me.TxtPreco(Me.TxtPreco.LBound).Text)
For i = Me.TxtPreco.LBound To Me.TxtPreco.UBound
    If CDbl(Me.TxtPreco(i).Text) > vMaior Then vMaior = CDbl(Me.TxtPreco(i).Text)
    If CDbl(Me.TxtPreco(i).Text) < vMenor Then vMenor = CDbl(Me.TxtPreco(i).Text)
Next [ô]i

Me.TxtMaior = vMaior
Me.TxtMenor = vMenor

End Sub


té +
FEDERHEN 02/10/2012 16:43:34
#411076 Resposta escolhida
Private Sub Command1_Click()
Dim n(3) As Double
Dim i As Integer
Dim c As Integer
Dim x As Double

n(1) = CDbl(Text1.Text)
n(2) = CDbl(Text2.Text)
n(3) = CDbl(Text3.Text)

For i = 1 To 3
For c = 1 To 3
If n(i) < n(c) Then
x = n(i)
n(i) = n(c)
n(c) = x
End If
Next c
Next i

Text4.Text = n(1) [ô]atribui o menor valor
Text5.Text = n(3) [ô]atribui o maior valor
End Sub
CRCJ 02/10/2012 16:59:47
#411080
Obrigado GANDA e FEDERHEN, os dois sistemas funcionaram perfeitamente, me desculpem, mas eu só tenho que escolher um para os creditos, então vou sortear OK
Tópico encerrado , respostas não são mais permitidas
Voltar