miércoles, 24 de marzo de 2010

Automata de delantero en puntaAct-230310_1- Programar un agente.-Rafael SorianoRamírez, Aguilar Zarazua Jose Luis Alejandro, Díaz de la Luz Jose Luís








package proyx;
public class AgenteSimple
{
int percepcionActual; /*1 sin delantero y sin portero,
2 uno o mas defenzas al frente,
3 sin defenza con portero desprevenido,
4 sin defenza con portero prevenido y con compañero cerca,
5 sin defenza con portero prevenido y sin compañero cerca
*/
int accion; /*6 tirar directo a porteria,
7 pasar a un compañero,
8 tirar a algun lado dentro de la porteria,
9 pasar al compañero que esté cerca,
10 tirar a la porteria
*/
AgenteSimple()
{ }
void recibePercepcion(int percep)
{
percepcionActual = percep;
}

int escogeLaMejorAccion(int percepcionActual)
{
if(percepcionActual == 1)
{
return 6;
}
if(percepcionActual==2)
{
return 7;
}
if(percepcionActual == 3)
{
return 8;
}
if(percepcionActual==4)
{
return 9;
}
if(percepcionActual==5)
{
return 10;
}
return 0;
}
String interpretaAccion (int accion)
{
if(accion == 6)
{
return ("Percibí que no hay delantero ni portero, por lo tanto, mi acción es tirar directo a la portería");
}
if(accion ==7)
{
return("Percibí que hay uno o mas defenzas al frente, por lo tanto, mi acción es pasar a un compañero");
}
if(accion ==8)
{
return("Percibí que no hay defenza y el portero está desprevenido, por lo tanto, mi acción es tirar a algún ángulo dentro de la portería");
}
if(accion ==9)
{
return("Percibí que no hay defenza y el portero está prevenido pero tengo un compañero cerca, por lo tanto, mi acción es pasarla a mi compañero");
}
if(accion ==10)
{
return("Percibí que no hay defenza y el portero está prevenido pero no tengo un compañero cerca, por lo tanto, mi acción es tirar a la portería");
}
//si no se cumple ninguno de los casos anteriores
return ("No sé que hacer, por lo tanto mantengo la posición de delantero hasta que me pasen el balón");
}
public static void main (String args[])
{
}

}

Delantero en punta de soccer Act-230310_1- Programar un agente.-Rafael Soriano Ramírez, Jose Luis Alejandro Aguilar Zarazua, Jose Luis Díaz de la Luz

jueves, 18 de marzo de 2010

Código en Visual Basic 5.0 para la ACT-170310-1-Rafael Soriano Ramírez, Jose Luis Días de la Luz, Jose Luis Alejandro Aguilar Zarazua





Private Sub Seleccionar_Click()
verificarDato
End Sub

Public Function verificarDato()

If climatxt.Text = "nublado" Then
clima
ElseIf climatxt.Text = "cálido" Then
clima
ElseIf climatxt.Text = "templado" Then
clima1
ElseIf climatxt.Text = "lluvioso" Then
clima
Else
MsgBox ("no escribió bien el clima favor de verificarlo, gracias")
End If
climatxt.Text = ""
End Function

Public Function clima()
MsgBox ("no puede ir al cine")
climatxt.Text = ""
End Function

Public Function clima1()
MsgBox ("puede ir al cine")
climatxt.Text = ""
End Function