Clase Collection (colección-colecciónes)

Declaración

Public MiColeccion As New Collection ' si queremos tener acceso desde todas las clases y formularios
Private MiColeccion As New Collection 'si solo queremos tener acceso de la clase o formulario donde es declarada
Dim MiColeccion As New Collection 'si solo queremos usarla en una subrutina o funcion

Métodos:

Añade un elemento a la colección
MiColeccion.Add(Value As Variant, Key As String)

Value As Variant=dato de cualquier tipo (cadena, numérico, booleano etc)
Key As String=llave con dato de solo cadena, string o palabra.

Ejemplo:


Public Sub Form_Open()

  MiColeccion.Add(2, "bicicletas")
  MiColeccion.Add(True, "Luz")
  MiColeccion.Add("verde", "Color")
 
  For Each MiColeccion
    Print MiColeccion.Key & "= " & MiColeccion[MiColeccion.Key]
  Next
 
End

Salida:
bicicletas= 2
Luz= T
Color= verde


Elimina todos los elementos de la colección.
MiColeccion.Clear


Elimina un elemento de la colección.
MiColeccion.Remove(Key As String)

Ejemplo: MiColeccion.Remove("Color")


sdf

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