Te presentamos un curso en el cual mediante claras instrucciones te enseñaremos a simular un lanzamiento de tres dados en Delphi 2010.
El juego consiste en que el usuario al hacer clic en el botón podrá ver los números sacados por los tres dados y la suma de los tres dados. Si este saca 6+6+6 daremos un mensaje que diga que “saco perfecto”, y si le sale 1+1+1 le diremos que es un “mal suertudo”.
Para este cometido vamos a hacer uso de los números aleatorios que nos ayudará a simular ar el lanzamiento de los dados.
Bueno empecemos creando nuestro proyecto en EMBARCADERO RAD STUDIO DELPHI 2010, y a nuestro formulario principal le arrastramos los siguientes componentes: un BOTÓN, y tres EDITS, como se muestra en la siguiente imagen:
Ahora guardemos nuestro proyecto, para poder escribir código. Haciendo clic en
FILE->SAVE ALL
Ahora vamos a aprender a usar código cuando se esté creando nuestro formulario, para eso hacemos clic en nuestro formulario después nos vamos a sus propiedades en la parte izquierda y hacemos clic en la pestaña eventos, como se muestra en la siguiente imagen:
Hacemos doble clic en el campo vacío de ONCREATE para escribir nuestro código y nos saldrá el editor de código:
Y escribimos el siguiente código para preparar nuestros elementos del formulario:
//Cambiamos el texto de muestra de nuestroBotón
Button1.Caption:='Jugar';
//Configuramos nuestros EDIT para que solo muestren información
Edit1.ReadOnly:=true;
Edit2.ReadOnly:=true;
Edit3.ReadOnly:=true;
//Borramos el contenido de los EDIT
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
El código debe quedar como en la siguiente imagen:
Ahora antes de escribir el código del botón debemos incluir la librería MATH en USES como se muestra en la siguiente imagen:
Ahora volvamos a nuestro formulario y hagámosle doble clic en el botón para escribir el juego de los numeremos aleatorios y mostrar los números en los tres EDIT cual si fuesen dados:
Y escribimos el siguiente código:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,total:integer;
begin
//Esta es la raiz del numero aleatorio
randomize;
//Cargamos el numero aleatorio a EDIT1 para el priner dado de 1 a 6
a:=RandomRange ( 1,6 );
Edit1.Text:= IntToStr (a);
//Cargamos el numero aleatorio a EDIT2 para el segundo dado de 1 a 6
b:=RandomRange ( 1,6 );
Edit2.Text:= IntToStr (b);
//Cargamos el numero aleatorio a EDIT3 para el tercer dado de 1 a 6
c:=RandomRange ( 1,6 );
Edit3.Text:= IntToStr (c);
//Ahora sumamos el total de a+b+c;
total:=0;
total:=a+b+c;
//ahora mostramos el total de la suma
if (total>18) then
ShowMessage('Sacaste perfecto tus puntos es 18');
if (total<4) then
ShowMessage('Sacaste mala suerte tus puntos son 3');
if ((total>3) and (total<18)) then
ShowMessage('Sacaste Bien tus puntos es: '+ IntToStr(total));
end;
El código debe quedarte como en la siguiente imagen:
Espero que te haya sido útil.
Uso de Radiogroup en Delphi 2010. Instrucciones
24 alumnos Conoce los pasos para usar radiogroup en Delphi con este práctico curso que de... [30/11/11] |
Cómo navegar entre formularios de Delphi 2010. Pasos a seguir
16 alumnos En este curso aprenderemos cómo navegar entre formularios en Delphi 2010 en... [15/11/11] |
Uso de Combobox en Delphi 2010. Instrucciones
22 alumnos En este curso vamos a realizar un proyecto en DELPHI 2010 que nos enseñe las... [01/12/11] |