miércoles, 20 de agosto de 2014

HallarNumeroMayorOmenor




' Gambas class file

' Escrito por postapase
' Creo que falta un complemento o un comando que ejecute esta función en gambas

Public ConjuntoNumeros As New Integer[]
Public HallarMaryorOmenor As String
Public ResultadoFinal As Integer

Public Sub _new()

End

Public Sub Form_Open()
Me.Center
End

Public Sub btnAgregarNumero_Click()
Dim numero As Integer
  If IsNull(TextBox1.Text) Then
    Message("ingrese un número por favor")
    Return
  Else
    ConjuntoNumeros.Add(Val(TextBox1.Text))
  Endif
  TextBox2.Text &= TextBox1.Text & ","
  TextBox1.Clear
  TextBox1.SetFocus
End

Public Sub Button2_Click()
  If rbtnMayor.Value = True Then
    HallarMaryorOmenor = "mayor"
  Else
    HallarMaryorOmenor = "menor"
  Endif
  CalcularMaxMin(ConjuntoNumeros, HallarMaryorOmenor)
  labResultado.Text = ResultadoFinal
End

Public Function CalcularMaxMin(numeros As Integer[], maxomin As String) As Integer
  Dim Resultados As New Integer[]
  Dim conteo, conteo2, NumActual, NumMenor As Integer
  Dim NumMayor As Integer = 0
   
  Resultados = numeros

  For conteo = 0 To numeros.Count - 1 Step 1
    If Resultados[conteo] > NumMayor Then
      NumActual = Resultados[conteo]
      NumMayor = NumActual
    Endif
  Next 

  NumMenor = NumMayor

  For conteo2 = 0 To numeros.Count - 1 Step 1
     If Resultados[conteo2] < NumMenor Then
       NumActual = Resultados[conteo2]
       NumMenor = NumActual
     Endif
  Next 

  If maxomin = "mayor" Then
    ResultadoFinal = NumMayor
    Return ResultadoFinal
  Else
    ResultadoFinal = NumMenor
    Return ResultadoFinal
  Endif
 
End

Public Sub TextBox1_Change()
  If Len(TextBox1.Text) = 3 Then btnAgregarNumero.SetFocus
End

Public Sub TextBox1_KeyPress()
   Select Case Key.Code
        Case 48 To 57
        Case 65456 To 65465
        Case Key.BackSpace
        Case Key.Left
        Case Key.Delete
        Case Key.Right
        Case Key.BackTab
        Case Key.Home
        Case Key.End
        Case Key.Tab
        Case Else
            Stop Event
      End Select
End




Código: HallarNumeroMayorOmenor-0.0.1.tar.gz

No hay comentarios.:

Publicar un comentario

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.