Ĺadny brzuch
Potrzebuje napisac proste menu w Graphie z mozliwoscia poslugiwania sie myszka (i oczywiscie klawiatura :) )... normalka... Plik Edycja Widok wystarczy. Paski Plik Edycja itd. nie musza sie rozwijac... Jesli ktos mi pomoze bede bardzo wdzieczny... jestem poczatkujacy i mam problemy :( Jakby co to prosilbym wyslac programik na adres majsta7@poczta.onet.pl. Dzieki z gory wszystkim !!!!
A w jakim języku bo nie zabardzso się orientuje :lol: pascal, c/c++ :excl:
A w jakim języku bo nie zabardzso się orientuje :lol: pascal, c/c++ :excl:
Musisz najpierw napisać procedurę, która będzie zwracała pozycję myszy.
jeżeli ją masz to teraz musisz napisać procedurkę która bedzie sprawdzała czy najechałeś myszą na prostokąt, ktorym jest przycisk.
Mniej więcej to powinno być tak :
procedure sprawdz(pozx,pozy:word; x,y,szer,wys: word) : boolean begin if (pozx>x) and (pozx<x+szer) then if (pozy>y) and (pozy<y+wys) then sprawdz:= true else sprawdz:= false; end;
pozx = pozycja myszy (x)
pozy = pozycja myszy (y)
x = pozycja buttona (x)
y = pozycja buttona (y)
szer = szerokość buttona
wys = wysokosc buttona
a potem
if sprawdz(myszx,myszy,bt1x,bt1y,bt1szer,bt1wys)=true then ---i coś tam co ma robic---
Może istnieje lepszy sposób, ale ja go nie znam :P
Chyba da się tak skrócić :P
function sprawdz(pozx, pozy, x, y, szer, wys:word):boolean; begin sprawdz:=((pozx>x)and(pozx<x+szer)and(pozy>y)and(pozy< y+wys)); end;
Fakt, ale łatwiej mu zrozumieć (tak mi sie wydaje) ;)
W sumie to tak. Przy okazji zmień sobie procedure na function :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
A w jakim języku bo nie zabardzso się orientuje :lol: pascal, c/c++ :excl:
A w jakim języku bo nie zabardzso się orientuje :lol: pascal, c/c++ :excl:
Musisz najpierw napisać procedurę, która będzie zwracała pozycję myszy.
jeżeli ją masz to teraz musisz napisać procedurkę która bedzie sprawdzała czy najechałeś myszą na prostokąt, ktorym jest przycisk.
Mniej więcej to powinno być tak :
procedure sprawdz(pozx,pozy:word; x,y,szer,wys: word) : boolean begin if (pozx>x) and (pozx<x+szer) then if (pozy>y) and (pozy<y+wys) then sprawdz:= true else sprawdz:= false; end;
pozx = pozycja myszy (x)
pozy = pozycja myszy (y)
x = pozycja buttona (x)
y = pozycja buttona (y)
szer = szerokość buttona
wys = wysokosc buttona
a potem
if sprawdz(myszx,myszy,bt1x,bt1y,bt1szer,bt1wys)=true then ---i coś tam co ma robic---
Może istnieje lepszy sposób, ale ja go nie znam :P
Chyba da się tak skrócić :P
function sprawdz(pozx, pozy, x, y, szer, wys:word):boolean; begin sprawdz:=((pozx>x)and(pozx<x+szer)and(pozy>y)and(pozy< y+wys)); end;
Fakt, ale łatwiej mu zrozumieć (tak mi sie wydaje) ;)
W sumie to tak. Przy okazji zmień sobie procedure na function :)