Paskal kodovi

2

Paskal kodovi

offline
  • Miloš
  • Pridružio: 23 Maj 2011
  • Poruke: 1069

E.L.I.T.E. ::
Prvo si pitao dali se mogu koristiti ASCII kodovi, a sad već želiš praviti grafičke programe Very Happy


Zato sto je tema matora,konzolu sam savladao pa sad idem dalje Wink



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Možeš ručno da pišeš Windows aplikacije, ali je to veoma mukotrpan posao. Jedan mali primer (prikazuje poruku i to je sve) izgleda ovako:
program WinTest; uses   Windows; begin   MessageBox(0, 'Hello world!!!', 'Message', 0); end.

Bilo šta komlikovanije od toga, zahteva stotinak linija koda. Ako planiraš da praviš Windows aplikacije, predlažem ti da pogledaš Lazarus. Lazarus je grafičko okruženje koje ti olakšava pravljenje prozora. Uz njega dobijaš i niz gotovih komponenti, pa možeš u roku od par minuta da napraviš klon Notepad-a.



offline
  • Miloš
  • Pridružio: 23 Maj 2011
  • Poruke: 1069

Lazarus sam koristio,ali,ako mi vjerujes,vece mi je zadovoljstvo da kucam rucno Smile
Zahvaljujem ti se za ovaj primjer Smajli ,samo mi treba skripta za ostale komande,tipa pokretanje programa,sabiranje brojeva, input box idt. smešak (imam neki osjecaj da moram drugacije kodove da kucam za graficki program nego za kozolu,pa ti zato trazim skriptu Wink )

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Ne znam baš koliko zadovoljsto će ti biti da pišeš ručno Smile Evo... ovo je primer kreiranja praznog prozora koji ne radi bukvalno ništa, a ti zamisli koliko tek treba da pišeš samo da bi dodao jedno dugme koje samo zatvara prozor Very Happy

program WinTut; uses   Windows, Messages; var   WndClass: TWNDClassEx;   Wnd: HWnd;   Msg: TMsg; function WndProc(Wnd: HWnd; Msg: UINT;   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin   case Msg of     WM_DESTROY:     begin       PostQuitMessage(0);       Result:= 0;     end   else     Result:= DefWindowProc(Wnd, Msg, wParam, lParam);   end; end; begin   WndClass.cbSize := SizeOf(WndClass);   WndClass.style := CS_HREDRAW or CS_VREDRAW;   WndClass.lpfnWndProc := @WndProc;   WndClass.cbClsExtra := 0;   WndClass.cbWndExtra := 0;   WndClass.hInstance := HInstance;   WndClass.hIcon := LoadIcon(0, IDI_APPLICATION);   WndClass.hCursor := LoadCursor(0, IDC_ARROW);   WndClass.hbrBackground := COLOR_BTNFACE + 1;   WndClass.lpszMenuName := nil;   WndClass.lpszClassName := 'MojProzor';   WndClass.hIconSm := 0;   RegisterClassEx(WndClass);   Wnd := CreateWindowEx(     WS_EX_OVERLAPPEDWINDOW,     'MojProzor',     'Prozor bez VCL',     WS_OVERLAPPEDWINDOW,     100, 100, 400, 300,     0,     0,     HInstance,     nil   );   ShowWindow(Wnd, SW_SHOWDEFAULT);   UpdateWindow(Wnd);   while GetMessage(Msg, 0, 0, 0) do     DispatchMessage(Msg);   UnregisterClass('MojProzor',HInstance); end.

offline
  • Miloš
  • Pridružio: 23 Maj 2011
  • Poruke: 1069

Shocked Shocked Shocked Au,Bog te vidio!

Cek,ovo je kao prazan prozor?Pff,mislio sam da je malo prostije Neutral .Nema onda nista bez Lazarusa Smile

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Ako te zanima šta se tu tačno dešava u kodu, imaš ovde lepo objašnjenje tog primera: http://www.mycity.rs/3D-programiranje/DirectX-tutorial-za-Delphi-i-Lazarus.html

offline
  • Miloš
  • Pridružio: 23 Maj 2011
  • Poruke: 1069

Hvala Wink ,naravno da mi je bolje kad shvatim,nego da bubam kod Razz

Ko je trenutno na forumu
 

Ukupno su 417 korisnika na forumu :: 28 registrovanih, 4 sakrivenih i 385 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: 357magnum, _Sale, aramis s, ArmyBoss, babaroga, Buzdovan, Cirkon, glada, goxin, GveX, HrcAk47, Lieutenant, MB120mm, mercedesamg, Mercury, MILO-VAN, Nebo_M, Oscar2, royst33, shone34, sokars, tanakadzo, tomigun, VJ, vlvl, ween, Živković, 223223