Ayuda por favor...

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

[BuRtOn]

Gracias amigo si es asi...pero es que hasta ahora estoy manejando mi primer ciclo y miren el programa que me toca hacer, es una bobada pero tengo errores y me estreza....este es el programa que me piden:


Construya una aplicación que capture dos datos enteros(VyNUM)

y muestre en un labe el resultado de la siguiente funcion:


función:

nf(V) = 100*V si NUM =1
nf(V) = 100*Vsi NUM = 2;
nf(V) = 100/V si NUM = 3,
para cualquier otro valor de NUM el valor de la función es 0.

[[Delphius]]

Empezado por BuRtOn

Gracias amigo si es asi...pero es que hasta ahora estoy manejando mi primer ciclo y miren el programa que me toca hacer, es una bobada pero tengo errores y me estreza....este es el programa que me piden:


Construya una aplicación que capture dos datos enteros(VyNUM)

y muestre en un labe el resultado de la siguiente funcion:


función:

nf(V) = 100*V si NUM =1
nf(V) = 100*Vsi NUM = 2;
nf(V) = 100/V si NUM = 3,
para cualquier otro valor de NUM el valor de la función es 0.

¿Y la pregunta es? ¿Haz estado probando? ¿En que avanzaste? ¿que errores?¿Porqué no nos mencionas dichos errores? ¿Porque no nos muestra el código?

Tal como dices, es una tontera... y como recién te estas iniciando te pido que por favor tomes mas en serio esto. A modo en que pones el texto, quieriendo resaltar el problema, más no asi los errores que haz tenido... das pie que surjan malinterpretaciones. Sobre todo esta: ¡Clubdelphi no hace tareas!

Por favor, te invito a leer nuevamente la guia de estilo.

Saludos,