epelpad

Hice un sencillo juego y te enseño como hacerlo en lazarus

Se trata de una aplicación que genera dos números aleatorios y pide al usuario introducir la suma de esos dos números y cuenta el número de intentos, aciertos y fallos

Hice un sencillo juego y te enseño como hacerlo en lazarus

Primero descarga el compilador Lazarus, es un programa crear aplicaciones en lenguaje Free Pascal clon de Delphi y es gratuito https://www.lazarus-ide.org/

Programacion

Después de instalado, vamos a la esquina superior izquierda, elegimos Archivo - Nuevo… - Proyecto – Aplicación y le damos aceptar.

pascal

En la barra Estándar tendremos los objetos que vamos a utilizar en el Form1

juego

Necesitaremos 3 TButton, 5 TEdit y 4 TLabel, los colocamos de la siguiente manera en el Form1

lazarus matematicas

En el inspector de objetos cambiamos las propiedades al Fom1 y los demás componentes, comencemos con el Form1, en Caption borramos el nombre Form1 y pondremos Adivina el Numero y le damos Enter, en Color escogeremos clSilver o el color que quieras.

Hice un sencillo juego y te enseño como hacerlo en lazarus

Continuamos con el boton1, en Caption borramos y escribimos Nuevo, en Font elegimos negrita 12 y en Name pondremos btNuevo

Programacion

El Boton2 es Caption = Respuesta, Name=btRespuesta, Font= negrita 12

El Boton3 es Caption= Borrar, Name=btBorrar, Font= negrita 12

El Edit1 en Text borramos y lo dejamos en blanco, Font= negrita 12 color azul, Name =txtNum1

El Edit2 en Text borramos y lo dejamos en blanco, Font= negrita 12 color azul, Name =txtNum2

El Edit3 en Text borramos y lo dejamos en blanco, Font= negrita 12 color verde, Name =txtAcierto

El Edit4 en Text borramos y lo dejamos en blanco, Font= negrita 12 color rojo, Name =txtFallo

El Edit5 en Text borramos y lo dejamos en blanco, Font= negrita 12 color azul, Name =txtIntento

El Label1 en caption borramos y ponemos +, Font= negrita 12, en Name lo dejamos igual Label1

El Label2 en caption borramos y ponemos Aciertos, Font= negrita 12, en Name lo dejamos igual Label2

El Label3 en caption borramos y ponemos Intentos, Font= negrita 12, en Name lo dejamos igual Label3

Todo tiene que quedar de esta manera:

pascal

Ahora vamos al editor de código, en la parte de arriba debajo de type escribimos:

Elementos=record
aciertos:integer;
fallos:integer;
intentos:integer;
end;

juego

Más abajo donde dice Var escribimos:

elemento:Elementos;

lazarus matematicas

Hacemos doble click al Form1 y escribimos:

elemento.aciertos:=0;
elemento.fallos:=0;
elemento.intentos:=0

Hice un sencillo juego y te enseño como hacerlo en lazarus

Ahora doble click al botón Nuevo y escribimos arriba de begin:

var
alea1,alea2:Integer;
begin
randomize;
alea1:=random(102)-25;
alea2:=random(102)-22;
txtNum1.Text:=inttostr(alea1);
txtNum2.Text:=inttostr(alea2);
end;

Programacion

Ahora doble click al botón Respuesta y escribimos lo siguiente:

var
numero,suma:Integer;
begin
numero:=strtoint(InputBox('Introduce resultado','Aqui:',''));
{ShowMessage('Introduciste: '+ inttostr(numero)); }
suma:=strtoint(txtNum1.Text)+strtoint(txtNum2.Text);
if suma = numero then
begin
elemento.aciertos:=elemento.aciertos+1;
elemento.intentos:=elemento.intentos+1;
txtAcierto.Text:=inttostr(elemento.aciertos);
txtFallo.Text:=inttostr(elemento.fallos);
txtIntento.Text:=inttostr(elemento.intentos);
end
else
begin
elemento.fallos:=elemento.fallos+1;
elemento.intentos:=elemento.intentos+1;
txtAcierto.Text:=inttostr(elemento.aciertos);
txtFallo.Text:=inttostr(elemento.fallos);
txtIntento.Text:=inttostr(elemento.intentos);
end
end;

pascal

Y por último doble click al botón borrar y escribimos esto:

txtNum1.text := ('');
txtNum2.text := ('');
txtAcierto.text := ('');
txtFallo.text := ('');
txtIntento.text := ('');


juego

Ahora probaremos si funciona correctamente, en la barra de menú presiona ejecutar o F9.
Como vemos funciona a la perfección.

lazarus matematicas

Pueden crear un exe y ejecutar en programa en cualquier computadora, en la barra de menú, en ejecutar y luego compilar o Ctrl + F9, por defecto se guarda en la carpeta C:UserstunombreAppDataLocalTemp, con el nombre Project1.Puedes configurar otra ubicación para guardar los proyectos si deseas.

Hice un sencillo juego y te enseño como hacerlo en lazarus

Tips:
Si minimizas la ventana de lazarus pueda que el formulario o Form se oculte al volver a maximizar el programa, para volver a visualizarlo presiona F12
Si no sabes cómo poner las comillas simples ‘es la tecla Alt+39

Comentarios Destacados

OtroIngrediente +20
subilo a steam
zaktaringa
Pero para que sea mas conocido tiene que haber violaciones entre los numeros, salu2.

21 comentarios - Hice un sencillo juego y te enseño como hacerlo en lazarus

cesarman1 +3
Si a penas me gustaba la matematica en hojas de papel, menos en un juego
C-XVIII +2
Un post decente y yo sin puntos.



Que picardía.
reFriki +1
Tendrías que explicar un poco que lenguaje de programación usaste... Por lo que vi estas usando Pascal... Hace mucho que no uso ese lenguaje y para aprenderlo use el mismo IDE que estas usando.

PD: Me gustaría que FreeBasic tuviera un IDE similar a Lazarus, ese fue el motivo por el cual deje de usarlo
Panquequesino
Lazarus es una herramienta de desarrollo rápido de aplicaciones (RAD) basada en el lenguaje de programación Object Pascal, disponible para los sistemas operativos Windows, GNU/Linux y Mac OS X. Se trata de una alternativa libre y gratuita a Delphi, desarrollada como proyecto de software libre a partir de Free Pascal. Existe otro similar a Lazarus se llama Typhon es mas grande con mas herramientas aunque el instalador es lento
kalvarenga +2
son todo lo mismo los programas por lo que veo. Esas mismas cosas hacia hace años pero en visual basic
Panquequesino
Si es similar, la diferencia esta en que hay que escribir el código de diferente manera cada lenguaje de programación es diferente
Menducoide +2
Que lenguaje de mierda capo, una bosta pascal! Aprende java, C# o python, no pierdas tiempo con eso. Y despues arranca con Node.js ! Y empeza a laburar cuando antes mejor, te lo dice un pelotudo que arranco a laburar a los 24 y me arrepiento de no haberlo hecho antes
Rogerio_Ceni +1
no todo en la vida es currar ,y mas currar para otro .. pascal fue creado para aprender a programar , quizas en otro contexto (hace 40 años? ) , lo importante es aprender y entender
silvermig
Para hacer aplicaciones de gestion comercial para pymes, es una buena alternativa todavía, para hacer algo rápido; despues de todo es un software RAD, pero cada vez tiene menos lugar ante las aplicaciones web este tipo de software, y el lenguaje Pascal ya está quedando en desuso. Al menos eso pienso. Y para aprender programación estructurada, prefiero C.
Nacchos26
ni a palos aparte es freepascal lazarus esta evolucionando de forma impresionante , y object pascal de delphi ni hablar ya esta en android y ios al 100%, pascal en general es de los pocos lenguajes junto a java que hacen esta frase 'escribir una vez, ejecutar en cualquier parte'
Nacchos26
delphi ni hablar en firemonkey uma delicia lo que podes hacer en osx se lo usa mucho
kentsuo
Pasé por basic, assembler, c ,c++. Etc... Y lo mejor para aplicaciones rápida es macros de excel

Ahora para programas web uso laravel y de escritorio uso visual .net
hippielq +1
me recuerda mucho a Visual Basic. ahora le dare masa con nostalgia al lazarus
elcapodechile +1
Ya manejar lazarus es un logro, te felicito kpo
Nacchos26 +1
metele pa que con lazarus haces maravillas si lo sabes usar ni hablar esta lleno de material en internet y podes usar delphi que esta bien tambien con ese podes probar para programar en android usando pascal, tiene hasta para programar en las google glass
rastamanlp +1
Aguante Lazarus!, hace unos años trabajé en una secretaría del estado y por cuestiones legales no podía usar delphi asique use a su equivalente mexicano Lazarus!
TierraPlanaReal
"Adivina el numero" jajaaj no es adivinar, se llama sumar. Igual buen post, van puntos.
Panquequesino +1
Si era sumar pero solo es un ejemplo se puede modificar toda la aplicación a la manera deseen, Gracias por comentar y los puntos
mariowin86 +1
En otros tiempos este post estaría entre los más puntuados en menos de media hora. Me dueles T!

P.D; te dejo +10
zaktaringa +1
Mas que un juego parece una tortura, salu2.
Burdegano
game maker es bueno y me hice un en power point