Shersoft

Const ancho = 9
Const alto = 9
Const maxmin = 10
Dim tablero(alto, ancho) As Integer
Dim jugador As Integer
Dim inicio As Long
Dim fin As Long
Dim iniciado As Boolean

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub aviso(texto As String)
Range(“K1″).Value = texto
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub comprobar_zona_central()
Dim i, fil, col As Integer
Dim minas As Integer

For fil = 2 To alto – 1
For col = 2 To ancho – 1
If tablero(fil, col) <> -2 Then
minas = 0
For i = col – 1 To col + 1
If tablero(fil – 1, i) = -2 Then minas = minas + 1
If tablero(fil + 1, i) = -2 Then minas = minas + 1
Next i
If tablero(fil, col – 1) = -2 Then minas = minas + 1
If tablero(fil, col + 1) = -2 Then minas = minas + 1
If minas > 0 Then tablero(fil, col) = minas
End If
Next col
Next fil
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub comprobar_primera_ultima_fila()
Dim i, col As Integer
Dim minas As Integer

For col = 2 To ancho – 1
If tablero(1, col) <> -2 Then
minas = 0
For i = col – 1 To col + 1
If tablero(2, i) = -2 Then minas = minas + 1
Next i
If tablero(1, col – 1) = -2 Then minas = minas + 1
If tablero(1, col + 1) = -2 Then minas = minas + 1
If minas > 0 Then tablero(1, col) = minas
End If
If tablero(alto, col) <> -2 Then
minas = 0
For i = col – 1 To col + 1
If tablero(alto – 1, i) = -2 Then minas = minas + 1
Next i
If tablero(alto, col – 1) = -2 Then minas = minas + 1
If tablero(alto, col + 1) = -2 Then minas = minas + 1
If minas > 0 Then tablero(alto, col) = minas
End If
Next col
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub comprobar_primera_ultima_columna()
Dim i, fil As Integer
Dim minas As Integer

For fil = 2 To alto – 1
If tablero(fil, 1) <> -2 Then
minas = 0
For i = fil – 1 To fil + 1
If tablero(i, 2) = -2 Then minas = minas + 1
Next i
If tablero(fil – 1, 1) = -2 Then minas = minas + 1
If tablero(fil + 1, 1) = -2 Then minas = minas + 1
If minas > 0 Then tablero(fil, 1) = minas
End If
If tablero(fil, ancho) <> -2 Then
minas = 0
For i = fil – 1 To fil + 1
If tablero(i, ancho – 1) = -2 Then minas = minas + 1
Next i
If tablero(fil – 1, ancho) = -2 Then minas = minas + 1
If tablero(fil + 1, ancho) = -2 Then minas = minas + 1
If minas > 0 Then tablero(fil, ancho) = minas
End If
Next fil
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub comprobar_cuatro_esquinas()
Dim i, col As Integer
Dim minas As Integer

If tablero(1, 1) <> -2 Then
minas = 0
If tablero(1, 2) = -2 Then minas = minas + 1
If tablero(2, 1) = -2 Then minas = minas + 1
If tablero(2, 2) = -2 Then minas = minas + 1
If minas > 0 Then tablero(1, 1) = minas
End If
If tablero(1, ancho) <> -2 Then
minas = 0
If tablero(1, ancho – 1) = -2 Then minas = minas + 1
If tablero(2, ancho – 1) = -2 Then minas = minas + 1
If tablero(2, ancho) = -2 Then minas = minas + 1
If minas > 0 Then tablero(1, ancho) = minas
End If
If tablero(alto, 1) <> -2 Then
minas = 0
If tablero(alto – 1, 1) = -2 Then minas = minas + 1
If tablero(alto – 1, 2) = -2 Then minas = minas + 1
If tablero(alto, 2) = -2 Then minas = minas + 1
If minas > 0 Then tablero(alto, 1) = minas
End If
If tablero(alto, ancho) <> -2 Then
minas = 0
If tablero(alto – 1, ancho – 1) = -2 Then minas = minas + 1
If tablero(alto – 1, ancho) = -2 Then minas = minas + 1
If tablero(alto, ancho – 1) = -2 Then minas = minas + 1
If minas > 0 Then tablero(alto, ancho) = minas
End If
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub marcar_celda()
Dim fil, col, marcadas As Integer

If ActiveCell.Interior.ColorIndex > 0 Then

ActiveCell.Interior.ColorIndex = 38
marcadas = marcadas + 1
fil = ActiveCell.Row
col = ActiveCell.Column
tablero(fil, col) = -3
End If

End Sub

Sub desmarcar_celda()
ActiveCell.Interior.ColorIndex = 19
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub vaciar_celdas(ByVal fil As Integer, ByVal col As Integer)

Cells(fil, col).Interior.ColorIndex = 0         ‘Pone la celda en blanco
If tablero(fil, col) > 0 Then                   ‘Muestra el número en la celda
Cells(fil, col).Value = tablero(fil, col)
ElseIf tablero(fil, col) = 0 Then               ‘Busca celdas vacías adyacentes
tablero(fil, col) = -1  ‘El valor -1 indica una celda vacía destapada

If fil > 1 And col > 1 Then vaciar_celdas fil – 1, col – 1          ‘Arriba izquierda
If fil > 1 And col < ancho Then vaciar_celdas fil – 1, col + 1      ‘Arriba derecha
If fil < alto And col > 1 Then vaciar_celdas fil + 1, col – 1       ‘Abajo izquierda
If fil < alto And col < ancho Then vaciar_celdas fil + 1, col + 1   ‘Abajo derecha

If fil > 1 Then vaciar_celdas fil – 1, col      ‘Arriba
If fil < alto Then vaciar_celdas fil + 1, col   ‘Abajo
If col > 1 Then vaciar_celdas fil, col – 1      ‘Izquierda
If col < ancho Then vaciar_celdas fil, col + 1  ‘Derecha
End If
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub destapar_celda()
Dim fil, col, fi, co As Integer

If iniciado = False Then
inicio = Timer
iniciado = True
End If
”Range(“P2″).Value = inicio
fil = ActiveCell.Row
col = ActiveCell.Column
If tablero(fil, col) = -2 Then  ‘Fin del juego si pisamos una mina
For fi = 1 To alto
For co = 1 To ancho
If tablero(fi, co) <> -2 Then
Cells(fi, co).Interior.ColorIndex = 0
If tablero(fi, co) > 0 Then Cells(fi, co).Value = tablero(fi, co)
Else
Cells(fi, co).Interior.ColorIndex = 38
Cells(fi, co).Value = “X”
End If
Next co
Next fi

”Range(“P2″).Value = inicio
fin = CLng(Timer) – inicio
Range(“O2″).Value = 10
Range(“P2″).Value = fin & ” Seg.”

MsgBox (“GAME OVER!”)

ElseIf tablero(fil, col) > 0 Then   ‘Muestra el número en la celda
Cells(fil, col).Interior.ColorIndex = 0
Cells(fil, col).Value = tablero(fil, col)
tablero(fil, col) = -1      ‘La celda ha sido destapada

End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub final_juego()
Dim fi, col As Integer

For fi = 1 To alto
For co = 1 To ancho
If tablero(fi, co) = -1 Then
destapas = destapas + 1
ElseIf tablero(fi, co) = -2 And Cells(fi, co).Interior.ColorIndex = 38 Then
minas = minas + 1
End If
Next co
Next fi
If destapadas = alto * ancho – maxmin And minas = maxmin Then
fin = CLng(Timer) – inicio
Range(“O2″).Value = minas
Range(“P2″).Value = fin & ” Seg.”
MsgBox (“WINNER!”)
End If

Else
vaciar_celdas fil, col  ‘Muestra celda vacía y las adyacentes
End If

End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub colocar_numeros()
Dim fil, col As Integer
Dim minas As Integer

For fil = 1 To alto
For col = 1 To ancho
If tablero(fil, col) <> -2 Then
minas = 0
If fil > 1 And col > 1 Then If tablero(fil – 1, col – 1) = -2 Then minas = minas + 1          ‘Arriba izquierda
If fil > 1 And col < ancho Then If tablero(fil – 1, col + 1) = -2 Then minas = minas + 1       ‘Arriba derecha
If fil < alto And col > 1 Then If tablero(fil + 1, col – 1) = -2 Then minas = minas + 1       ‘Abajo izquierda
If fil < alto And col < ancho Then If tablero(fil + 1, col + 1) = -2 Then minas = minas + 1    ‘Abajo derecha

If fil > 1 Then If tablero(fil – 1, col) = -2 Then minas = minas + 1      ‘Arriba
If fil < alto Then If tablero(fil + 1, col) = -2 Then minas = minas + 1   ‘Abajo
If col > 1 Then If tablero(fil, col – 1) = -2 Then minas = minas + 1      ‘Izquierda
If col < ancho Then If tablero(fil, col + 1) Then minas = minas + 1  ‘Derecha
tablero(fil, col) = minas
End If
Next col
Next fil
End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Sub comenzar_juego()
Dim i, fil, col As Integer

Erase tablero
iniciado = False
Range(“P2″).Value = “”
Range(“O2″).Value = “”

Range(“A1:I9″).Clear
Range(“A1:I9″).HorizontalAlignment = xlCenter
Range(“A1:I9″).VerticalAlignment = xlCenter
Range(“A1:I9″).Borders.ColorIndex = 9
Range(“A1:I9″).Interior.ColorIndex = 19

For i = 1 To maxmin          ‘Colocar 10 minas al azar
Randomize
fil = Int(alto * Rnd + 1)
Randomize
col = Int(ancho * Rnd + 1)
If tablero(fil, col) = 0 Then
tablero(fil, col) = -2  ‘El valor -2 indica una mina
Cells(fil, col).Interior.ColorIndex = 38
Else
i = i – 1
End If
Next
colocar_numeros
‘comprobar_zona_central
‘comprobar_primera_ultima_fila
‘comprobar_primera_ultima_columna
‘comprobar_cuatro_esquinas

End Sub

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Estas lineas separan los subs, teneís que borrarlos, visual basic no lo tolera como comentario (el Comentario es  (–>  ‘ <– ))

View full article »

Enunciado:

- Tenemos aparatos que se encienden y se apagan
 - cada aparato tiene un consumo cuando esta encendido
 - una red tiene un conjunto de aparatos enchufados
 - cada red puede proporcionar un maximo de energia
 - una red puede tener distintos sistemas de seguridad
 - Un sistema de seguridad, al activarse, ha de mirar si el
   consumo de la red es mayor al soportado
   Si es asi, ha de apagar los aparatos necesarios para
   volver a los limites de seguridad.
 - Puede haber distintas implementaciones de sistemas de seguridad
   (que apaguen primero los mas potentes, que apagen primero los menos potentes, etc...)
 - El sistema no puede apagar aparatos criticos (un tipo especial de aparato).
   Estos solo se pueden apagar manualmente.
 - Una red tiene un sistema de alarma
 - Puede haber muchos tipos de alarma (que envian sms, que hacen sonar un aparato, etc...).
   Todos funcionan igual: se activan y se desactivan.
 - Si el sistema de seguridad no puede bajar el consumo por debajo del nivel soportado,
   ha de activar el sistema de alarma.
 - El sistema de alarma no se alimenta de la red (no tiene un consumo, como los aparatos)

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

package red;

import org.junit.Test;
import static org.junit.Assert.*;

public class TestRed {

	@Test public void test_aparato_consumo() {
		// Cread en la clase aparato una variable consumo

		Aparato aparato = new Aparato();
		aparato.consumo = 3;
	}

	@Test public void test_aparato_encendido () {
		//--cread en la clase aparato una variable encendido del tipo boolean
		//--Descomentad lo que viene a continuación hasta el final del metodo
		//--Descomentad tambien el ultimo metodo del test (metodo estado)

		Aparato aparato = new Aparato();
		aparato.encendido = true;

	}

	@Test public void test_aparato_consumoActual () {
		// cread un metodo en aparato que devuelva cual es el consumo
		// actual de un aparato. Sera 0 si esta apagado y lo que indique
		// la variable consumo cuando esta encendido
		// El metodo tiene que estar declarado de esta forma:
		//   int consumoActual() {
		//        aqui vuestro codigo
		//   }

		// Descomentad lo que viene a continuación hasta el final del metodo

		Aparato aparato = new Aparato();
		aparato.consumo = 4;
		aparato.encendido = true;

		assertEquals("aparato de consumo 4 encendido", 4, aparato.consumoActual());
		aparato.encendido = false;
		assertEquals("aparato de consumo 4 apagado", 0, aparato.consumoActual());

	}

	@Test public void test_red_constructor() {
		// cread un constructor de la case Red con un parametro que
		// sea el numero de aparatos que tiene que caber
		// Si el parametro es 4, por ejemplo, aparatos se tiene que
		// inicializar en un array de tamanyo 4
		//    Ayuda : aparatos = new Aparato[4]

		// Descomentad lo que viene a continuación hasta el final del metodo

		Red red = new Red(6);
		assertNotNull("no se ha creado el array!", red.aparatos);
		assertEquals("El tamanyo no es el adecuado", 6, red.aparatos.length);

	}

	@Test public void test_red_consumo_actual() {
		// cread un metodo en la clase Red que devuelva que consumo
		// esta teniendo actualmente. Para ello, debera recorrer todos
		// sus aparatos y ir sumando el consumo de cada uno de ellos, teniendo
		// en cuenta si estan encendidos o no.
		// Cread el metodo con la siguiente plantilla:
		// int consumoActual() {
		//     aqui vuestro codigo
		// }

		// Descomentad lo que viene a continuación hasta el final del metodo

		Red red = new Red(3);
		red.aparatos[0] = new Aparato();
		red.aparatos[0].consumo = 1;
		red.aparatos[1] = new Aparato();
		red.aparatos[1].consumo = 2;
		red.aparatos[2] = new Aparato();
		red.aparatos[2].consumo = 3;

		assertEquals(estado(red.aparatos), 0, red.consumoActual());

		red.aparatos[0].encendido = true;
		assertEquals(estado(red.aparatos), 1, red.consumoActual());

		red.aparatos[2].encendido = true;
		assertEquals(estado(red.aparatos), 4, red.consumoActual());

	}

	@Test public void test_red_consumo_actual_con_nulls() {
		// Si no lo habeis hecho ya, modificad el metodo
		// consumoActual de red, para que tenga en cuenta
		// que puede haber posiciones del array que no estan
		// ocupadas (pueden valer null)

		// Descomentad lo que viene a continuación hasta el final del metodo

        Red red = new Red(3);
        assertEquals("una red si aparatos enchufados no consume nada", 0, red.consumoActual());

        red.aparatos[2] = new Aparato();
        red.aparatos[2].consumo = 3;
        red.aparatos[2].encendido = true;
		assertEquals(estado(red.aparatos), 3, red.consumoActual());

	}

	private String estado (Aparato[] aparatos) {

		StringBuilder buf = new StringBuilder();

		buf.append("estado red:");

		for (Aparato aparato: aparatos) {
			buf.append("- ");
			if (aparato == null) {
				buf.append(" posicion vacia ");
				continue;
			}
			if (aparato.encendido) {
				buf.append("encendido");
			} else {
				buf.append("apagado");
			}
			buf.append(" aparato de consumo " );
			buf.append(aparato.consumo);
		}

		return buf.toString();
	}

}

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

package red;

public class Aparato {

	int consumo;
	boolean encendido;

		int consumoActual(){
			if (encendido){
			 return consumo;}
			 else{
				 return 0;}
		}
}

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

package red;

public class Red {

	Aparato[] aparatos;

   public Red(int numAparatos){
	   this.aparatos = new Aparato[numAparatos];
   }

  //class red extends Aparato{};

   int consumoActual(){
	  int consumir=0;
	  int cantidad=this.aparatos.length-1;

	  for (int i=0;i<=cantidad;i++){
		if (this.aparatos[i]!= null){
		if (this.aparatos[i].encendido){
			consumir += this.aparatos[i].consumo;
		}
		}
	  }
	   return consumir;
   }
}

//——————————————————————————————————————————————–//——————————————————————————————————————————————–

Pronto Cuelgo El Ejercicio.rar Para importar en el Eclipse:

Eclipse Java EE IDE for Web Developers.

Version: Helios Service Release 1
Build id: 20100917-0705

Todos Los Derechos Reservados. Shersoft Co.Ltd. 2008