USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pegar o Menor ou Maior Número entre variáveis
Elias Silva
NATAL
RN - BRASIL
ENUNCIADA !
Postada em 21/09/2007 21:36 hs            
Att
 
Prezados Amigos
 
      Eu fiz uma pergunta no fórum, e acho que não foi bem explicada, por isso volto a explicar a minha dúvida: Alguém como fazer para pegar o maior ou menor valor de algunas varáveis ? por Ex.:
Dim A,B,C,D,E,F AS Integer
A=10
B=5
C=15
D=25
E=45
F=1
Alguém conhece uma função no vb6 que pegue o Valor Menor, ou Valor Maior destas variáveis ?
 
Por Favor estou precisando desenrolar uma bronca e não estou conseguindo.
 
 
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 21/09/2007 23:02 hs            
Fiz um exemplo, veja se serve.
Primeiro eu ordenei a lista depois peguei o primeiro e o último valor.
 
 
Option Explicit
Dim aArray() As Variant
Private Function fuOrdenar() As String
    Dim i As Integer, j As Integer
    Dim aArrayTemp As Variant
    Dim sTemp As String
   
    For i = LBound(aArray) To UBound(aArray)
        For j = LBound(aArray) To UBound(aArray)
            If CInt(aArray(i)) < CInt(aArray(j)) Then
                sTemp = aArray(i)
                aArray(i) = aArray(j)
                aArray(j) = sTemp
            End If
        Next j
    Next i
   
    sTemp = ""
    For Each aArrayTemp In aArray
        sTemp = sTemp & aArrayTemp & ","
    Next aArrayTemp
    fuOrdenar = Left(sTemp, Len(sTemp) - 1)
End Function
Private Sub Command1_Click()
    Dim sArray() As String
    aArray = Array(10, 5, 15, 25, 45, 1)
    sArray = Split(fuOrdenar, ",")
   
    MsgBox "Menor valor " & sArray(LBound(sArray))
    MsgBox "Maior valor " & sArray(UBound(sArray))
End Sub
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/09/2007 08:50 hs            
Dependendo de como está o seu programa isso pode funcionar.
 
Num módulo declare assim:
 
Global lMaior as Long, lMenor as Long
Global Flag_MaiorMenor as Boolean
 
Public Sub S_MaiorMenor(ByVal variavel as Long)
  IF Flag_MaiorMenor Then
     IF variavel > lMaior Then
       lMaior = variavel
     ENDIF
     IF variavel < lMenor Then
       lMenor = variavel
     ENDIF
  ELSE
     Flag_MaiorMenor = true
     lMaior = variavel
     lMenor = variavel
  ENDIF
End Sub
 
No decorrer do seu programa:
A = 10
Call S_MaiorMenor(A)
B = 5
Call S_MaiorMenor(B)
 
é só chamar a variável lMenor e lMaior para saber, naquele instante, quais são o menor e maior valor.
 
Espero que ajude...
 
at+
 
 
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 24/09/2007 12:21 hs            
eu faria...
Dim A(N) as integer   ' N é a qtde de variaveis que vc vai usar no caso seria 6
dim menor as integer
dim maior as integer
 
public sub maiormenor()
menor=0
maior=0
for i= 1 to N  "não eskeça de substituir o N!
      if i= 1 then
          menor=A (i)
          maior=A(i)
       else
          if menor> A(i) then
             menor= A(i)
          else
         endif
         if maior < A(i) then
             maior=A(i)
         else
         endif
next i
end sub
 
 
 
 
     
pedro
não registrado
ENUNCIADA !
Postada em 23/04/2010 05:43 hs   
Dim maior, menor As Integer

        For ctd = 0 To 4

            If valores(ctd) > numero Then
                maior = valores(ctd)
                lbmaior.Text = maior
            End If
            If valores(ctd) < numero Then
                menor = valores(ctd)
                lbmenor.Text = menor

            End If
   
Ramão
não registrado
Postada em 08/02/2019 14:21 hs   
TN = WorksheetFunction.Max(A,B,C,D,E,F)
MsgBox (TN)
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página