KeyClickMessage1 Sorgente - Libreria Giobe.TPU

KeyClickMessage1

CODICE SORGENTE [3 di 4]

La procedura è scritta in Pascal: provvede a stampare il messaggio "Muovi il mouse - premi un tasto o fai click per" sull'ultima riga in fondo, a partire dalla colonna 5, in colore txt su sfondo sfo, aggiungendo subito dopo la stringa passata dal parametro testo1; ciò fatto ferma il programma in attesa della pressione di un tasto o del click di uno qualunque dei tasti del mouse:

	nel primo caso lascia il valore ASCII del tasto premuto nella variabile tasto
	nel secondo lascia il numero del pulsante del mouse nella variabile pulsante

Entrambe le variabili devono essere fornite dal programma chiamante.

Codice Sorgente
PROCEDURE KeyClickMessage1 (VAR tasto:char; VAR pulsante:word;txt,sfo:integer;testo1:string); BEGIN Riempi3 (25,25,txt,sfo,' '); textbackground(sfo);textcolor(txt); gotoxy (5,25); write('Muovi il mouse - premi un tasto o fai click per '+testo1); AspettaKeyClick (tasto,pulsante); END;

Tastiera	KeyClickMessage1
	Esempio	Sorgente	Mostra
12 di 29

PASCAL »

PROCEDURE »	Caratteri \| Mouse \| Tastiera \| Tempo, Data & Ora Box \| Cornici \| Cursore \| Aree a Riga Intera \| Aree a Schermo Totale
FUNZIONI »	Caratteri \| Mouse \| Tastiera \| Tempo, Data & Ora

^Home

Pascal|Manuali|Tabelle|Schede
Tutorial Assembly|Palestra Assembler

Aggiungi Giobe®2000 ai preferiti

Motore
Ricerca

Rendi Giobe®2000 pagina di Default