Hola

[jgarciagg]

Hola soy nueveson en esto del delphi, me llamo jaime y soy una persona 100% autodidacta he aprendido un poco de visual basic y de c++ gracias al maestro google jajaja y ahora quiero reforzar mi mente con un poco de delphi he estado haciendo algunos ejercicios pequeños practicando con una calculadora pequeña la cual les anexo el codigo que es muy sencillo puesto que aun no cuento con el conocimiento y de momento mi calculadora cuenta con tres botones suma resta y multiplicacion jajaja me gustaria me pasaran algunas tareillas para resolver e ir aprendiendo sin mas les agradezco el aceptarme en el foro



codigo

Código Delphi [-]
 
unit calcu_parte1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
Edit3: TEdit;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
cantidad1:double;
cantidad2:double;
resultado_suma:double;
resultado_resta:double;
resultado_multi:double;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
if Edit1.focused then
Edit1.Text:= Edit1.Text + '1'
else
Edit2.Text:= Edit2.Text + '1';
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
if Edit1.focused then
Edit1.Text:= Edit1.Text + '2'
else
Edit2.Text:= Edit2.Text + '2';
end;
 
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
cantidad1:= StrToInt(Edit1.Text);
cantidad2:= StrToInt(Edit2.Text);
Edit3.Text:= IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Edit1.focused then
Edit1.Text:= Edit1.Text + '3'
else
Edit2.Text:= Edit2.Text + '3';
end;
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
Edit3.Text:= IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));
end;
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
if Edit1.Text='' then
Edit1.Text:='0'
else
if Edit2.Text='' then
Edit2.Text:='0'
else
Edit3.Text:= IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
WinExec('Explorer.exe', SW_SHOW);
end;
end.
end.
end.
end;
end.

[[movorack]]

Bienvenido... que bien que estés por acá y espero sigas aprendiendo mucho... echale un ojo a los ejemplos, libros, tutoriales, programas y demás que puedes encontrar en el ftp del club... en especial el libro La cara oculta de delphi... aunque halla pasado mucho tiempo sigue siendo una excelente base para el aprendizaje.

por otro lado... te recomiendo leas la guia de estilo del foro y siempre que escribas codigo lo hagas dentro de las etiquetas (BBCode) correspondientes.

[marcoszorrilla]

Bienvenido a los Foros.

Un Saludo.

[Neftali [Germán.Estévez]]

Estoy con lo que te han dicho, Además de "la cara oculta de Delphi" en el FTP, hay algun otro manualillo para empezar. Sigue el orden que te marcan y ves intentando hacer las aplicaciones. Primero las sencillas, para practicar con formularios, procedimientos, funciones,...

Luego puedes pasar a herencia, OOp, componentes.

También puedes hacer pruebas con aplicaciones de Base de Datos.

Ves probando y las dudas que te vayan saliendo las planteas aquí.

Aquí tienes otro mini-tutorial sencillo y bastante visual.

[bosster_018]

Como te recomendo "movorack" puedes pasarte a las FTP Ejemplos del ClubDeplphi.
Ahí encontrará un monton de ejemplos fáciles y sencillos para que vayas almacenando en tu carpetas de "Ejemplo Delphi" (Yo hago eso )


Otra pregunta... No sé, pero creo que a simple vista, se nota que el código que pusiste, está incompleto. Osea:

-Declaraste 3 variables que no los usas.
-No he visto ningún procedimiento ni función tuya, a menos que lo implementes directamente en el objeto
- Y... ¿Para qué diablos es esto:?

Código Delphi [-]
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
  WinExec('Explorer.exe', SW_SHOW);
end;

¿Acaso no era una calculadora?

Tarea:
Si tu programa tiene (suma, resta multiplicación) ¿qué crees que faltaría..?
Pues la división...
No te olvides que cualquier número dividido entre 0 es igual a infinito
Y cero dividido con cualquier número siempre resultará cero

Saludos!

[jgarciagg]

Hola pues muchas gracias a todos por responder jajaja y lo del WinExec es para abrir el explorer o cualquier aplicacion de windows puiedes ponel el explorer o el Calc.exe y te abre la calculadora como se los mencione estoy aprendiendo variables y funciones sorry si mi codigo no esta al 100 pero eske soy un novato autodidacta jajajaa y asi es como comprendi las cosas pero les agradezco infinitamente que se apunten a brindarme ayuda

saludos cordiales