Come sostenere il Mouse in QBasic

March 11

Come sostenere il Mouse in QBasic


QBasic è una versione semplificata del sistema operativo di base rapido rilasciato da Microsoft nei primi anni 1990. Basic è un acronimo per principianti All-Purpose codice simbolico di istruzioni. Il linguaggio di programmazione QBasic è stato originariamente progettato per dare ai programmatori la prima volta la possibilità di eseguire attività di programmazione elementari. Mentre è un linguaggio di programmazione eccellente per i principianti per imparare, manca built-in funzionalità del mouse. Fortunatamente, è possibile aggiungere funzionalità mouse mediante codice liberamente disponibile.

istruzione

1 Avviare l'ambiente QBasic facendo clic sul menu "Start" e selezionando "Esegui".

2 Digitare "cmd" nella casella di immissione corsa e premere "OK".

3 Avviare l'ambiente di programmazione digitando "Qbasic" e premendo Invio.

4 Cancellare il messaggio di benvenuto, premendo il tasto "Escape".

5 Digitare il seguente codice nella finestra QBasic:

Mouse SUB (Funk)

COMUNE B, H, V

POKE 100, 184: POKE 101, Funk: 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 assoluto (100)

B = PEEK (& HAAA)

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

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

END SUB

6 Premere il tasto Invio per abilitare il supporto del mouse.