Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Computer Programspråk >> Content

    Hur man använder en mus i QBasic

    Microsoft QBasic är ett programmeringsspråk medföljer alla DOS -datorer och tillgängliga för nyare operativsystem på nätet . Liksom de flesta klassiska Basutförande , är språket inte avsedd för användning med moderna grafiska gränssnitt eller metoder för indata . Detta innebär att det inte finns några interna kommandon för att använda datormusen . QBasic kan använda assemblerkod för att komma runt denna begränsning , men så att du kan använda musen i dina egna program . Instruktioner
    1

    Skriv en subrutin för att styra muspekaren synlighet och läsa dess koordinater . Det ska ta en parameter som påverkar funktionen av subrutinen beroende på dess värde : 1 visar markören , 2 döljer och 3 uppdaterar de globala variablerna B , H och V. Dessa variabler lagra knappen staten , horisontell position och vertikala position markören . Definiera variabler och kontrollera om markören redan är dold , avstå från att gömma det igen om så är fallet . Denna första del av subrutinen bör se ut ungefär så här :

    SUB Mouse (Par ) katalog

    DELAD B , H , V

    STATIC Markör

    IF param = 1 THEN Markör = 1

    IF Parameter = 2 och markör = 0 EXIT så SUB
    p Om Parameter = 2 och markör = 1 THEN : Markör = 0
    2

    Ange assemblerkoden skyldiga att samverka med musen och spara knappen och ställning värden . Den andra delen av subrutin måste se exakt likadana ut följande till jobbet :

    POKE 100 , 184 : POKE 101 , Parameter : 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 ) katalog

    B = PEEK ( & HAAA ) katalog

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

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

    END SUB
    3

    Ring din subrutin i huvuddelen av din kod att använda musen . För att visa eller dölja markören anger antingen " Mouse 1 " eller " Mus 2 . " Ange " Mouse 3 " innan du gör något med variablerna B , H och V. Värdet av B varierar beroende på läget av musknapparna . Om B = 0 ingen knapp trycks ned , medan 1 innebär den vänstra knappen , betyder 2 rätt och 3 betyder båda .

    Tidigare:

    nästa:
    relaterade artiklar
    ·MATLAB Utgång String
    ·Konvertera Int till Real i SML
    ·Hur hitta andra förekomster av en klass i C + +
    ·Hur du formaterar en GridView kontroll
    ·Hur man skriver grafik på Shell Script
    ·Konvertera ett byte Mac Adress till en String
    ·Hur att bädda in en sida i en div-tagg
    ·Hur konvertera en int till en sträng i T - SQL
    ·Hur man sätter in en ComboBox i C - Sharp
    ·Silverlight : Hur bindande ett textblock till en resurs…
    Utvalda artiklarna
    ·Hur Installera MySQL Table
    ·Java bytekod Reverse Engineering
    ·Hur justera teckenstorlek i en meny för upplysningen
    ·Skillnader mellan Byte Array Vs . String
    ·Hur till Stopp Grails i Jetty
    ·Hur du tar bort alla övergångar på VideoStudio
    ·Hur konvertera ett tal till en sträng PHP
    ·Hur till Fart upp frågor om Extremely Large MySQL tabe…
    ·Hur man gör nya linjer i Python
    ·Hur man kompilerar en JSP-fil
    Copyright © Dator Kunskap http://www.dator.xyz