Ayuda por favor...

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

[[Delphius]]

Empezado por 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....

¿Qué es lo que deseas hacer con el ProgressBar? ¿Una especie de pantalla que muestre el proceso? ¿Porque no usas el buscador? Hay muchos hilos en donde se ha tratado el tema.

Saludos,

[ContraVeneno]

argh, veo con tristeza que ninguna de mis recomendaciones te sirvieron...

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

[ContraVeneno]

Empezado por BuRtOn

Jejee lo dices por mi contraveneno ?...

si lo digo por ti... pero me refería a esto:

Código Delphi [-]
lblEdit1: TEdit;

pones prefijo de Label cuando es un Edit

Código Delphi [-]
procedure Tfrmsegundo.icoRestaClick(Sender: TObject);
var x,y : real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
resul := (x-y);

end;

Utilizas variables que no son necesarias. Lo único que hacen es estorbar y ocupar memoria.

Código Delphi [-]
procedure Tfrmsegundo.icoRestaClick(Sender: TObject);
begin
 Resul := strtofloat(edtOperando1.text) - strtofloat(edtOperando2.text));
end;

Empezado por BuRtOn

...ojala puedeas ayudarme o darme una manito con eso....

No, no, yo no le hago a esas cochinadas ....

[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

[[Delphius]]

Empezado por egostar

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

Ummm de pronto he sentido que hay allí ciertas experiencias del pasado que te atormentan casi a diario? O no Egostar?

Saludos,

[[egostar]]

Empezado por Delphius

Ummm de pronto he sentido que hay allí ciertas experiencias del pasado que te atormentan casi a diario? O no Egostar?

Saludos,

No pues la mula no era arisca, la hicieron a palos.....

Salud OS

[Robert01]

¿querés imprimir una variable entera en el label?

supongo que se hace así:

Código Delphi [-]
label1.caption:=intToStr(resultado);

Salud OS