Newsgroup: it.comp.lang.delphi
Titolo: Virgole

Sto creando un nuovo programma ho notato che i valori di calcolo me li 
da sempre esagerati del tipo 102,2356452 a me va bene massimo 102,23 
come posso ottenere questo risultato?
procedure TForm1.Button2Click(Sender: TObject);
var
X,Y,Z:INTEGER;
S:STRING[10];
nDouble: Double;
begin
   canvas.pen.Width := 8;
   canvas.pen.color := clred;
with button2 do
   canvas.RoundRect(left,top,width+left,height+top,20,20);
   nDouble := StrToFloatDef(Volt.text, 0);
   nDouble := ((((nDouble * 1.41) - 0.7) / 1.25) - 1) * 220;
   STR(X,S);
   Label21.Caption := FloatToStr(nDouble);
   VAL(Edit1.text,X,Z);
   nDouble := StrToFloatDef(Volt.text, 0);
   nDouble := (20000 / ((nDouble *  1.41) - 0.7)) / X;
   STR(X,S);
   Label16.Caption := FloatToStr(nDouble);
   VAL(Edit1.text,X,Z);
   nDouble := StrToFloatDef(Volt.text, 0);
   nDouble := ((20000 / ((nDouble *  1.41) - 0.7)) / X) / 10;
   STR(X,S);
   Label14.Caption := FloatToStr(nDouble);
   Label23.Caption := FloatToStr(nDouble);
end;

Camaleonte ha scritto:

ti ricordo per la formattazione del risultato di usare la funzione 
"FloatToStrF" nell'help è spiegato il suo uso.
^_Goblin_^

^_Goblin_^ ha scritto:

  La ho consultata la guida e ho fatto cosi
Label24.Caption := FloatToStr(Single Value)
ma mi da errore. Non arrabbiarti ricorda che sono un ragazzino :)

 ma mi da errore. Non arrabbiarti ricorda che sono un ragazzino :)
che errore da?
Esempio:
Caption := formatfloat('0.000',pi);
ciao

ca75 ha scritto:

Label22.Caption := FloatToStr('0.000',pi);
con quella modifica mi da questo errore
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Camaleonte ha scritto:

"FloatToStrF"

^_Goblin_^ ha scritto:

avevo digitato male il comando adesso non da più errore.
Label24.Caption := Formatfloat ('0.0',pi);
ma in compenso mi da sempre il valore 3,1 perchè (pi) è una pi greca che 
devo mettere al posto della pi? dalla guida in inglese di delphi dice 
poco al riguardo.

 >>> Caption := formatfloat('0.000',pi);
meglio formatCurr piuttosto che formatFloat.


Blowin' free ha scritto:

Considerando che il valore che desidero si docrebbe fermare a 2,2 la 
riga qui sottto come andrebbe modificata?
Label24.Caption := FormatCurr(const Format: string; Value: Currency): 
string; overload;

 devo mettere al posto della pi?
pi (che si usa per i calcoli del cerchio) è 3,1415927.....
lo statemente che avevi adoperatio fa un round per posto dopo la virgola 
quindi 3,1. Tutto esatto quindi.
Se scrivi '0.0000' invece di '0.0' ti darà 3,1416'
Saluti,
Klaus 

 string; overload;
Ascolta, tutti lo stanno pensando ma nessuno lo dice: non hai capito 
*UNA CEPPA* di pascal, e non č continuando a fare copia/incolla a cazzo 
che riuscirai a fare un programma (o meglio, magari ci riuscirai ma non 
prima di aver postato 1000 messaggi)... non fai prima a dire che 
programma ti serve che, giuro, te lo faccio io??? Gratis!
Soffro fisicamente ogni volta che vedo porzioni del tuo codice!
-- 
Jax

Fritz Franz ha scritto:

  scusatemi mi sono spiegato male io questo valore pi cioè 3.14 ecc. non 
lo voglio, confonde solo la formula che sto adoperando scusatemi se mi 
sono spiegato male.

Jax ha scritto:

perchč c'č l'hai con me? io mi diverto a fare da solo queste cose cosi 
non mi faccio divorare dalla depressione.

 non mi faccio divorare dalla depressione.
Sì, ma deprimi gli altri utenti che - prima di usare un'istruzione, una 
procedura, una classe o qualcos'altro - si documentano adeguatamente, o 
almeno ci provano.
Prova a sconfiggere la depressione con un buon manuale o con un minimo 
di impegno, invece che affidarti alla casualità... :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 
guarda che anche se sono meno di un dilettante con delphi ho realizzato 
alcuni semplici programma (Gratis) nel mio sito che saranno utili a chi 
come me ama l'elettronica.

Camaleonte ha scritto:

Ho risolto ecco come ho modificato:
Label23.Caption := FloatToStr(Round(nDouble));
da un esempio avevo capito come fare. Adesso mi da il valore arrotondato 
come volevo io.

 come me ama l'elettronica.
Open source ???
^_Goblin_^

^_Goblin_^ ha scritto:

vorrei mettere un progetto open source ci sono delle regole da 
rispettare come si fa? devo solo dare i sorgenti di delphi?