 | Il codice mostra un esempio classico di impiego della
funzione Mouse: il programma termina
segnalando la presenza o meno del Driver del Mouse.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_Mouse;
USES Crt,
giobe;
VAR tasto:char;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice3 (10,16,49,9,14,4,7,0,2,1);
textcolor(15);
gotoxy (27,12);
IF Mouse THEN write('Il MOUSE è stato TROVATO
!!!')
ELSE write('Il MOUSE NON è presente !!!');
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
