\' Gambas class file
Public texto As String[]
Public jugadores As Variant[]
Public Sub Form_Open()
ComboBoxDificultad1.Add(1)
ComboBoxDificultad1.Add(2)
ComboBoxDificultad1.Add(3)
ComboBoxDificultad1.Add(4)
ComboBoxDificultad2.Add(1)
ComboBoxDificultad2.Add(2)
ComboBoxDificultad2.Add(3)
ComboBoxDificultad2.Add(4)
ComboBoxJugador1.Add("Humano")
ComboBoxJugador1.Add("Ordenador")
ComboBoxJugador2.Add("Humano")
ComboBoxJugador2.Add("Ordenador")
End
Public Sub Button1_Click()
If ComboBoxJugador1.Index = 0 Then
jugadores.Add(Object.New("ClassJugadorHumano"))
jugadores[0].profundidad = -100 \' es humano
texto.Add("El jugador 1 (amarillo) es Humano")
Else
jugadores.Add(Object.New("ClassJugadorOrdenador"))
jugadores[0].profundidad = Val(ComboBoxDificultad1.text)
texto.Add("El jugador 1 (amarillo) es Ordenador, nivel: " & ComboBoxDificultad1.text)
Endif
If ComboBoxJugador2.Index = 0 Then
jugadores.Add(Object.New("ClassJugadorHumano"))
jugadores[1].profundidad = -100 \' es humano
texto[0] &= "<br>El jugador 2 (naranja) es Humano"
Else
jugadores.Add(Object.New("ClassJugadorOrdenador"))
jugadores[1].profundidad = Val(ComboBoxDificultad2.text)
texto[0] &= "<br>El jugador 2 (naranja) es Ordenador, nivel: " & ComboBoxDificultad2.text
Endif
Me.Close()
End
Public Sub ComboBoxJugador2_Click()
If ComboBoxJugador2.Index = 0 Then
ComboBoxDificultad2.Enabled = False
Else
ComboBoxDificultad2.Enabled = True
Endif
End
Public Sub ComboBoxJugador1_Click()
If ComboBoxJugador1.Index = 0 Then
ComboBoxDificultad1.Enabled = False
Else
ComboBoxDificultad1.Enabled = True
Endif
End