Microsoft QBasic is een programmeertaal meegeleverd met alle DOS- computers en beschikbaar voor nieuwere besturingssystemen online . Net als de meeste klassieke Basic -varianten , wordt de taal niet ontworpen voor gebruik met moderne grafische interfaces of via invoer van de gebruiker . Dit betekent dat er geen interne staan opdrachten voor de computermuis . QBasic kunnen assembly code gebruiken om deze beperking te omzeilen , echter , zodat u de muis te gebruiken in uw eigen programma's . Instructies
1 Schrijf een subroutine om de zichtbaarheid van de muis cursor te besturen en te lezen zijn coördinaten . Het moet een parameter die de functie van de subroutine afhankelijk van de waarde beïnvloedt nemen : 1 toont de cursor , 2 en 3 het huiden updates de globale variabelen B , H en V. Deze variabelen opslaan van de knopstatus , horizontale positie en verticale positie van de cursor . Definieer de variabelen en te controleren of de cursor al verborgen is , af te zien van het verbergen van het weer als dat het geval is . Dit eerste deel van de subroutine moet er ongeveer zo uitzien : SUB Muis
( Param ) op SHARED B , H , V STATIC Cursor
IF param = 1 THEN Cursor = 1
IF param = 2 AND Cursor = 0 THEN EXIT SUB
IF param = 2 AND Cursor = 1 THEN : Cursor = 0 kopen van 2 Voer de assembly code nodig om te interageren met de muis en opslaan op de knop en de positie waarden . Het tweede deel van de subroutine moet precies hetzelfde uitzien als de volgende aan het werk : 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 Absolute ( 100 ) op Twitter B = PEEK ( & HAAA ) H
= PEEK ( & HBBB ) + PEEK ( & HBBC ) * 256
V = PEEK ( & HCCC ) + PEEK ( & HCCD ) * 256
END SUB
3 Bel uw subroutine in het hoofdgedeelte van uw code om de muis te gebruiken . Om de cursor te tonen of te verbergen , voert u " Mouse 1 " of " Mouse 2 . " Voer " Mouse 3 " voor je iets doet met de variabelen B , H en V. De waarde van B is afhankelijk van de toestand van de muisknoppen . Als B = 0 is er geen toets ingedrukt , terwijl 1 betekent dat de linker knop , 2 , het recht en de 3 betekent beide .
|
