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
public
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.