Ayuda por favor...

[ContraVeneno]

A ver... solo porque tienes dos días programando....

Lo mejor que puedes hacer, es tomar un buen libro de delphi. Hay mucho en el mercado, a estas alturas, cualquiera te serviría. Incluso, un libro es mucho mejor que los maestros que puedas tener en la escuela. En fin.

Tienes dos TEdit, un Tlabel (para el resultado ) y las operaciones las haces en el evento onclick de un menu...

lo más fácil:

Código Delphi [-]
procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
begin
 label1.caption := strtofloat(Edit1.text) + strtofloat(Edit2.text);
 Suma:= strtofloat(Edit1.text) + strtofloat(Edit2.text);
end;

suma es variable global, lo mismo para la resta, división y demás operaciones.

Ahora lo de tu botón, que no entiendo la lógica de lo que quieres hacer y no entiendo para que poner un resultado en un "caption" de un botón, pero en fin...

Código Delphi [-]
procedure Tfrmsegundo.Button1Click(Sender: TObject);
begin
 Button1.Caption :='Suma = ' + Suma + ', Resta = ' + Resta; //etc
end;
end.

Vamos a ver ahora...
le diste un nombre el edit "lblEdit1"; eso no tendría sentido, una cosa es un TEdit y otra cosa es un TLabel. El Prefijo del TEdit generalmente es "edt" y el prefijo de un TLabel generalmente es "lbl", pero que a un TEdit lo llames "lbl..." no tiene sentido.

Lo correcto sería, por ejemplo: "edtOperador1".

Pídele a tu profesor que les explique la diferencia entre variables locales y variables globales.

Y vamos, que no intento ser grosero, ni muchos menos, pero por la forma en que escribes y planteas el problema, a mi me da la impresión de nunca has leído nada sobre delphi ni programación y al parecer, o tu profesor es bastante malo, o de plano no le pusiste atención.

Saludos

[[felipe88]]

Coincido en lo que dice ContraVeneno, yañado en que deberian conocer primero bien los conceptos de la programacion y mas aun la POO (Programacion Orientada a Objetos), en realidad tu "tarea" es muy facil ...

Este codigo de ContraVeneno es muy logico

Código Delphi [-]
procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
begin
  label1.caption := strtofloat(Edit1.text) + strtofloat(Edit2.text); 
  Suma:= strtofloat(Edit1.text) + strtofloat(Edit2.text);
end;

Deberia fucionarte y evita complicarte... Resultados en un boton

[BuRtOn]

Gracias amigos, y no es eso, solo que el codigo que les mostre lo hicimos con el profesor en clase y lo del botton.caption, fue por que trate guiarme por el codigo que me dio peterpunk, y solo llevo pocos dias en delphi, aparte de eso, lo estoy tratando de entender a la logica, por que aun no tengo dinero para comprar un libro de programacion ya que son muy caros , y pues si ya entendiii el codigo que me envio contraveneno, si es mas logico, y todo es que igual solo nos pedian realizar las operaciones y mostrar un resultado con el comando ShowMessage y ya, pero yo queria algo mejorcito, imprimirlo en un botton, entonces por eso pregunte, por que ustedes son antiguos en esto, o por lo menos no tienen 2 dias como yo, si ven, y pues hasta ahora me estoy acostumbrando a los terminos en delphi, pero enserio gracias por comprender, y ayudarme...y contraveneno ese codigo ta muy bien, solo que e visto la parte grafica de delphi y el poco codigo que les mostre , menos el del botton....bueno muchachos voy a programarlo asi haber como me va...de nuevo gracias...

[[felipe88]]

Date un pason por el ftp del club... alli hay muy buenos tutoriales y manuales completos, te recomiendo la Cara Oculta de Delphi 4...

Saludos

[BuRtOn]

El codigo que me da contraveneno, la variable suma, la declaro como float ??
osea var suma:float; o no es necesaria declarar variables ?


gracias....

[[Delphius]]

Empezado por BuRtOn

Gracias amigos, y no es eso, solo que el codigo que les mostre lo hicimos con el profesor en clase y lo del botton.caption, fue por que trate guiarme por el codigo que me dio peterpunk, y solo llevo pocos dias en delphi, aparte de eso, lo estoy tratando de entender a la logica, por que aun no tengo dinero para comprar un libro de programacion ya que son muy caros , y pues si ya entendiii el codigo que me envio contraveneno, si es mas logico, y todo es que igual solo nos pedian realizar las operaciones y mostrar un resultado con el comando ShowMessage y ya, pero yo queria algo mejorcito, imprimirlo en un botton, entonces por eso pregunte, por que ustedes son antiguos en esto, o por lo menos no tienen 2 dias como yo, si ven, y pues hasta ahora me estoy acostumbrando a los terminos en delphi, pero enserio gracias por comprender, y ayudarme...y contraveneno ese codigo ta muy bien, solo que e visto la parte grafica de delphi y el poco codigo que les mostre , menos el del botton....bueno muchachos voy a programarlo asi haber como me va...de nuevo gracias...

Hola BuRtOn,
Lo que yo no me canso de repetir es: leer la Cara Oculta de Delphi 4 (pdf), ir la sección FTP y a la Wiki del club. En dichas secciones encontrarás material con el cual empezar.

Saludos,

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

Empezado por BuRtOn

...lo estoy tratando de entender a la logica, por que aun no tengo dinero para comprar un libro de programacion ya que son muy caros

Hay muchos manuales por Internet que puedes revisar.
Aquí tienes uno de nivel muy básico y muy bien explicado.

[BuRtOn]

Hola amigos, como hago para imprimir en un label...por ejemplo tengo la variable llamada resultado de tipo entero...como haria pa imprimirla....gracias por ayudarme siempre amigos gracias...

[[felipe88]]

Empezado por ContraVeneno

suma es variable global, lo mismo para la resta, división y demás operaciones.

Si debes declararla, y si seria float...

[BuRtOn]

Gracias amigo, ya estoy codificanndo todo, ahora tiene mas logicam jeje, esto es parecido cuando uno maneja archivos en c++, me refiero a las instrucciones como el label.caption, pero lo que no logro entender es que contraveneno coloco:

label1.caption := strtofloat(Edit1.text) + strtofloat(Edit2.text);

Ese label1.caption , para que lo utilizo? si lo que estoy utilizando es estatictext, que es para colocar el mensaje de: Inserte el primer numero, y alfrente de ese statictext si coloco el edit1...el resto si lo entendi, solo me falta eso amigo, y que pena molestar tanto, pero preguntando y mirando es que se aprende, gracias...

[[felipe88]]

Empezado por BuRtOn

Gracias amigo, ya estoy codificanndo todo, ahora tiene mas logicam jeje, esto es parecido cuando uno maneja archivos en c++, me refiero a las instrucciones como el label.caption, pero lo que no logro entender es que contraveneno coloco:

label1.caption := strtofloat(Edit1.text) + strtofloat(Edit2.text);

Ese label1.caption , para que lo utilizo? si lo que estoy utilizando es estatictext, que es para colocar el mensaje de: Inserte el primer numero, y alfrente de ese statictext si coloco el edit1...el resto si lo entendi, solo me falta eso amigo, y que pena molestar tanto, pero preguntando y mirando es que se aprende, gracias...

El lablel1 que el usa, es en el cual arroja el resultado; solo que el no uso variables en este caso y solo hizo directamente las operaciones. El StaticText no lo conosco muy bien pero te aconsejo usar los label o mirar si este componente tiene alguna propiedad text o caption...

[ixMike]

Empezado por felipe88

El lablel1 que el usa, es en el cual arroja el resultado; solo que el no uso variables en este caso y solo hizo directamente las operaciones. El StaticText no lo conosco muy bien pero te aconsejo usar los label o mirar si este componente tiene alguna propiedad text o caption...

Hola, felipe88. El StaticText es como un Label, pero mientras el Label está derivado de TGraphicControl, el StaticText lo hace de TWinControl, con lo que cambian algunas cosas. Por ejemplo, un Label nunca quedará por encima de un TButton, por mucho BringToFront que hagas, mientras que el StaticText sí puede hacerlo.

Salu2.

[[felipe88]]

Empezado por ixMike

Hola, felipe88. El StaticText es como un Label, pero mientras el Label está derivado de TGraphicControl, el StaticText lo hace de TWinControl, con lo que cambian algunas cosas. Por ejemplo, un Label nunca quedará por encima de un TButton, por mucho BringToFront que hagas, mientras que el StaticText sí puede hacerlo.

Salu2.

Eso no lo sabia... Gracias por el dato ixMike

Cada dia se aprende algo nuevo

[[egostar]]

Bueno aquí hay dos cosas que me parece correcto comentar.

Código Delphi [-]
//Esta sentencia está mal:
label1.caption := strtofloat(Edit1.text) + strtofloat(Edit2.text);
//Debe de hacerse esto:
label1.caption := FloattoStr(strtofloat(Edit1.text) + strtofloat(Edit2.text));

//Suma no es un tipo Float, hasta donde se debe declararse como Real.
Var
Suma: Real;

Suma:= strtofloat(Edit1.text) + strtofloat(Edit2.text);

Salud OS

[ContraVeneno]

shale, egostar... era plan con maña, para ver hasta cuando se daba cuenta del error

Ya me echaste a perder todo mi plan maquiavélico.

[[felipe88]]

Oops... muy observador, y si es real no float ; bueno como dije:

Cada dia se aprende algo nuevo... Hoy: Ser mas observador

[BuRtOn]

Saludos amigos, gracias por ayudarmen, pude terminar mi pequeño programita con exito, ahora me gustaria saber si alguien sabe el codigo, para hacer dinamico el progressbar, y asi quede animado, para simular que esta cargando un programa o lo que sea....

Posdata: Que no sea el ejemplo que viene incluido en delphi 7.0, es que no lo entiendo por que soy pollo....algo que sea sencillo de entender....

Gracias por su atencion prestada.y asi me quedo el codigo de mi programita.

Código Delphi [-]
unit ufrmsegundo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Mask;
type
Tfrmsegundo = class(TForm)
MainMenu1: TMainMenu;
Operaciones1: TMenuItem;
icoSuma: TMenuItem;
icoResta: TMenuItem;
icoMultiplicacion: TMenuItem;
icoDivision: TMenuItem;
icoSalir: TMenuItem;
StaticText1: TStaticText;
StaticText2: TStaticText;
lblEdit1: TEdit;
lblEdit2: TEdit;
StaticText3: TStaticText;
Button1: TButton;
Help1: TMenuItem;
About1: TMenuItem;
procedure icoSumaClick(Sender: TObject);
procedure icoRestaClick(Sender: TObject);
procedure icoMultiplicacionClick(Sender: TObject);
procedure icoDivisionClick(Sender: TObject);
procedure icoSalirClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmsegundo: Tfrmsegundo;
resul : double; // Variable global y esto era mi gran duda.

implementation
{$R *.dfm}

procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
var x,y :real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x+y);

end;

procedure Tfrmsegundo.icoRestaClick(Sender: TObject);
var x,y : real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x-y);

end;

procedure Tfrmsegundo.icoMultiplicacionClick(Sender: TObject);
var x,y :real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x*y);

end;

procedure Tfrmsegundo.icoDivisionClick(Sender: TObject);
var x,y : real;

begin

x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x/y);

end;

procedure Tfrmsegundo.icoSalirClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure Tfrmsegundo.Button1Click(Sender: TObject);
begin
ShowMessage(FloatToStr(resul));
end;

procedure Tfrmsegundo.About1Click(Sender: TObject);
begin
ShowMessage('Creado Por: Ing. John Quintero / / Elaborado en: Delphi 7.0!');
end;
end.

[BuRtOn]

Jejee lo dices por mi contraveneno ?, si man por ti fue que pude pensar mejor, y plantear la idea de como era el programita, gracias men, enserio.....y pues lo tro que pregunte fue que si alguien tiene que me pase un codigo completico para el porgressbar, como el que sale cuando esta iniciando windowx xp....es que es para adornar mi programita, y para analizarlo, solo se que hay un maximo, y un minimo, y que son bleanos, tambien ilncluye un bucle, pero el resto no tengo ni idea de la estructura ni nda de esas cosas...ojala puedeas ayudarme o darme una manito con eso, gracias amigos....

[BuRtOn]

Jajaja, no contraveneno, solo lo hice asi, por que hasta ahora empece parcero, pero tambien lo tengo hecho transformando los flotantes a strin, solo que me toca exponer mi programita en clase, y si me pongo a explicarles como tu me dijiste de seguro se van a perder, por que no llevamos si no pocos dias programando, y de seguro toca comenzar desde lo mas suave, para ir adquiriendo conocimiento, no puedo embutirles todo de una sola vez, cada cosa a su tiempo...igual gracias amigo, por que me aclaraste muchas cosas...

[[egostar]]

Empezado por ContraVeneno

shale, egostar... era plan con maña, para ver hasta cuando se daba cuenta del error

Ya me echaste a perder todo mi plan maquiavélico.

A que la viejita, pues no mandas señales de humo estimadisimo, perdón, no lo vuelvo a hacer..... (tal vez)

Empezado por felipe88

Oops... muy observador, y si es real no float ; bueno como dije:

Cada dia se aprende algo nuevo... Hoy: Ser mas observador

Asi es amigo felipe88, hay que andarse con cuidado, aqui el que no cae, resbala y no perdonan una

Salud OS