domingo, 13 de abril de 2014

Encontrar número mayor




' Gambas class file

Public Resultados As Integer[]

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub btnCalcular_Click()
Dim NumMenor, NumActual As Integer
Dim NumMayor As Integer = 0
Dim conteo As Integer
btnNumeroMayorES.Text = ""

  Resultados = New Integer[]
  Resultados.Add(Val(txtJ1.Text))
  Resultados.Add(Val(txtJ2.Text))
  Resultados.Add(Val(txtJ3.Text))
  Resultados.Add(Val(txtJ4.Text))
  Print "Partidos ganados por el Jugador 1= ", Resultados[0]
  Print "Partidos ganados por el Jugador 2= ", Resultados[1]
  Print "Partidos ganados por el Jugador 3= ", Resultados[2]
  Print "Partidos ganados por el Jugador 4= ", Resultados[3]

  For conteo = 0 To 3 Step 1
    If Resultados[conteo] > NumMayor Then
      NumActual = Resultados[conteo]
      Print "Numero analizado es= ", Resultados[conteo]
      NumMayor = NumActual
      Print "Numero mayor es= ", NumMayor
    Endif
      Print "conteo es= ", conteo
  Next  ' pone un punto de interrupción aquí y observa lo que pasa
 btnNumeroMayorES.Text = "Numero mayor es= " & NumMayor


End

Public Sub Button2_Click()

  Me.Close

End

resultado en la consola de gambas3:

Partidos ganados por el Jugador 1=      1
Partidos ganados por el Jugador 2=      3
Partidos ganados por el Jugador 3=      0
Partidos ganados por el Jugador 4=      2
Numero analizado es=    1
Numero mayor es=        1
conteo es=      0
Numero analizado es=    3
Numero mayor es=        3
conteo es=      1
conteo es=      2
conteo es=      3

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.