Spojazdnenie myši – Pascal – Fórum – Programujte.com

Ahojte potreboval by som helpnúť s myškou v pascali. Program ktorý by mal vypisovať suradnice bodu kde kliknem my však nejde. Mohol by mi to niekto pomôcť opraviť pls. Dik

uses dos,crt;

var button,MysY,MysX:integer;



{inicializacia ovladaca mysi}

function Mys_init:boolean;

var reg:registers;

begin

reg.ax:=$0000;

intr($33, reg);

{button:=reg.bx;}

if reg.ax=$0000 then mys_init:=false

                else mys_init:=true;

end;



{zobrazi kurzor mysi}

procedure Mys_view;

var reg:registers;

begin

reg.ax:=$0001;

intr ($33,reg);

end;



{zisti stlacenie a suradnice mysi}

procedure Mys_get(MysX,MysY,Button:integer);

var reg:registers;

Begin

reg.ax:=$0003;

intr ($33,reg);

MysX:=(succ(reg.cx)) div 8;

MysY:=(succ(reg.dx)) div 8;

Button:=reg.bx;

end;



{vypne/zapne kurzor}

procedure KurzorZap (ZapVyp:boolean);

var reg:registers;

begin

with reg do

 begin

  AH:=$03;

  BH:=$00;

  intr($10,reg);

  if not(ZapVyp) then CH:=CH or $20

                   else CH:=CH and $DF;

  AH:=$01;

  intr($10,reg);

 end;

end;



BEGIN

clrscr;

Mys_init;

Mys_view;

KurzorZap(false);

repeat

Mys_get(MysX,MysY,Button);

if (Button<>0) then

writeln('mys:',MysX,',',MysY);

until keypressed;

readkey;

END.

Tak tuhle chybu co máš ty, mívám furt, normálka :smile5:
Je to zapomenuté var v deklaraci procedury Mys_Get. Tedy:
Procedure Mys_Get(var MysX,MysY,Button:integer);

No opravil som to ale stále to nejde :(

Řekl bych, že ještě jedna chyba je tady:

MysX:=(succ(reg.cx)) div 8;

MysY:=(succ(reg.dx)) div 8;

MysX:=succ(reg.cx div 8);

MysY:=succ(reg.dx div 8);

Jasně, tohle přerušení v protektu normálně funguje.
Taky doporučuju udělat tuhle malou změnu:

if (Button<>0) then

   begin

   writeln('mys:',MysX,',',MysY);

   repeat

   Mys_Get(MysX,MysY,Button);

   until Button=0;

   end;

No už s tým skúšam všetko možné ale stále nič ... žeby to bolo Free Pascalom???

Tak sem hoď současnou verzi zdrojáku a hlavně upřesni, CO nejde...

Dobrý den všem, měl bych dva takové dotazy, jeden je trochu OffTopic.
Mne se sice podařilo v Pascalu zprovoznit myš v textovém režimu, jenže mi funguje pouze v režimu 80x25.V režimu 80x50(50sáti řádcích)sice funguje též, ale jen v rozsahu prvních 25ti řádcích, prostě pohybovat a klikat myší lze jen v horní polovině obrazovky. Přiznám se ,že procedury pro použití myši jsem opsal, assembler neovládám, takže nevím v čem je chyba.

Druhý dotaz se týká jiného programovacího jazyka, nicméně téma pro tento jazyk zde není, tak kdybyste někdo náhodou věděl budu rád. Ve škole se učíme progr. ve fortranu, jazyk je to jednoduchý a pro některé úlohy skvělý, nicméně když jsem se pokoušel naprogramovat vstup pomocí jednoduché tabulky(jako v excelu,pár buněk mezi kterými se můžu pohybovat šipkami)málem jsem u toho vyrostl. To co je v pascalu otázkou chvilky a na co je v něm spousta funkcí, je zde téměř nemožné. Aspoň tak mi to připadá. Hlavní dotaz, nevíte náhodou někdo, jakým způsobem(je li to vůbec možné) se dá ve fortranu nastavit kurzor na obrazovce(v grafickém či textovém režimu), takovou obdobu Pascalovského gotoxy?

Píši program pro operace s maticemi, kdyby to někoho zajímalo.

Fortran neznám, takže jenom ohledně myši:

Nejpravděpodobnější je, že používáš nějaký primitivní a hodně starý ovladač myši, který si z nějakého důvodu neporadí s rozlišením 80x50.
Další možnost je, že napřed zapínáš myš a až potom přepínáš do rozlišení 80x50 a ovladač myši tudíž neví, že se něco změnilo. Dělej to naopak, tzn. napřed nastavit videorežim a až potom řešit myš.

Poslední možnost je, že jelikož používáš zdroják, kterému moc nerozmíš, tak že někde používá natrvrdo dané nastavení rozsahu pohybu myši pomocí funkcí Define Horizontal Cursor Range a Define Vertical Cursor Range
Info k těmto službám je tady:
http://www.ctyme.com/intr/rb-5963.htm
http://www.ctyme.com/intr/rb-5964.htm