viernes, 11 de junio de 2010
miércoles, 2 de junio de 2010
EJEMPLO TEXTUAL MULTIPLICAR CON SUMAS
SOLUCIÓN PROGRAMA NUMERO 4(Multiplicar con sumas)
Comienzo preparando una vez más los controles que necesito en un ficha nueva como puedes ver en la imagen.
Objetos utilizados: He puesto controles Tlabel para el titulo y las etiquetas de los NUMEROS .Tambien tengo otro control Tlabel en la parte de abajo de la ficha para poner el resultado. Los cuadros a la derecha de las etiquetas NUMERO son controles TEdit. Luego he puesto los botones; PRODUCTO Y BORRAR son (TButton) de la paleta standard y el botón de Borrar (para hacer otro pase) de la paleta Adicional. Observa los nombres que les he puesto mirando el codigo.
Te insisto que yo simplemente he escrito 'a dedo' (podia tirarme un pegote y deir que era todo mio) el codigo del evento On_Click del boton PRODUCTO, el codigo evento On_Click del botón Borrar y el OnClick de Cerrar; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha.
El código del programa:
unit PRODUCTO;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls;typetform1 = class(tform)label1: tlabel;label2: tlabel;num1: tedit;label3: tlabel;num2: tedit;producto: tbutton;borrar: tbutton;cerrar: tbitbtn;solucion: tlabel;procedure cerrarclick(sender: tobject);procedure borrarclick(sender: tobject);procedure productoclick(sender: tobject);private{ private declarations }public{ public declarations }end;varform1: tform1;implementation{$r *.dfm}procedure tform1.cerrarclick(sender: tobject);beginclose;end;procedure tform1.borrarclick(sender: tobject);beginnum1.clear;num2.clear;solucion.caption:='';num1.setfocus;end;procedure tform1.productoclick(sender: tobject);varn1,n2,producto,i:integer;beginproducto:=0;n1:=strtoint(num1.text);n2:=strtoint(num2.text);for i:=1 to n2 doproducto:=producto+n1;solucion.caption:='el producto de '+num1.text+' x '+num2.text+' es = '+inttostr(producto);end;end.
Todas las ordenes deberian ser conociadas.
Y este es el programa ejecutando:
Comienzo preparando una vez más los controles que necesito en un ficha nueva como puedes ver en la imagen.
Objetos utilizados: He puesto controles Tlabel para el titulo y las etiquetas de los NUMEROS .Tambien tengo otro control Tlabel en la parte de abajo de la ficha para poner el resultado. Los cuadros a la derecha de las etiquetas NUMERO son controles TEdit. Luego he puesto los botones; PRODUCTO Y BORRAR son (TButton) de la paleta standard y el botón de Borrar (para hacer otro pase) de la paleta Adicional. Observa los nombres que les he puesto mirando el codigo.
Te insisto que yo simplemente he escrito 'a dedo' (podia tirarme un pegote y deir que era todo mio) el codigo del evento On_Click del boton PRODUCTO, el codigo evento On_Click del botón Borrar y el OnClick de Cerrar; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha.
El código del programa:
unit PRODUCTO;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls;typetform1 = class(tform)label1: tlabel;label2: tlabel;num1: tedit;label3: tlabel;num2: tedit;producto: tbutton;borrar: tbutton;cerrar: tbitbtn;solucion: tlabel;procedure cerrarclick(sender: tobject);procedure borrarclick(sender: tobject);procedure productoclick(sender: tobject);private{ private declarations }public{ public declarations }end;varform1: tform1;implementation{$r *.dfm}procedure tform1.cerrarclick(sender: tobject);beginclose;end;procedure tform1.borrarclick(sender: tobject);beginnum1.clear;num2.clear;solucion.caption:='';num1.setfocus;end;procedure tform1.productoclick(sender: tobject);varn1,n2,producto,i:integer;beginproducto:=0;n1:=strtoint(num1.text);n2:=strtoint(num2.text);for i:=1 to n2 doproducto:=producto+n1;solucion.caption:='el producto de '+num1.text+' x '+num2.text+' es = '+inttostr(producto);end;end.
Todas las ordenes deberian ser conociadas.
Y este es el programa ejecutando:
EJEMPLO TEXTUAL AREA DE UN TRIANGULO
SOLUCIÓN PROGRAMA NUMERO 1(Area del Triangulo)
Comienzo preparando los controles que necesito en un ficha nueva como puedes ver en la imagen.
Objetos utilizados: Los textos que ves como Base, Altura, Area y el titulo principal; son controles Tlabel . Los cuadros para la base y altura son TEdit; y el boton es un control TButton; todos ellos de la paleta standard. Observa los nombres que les he puesto, en realidad solo es necesario dar nombre a los controles que vamos a nombrar por nuestra cuenta, aunque siempre podemos utilizar el nombre por defecto que les dá el Delphi, pero es más feo.
Simplemente luego en el evento On_Clic del boton Calcular coloco el siguiente codigo que puedes ver en el listado completo del programa. Hacerte observar que yo simplemente he escrito 'a dedo' el codigo del evento On_Clic del boton Calcular; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha:
unit area;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Base: TLabel;Altura: TLabel;Area: TLabel;nbase: TEdit;nalt: TEdit;Calcular: TButton;procedure CalcularClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.CalcularClick(Sender: TObject);varbase,altura,area2:word;beginbase:=strtoint(nbase.text);altura:=strtoint(nalt.text);area2:=base*altura div 2;area.caption:='Area='+inttostr(area2);end;end.
Por ultimo comentarte dos ordenes que pueden llamarte la atención:
strtoint
Que convierte un texto en número entero. Es necesario para operar con él ya que los TEdit reciben valor alfanumerico.
inttostr
Que convierte un número entero a texto. Necesario para albergar el numero de la solución a la etiqueta area.
El delphi dispone de otras ordenes de este tipo para convertir datos.
Y este es el programa ejecutando:
Comienzo preparando los controles que necesito en un ficha nueva como puedes ver en la imagen.
Objetos utilizados: Los textos que ves como Base, Altura, Area y el titulo principal; son controles Tlabel . Los cuadros para la base y altura son TEdit; y el boton es un control TButton; todos ellos de la paleta standard. Observa los nombres que les he puesto, en realidad solo es necesario dar nombre a los controles que vamos a nombrar por nuestra cuenta, aunque siempre podemos utilizar el nombre por defecto que les dá el Delphi, pero es más feo.
Simplemente luego en el evento On_Clic del boton Calcular coloco el siguiente codigo que puedes ver en el listado completo del programa. Hacerte observar que yo simplemente he escrito 'a dedo' el codigo del evento On_Clic del boton Calcular; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha:
unit area;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Base: TLabel;Altura: TLabel;Area: TLabel;nbase: TEdit;nalt: TEdit;Calcular: TButton;procedure CalcularClick(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.CalcularClick(Sender: TObject);varbase,altura,area2:word;beginbase:=strtoint(nbase.text);altura:=strtoint(nalt.text);area2:=base*altura div 2;area.caption:='Area='+inttostr(area2);end;end.
Por ultimo comentarte dos ordenes que pueden llamarte la atención:
strtoint
Que convierte un texto en número entero. Es necesario para operar con él ya que los TEdit reciben valor alfanumerico.
inttostr
Que convierte un número entero a texto. Necesario para albergar el numero de la solución a la etiqueta area.
El delphi dispone de otras ordenes de este tipo para convertir datos.
Y este es el programa ejecutando:
Suscribirse a:
Entradas (Atom)
