Delphi - Potrebna resenja zadataka!

3

Delphi - Potrebna resenja zadataka!

offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 22 Jul 2012 10:23

e probaču danas da uradim ukapiro sam,nešto znači ostače ko konzola još date piotam izvini što dosađujem tek napredujem,a zajebano je sam kroz knjige učiti vako kad mi neko pokaže primjer vrijedi više nego cijela knjiga od hiljadu stranica kako sad da ovo uradim sa edit kontrolama i labelama

Dopuna: 22 Jul 2012 10:38

još samo da pitam ovo dali sad ja mogu ovu konzolu kad je uradim dami bude dio aplikacije u sastavu glavnog programa kojeg radim jermi je samo to ostalo da uradi i onda mogu predati na pokus u banku davide kako radi program.i dati se zahvalim na pomoči da nepomisliš dasam nezahvalan ija drugim pomgnem ono što znam samo mnogi neče,hvala prijatelju puno na pomoči i objašnjavanju,učim jebiga tek sam počo,gdje zakočim pitam,



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Napisano: 22 Jul 2012 11:09



Ovako bi mogao da ti izgleda user interface mislim da je dovoljno user friendly ali ti prosudi.
Za dugme izadji stavi kod Close; trebalo bi da zatvori ceo program.

Za dugme izbrisi stavi npr Edit1.text:=''; Poenta je samo stavi da bude prazan tekst.
Moja ideja je za one labele dole da stavis za to brisanje ovako label3.caption:='100 KM';
Zasto tako ? ako se pitas razlog je samo u ovome Label3.caption :='100 KM ' + a; gde nam je a neka promenljiva gde smo smestili koliko nam se stotih delova nalazi u ostaku.

Ceo kod bi trebalo da kucas u dugmetu Izracunaj ostatak. Ako bude problema pitaj.

Dopuna: 22 Jul 2012 11:10

Isto je sve osim ong dela sa system("PAUSE"); i EXIT; isto koristis petlje i to je to.

Dopuna: 22 Jul 2012 11:13

I jos ideja kad je ostatak nula mogo bi da stavis da ti EDIT kontrole izbace ostatak je nula velikim crvenim slovima ili na neki drugi nacin da resis to.



offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 24 Jul 2012 22:59

pogledo sam i uradio sam negdje sam pogrešio uradio sam tačno kako simi napiso možda nisam svatio ovo kod labela meni izbacuje greško internal greška 105 tako nešto ništa mi nepiše dali labele trebam pisati kroz kod ili da samo napišem u caption osobini naprimjer 100 km ,ako me razumeš malo mi objasni kako si ti uradio labele umene neče da radi izbacuje grešku pa kad stigneš javimi šta da uradim

Dopuna: 24 Jul 2012 23:07

i slobodno zanemari ovo pause to nije neophodno izbacuje greško nešto nisam uradio kako treba

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Pa zapocetak 100KM napises u object inspektoru i tako za svaku labelu. e sad kad dobijes koliko ima
stotica u ostaku napises ovako Label1.Caption := '100 KM '+a; e to uradis da bi ti ostalo 100KM i da bi pored njih imao koliko se sadrzi stotina u ostatku. E kad hoces da obrises i da ope racunas samo napises Label1.Caption := '100 KM'; Mr. Green Poprilicno prosto.

Ni netreba pause ovo je EVENT DRIVEN programiranje. Mislio sam da ti kazem da netreba da stavljas to ali se nismo razumeli

P.S. Ako hoces mogu da ti uradim taj program nikakav problem. Ima samo jedan problem sje*ao sam Delphi i mogu ga dobiti tek do kraja nedelje. Ali imam Lazarus ima istu sintaksu kao delphi sve je isto .

Ovako izgleda ->

offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 25 Jul 2012 7:22

izgleda dasam glup nesvatam pa me ubij de ako ti nije teško uradi pa mi po slikama objasni isti je ko delphi ,što sebi neskineš sa pirat bay rad studio jaga koristim bez ikakvih problema,uradio sam isto neznam ako imaš vremena izgleda dami trebaš nacratati glupi bosanac pa teže ide

Dopuna: 25 Jul 2012 7:56

ako hočeš neznam koliko ti je brz internet dati dam ovaj rad studio radi ko sat abdeti sve radi sanjim ja radim

Dopuna: 25 Jul 2012 8:03

ovako izgleda moj rad studio najboljebi bilo pošto to mene neide još kako treba,dobro tek sam počo šta učim mjesec dana,pa dami ovako objasniš u slikama ,i javi ako hočeš ovaj studio ili dati dam samo aktivatore za rad studio


Dopuna: 25 Jul 2012 8:07

videčeš to je u ovoj slici kompletan program koji ja radim tu bi se trebo i ovaj program što mi ti radiš nalaziti kao dio ovog programa što je na slici zanemari ljevo dugmadi ovo 100,200 itd to sam ja pokušavo da uradim na svoj način ali nije to to pa ču to izbrisati i tu bi se otprilike negdje ili ispod trebo nalaziti taj program što mi ti radiš nadam se dasam ti objasnio kako treba šta mi treba

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Napisano: 25 Jul 2012 15:12



unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type   { TForm1 }   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label10: TLabel;     Label11: TLabel;     Label12: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label7: TLabel;     Label8: TLabel;     Label9: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { private declarations }   public     { public declarations }   end; var   Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var     a,b,c : double;     x:integer; begin   x:=0;   a := strtofloat(Edit1.Text);   b := strtofloat(Edit2.Text);   c := b-a;   if c=0 then   begin     Edit1.Text := 'Ostatak je nula !!!';     Edit2.Text := 'Ostatak je nula !!!';   end;   if c>0 then   begin     while c>=200 do     begin       c:=c-200;       x:=x+1;     end;     Label3.Caption := '200 KM = '+ floattostr(x);     x:=0;     while c>=100 do     begin       c:=c-100;       x:=x+1;     end;     Label4.Caption := '100 KM = '+ floattostr(x);     x:=0;     while c>=50 do     begin       c:=c-50;       x:=x+1;     end;     Label5.Caption := '50 KM = '+ floattostr(x);     x:=0;     while c>=20 do     begin       c:=c-20;       x:=x+1;     end;     Label6.caption := '20 KM = '+ floattostr(x);     x:=0;     while c>=10 do     begin       c:=c-10;       x:=x+1;     end;     Label7.Caption := '10 KM = '+ floattostr(x);     x:=0;     while c>=5 do     begin       c:=c-5;       x:=x+1;     end;     Label8.Caption := '5 KM = '+ floattostr(x);     x:=0;     while c>=2 do     begin       c:=c-2;       x:=x+1;     end;     Label9.Caption := '2 KM ='+ floattostr(x);     x:=0;     while c>=1 do     begin       c:=c-1;       x:=x+1;     end;     Label10.Caption := '1 KM ='+ floattostr(x);     x:=0;     while c>=0.50 do     begin       c:=c-0.50;       x:=x+1;     end;     Label11.Caption := '0.50 KM ='+ floattostr(x);     x:=0;     while c>=0.20 do     begin       c:=c-0.20;       x:=x+1;     end;     Label12.caption := '0.20 KM ='+ floattostr(x);   end   else   begin     Edit1.Text := 'Pazar nemoze biti veci od pologa!!!';     Edit2.Text := 'Pazar nemoze biti veci od pologa!!!';   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   Edit1.Text :='';   Edit2.Text :='';   Label3.Caption := '200 KM =0';   Label4.Caption := '100 KM =0';   Label5.Caption := '50 KM =0';   Label6.caption := '20 KM =0';   Label7.Caption := '10 KM =0';   Label8.Caption := '5 KM =0';   Label9.Caption := '2 KM =0';   Label10.Caption := '1 KM =0';   Label11.Caption := '0.50 KM =0';   Label12.Caption := '0.20 KM =0'; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.                         

Dopuna: 25 Jul 2012 15:23

Prvo napravi USER INTERFACE u onom delu gde si reko da ces da obrises onu dugmade levo.
Onda klikni na dugme Izracunaj ostatak i kucaj kod od
procedure TForm1.Button1Click(Sender: TObject); do poslednjeg end; u prvoj celini.
Onda klikni na dugme obrisi rezultate i kucaj kod od njegoce procedure do poslednjeg end u tom delu.
Itrbalo bi da radi.'

Ova poslednja procedura crateform netreba da kucas. Ja sam koristio genericka imena objekata prilagodih kako tebi odgovaraju to isto vazi i za promenljive.

Mozda sam trebao da ti kazem da moras promenljivu da konvertujes u string prenego sto je stavis Label1.caption ali sam mislio da znas da treba to da uradis.

Funkcije za konvertovanje su -->
strtofloat (string to floating point) - prebacuje string u realan tip (double,real,short,currency itd.)
floattostr (floating point to string)- prebacuje realan tip u string
inttostr (integer to string)- prebacuje integer tip u string
strtoint (string to integer)- prebacuje string u integer

Nadam se da si shvatio Mr. Green

offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 25 Jul 2012 18:48

radi napravio sam,nisam bio poredo u kodu labele kako treba dobro sam bio konvertovo samo nisam poredo kako treba u kodu sad je sve ok puno hvala

Dopuna: 27 Jul 2012 8:07

dete zamolim još nešto demi još reci kako da uradimovo,save i save as kod mislim da bide ona forma komplet ko onda ako se sečaš kad sam te pito za print da sačuvam komplet formu sa upisanim brojkama ako budeš imo vremena da mi objasniš učim boljemi je pitati nego da gubim vreme

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

Mislis kako da sacuvas Form1.Print; <-- Pa trebalo bi da ti automatski izbaci save idalog

offline
  • Pridružio: 29 Jun 2012
  • Poruke: 23

Napisano: 27 Jul 2012 12:39

da u tom stilu samo dato uradim iz menija edit save save as razumeš kod za save as

Dopuna: 27 Jul 2012 12:47

kao na ovoj slici samo ovaj moj program trebobi to naučiti to je osnova file open,file save znam otprilike kod za memo komponentu ali neznam ove za edit komponente i labele za ovaj moj program što smo napravili najbolje kad bi mogo snimiti cijelu formu ko u printu samo da to mogu uraditi iz file save file save as file open te komande valjda sam ti uspijo objasniti

offline
  • Na odmoru xD
  • Na odmoru xD
  • Pridružio: 15 Feb 2012
  • Poruke: 430

A ti stavi u meniju stavku save i kucaj u njoj kod form1.print; Laughing
if savedialog1.execute then
savedialog1.open;
mozda tako nesta pa onda sa osobinom filename.
Mislim razila izmedju ta dva save i save as je u tome sto kod save vec imamo fajl koji je otvoren pa se direkyno kod njega cuva pa stavi da cuvo savedialog sa njegovim filename-om
A za druo ne znam iz googlaj verovatno da ima imas dosta tutoriala na www.youtube.com pa pogledaj. Imaju na youtube-u dobri tutoriali na ruskom a i na engleskom kazes da ucis pa ce ti biti mnogo korisnije da pokusas sam da shvatis nego da ti ovde sve bude nacrtano na papiru. Wink

Ko je trenutno na forumu
 

Ukupno su 1246 korisnika na forumu :: 44 registrovanih, 5 sakrivenih i 1197 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, AK - 230, AMCXXL, babaroga, BORUTUS, darcaud, dragoljub11987, Duh sa sekirom, Dvojac005, Excalibur13, FOX, GenZee, Georgius, hooraay, ILGromovnik, Istman, krkalon, Kruger, Krusarac, Krvava Devetka, ladro, lord sir giga, Lubica, manda87, Marko Marković, mercedesamg, naki011, nemkea71, NoOneEver Dreams, opt1, pera bager, samsung, Sančo, sombrero, theNedjeljko, tubular, vasa.93, virked, VJ, Vlad000, voja64, VP6919, vukovi, zdrebac