Delphi - Potrebna resenja zadataka!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Pozdrav, imam dole u prikacenom fajlu par zadataka iz Delphi-ja i potrebna su mi resenja. Zadaci su osnovni i interesantni. Zahvaljujem unapred na odgovorima. Pozdrav!
mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 15 Feb 2012 22:14

Mislim da bih mogao da ti pomognem za neke od zadataka pa ako hoces.

Dopuna: 16 Feb 2012 10:41

Za prvougaonik
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close; {Ova linija koda zatvara form1 koji je glavni pa samim tim gasi aplikaciju}
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b:real; {Dodelimo dve promenljive tipa real za dve edit komponente}
begin
a := strtofloat(Edit1.Text); {Ovde kazemo da a = edit1 a da je b = edit2}
b := strtofloat(Edit2.Text);
if (a>-1) and (b>-1) then begin
if radiobutton1.checked then {Grananje ovde kazemo ako je radiobutton1 cekiran onda da racuna povrsinu}
edit3.Text := floattostr(a*b)
else {ako nije onda je radiobutton2 cekiran i racuna obim.}
edit3.Text := floattostr(a*2+2*b);
end;
end; {Valjda znas formule za obim i povrsinu, i veoma je bitno da za radiobutton1 vrednost osbine checked
stavis na true u object inspector-u i za edit3 gde ti je vredbost enabled false da ne bi mogao
da unosis brojeve ili tekst.}
end.

Dopuna: 16 Feb 2012 10:43

Za vrednost robe
procedure TForm1.Button1Click(Sender: TObject);
var a,b :Real; {Dodelimo 2 promenljive za dve edit kontrole}
begin
a := strtofloat(Edit1.Text); {Kazemo da koja promenljiva je za koju komponenetu}
b := strtofloat(Edit2.Text);
if (a>-1) and (b>-2)then begin {Vrednosti nemogu biti negativne}
if radiobutton1.Checked then {Grananje ako je radiobutton1 cekiran pocni da racunas sa popustom}
label3.Caption := 'Vrednost robe: '+floattostr(a*b-(a*b*20/100)) {Ovo je malo naprednija tehnika nego da stavljas edit komponentu}
else
label3.Caption := 'Vrednost robe: '+floattostr(a*b+(a*b*20/100));
end; // Prvo smo za label komponentu stavili osobinu caption na vrednost robe
end; // ali ovo je da nam pise vrednost robe i rezultat u istoj label komponenti
// Nadam se da nemoram da objasnjavam matematiku u oba slucaja imamo osnovicu od koje
//ili dodajemo ili oduimamo 20% od nje
end.

Dopuna: 16 Feb 2012 10:46

Za " Elektro Morava"
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:real;
begin
a := strtofloat(edit1.Text);
b := strtofloat(edit2.Text); {Dodeljujemo vrednosti promeljviama za odgovarajuce edit-e}
d := strtofloat(edit4.Text);
c:= b-a; // Racun za utrosenu energiju.
edit3.Text:=floattostr (c);
if checkbox1.checked = true then begin {Ako je vrednost checkbox-a true onda da pocneda racuna i onih 300din}
if (a>-1) and (b>-1) and (b>a) or (b=a) and (d>-1) then //Ova linija koda osigurava da nrmozemo da unesemo negativne vrednosti
edit5.Text := floattostr(d*c+300) //i da nemoze da bude novo stanje brojila bude manje od starog
end;
if checkbox1.checked = false then begin //Isto kao i gore samo bez 300din (Pljackasi naroda)
if (a>-1) and (b>-1) and (b>a) or (b=a) and (d>-1) then
Edit5.Text := floattostr(d*c);

end;

end;
end.

Dopuna: 16 Feb 2012 11:06

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,Obim:real;
begin
a := strtofloat(edit1.text);
b := strtofloat(edit2.text);
c := strtofloat(edit3.text);
Obim := a+b+c;
if (a>-1) and (b>-1) and (c>-1) and (a<Obim/2) and (b<Obim/2) and (c<Obim/2) then
Edit4.Text := floattostr(sqrt (Obim/2*((Obim/2-a)*(Obim/2-b)*(Obim/2-c))));

end;

end.

Dopuna: 16 Feb 2012 11:09

Sve ovo je mozda moglo lakse ili prostije da se uradi ali mrzelo me da razmisljam. Ako hoce za edit komponent ili bilo koju drugu da onesposobis unos ides na Obejct inspector i na vrednost enbled stavis false;
I druge zaadatke znam da resim ali me mrzi :-); Zadatak sa trouglom koristi heronov obrazac potrazi na internetu.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Iskoristi Wolframalpha pretraživač.Već u osnovnoj verziji,koja se ne plaća, daje vrlo egzaktne i iscrpne odgovore.
Usput,ovaj pretraživač sam otkrio tek pre par dana,pa mislim da bi koristilo kada bi neko sa više iskustva opisao Wolframalpha.
Pozdrav

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Evo fajlova
https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako se pravi web pretrazivac u naj novijem delfiju ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

U suštini, samo na formu postaviš TWebBrowser komponentu i skoro da si završio Dodaš na vrhu forme jedan TEdit u kojem ćeš pisati url i jedno dugme koje će pozvati metod Navigate TWebBrowser objekta koristeći tekst unešen u TEdit objektu... i eto, imaš mali web browser

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

To sto je srki_82 rekaao je najlakse samo postavis jednu webrowser kontrolu koja se nalazi u internet kontrolama postavis jednu button i jednu edit kontrolu kliknes dva put na button kontrolu i kucas kod
webbrowser1.navigate (edit1.text);

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala vam za pomoc

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 29 Jun 2012 11:21

pomozite ljudi početnik sam teški uradi sam aplikaciju jednostavnu sa tri Tedit i par Tlabel ta aplikacija znači množi dva broja i kad stisneš dugme daje u labelu rezultat,to sam uradio kako treba,prestavljami problem što hoču to da isprintam,da napišem kod dami isprinta čitavu formu ne samo klijent oblast nego čitavu formu komplet,sad molim dami objasnite napišetemi kod za printanje stavio sam print dialog na formu unijo unit print na uses listu ali nemogu nikako da napišem kod dami isprinta kako treba izbacujemi prazan list znači trebami komplet forma dase vidi kad isprintam pomagajte ljudi molim vas pet dana lupam glavom nikako da dokučim unapred zahvaljujem

Dopuna: 29 Jun 2012 18:44

još jednom molim ljudi za pomoč u vezi koda za pokretanje štampača da odštampa čitavu formu ,bilo ko samo dami započne kod mislim da ču ostatak ukapirati molim vas hitnomi je.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nisam siguran da li moze sa print dialogom da se stampa cela forma. Sto prosto ne uradis print screen i neiseces u paint-u sliku forme i odstampas je?