Pascal obiektowo

[Radar28 1357]

Napisałem program w Pascalu (baza danych), rzecz w tym, że muszę dodać obsługę myszy, a do tego dobrze byłoby przerobić wszystko na obiekty, bo tam są odpowiednie biblioteki (chyba, że ktoś zna inny prosty sposób podpięcia mychy). Niestety nie programowałem do tej pory obiektowo, więc jeśli ktoś zna dobre źródło z którego mógłbym się tego nauczyć, to byłbym bardzo wdzięczny (raczej WWW niż książki, bo dla informatyki w szkole, nie będę wydawał za dużo kasy ).

PS. Tak to musi być Pascal (niestety )

[kruszek 0]

wydaje mi sie, ze jesli masz juz napisany program i chcesz dorzucic do niego obsluge myszy, ktora jest zaproponowana przez model obiektowy to nie musisz nic zmieniac w dotychczasowym kodzie... pozostaje Ci sie tylko nauczyc obslugi tego obiektu i wykorzystac go

[Radar28 1357]

To znaczy, że mogę mieć program napisany trochę obiektowo, a trochę nie :scratchhead:

Chyba tak, czy siak będę potrzebował dobrego źródła do nauki programowania.

 

Dzięki za pomoc

[maicroft 0]

Tak, dokładnie tak jak myślisz się da zrobić.

[Radar28 1357]

Hmmm... wszystko jest cacy, tylko w żaden sposób nie mogę sie dowiedzieć JAK używać pascalowskich funkcji do obsługi myszy i innych event'ów. Pewnie należy kożystać z GetEvent, albo GetMouseEvent, ale brakuje mi źródeł na temat konkretnego wykorzystania tych funkcji (co trzeba zaimplementować, zdeklarować itd.). Szukałem po necie kursów i poradników i jak na razie posucha. Jak ktoś zna dobrą witrynę to niech podeśle adres (tu albo na radar28@tlen.pl )

Próbowałem korzystać z helpa w Pascalu, ale jakoś mi nie pomógł, a pisaniem na wyczucie do niczego jeszcze nie doszedłem i chyba nie dojdę.

 

Z góry dziękuję za pomyślne rozpatrzenie mojej prośby (czuję sie jak lamer/looser niepotrzebne skreślić )

[Xarafaxz 0]

poszukaj takiego modułu Gmouse mimo ze działa "bardzo blisko sprzetu" jest bardzo mały i prosty w obsludze. Zakładam że nie używasz np TurboVision tylko "łopatologicznie" robiłeś interfejs bazy samemu wtedy raczej najszybicej ci pójdzie stworzenie przyciskow i pol samemu niż szukanie i uczenie odpowiednich modułów obiektowych.

[maicroft 0]

Ten z TurboVision jest dobry ale trochę skomplikowany.

[Radar28 1357]

Znalazłem!!

Na jednej stronie z kursami do Pascala była opisana implementacja mychy. Okazało się, że problem można rozwiązać bardzo prosto przy pomocy bezpośredniego działania na przerwniu od mychy. Teraz chodzi idealnie!

Wygląda to tak:

 

PROCEDURE MPokaz;

Var r: registers;

Begin

r.ax:=$0001;

Intr($33,r);

End;

 

PROCEDURE MSchowaj;

Var r: registers;

Begin

r.ax:=$0002;

Intr($33,r);

End;

 

PROCEDURE MUstaw (x1,y1,x2,y2:word);

Var r: registers;

Begin

r.ax:=$0007;

r.cx:=x1;

r.dx:=x2;

Intr($33,r);

r.ax:=$0008;

r.cx:=y1;

r.dx:=y2;

Intr($33,r);

End;

 

PROCEDURE MPobierz(var x,y,butt:word);

Var r:registers;

Begin

r.ax:=$0003;

Intr($33,r);

x:=r.cx;

y:=r.dx;

butt:=r.bx;

End;

 

Dobrze, że przynajmniej rozumiem o co w tym wszystkim chodzi

 

[Edytowane: 28/2/2004 przez Radar28]

[inox 0]

To dobrze, że rozumiesz, bo to jest proste... jak cały assembler... tylko trzeba go umieć

PS: Mogą być problemy z myszką USB, nawet jeśłi BIOS zapewnia tryb emulacyjny Legacy.

PS2: Czemu nie przesiądzisz się na Delphi ?!!?

[januzi 24]

moze kwestia przyzwyczajenia ? z drugiej strony jak sie pisze wszystko samemu bez vcl, to wychodzi szybciej. ale praca w wersji konsolowej w trybie graf. ciutke mija sie z celem.