Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi izračunavanje kg. cm.

[es] :: Pascal / Delphi / Kylix :: Delphi izračunavanje kg. cm.

[ Pregleda: 3286 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Delphi izračunavanje kg. cm.11.10.2014. u 08:43 - pre 115 meseci
Pozz...

Treba mi na poslu da napravim aplikaciju za izračunavanje utroška papirnih rolni.
Tako da u tri Edita se unose vrednost u (kg.) i (cm.)
U prvom se unosi težina rolne npr. 800 kg.
U drugom editu se unosi poluprečnik rolne u centimetrima npr. 60 cm.
Kada se utroši neka količina od te rolne treba je ponovo izmeriti poluprečnik i on bude npr. 30 cm.
Taj izmereni poluprečnik ostatka te rolne treba uneti u trećem Editu tako da pritiskom na dugme dobijem ukupnu kilažu tog ostatka u četvrtom Editu.
1.Težina rolne
2.Poluprečnik rolne
3.Poluprečnik ostatka rolne
4.Dobiti ukupnu vrednost u kilogramima.
Ako može neka pomoć ili primer kako se to može izračunati.
Bune me ovi centimetri kako sa njima da dobijem kilažu.
Boban
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 09:04 - pre 115 meseci
Ako je puna rolna (nema rupu u sredini kao toalet papir) onda može ovako: m2 = m1*(r2^2 /r1^2)
Ako ima rupu u sredini, onda ti treba i taj poluprečnik da bi izračunao.
 
Odgovor na temu

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 09:15 - pre 115 meseci
Hvala na brzom odgovoru.
Ima rupu na sredini kroz koju prolazi šipka tako da se treba meriti samo do šipke.
Boban
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 09:28 - pre 115 meseci
Ako ima rupu na sredini onda može na primer ovako:
Code:

rs = poluprečnik šipke

d1 = početna debljina do šipke
m1 = početna masa

d2 = trenutna debljina do šipke
m2 = trenutna masa

m2 = m1 * ((d2 + rs)^2 - rs^2) / ((d1 + rs)^2 - rs^2)


I da, ako se mere debljine kako si rekao, onda se to ne zove poluprečnik već debljina.

Ako baš unosiš poluprečnike onda je varijanta ovo:
Code:

rs = poluprečnik šipke

r1 = početni poluprečnik
m1 = početna masa

r2 = trenutni poluprečnik
m2 = trenutna masa

m2 = m1 * (r2^2 - rs^2) / (r1^2 - rs^2)


Uglavnom, proračun mase se svodi na proporciju zapremine.
Pošto je širina rolne uvek ista i ne menja se (konstanta), dovoljno je gledati proporciju površine papira na profilu rolne.

[Ovu poruku je menjao dusans dana 11.10.2014. u 10:40 GMT+1]
 
Odgovor na temu

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 09:39 - pre 115 meseci
Ne mora to biti baš 100 % tačno ako se ne uklapa za 10 kg. na rolni od 800 kg. ili 1000kg. nije problem.
A kako primeniti ovo u edit poljima.
Boban
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 09:50 - pre 115 meseci
Račun je tačan onoliko koliko je uniformna gustina namotanog papira i koliko je precizno izmerena debljina.

Kada klikneš na dugme, računaš četvrti edit na osnovu jedne varijante formule za m2 (zavisno od toga da li unosiš poluprečnike ili unosiš debljine).
Kod je trivijalan, ja sam u Delphiju radio pre 15 godina, tako da sintaksu ne znam a i mrzi me da je jurim.
 
Odgovor na temu

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 10:00 - pre 115 meseci
Zna li neko kako primeniti ovo m2 = m1 * (r2^2 - rs^2) / (r1^2 - rs^2) u delphiju unošenjem vrednosti u editima.

Ili kako mogu drugačije izračunati ovo u delphiju:

Treba mi na poslu da napravim aplikaciju za izračunavanje utroška papirnih rolni.
Tako da u tri Edita se unosi vrednost u (kg.) i (cm.)
U prvom se unosi težina rolne npr. 800 kg.
U drugom editu se unosi poluprečnik rolne u centimetrima npr. 60 cm.
Kada se utroši neka količina od te rolne treba je ponovo izmeriti poluprečnik i on bude npr. 30 cm.
Taj izmereni poluprečnik ostatka te rolne treba uneti u trećem Editu tako da pritiskom na dugme dobijem ukupnu kilažu tog ostatka u četvrtom Editu.
1.Težina rolne
2.Poluprečnik rolne
3.Poluprečnik ostatka rolne
4.Dobiti ukupnu vrednost u kilogramima.
Ako može neka pomoć ili primer kako se to može izračunati.


[Ovu poruku je menjao bobans72 dana 11.10.2014. u 13:00 GMT+1]
Boban
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 13:41 - pre 115 meseci
> Zna li neko kako primeniti ovo m2 = m1 * (r2^2 - rs^2) / (r1^2 - rs^2) u delphiju unošenjem vrednosti u editima.

Pretpostavljam da it je problem r2^2, ekvivalent u Delphiju je IntPower ili Power iz Math unita.
Kod otprilike ovako izgleda.

Code:

var
  m2, m1, r1, r2, rs: Integer;
begin
  m1 := IntToStr(edtM1.Text);
  rs := IntToStr(edtRS.Text);
  ... // Ostale dodele

  m2 := m1 * (IntPower(r2, 2) - IntPower(rs, 2) / (IntPower(r1, 2) - IntPower(rs, 2));
end;

 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 14:45 - pre 115 meseci
Code:

a^2 = a*a
 
Odgovor na temu

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Re: Delphi izračunavanje kg. cm.11.10.2014. u 15:34 - pre 115 meseci
Neće tačno izračunavati.

Code:

procedure TForm1.Button1Click(Sender: TObject);
 var
rs, m2, m1, r1, r2: Real;
begin
  m1 := StrToInt(Edit1.Text);
  r1 := StrToInt(Edit2.Text);
  r2 := StrToInt(Edit3.Text);

 m2 := m1 * (IntPower(r2, 2) - IntPower(rs, 2) / (IntPower(r1, 2) - IntPower(rs, 2)));
 //m2 := m1 * (IntPower(d2 + rs,2) - IntPower(rs,2) / (IntPower(d1 + rs,2) - IntPower(rs,2)));

 Edit4.Text:=FloatToStr(m2);

end;


[Ovu poruku je menjao bobans72 dana 11.10.2014. u 19:11 GMT+1]
Boban
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delphi izračunavanje kg. cm.12.10.2014. u 00:29 - pre 115 meseci
rs vrednost ti je ostala nepopunjena.
 
Odgovor na temu

bobans72

Član broj: 314360
Poruke: 117



Profil

icon Re: Delphi izračunavanje kg. cm.12.10.2014. u 12:00 - pre 115 meseci
Da taj (rs) me i buni što ne znam da li to treba da mi bude neka nepromenljiva vrednost i koja bih to bila ili to moram da postavim na formi još jedan edit za unos.
Pokušao sam izbaciti taj (rs) jer mi on nije ni potreban za unos vrednosti ali kako vidim zbog toga i neće izračunavati tačno.
Meni nije baš potrebno da to izračunava tačno 100% ako se ne slažu 5 i 10 kg. nije problem nego bez ovog najverovatnije (rs-a) neće izračunavati tačno.

Pa sad pitanje šta bih trebao napisati za ovaj (rs) da bih bio i on u funkciji ?

Boban
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.dynamic.sbb.rs.



+311 Profil

icon Re: Delphi izračunavanje kg. cm.12.10.2014. u 16:31 - pre 115 meseci
Code:

rs = poluprečnik šipke


Gore je 2 puta napisano šta je rs, ja sad ne znam da li ne čitaš ili šta je u pitanju
i da tu treba neko posebno pojašnjenje oko toga.
I da, to je u tvom slučaju konstantna vrednost, ako je poluprečnik šipke (na koju se stavlja rolna) npr. 5cm onda stavi rs := 5;
Ovo je na kraju kod (pošto si i ispromašivao zagrade, pa da ne bude opet problem):

Code:

procedure TForm1.Button1Click(Sender: TObject);
 var
rs, m2, m1, r1, r2: Real;
begin
  rs := 5;
  m1 := StrToInt(Edit1.Text);
  r1 := StrToInt(Edit2.Text);
  r2 := StrToInt(Edit3.Text);

 m2 := m1 * (r2*r2 - rs*rs) / (r1*r1 - rs*rs);

 Edit4.Text:=FloatToStr(m2);

end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi izračunavanje kg. cm.

[ Pregleda: 3286 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.