Ako používať myš v QBasic

Microsoft QBasic je programovací jazyk je súčasťou všetkých počítačov DOS a sú k dispozícii pre novšie operačné systémy on - line . Rovnako ako väčšina klasických základných variantov , jazyk nie je určený pre použitie s modernými grafickými rozhraniami alebo prostredníctvom užívateľského vstupu . To znamená , že neexistujú žiadne vnútorné príkazy pre používanie myši počítača . QBasic môžu používať assembleri , ako obísť toto obmedzenie , ale umožňuje použiť myš vo vlastných programoch . Pokyny dovolená 1

Napíšte podprogram pre kontrolu viditeľnosť kurzora myši a prečítajte si jej súradnice . To by malo trvať jeden parameter , ktorý má vplyv na funkciu podprogramu v závislosti na jeho hodnote : 1 ukazuje kurzor , 2 zakrýva ho a 3 aktualizuje globálne premenné B , H a V. Tieto premenné uložiť stav tlačidla , horizontálnej polohy a vertikálnu pozíciu kurzor . Definujte premenné a skontrolujte , či je kurzor je už skryté, zdržať sa znovu schováva v prípade , že tomu tak je . Táto prvá časť podprogramu by mal vyzerať nejako takto :

SUB Mouse ( Param )

ZDIEĽANÉ B , H , V

statické kurzor

IF param = 1 THEN Cursor = 1

IF param = 2 a kurzor = 0 THEN EXIT SUB

IF param = 2 a Cursor = 1 THEN : Cursor = 0
2

Zadajte kód assembleri potrebné pre interakciu s myšou a uložiť tlačidiel a hodnoty polohy . Druhá časť podprogramu musí vyzerať presne ako nasledujúce práce :

POKE 100 , 184 : Poke 101 , Param : POKE 102 , 0

POKE 103 , 205 : POKE 104 , 51 : POKE 105 , 137

POKE 106 , 30 : POKE 107 , 170 : POKE 108 , 10

POKE 109 , 137 : POKE 110 , 14 : POKE 111 , 187

POKE 112 , 11 : POKE 113 , 137 : POKE 114 , 22

POKE 115 , 204 : POKE 116 , 12 : POKE 117 , 203

CALL Absolútno ( 100 )

B = PEEK ( & haaa )

H = PEEK ( & HBBB ) + PEEK ( a HBBC ) * 256

V = PEEK ( & HCCC ) + PEEK ( a HCCD ) * 256

END SUB
3

Zavolajte podprogram v hlavnej časti kódu pomocou myši . Ak chcete zobraziť alebo skryť kurzor , zadať buď " Mouse 1 " alebo " 2 myš . " Než robiť niečo s premennými B , H a V. Hodnota B sa líši v závislosti na stave tlačidiel myši Enter " Myš 3 " . Ak je B = 0 žiadne tlačidlo stlačené , zatiaľ čo 1 znamená , že ľavé tlačidlo , 2 znamená , že právo a 3 znamená , že obe .

• Predchádzajúca strana: Ako kódu vzostupne druhú odmocninu vo formáte HTML 
• Ďalšia strana: Čo je test postroj ?