Delphi skal regne!!!

hovsa - jeg glemte lige noget i formlen:

((1+r)**t*r) / ((1+r)**t-1) * h

når man har klikket på beregn skal resultatet komme frem i et edit-felt allernederst

Når du skal opløfte i potens skal du bruge Sqr, jeg har klippet lidt ind fra hjælpen nedenunder.

Giv mig lige 5. min så skal du få formlen i delphi

function Sqr(X: Extended): Extended;
function Sqr(X: Integer): Integer;

Description

The Sqr function returns the square of the argument.

X is a floating-point expression. The result, of the same type as X, is the square of X, or X*X.

hmm prøv lige at skrive et eksempel med formlen.
ps i anden på en computer ser sådan ud: ^2

Dennis

Tror ikke du får nogen svar når du lige har oprettet din profil i dag.. og så smider alle points i et spørgsmål. Det er imod ånden og ideen med www.eksperten.dk

Eller lig din mail adr, så sender jeg lige det færdige projekt til dig

Du kunne prøve denne parser: http://www.bitsoft.com/freestuff/delphi/parser.htm

Ellers kan du også prøve at kigge lidt på http://www.torry.net/calculators.htm og se om du kan bruge noget der.

Snowball

morten_s  -> Det skal han da kun hvis han skal have kvadarat roden af et tal, og så vidt jeg kan se prøver han ikke på det nogle steder :|

er det ikke bare

output.text := inttostr(((1+ strtoint(r.text))**strtoint(t.text)*strtoint(r.text)) div ((1+strtoint(r))**strtoint(t.text)-1) * strtoint(h.text));

Sorry den heder Power

function Power(const Base, Exponent: Extended): Extended;

Description

Power raises Base to any power. For fractional exponents or exponents greater than MaxInt, Base must be greater than 0.

nej, du kan ikke bare sige til delphi at den skal sætte at tal i anden.

dennishoyer@ofir.dk

Øjeblik, den er på vej

mange tak

du skal også sende koden med så jeg lige kan se hvordan ud har gjort

koden kommer også, jeg sender nu

tak

morten_s > Smid koden her ind også.

300 point plejer at få mig til at tænke noget...
Hvis koden ikke bliver smidt herind tror jeg vi har en sag..!

især pga. dette: http://www.eksperten.dk/bruger.phtml?navn=nbpuniq&i1=0&i2=0&i3=0&i4=0&i5=0&i6=0&i7=0&i8=1&i9=0&i11=0&i12=0&i13=0

rolig rolig

procedure TForm1.Button1Click(Sender: TObject);
var
  r, t, h : Integer;
  res : double;
begin
  r := StrToInt(Editr.Text);
  t := StrToInt(Editt.Text);
  h := StrToInt(Edith.Text);
  res := (power((1+r),(t*r))/power((1+r),(t-r)))*h;
  Edit1.text := FloatToText(res);
end;


koden er her, jeg mangler bare at få res oversat til en textstreng, nogen som kan hjælpe med dette ?

Hvis der er snyd med i dette spg. ja så er jeg ikke med

Nu er jeg mere rolig :o)
300 point lugter bare langt væk, synes jeg :o)

Snyd??

nej nej - jeg ville bare være sikker på at få et ordentligt svar så derfor gav jeg så mange point :)

Som sagt har du formlen ovenfor, mangler bare at få res oversat til text.

morten_s - når jeg trykker F9 kommer den frem med kodeoversigten hvor linien

res := (power((1+r),(t*r))/power((1+r),(t-r)))*h;

er markeret med rødt og cursoren står lige efter power

du skal angive math under uses

er der ingen som har en ide til hvordan res oversættes til editres.text ?

nbpunig> res skal være at typen real

jeg tror du har misforstået formlen....

((1+r)^t *r)

(1+r) i \"t-ende\" gange r

hvor angiver man math

res bliver da bare recreated hvis delphi ikke lige kan se den.

under uses øverst oppe min ser sådan her ud:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

jeg går ud fra at du vil opløfte 1+r i t*r

Hva for et tal har du i t-ende??

når jeg trykker på F9 efter at have angivet math og har ændret res til real er linien stadig markeret med rødt, men nu står markøren efter

:=

nej - jeg vil opløfte 1+r i t og bagefter gange det med r

okey, så skal der lige koorigere, øjeblik

Hvis ingen får det til at virke. Kommer jeg snart hjem igen pg så laver jeg lige noget kode tile dig.

res := ((power((1+r),t)*r)/power((1+r),(t-r)))*h;

så må del være sådan her

som sagt mangler jeg kun at få oversat res til text, det kan være dkn har en ide til det ?

okey - når jeg compiler nu er linien

Edity.text := FloatToText(res);

markeret med rødt og markøren står imellem (res) og ;

altså det du rettede skal selvfølgelig også rettes på den del der skal divideres - har du gjort det??

nej jeg troede ikke at du ville trække t fra der
så får vi
res := ((power((1+r),t)*r)/(power((1+r),t)-r))*h;

Nej det skal være et 1 tal

res := ((power((1+r),t)*r)/(power((1+r),t)-1))*h;

hvorfor kan jeg ikke compile ???

Fordi vi mangler en funtion til at oversætte et real til text, arbejder på sagen

ok

Jeg kan ikke finde en funktion som kan oversætte real til tekst (sorry)

så jeg tror du bliver nødt til at oprette et nyt spg. med følgende tekst:

Oversætte real til tekst


jeg har en real som jeg ønsker vist i et edit felt, hvordan gøres det ?

Du kan jo bare overfører nogle af pointene herfra til det nye spg

morten_s > nu kom jeg til at acceptere dit svar :)

kan du ikke oprette et nyt spg??? - jeg har ikke flere points

Jo øjeblik, jeg var lige over og handle

spg. er oprettet

Det viste sig at være Float ToStr ;-(( synes ellers at den var afprøvet,
nå men anyway her har du den totale kode:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Editr: TEdit;
    Button1: TButton;
    Editt: TEdit;
    Edith: TEdit;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  r, t, h : Integer;
  res : real;
  res1, res2 : extended;
  db1, db2 : double;
begin
  r := StrToInt(Editr.Text);
  t := StrToInt(Editt.Text);
  h := StrToInt(Edith.Text);
  res := ((power((1+r),t)*r)/(power((1+r),t)-1))*h;
  Edit1.Text := FloatToStr(Res);
end;

end.

mange tak for hjælpen - jeg har bare et spørgsmål til, og selvom du har fået pointene håber jeg du vil svare...

jeg har oprettet en MainMenu med Afslut og Ny - når man klikker på Ny skulle den gerne slette alt der står i de fire edit-felter - hvordan gør man det??

du gør bare sådan her:



edit1.text := \'\';
edit2.text := \'\';

ok - tak

Hvis du har flere så bare skriv dem her

jeg har lige en mere - værdien \"r\" skal kunne indeholde kommatal - fx. 1,5

kan du hjælpe mig med det

Prøv dette :

procedure TForm1.Button1Click(Sender: TObject);
var
  r, t, h : Real; //  <-RETTELSE
  res : real;
  res1, res2 : extended;
  db1, db2 : double;
begin
  r := StrToFloat(Editr.Text); //  <-RETTELSE
  t := StrToFloat(Editt.Text); //  <-RETTELSE
  h := StrToFloat(Edith.Text); //  <-RETTELSE

res := ((power((1+r),t)*r)/(power((1+r),t)-1))*h;
  Edit1.Text := FloatToStr(Res);


end;