document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. \'aqui se guardará la información del estado
  4.  
  5. Private marcador As Integer[]
  6. Private tiempo As Boolean[]
  7. Private jugadores1 As String[]
  8. Private jugadores2 As String[]
  9.  
  10. Public Sub setmarcador(Equipo1Parte1 As Integer, Equipo1Parte2 As Integer, Equipo1Fin As Integer, Equipo2Parte1 As Integer, Equipo2Parte2 As Integer, Equipo2Fin As Integer)
  11.  
  12.   marcador = New Integer[] \'
  13.  
  14.   marcador.Add(Equipo1Parte1)
  15.   marcador.Add(Equipo1Parte2)
  16.   marcador.Add(Equipo1Fin)
  17.   marcador.Add(Equipo2Parte1)
  18.   marcador.Add(Equipo2Parte2)
  19.   marcador.Add(Equipo2Fin)
  20.  
  21. End
  22.  
  23. Public Function getmarcador() As Integer[]
  24.  
  25.   Return marcador
  26.  
  27. End
  28.  
  29. Public Sub settiempo(parte1 As Boolean, parte2 As Boolean)
  30.  
  31.   tiempo = New Boolean[]
  32.   tiempo.Add(parte1)
  33.   tiempo.Add(parte2)
  34.  
  35. End
  36.  
  37. Public Function gettiempo() As Boolean[]
  38.  
  39.   Return tiempo
  40.  
  41. End
  42.  
  43. Public Function setjugadores1(lista As ListBox)
  44.  
  45.   Dim a As Integer
  46.  
  47.   jugadores1 = New String[]
  48.   For a = 0 To lista.count - 1
  49.     jugadores1.Add(lista[a].Text)
  50.    
  51.   Next
  52.  
  53. End
  54.  
  55. Public Function setjugadores2(lista As ListBox)
  56.  
  57.   Dim a As Integer
  58.  
  59.   jugadores2 = New String[]
  60.   For a = 0 To lista.count - 1
  61.     jugadores2.Add(lista[a].Text)
  62.   Next
  63.  
  64. End
  65.  
  66. Public Function getjugadores1(lista As ListBox)
  67.  
  68.   Dim a As Integer
  69.  
  70.   lista.Clear()
  71.  
  72.   For a = 0 To jugadores1.count - 1
  73.     lista.Add(jugadores1[a])
  74.   Next
  75.  
  76. End
  77.  
  78. Public Function getjugadores2(lista As ListBox)
  79.  
  80.   Dim a As Integer
  81.  
  82.   lista.Clear()
  83.  
  84.   For a = 0 To jugadores2.count - 1
  85.     lista.Add(jugadores2[a])
  86.   Next
  87.  
  88. End
');