Ĺadny brzuch
A co ogłaszam konkurs.
ZADANIE :
Jak każdy wie w Delphi mamy do dyspozycji takie procedury jak onclick czy ondblclick. Zadaniem jest napisanie instrukcji wyświetlającej komunikat po 3 kliknięciu na przycisk. Zadanie jest bardzo proste i skierowane do początkujących pisarzy.
WYGRANA :
Wygranym zostaje osoba, której kod będzie najkrótszy
NAGRODA :
satysfacja że jest się de beściakiem :)
PO CO TO ??
a tak żeby coś się działo :P
TERMIN
zależy od zainteresowania
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
To moja wersja:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i : integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if i=0 then i:=1 else if i=1 then i:=2 else if i=2 then begin ShowMessage('Ale kod.. :O'); i := 0; end; end; procedure TForm1.FormCreate(Sender: TObject); begin i := 0; end; end.
Kompilatory sa jak kobiety - raz chca, a raz nie ;-)
g-g: 2550505
ja bym zrobil jak Michalek, tyle ze:
inc(i);
if i>2 then
begin
showmessage('yeah!');
i:=0;
end;
Zapraszam na moją stronkę:http://www.migsoft.prv.pl
jupi ktoś się zainteresował, zapomniałem dodać że ja upchałem to w 3 instrukcje + deklaracja zmiennej
PS na koniec napisze komentarz do każdego kodu - chyba że autor nie wyrazi zgody :P
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
PO CO TO ??
a tak żeby coś się działo :P
Nie chce Cię oskarżać ale mi się to wydaje że temat jest poto aby nabijać posty... Wkońcu napisałeś ^^^ :D
Anonymous AdSoftKontakt e-mail
tylko Bełdzio musisz sprecyzowac co oznacza najkrotszy kod ;) jak liczymy? ilosc linii kodu w onclick + deklaracja uzytych zmiennych czy jak?
pozdrawiam
pepsi^no1
3linie kodu bez deklaracji zmiennej :cheesy:
unit Unit1; interface uses StdCtrls, Classes, Controls, Dialogs, Forms; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin tag:=tag+1; if tag mod 3 = 0 then ShowMessage('zzz'); end; end.
pepsi mowi pozamiatane :]
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
3linie kodu bez deklaracji zmiennej :cheesy:
pepsi - nie bądź taki skromny, przecież to nie 3 tylko 2 linie kodu ;)
tag:=tag+1; if tag mod 3 = 0 then ShowMessage('zzz');
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Anonymous napisał:
cytat:Bełdzio napisał:
PO CO TO ??
a tak żeby coś się działo :P
Nie chce Cię oskarżać ale mi się to wydaje że temat jest poto aby nabijać posty... Wkońcu napisałeś ^^^ :D
E tam, nie ma co się czepiać. Takie coś to dobra rzecz - przynajmniej zmobilizuje początkujących do samodzielnej pracy (choć jak widać nie tylko początkujący odpowiedzieli :)).
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Anonymous napisał:
...
rozszyfrowałeś mnie :D
pepsi : tak samo zrobiłem tylko dałem jeszcze zmienną :)
migajek : jakoś nie podoba mi się ten kod :)
pepsi2 : najmniej instrukcji
michalek : jak byś wstawił case to by było mniej :D
ok konkurs chyba można zamknąć bo mniej niż 3 chyba nie da rady
lINEREM ZOSTAŁ MR PEPSI :aplause: gratuluje nagrodę prześlemy pocztą
PS. napiście co sądzie o takim 'konkursie' bo jeśli wywarł pozytywne reakcje to może teraz ktoś inny coś wymyśli :) Oxi :D może .....
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
pomysl konkursow jest ql :cheesy: zawsze mozna poznac roznego typu chwyty i triki bardziej zaawansowanych programistow, ktorych sie nie znajdzie w google, czy w kursach programowania... oczywiscie mozna by podniesc troche poziom zadan ;) tak, aby sie niektorzy troche bardziej pomeczyli ;) wszelkiego rodzaju problemy algorytmiczne [rozwiazywane pod wzgledem szybkosci lub objetosci kodu], zagadki zwiazane ze znajomoscia danego jezyka, itp bardzo mile widziane :]
proponuje tez, aby mozna bylo kozystac z jezyka c++ i kompilatorow c++ przy podawaniu rozwiazan. mysle ze jest to mozliwe, bo delphi i c++ builder sa na tyle do siebie zblizone, ze w konkursach takich jak Bełdzio zaproponowal nie bedzie problemu z napisaniem zdarzenia on3click w obu kompilatorach, no a jezeli ktos zaproponuje zadania algorytmiczne no to chyba tym bardziej :]
no i of coz dyskwalifikacja za zerzniecie rozwiazan z google :] coby wlasna praca byla :cheesy:
pozdrawiam
pepsi^no1
cytat:Bełdzio napisał:
PS. napiście co sądzie o takim 'konkursie' bo jeśli wywarł pozytywne reakcje to może teraz ktoś inny coś wymyśli :) Oxi :D może .....
Jak już pisałem wcześniej - takie konkursy to dobra rzecz :)
Co do zadań to jakbym wymyślił coś ciekawego to dam znać 8)
cytat:pepsi napisał:
oczywiscie mozna by podniesc troche poziom zadan ;) tak, aby sie niektorzy troche bardziej pomeczyli ;)
Jestem za - przydałby się poziom troszkę wyższy niż w tym zadaniu.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
ja wam dam zadanie troszkę mało skromne http://www.ks-eksper...?TOPIC_ID=24861 :P
teraz poważnie:
faktycznie dobre takie konkursy, można wydobyć od kogoś samozaparcie i nie tylko :)
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Poprawiony link
Konkursy są spoko tylko nie róbmy tak że se posty nabijamy... kilka osób mnie ostarżyło mnie o nabijanie więc ja też będe osoby pilnował co do nabijania postów... dobra ale nie oto tu chodzi :P tak jak pisałem że konkursy są wporzątku tylko bełdziu dawaj coś prostrzego dla najmłodszych i początkujących programistów w delphi (nie mówie o sobie:P)
Anonymous AdSoftKontakt e-mail
Asdef : nie każdy ma ENT :)
pepsi : co do C - napisałem, że konkurs jest w Delphi bo ten język jako tako znam
co do poziomu - to miał być prosty jak zaznaczyłem do początkujących, aby nauczyć ich myśleć, a nie o wszystko się pytać
Oxi : czekam z niecierpliwością
do moda : wydaje mi się, że temat można zamknąć, ponieważ nie opłąca się tu wstawiać kolejnych zadań
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
Oxi : czekam z niecierpliwością
OK - ale Ty i pozostali "siedzący w programowaniu" też niech coś pomyślą :)
cytat:do moda : wydaje mi się, że temat można zamknąć, ponieważ nie opłąca się tu wstawiać kolejnych zadań
Dobra - tylko pare uwag/propozycji
1. Osoba podająca zadanie do rozwiązania ma potrafić samemu je rozwiązać. To żeby uniknąć sytuacji, że ktoś będzie miał z czymś problem i wrzuci to jako zadanie konkursowe, żeby inni mu zrobili...
2. Osoba podająca zadanie powinna w miarę dobrze orientować sie w temacie - żeby móc skomentować rozwiązania i je odpowiednio ocenić
3. Temat najlepiej odpowiednio nazywać np - [delphi-konkurs] jakiś opis (lub odpowiednio - jakiś inny język).
Nie wiadomo, czy temat takich konkursów wypali czy nie - ale mimo to proponuję trzymać się tego co wyżej :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
dodam jeszcze coś od siebie aby nikt nie zakładał konkursowych tematów po za Bełdziem lub OXI'm ponieważ by były takie tematy zakładane bez opamiętania;)
Bełdzio z tym entem masz niestety rację szkoda...:(
Ps. jeszcze większa szkoda że sam nie mam czasu brać czynnego udzialu w konkursahc :x ta praca mnie dobije :roll:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
ZADANIE :
Jak każdy wie w Delphi mamy do dyspozycji takie procedury jak onclick czy ondblclick. Zadaniem jest napisanie instrukcji wyświetlającej komunikat po 3 kliknięciu na przycisk. Zadanie jest bardzo proste i skierowane do początkujących pisarzy.
WYGRANA :
Wygranym zostaje osoba, której kod będzie najkrótszy
NAGRODA :
satysfacja że jest się de beściakiem :)
PO CO TO ??
a tak żeby coś się działo :P
TERMIN
zależy od zainteresowania
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
To moja wersja:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i : integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if i=0 then i:=1 else if i=1 then i:=2 else if i=2 then begin ShowMessage('Ale kod.. :O'); i := 0; end; end; procedure TForm1.FormCreate(Sender: TObject); begin i := 0; end; end.
Kompilatory sa jak kobiety - raz chca, a raz nie ;-)
g-g: 2550505
ja bym zrobil jak Michalek, tyle ze:
inc(i);
if i>2 then
begin
showmessage('yeah!');
i:=0;
end;
Zapraszam na moją stronkę:http://www.migsoft.prv.pl
jupi ktoś się zainteresował, zapomniałem dodać że ja upchałem to w 3 instrukcje + deklaracja zmiennej
PS na koniec napisze komentarz do każdego kodu - chyba że autor nie wyrazi zgody :P
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
PO CO TO ??
a tak żeby coś się działo :P
Nie chce Cię oskarżać ale mi się to wydaje że temat jest poto aby nabijać posty... Wkońcu napisałeś ^^^ :D
Anonymous AdSoftKontakt e-mail
tylko Bełdzio musisz sprecyzowac co oznacza najkrotszy kod ;) jak liczymy? ilosc linii kodu w onclick + deklaracja uzytych zmiennych czy jak?
pozdrawiam
pepsi^no1
3linie kodu bez deklaracji zmiennej :cheesy:
unit Unit1; interface uses StdCtrls, Classes, Controls, Dialogs, Forms; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin tag:=tag+1; if tag mod 3 = 0 then ShowMessage('zzz'); end; end.
pepsi mowi pozamiatane :]
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
3linie kodu bez deklaracji zmiennej :cheesy:
pepsi - nie bądź taki skromny, przecież to nie 3 tylko 2 linie kodu ;)
tag:=tag+1; if tag mod 3 = 0 then ShowMessage('zzz');
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Anonymous napisał:
cytat:Bełdzio napisał:
PO CO TO ??
a tak żeby coś się działo :P
Nie chce Cię oskarżać ale mi się to wydaje że temat jest poto aby nabijać posty... Wkońcu napisałeś ^^^ :D
E tam, nie ma co się czepiać. Takie coś to dobra rzecz - przynajmniej zmobilizuje początkujących do samodzielnej pracy (choć jak widać nie tylko początkujący odpowiedzieli :)).
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Anonymous napisał:
...
rozszyfrowałeś mnie :D
pepsi : tak samo zrobiłem tylko dałem jeszcze zmienną :)
migajek : jakoś nie podoba mi się ten kod :)
pepsi2 : najmniej instrukcji
michalek : jak byś wstawił case to by było mniej :D
ok konkurs chyba można zamknąć bo mniej niż 3 chyba nie da rady
lINEREM ZOSTAŁ MR PEPSI :aplause: gratuluje nagrodę prześlemy pocztą
PS. napiście co sądzie o takim 'konkursie' bo jeśli wywarł pozytywne reakcje to może teraz ktoś inny coś wymyśli :) Oxi :D może .....
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
pomysl konkursow jest ql :cheesy: zawsze mozna poznac roznego typu chwyty i triki bardziej zaawansowanych programistow, ktorych sie nie znajdzie w google, czy w kursach programowania... oczywiscie mozna by podniesc troche poziom zadan ;) tak, aby sie niektorzy troche bardziej pomeczyli ;) wszelkiego rodzaju problemy algorytmiczne [rozwiazywane pod wzgledem szybkosci lub objetosci kodu], zagadki zwiazane ze znajomoscia danego jezyka, itp bardzo mile widziane :]
proponuje tez, aby mozna bylo kozystac z jezyka c++ i kompilatorow c++ przy podawaniu rozwiazan. mysle ze jest to mozliwe, bo delphi i c++ builder sa na tyle do siebie zblizone, ze w konkursach takich jak Bełdzio zaproponowal nie bedzie problemu z napisaniem zdarzenia on3click w obu kompilatorach, no a jezeli ktos zaproponuje zadania algorytmiczne no to chyba tym bardziej :]
no i of coz dyskwalifikacja za zerzniecie rozwiazan z google :] coby wlasna praca byla :cheesy:
pozdrawiam
pepsi^no1
cytat:Bełdzio napisał:
PS. napiście co sądzie o takim 'konkursie' bo jeśli wywarł pozytywne reakcje to może teraz ktoś inny coś wymyśli :) Oxi :D może .....
Jak już pisałem wcześniej - takie konkursy to dobra rzecz :)
Co do zadań to jakbym wymyślił coś ciekawego to dam znać 8)
cytat:pepsi napisał:
oczywiscie mozna by podniesc troche poziom zadan ;) tak, aby sie niektorzy troche bardziej pomeczyli ;)
Jestem za - przydałby się poziom troszkę wyższy niż w tym zadaniu.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
ja wam dam zadanie troszkę mało skromne http://www.ks-eksper...?TOPIC_ID=24861 :P
teraz poważnie:
faktycznie dobre takie konkursy, można wydobyć od kogoś samozaparcie i nie tylko :)
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Poprawiony link
Konkursy są spoko tylko nie róbmy tak że se posty nabijamy... kilka osób mnie ostarżyło mnie o nabijanie więc ja też będe osoby pilnował co do nabijania postów... dobra ale nie oto tu chodzi :P tak jak pisałem że konkursy są wporzątku tylko bełdziu dawaj coś prostrzego dla najmłodszych i początkujących programistów w delphi (nie mówie o sobie:P)
Anonymous AdSoftKontakt e-mail
Asdef : nie każdy ma ENT :)
pepsi : co do C - napisałem, że konkurs jest w Delphi bo ten język jako tako znam
co do poziomu - to miał być prosty jak zaznaczyłem do początkujących, aby nauczyć ich myśleć, a nie o wszystko się pytać
Oxi : czekam z niecierpliwością
do moda : wydaje mi się, że temat można zamknąć, ponieważ nie opłąca się tu wstawiać kolejnych zadań
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
cytat:Bełdzio napisał:
Oxi : czekam z niecierpliwością
OK - ale Ty i pozostali "siedzący w programowaniu" też niech coś pomyślą :)
cytat:do moda : wydaje mi się, że temat można zamknąć, ponieważ nie opłąca się tu wstawiać kolejnych zadań
Dobra - tylko pare uwag/propozycji
1. Osoba podająca zadanie do rozwiązania ma potrafić samemu je rozwiązać. To żeby uniknąć sytuacji, że ktoś będzie miał z czymś problem i wrzuci to jako zadanie konkursowe, żeby inni mu zrobili...
2. Osoba podająca zadanie powinna w miarę dobrze orientować sie w temacie - żeby móc skomentować rozwiązania i je odpowiednio ocenić
3. Temat najlepiej odpowiednio nazywać np - [delphi-konkurs] jakiś opis (lub odpowiednio - jakiś inny język).
Nie wiadomo, czy temat takich konkursów wypali czy nie - ale mimo to proponuję trzymać się tego co wyżej :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
dodam jeszcze coś od siebie aby nikt nie zakładał konkursowych tematów po za Bełdziem lub OXI'm ponieważ by były takie tematy zakładane bez opamiętania;)
Bełdzio z tym entem masz niestety rację szkoda...:(
Ps. jeszcze większa szkoda że sam nie mam czasu brać czynnego udzialu w konkursahc :x ta praca mnie dobije :roll:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)