 | Il codice propone una cornice rossa
su un piano di lavoro riempito di caratteri '▒';
su richiesta fissa poi il cursore del Mouse in 2 punti predefiniti,
utilizzando entrambe le tecniche di puntamento (in pixel e in
caratteri).
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM
Prova_SetMouse;USES
crt,giobe;
VAR pixel:boolean;
PROCEDURE
Messaggio (rig:integer;testo1:string);
VAR tasto:char; puls:word;
BEGIN
KeyClickMessage1 (tasto,puls,15,1,testo1);
textbackground(4);
gotoxy (22,rig);
write('Cursore del MOUSE fissato da software');
END;
BEGIN
VIAcur;
VediMouse; {************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice3 (10,16,49,7,14,4,7,0,2,1);
Messaggio (11,'eseguire la prima Prova ');
gotoxy (22,12);
write('nel punto 12,41 ₫ (88*208 in PIXEL)');
pixel:=true; {coordinate in PIXEL}
SetMouse
(pixel,40*8,11*8); {colonna,riga}
Messaggio (14,'eseguire la seconda Prova');
gotoxy (22,15);
write('nel punto 15,41 ₫ (in CARATTERI)');
pixel:=false; {coordinate in caratteri}
SetMouse
(pixel,41,15); {colonna,riga}
Messaggio (14,'terminare il programma ');
TextBackground(0);{************************************}
ClrScr; {* Aspetta un tasto o il click di un*}
gotoxy (1,25); {*
pulsante del Mouse e torna a DOS *}
RipCur; {************************************}
END.
|
|
