Für die längste Zeit wollte ich einen Weg finden, in meiner eigenen QBasic-Programme mit der Maus. Während ich schließlich einige schöne Beispiele der Code Online, die in der Tat mit der Maus-Schnittstelle gefunden, Schienen sie alle sehr kompliziert für mich, mit mehreren Sub-Routinen, Funktionen und Prozeduren aufgerufen. Also, habe ich beschlossen, "es kochen alle nach unten an die einfachsten, bare-Minimum-Methode", und meines Wissens, was kam ist immer noch der schnellste und einfachste Weg, Mausfunktionen in QBasic-Programm zu integrieren!
Man denke an meinen Code als eine Art "Black Box" oder "Plug-in" Art; Sie kopieren einfach meine "Maus" Sub-Routine in Ihr Programm, und es sofort bietet rudimentäre Mausunterstützung! Schnittstellen mit der Maus erfolgt dann durch drei einfache Funktionen; "Maus 1" zeigt den Maus-Cursor, "Maus 2" Felle es wieder, und die "Maus 3" liest die Maus Taste Stand so gut wie es ist. Diese Informationen werden an das Anwenderprogramm durch 3 globale Variablen mitgeteilt; "B" steht für die Maustasten, "H" enthält horizontale Koordinaten und "V" zurückgibt, ist es vertikal koordiniert. Für eine 2-Tasten-Maus wird die Variable "B" die folgenden Werte zurück:
WERT: TASTE (S):
0 None
1 Left
2 Right
3 Both
Dies ist das eigentliche Maus Codesegment, das Mausunterstützung bietet:
''''''''''''''''''''''''''''''''''''''''''''''''''' Mouse Sub-program ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Dieses Unterprogramm Maus unterstützt QBasic-Programme.
"Es wird mit einem Parameter aufgerufen und führt wie folgt:
"Maus 1 (Mauszeiger zeigt)
"Mouse 2 (Häute Mauszeiger)
"Maus 3 (liest Schaltfläche Status & Koordinaten)
'
"Notizen:
'
' Dieser Sub-Programm erfordert Microsoft Maustreiber (Mouse.com)
"oder eine gleichwertige Dos-basierten Mouse-Treiber, die geladen werden muss und
"läuft vor dem Gebrauch.
'
"Variablen B, H & V sind global, also sicher nicht zu erstellen
"andere Variablen den gleichen Namen, oder Sie müssen diese umbenennen.
'
"Achten Sie darauf, den Mauszeiger zu verstecken, vor der Durchführung jeder Grafik
"Funktion, sonst keine Grafiken unter dem Cursor werden verstümmelt werden.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB-Maus (Funk) "Sub & übergebenen Parameter zu definieren.
FREIGEGEBENE B, H, V ' Variablen mit wichtigsten Untergruppen teilen.
STATISCHE Crsr "verfolgen, ob Cursor angezeigt wird.
IF Funk = 1 dann Crsr = 1 ' Cursor zeigen.
IF-Funk = 2 und Crsr = 0 dann EXIT SUB ' Cursor nicht mehr als einmal verstecken.
IF Funk = 2 und Crsr = 1 THEN: Crsr = 0 ' Cursor ausblenden.
POKE 100, 184: POKE 101, Funk: POKE 102, 0 ' Poke Maschinencode für notwendig
POKE 103, 205: POKE 104, 51: POKE 105, 137 "mit der Maus in den Speicher
POKE 106, 30: POKE 107, 170: POKE 108, 10 ' beginnend bei offset 100 in der
POKE 109, 137: POKE 110, 14: POKE 111, 187 ' aktuelle Segment. Dieser Code ist
POKE 112, 11: POKE 113, 137: POKE 114, 22 ' dann ausgeführt als Einheit, über die
POKE 115, 204: POKE 116, 12: POKE 117, 203 "Anweisung"Absolute nennen".
CALL Absolute(100) ' nennen Maschinencode.
B = PEEK (& HAAA) "erhalten Sie Werte für Schaltflächen.
H = (PEEK(&HBBB) + PEEK (& HBBC) * 256) "horizontale Position (2 Byte).
V = (PEEK(&HCCC) + PEEK (& HCCD) * 256) "senkrecht (2 Byte).
END SUB ' Ende Unterprogramm.
Die folgenden Anweisungen sollten die ersten beiden Befehle in einem beliebigen Programm dieser Code verwendet:
DEFINT A-Z
Deklarieren Sie SUB-Maus (Funk) "deklarieren Maus Unterprogramm.
Zusammen mit diesem instructable, ich ein Beispielprogramm ("QBMOUSE. enthalten BAS") sowie eine"Vorlage"Art ("Maus. SUB"), die enthält die Maus Sub-Routine und eine leere Hauptfenster des Programms, wo Sie Ihren eigenen Code eingeben würden. Sollten Sie Fragen, Anliegen oder nur Beschwerden über diesen Code haben, bitte zögern Sie nicht mich zu kontaktieren; Flurng ich begrüße Feedback, und ich hoffe Sie genießen Sie spannende neue Maus-fähigen QBasic-Programme mit Hilfe dieser Sub-Routine zu schaffen. Wenn Sie beginnen möchten, lesen Sie mit dem ersten Schritt, und vor allem... Haben Sie Spaß!
