Delphi - Potrebna resenja zadataka!

2

Delphi - Potrebna resenja zadataka!

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

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



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: 30 Jun 2012 7:36

Ipak postoji Smile 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

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

Dopuna: 30 Jun 2012 7:39

Ovako je meni ispalo.



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

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.

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

Drago mi je da sam pomogao.

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

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;
}

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

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 Mr. Green .

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

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

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

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






offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3896
  • Gde živiš: Novi Sad,Klisa

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

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

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 Smile U tome je i car programiranja jedan problem moze da se resi na 1000 nacina Mr. Green

Ko je trenutno na forumu
 

Ukupno su 729 korisnika na forumu :: 44 registrovanih, 12 sakrivenih i 673 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: 8u47, amaterSRB, aramis s, bankulen, Boris90, Botovac, CheefCoach, cikadeda, crnitrn, David.MyCity, djboj, Dorcolac, Drug pukovnik, elenemste, goxin, HrcAk47, hyla, kovinacc, Lucije Kvint, Marko Marković, milekNS, miljannis, milos.cbr, Mixelotti, nenad81, nikoladim, ostoja, pera12345, Pohovani_00, Profica, repac, riva, rovac, sabros, Srki94, stefke505, Vatreni Zmaj, VJ, vlvl, vrlenija, wolf431, wolverined4, xJeremijAx, Živković