ProgramaPrincipalMemento

' Gambas class file

Private PorteroDeEstados As New Caretaker 'undo y redo

Public Sub _new()

End

Public Sub Form_Show()

  'guardaEstadoDelMarcador: guarda el estado actual....
  guardaEstado()

  Me.Center()

End

Public Sub buttonMarcador1_Click()

  Dim nombre As String
  Dim hora As String

  nombre = InputBox("Nombre del jugador:")
  hora = InputBox("Minuto del gol (0-90):")
  ListBoxEquipo1.Add(nombre & " ( " & hora & "' )")
  If RadioButton1.Value = True Then
    LCDLabel1Equipo1.value += 1
  Else
    LCDLabel2Equipo1.value += 1
  Endif
  LCDLabelFinEquipo1.value += 1

  'guardaEstadoDelMarcador: guarda el estado actual....
  guardaEstado()

  'borrar lista de rehacer
  PorteroDeEstados.BorrarEstadosRedo()

End

Public Sub buttonMarcador2_Click()

  Dim nombre As String
  Dim hora As String

  nombre = InputBox("Nombre del jugador:")
  hora = InputBox("Minuto del gol (0-90):")
  ListBoxEquipo2.Add(nombre & " ( " & hora & "' )")
  If RadioButton1.Value = True Then
    LCDLabel1Equipo2.value += 1

  Else
    LCDLabel2Equipo2.value += 1

  Endif
  LCDLabelFinEquipo2.value += 1

  'guardaEstadoDelMarcador: guarda el estado actual....
  guardaEstado()

  'borrar lista de rehacer
  PorteroDeEstados.BorrarEstadosRedo()

End

'---------------------------------------------------------------------------------------
'
Public Function EstadoActual() As State

  Dim estado As New State

  estado.setjugadores1(ListBoxEquipo1)
  estado.setjugadores2(ListBoxEquipo2)
  estado.setmarcador(LCDLabel1Equipo1.value, LCDLabel2Equipo1.value, LCDLabelFinEquipo1.value, LCDLabel1Equipo2.value, LCDLabel2Equipo2.value, LCDLabelFinEquipo2.value)
  estado.settiempo(RadioButton1.value, RadioButton2.value)

  Return estado

End

Public Sub guardaEstado()

  PorteroDeEstados.addMementoUndo(EstadoActual())

End

Public Sub UndoEstado()

  Dim s As State
  Dim m As Integer[]
  Dim r As Boolean[]

  s = PorteroDeEstados.getMementoUndo()
  If IsNull(S) Then
    Message.Error("No hay nada que deshacer")
    Return
  Endif

  'lista de jugadores que marcaron goles...
  s.getjugadores1(ListBoxEquipo1)
  s.getjugadores2(ListBoxEquipo2)

  m = s.getmarcador()

  'goles
  LCDLabel1Equipo1.Value = m[0]
  LCDLabel2Equipo1.Value = m[1]
  LCDLabelFinEquipo1.Value = m[2]
  LCDLabel1Equipo2.Value = m[3]
  LCDLabel2Equipo2.Value = m[4]
  LCDLabelFinEquipo2.value = m[5]

  'tiempo (1º o 2º parte)
  r = s.gettiempo()

  RadioButton1.Value = r[0]
  RadioButton2.Value = r[1]

  ToolButtonRehacer.enabled = True

End

Public Sub ToolButtonDeshacer_Click()

  UndoEstado() 'undo

End

Public Sub ToolButtonRehacer_Click()

  Dim s As State
  Dim m As Integer[]
  Dim r As Boolean[]

  s = PorteroDeEstados.getMementoRedo()

  If IsNull(S) Then
    Message.Error("No hay nada que rehacer")
    Return
  Endif

  'lista de jugadores que marcaron goles...

  s.getjugadores1(ListBoxEquipo1)
  s.getjugadores2(ListBoxEquipo2)

  m = s.getmarcador()

  'goles
  LCDLabel1Equipo1.Value = m[0]
  LCDLabel2Equipo1.Value = m[1]
  LCDLabelFinEquipo1.Value = m[2]
  LCDLabel1Equipo2.Value = m[3]
  LCDLabel2Equipo2.Value = m[4]
  LCDLabelFinEquipo2.value = m[5]

  'tiempo (1º o 2º parte)
  r = s.gettiempo()

  RadioButton1.Value = r[0]
  RadioButton2.Value = r[1]

End