|
Poslao: 22 Jul 2012 10:38
|
offline
- Kenny742
- Novi MyCity građanin
- 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.
|
|
|
Poslao: 22 Jul 2012 11:13
|
offline
- Aleksandr1996
- Ugledni građanin
- 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.
|
|
|
|
|
|
|
Poslao: 24 Jul 2012 23:07
|
offline
- Kenny742
- Novi MyCity građanin
- 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
|
|
|
|
|
|
|
|
|
Poslao: 25 Jul 2012 08:07
|
offline
- Kenny742
- Novi MyCity građanin
- 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
|
|
|
|
|
|
|
Poslao: 25 Jul 2012 15:23
|
offline
- Aleksandr1996
- Ugledni građanin
- 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 
|
|
|
|
|
|
|
Poslao: 27 Jul 2012 08:07
|
offline
- Kenny742
- Novi MyCity građanin
- 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
|
|
|
|
|
|
|
Poslao: 27 Jul 2012 11:32
|
offline
- Aleksandr1996
- Ugledni građanin
- 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
|
|
|
|
|
|
|
Poslao: 27 Jul 2012 12:47
|
offline
- Kenny742
- Novi MyCity građanin
- 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
|
|
|
|
|
|
|
|
