Ayuda por favor...

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

[BuRtOn]

Que pena delphius, pero yo tomo la seriedad de las cosas, lo que pasa es que no soy antiguo ni en el club ni soy maestro en delphi, y que pena por no haber redactado bien...y escribi el enunciado por que es una base de lo que me estan pidiendo, no para que me hagas la tares, creeme amigo no soy parasito para estar diciendole a las personas que hagan mis cosas...tratare de explicar lo que necesito....esto es lo que llevo del codigo:


Código Delphi [-]unit ufrmcuarto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmcuarto = class(TForm)
StaticText2: TStaticText;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
StaticText1: TStaticText;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmcuarto: Tfrmcuarto;
resultado: integer;
implementation
{$R *.dfm}
procedure Tfrmcuarto.Edit1Change(Sender: TObject);
var num : integer;
begin
num := strtoint(Edit1.Text);
end;
procedure Tfrmcuarto.Edit2Change(Sender: TObject);
var v: integer;
begin
v := strtoint(Edit2.Text);
end;
procedure Tfrmcuarto.Label1Click(Sender: TObject);
begin
Label1.Caption := strtoint(resultado);
If (strtoint(Edit1.Text) := 1) then
resultado := (100) * strtoint(Edit2.Text);
Else
ShowMessage('prueba');

end;
end.





Bueno el problema es que no se como manejar bien el if, ya que solo me dieron la estructura general...el hecho es que como pueden ver en el codigo recivo los datos por medio de Edit. Me dicen que si num = 1 o num = 2 ejecuto una funcion que es esta:

f(V) = 100*V si NUM =1

f(V) = 100*Vsi NUM = 2


y si num es diferente a 1 o 2 la funcion va ser 0 inmediatamente, y v es el segundo edit, ese dato lo implementa el usuario, y se ejecutara en caso de que el programa desarrolle cualquier funcion.

Lo que no entiendo es que si estoy manejando mal algo en el programa me ayuden a ver que es ?....y me digan como es la forma correcta....mi problema suerge en el manejo del IF y de los edit...

OBSERVACION: Tengo a resultado en una variable global tipo entero, para poderlo imprimir en el Label.