Maior E Menor

[Israel Murat]

galera to com o seguinte problema:

eu to criando um programa que o cara vai ter varios espaços pra colocar determinados tempos, e preciso que ao clicar no botão, o programa identifique qual é o menor e o maior tempo e coloque lá embaixo em dois espaços que estão destinados pra isso.

eu tava usando o seguinte codigo:

if tempo1< (tempo2 and tempo3) < tempo4 then

pior tempo= tempo4

melhor tempo = tempo1

elseif tempo1< (tempo2 and tempo4) < tempo3 then

pior tempo=tempo3

melhor tempo=tempo1

e assim por diante...

mas o problema é que o programa só esta reconhecendo a primeira condição, ou seja, independente dos tempos que eu coloque, ele sempre identifica o 4 como sendo o pior e o 3 como sendo o melhor e ignora as outas condições.. alguém sabe como eu resolvo isso??

ahh.. pensei numa solução mas tb não sei como fazer... se alguém souber me diga... pensei em fazer com que o programa ordene todos os tempos por ordem crescente e assim identifique qual o menor e o maior e jogue la pros quadros de baixo...

preciso muito dessa ajuda galera, por favor quem souber me responde.

[kuroi]

coloca tudo num array e depois usa um esquema de ordenacao tipo o metodo bolha. da uma olhada aqui:

http://scriptbrasil.com.br/forum/index.php?showtopic=83195

pode usar essa funcao aqui:

http://scriptbrasil.com.br/forum/index.php...st&p=440271

[Israel Murat]

po cara então... eu tinha lido isso ai já, mas não consegui entender nada... so meio tapado...

tem como c me dar uma explicada??

[kuroi]

é o seguinte, tipo em vez de criar 4 variaveis, tempo1, tempo2, tempo3, tempo4, cria so uma do tipo array com 4 indices, tipo assim:

Dim tempo(3)

ai pra acessar faca assim

tempo(0) = valor1
tempo(1) = valor2[/code]


entendeu??

então, copia a funcao pro seu programa q é ela q vai por seu array em ordem
[code]Public Function SelectionSort(Vetor(), tam)

Dim i, j
Dim min, aux

For i = 0 To tam
min = i
For j = i + 1 To tam
If Vetor(j) < Vetor(min) Then min = j
Next j

aux = Vetor(i)
Vetor(i) = Vetor(min)
Vetor(min) = aux
Next i

End Function

ai pra saber como ela funciona, le a explicacao q eu postei aqui: http://scriptbrasil.com.br/forum/index.php...st&p=440273