Delphi - Potrebna resenja zadataka!

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

stvar je utom što sam napravio program za banku jednu gdje editi kontrole sabiraju množe i već šta treba,e onda treba ištapati taj nalog za banku ako ga neuradim kako treba nečemi prihvatiti banka koplikovano je sad da snimaju pa onda da štampaju valjda neko zna kako ,mora postojati kod ja dobijem klijent oblast ali trebami oštapati cijelu formu neznam zadati kako treba kod vjerovatno

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

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 30 Jun 2012 7:36

Ipak postoji form1.Print; To je sve. E sad ja nemam stampac (potrosih mastilo na testpage) da je odstampam pa mi je samo ponudi da sacuvam u pdf formatu. Nadam se da je to to sto ti treba.

Dopuna: 30 Jun 2012 7:38

[Link mogu videti samo ulogovani korisnici]

Dopuna: 30 Jun 2012 7:39

Ovako je meni ispalo.

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

Napisano: 30 Jun 2012 8:18

misliš samo stavim form ta i ta print i ono isprinta probaču

Dopuna: 30 Jun 2012 8:23

svaka čast majstore ja tamo udaro piso kodove mjerio gdje se šta nalazi ovo ono ono samo to,svaka čast,nije đabe pitaj ako neznaš

Dopuna: 30 Jun 2012 8:36

još jednom hvala ako se ikad vidimo piče imaš ,eto vidiš kako jednostavno a ja se ubio pisuči kodove neke tamo,nemam ja još pojma još učiti dve godine najmanje pa se mogu javiti.

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

Drago mi je da sam pomogao.

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

Napisano: 02 Jul 2012 10:47

e opet ja sad mi treba,zamoljavam samo dami objasnite kako se otprilike ukratko prave reursne datoteke,jeli treba neki poseban editor ili mogu to raditi sa borlandom,naprimjer kako da napravim help fajl da objasnim kako se upravlja sa mojim programom ,otprilike znam prevesti nerazumem kako se pravi taj tekstualni dio prevesti i to ,nadam se da nisam previše dosadan ipak bi volio da moj prvi program ima sve ko i pravo program znači da ima help fajl i ostalo što ide uz program

Dopuna: 03 Jul 2012 13:39

znali ko koji je program dobar za rad sa resursnim datotekam robo help ili nešto tako

Dopuna: 21 Jul 2012 19:44

molio bi dami neko samo započne ovaj zadatak u delphiju ovo je rađeno u c++ samo početak jaču ostalo

float a;
float b;
float c;
int x;
x=0;
cout << "Unesite pazar"<<endl;
cin >> a;
cout<<"Unesite polog"<<endl;
cin >> b;
c=b-a;
if(c==0)
{
cout<< "Nema ostatka."<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}
cout<<"Ostatak je "<<c<<" KM."<<endl;
for(c;c>=100;c=c-100)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 100,00 KM"<<endl;
}
x=0;
for(c;c>=50;c=c-50)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 50,00 KM"<<endl;
}
x=0;
for(c;c>=20;c=c-20)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 20,00 KM"<<endl;
}
x=0;
for(c;c>=10;c=c-10)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 10,00 KM"<<endl;
}
x=0;
for(c;c>=5;c=c-5)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 5,00 KM"<<endl;
}
x=0;
for(c;c>=2;c=c-2)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 2,00 KM"<<endl;
}
x=0;
for(c;c>=1;c=c-1)
{
x=x+1;
}
if (x>0)
{
cout << x << " x 1,00 KM"<<endl;
}
x=0;
c=c*100;
for(c;c>=50;c=c-50)
{
x=x+1;
}
if (x>0)

{
cout << x << " x 0,50 KM"<<endl;
}
x=0;
for(c;c>=20;c=c-20)
{
x=x+1;
}
if (x>0)

{
cout << x << " x 0,20 KM"<<endl;
}

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

Mislis da prevedem na paskal? Predpostavljam da je ovo knzolni program u c++ i da takav treba da ostane i u delphi-ju? I mogo bi da malo iskomentarises kod da bih zna sta cemu sluzi i onda cu moci mozda da pomognem .

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

EVO STARI MENI TREBA U DELPHIJU,OVAJ PROGRAM KOLIKO SAM SVATIO RADI U DOSU,NEMA FORME SAMO DAJE REZULTAT,MENI TREBA ISTO TAKO U DELPHIJUU SAMO ME ZAJEBAVA JA IMAM EDIT TEXT KOMPONENTE BIČE UKUPNO 7 EDIT KOMPONENATA I 7 LABELA I VJEROVATNO 7 DUGMADI BUTONA RADI SE O NOVCU ZNA ČI PAPIRNI NOVAC 200KM 100KM I TAKO DALJE IA UKUPNO 7 I KOVANICE NARAVNO,POKUŠAČU OBJASNITI SAD JA IMAM PAZAR NAPRIMJER 175KM JA DAM U BANKU 200 SAD ODUZMEM OD OVIH 200 175 TO JE 25KM TO JE OSTATAK SAD OVAJ KOD IZ C++ RADI SLEDEČE OVAJ OSTATA NPR MENI JE VRAČENO 2X 10KM TO JE 20KM 5 MIJE VRAČENO 1 KM NPR SAD TAJ PROGRAM IZRAČUNAVA TO I ISPISUJE AUTOMATSKI 2X10KM,5X 1 KM VALJDA SAM USPIJO OBJASNUTI ,UGLAVNOM SAMO DAMI SE PRETVORI TAJ KOD U DELPHIJOV VALJDA ČU SE SNAČI,DA NA PASKAL DELPHI

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

Napisano: 22 Jul 2012 0:12

PROGRAM Project2; {$APPTYPE CONSOLE} VAR    a,b,c:DOUBLE;    x:INTEGER; BEGIN x:=0; WRITELN('Unesite pazar'); READLN(a); WRITELN('Unesite polog'); READLN(b); c:=b-a; {------------------------------------} IF (c=0) THEN BEGIN WRITELN('Nema ostatka.'); READLN;//Zamena za system("PAUSE"); <- smatra se losom praksom pozvati sistem za kocenje porgrama jer trosi dosta resursa EXIT;//Ovo je uvedeno u turbo pascalu ako se nevaram i radi samo za konzolne app END; {------------------------------------} WRITELN('Ostatak je ',c:0:4,'KM.'); WHILE (c>=100) DO BEGIN c:=c-100; x:=x+1 END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 100.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=50) DO BEGIN c:=c-50; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 50.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=20) DO BEGIN c:=c-20; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 20.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=10) DO BEGIN c:=c-10; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 10.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=5) DO BEGIN c:=c-5; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 5.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=2) DO BEGIN c:=c-2; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 2.00 KM'); END; {------------------------------------} x:=0; WHILE (c>=1) DO BEGIN c:=c-1; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 1.00 KM'); END; {------------------------------------} x:=0; c:=c*100; WHILE(c>=50) DO BEGIN c:=c-50; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 0.50 KM'); END; {------------------------------------} x:=0; WHILE (c>=20) DO BEGIN c:=c-20; x:=x+1; END; {------------------------------------} IF (x>0) THEN BEGIN WRITELN(x,'x 0.20 KM'); END; {------------------------------------} READLN; END.

Dopuna: 22 Jul 2012 0:17

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

cini mi se da moze i objektno da se uradi sa labelama i editom bas kako je i trazio. Trenutno nisam za racunarom koji poseduje delphi ili windows uopste pa cim dodjem na njega probacu da uradim ali nista ne obecavam

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

Napisano: 22 Jul 2012 0:23

Tri slike za conzole application.
E sad ako kod tebe budes testirao ostavi da ti tvoj project bude isti onaj koji ti je dao delphi (Program Project2;) je kod mene, a kod tebe ostavi tvoj.
E sad system("PAUSE"); Osim sto zakoci program izbaci i onu poruku tipa Press enter to continue itd da bi to dobio i ovde samo WRITELN sa tim tekstom gore na iznad READLN tamo gde sam komentarisao.
Program sam mogao da sabijem na daleko manje linija ali posoto je prevod bio sa
(C++ -> PASCAL) preveo sam ga da budu ekvivalentni.

Dopuna: 22 Jul 2012 0:26

NIx Car ::cini mi se da moze i objektno da se uradi sa labelama i editom bas kako je i trazio. Trenutno nisam za racunarom koji poseduje delphi ili windows uopste pa cim dodjem na njega probacu da uradim ali nista ne obecavam
Naravno da moze U tome je i car programiranja jedan problem moze da se resi na 1000 nacina