\' Gambas class file
\'aqui se guardará la información del estado
Private marcador As Integer[]
Private tiempo As Boolean[]
Private jugadores1 As String[]
Private jugadores2 As String[]
Public Sub setmarcador(Equipo1Parte1 As Integer, Equipo1Parte2 As Integer, Equipo1Fin As Integer, Equipo2Parte1 As Integer, Equipo2Parte2 As Integer, Equipo2Fin As Integer)
marcador = New Integer[] \'
marcador.Add(Equipo1Parte1)
marcador.Add(Equipo1Parte2)
marcador.Add(Equipo1Fin)
marcador.Add(Equipo2Parte1)
marcador.Add(Equipo2Parte2)
marcador.Add(Equipo2Fin)
End
Public Function getmarcador() As Integer[]
Return marcador
End
Public Sub settiempo(parte1 As Boolean, parte2 As Boolean)
tiempo = New Boolean[]
tiempo.Add(parte1)
tiempo.Add(parte2)
End
Public Function gettiempo() As Boolean[]
Return tiempo
End
Public Function setjugadores1(lista As ListBox)
Dim a As Integer
jugadores1 = New String[]
For a = 0 To lista.count - 1
jugadores1.Add(lista[a].Text)
Next
End
Public Function setjugadores2(lista As ListBox)
Dim a As Integer
jugadores2 = New String[]
For a = 0 To lista.count - 1
jugadores2.Add(lista[a].Text)
Next
End
Public Function getjugadores1(lista As ListBox)
Dim a As Integer
lista.Clear()
For a = 0 To jugadores1.count - 1
lista.Add(jugadores1[a])
Next
End
Public Function getjugadores2(lista As ListBox)
Dim a As Integer
lista.Clear()
For a = 0 To jugadores2.count - 1
lista.Add(jugadores2[a])
Next
End