KeyClickMessage2 Sorgente - Libreria Giobe.TPU

KeyClickMessage2

CODICE SORGENTE [3 di 4]

La procedura è scritta in Pascal: provvede a stampare il messaggio "Premi un tasto o fai click per" sull'ultima riga in fondo, a partire dalla colonna 15, 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 KeyClickMessage2 (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('Premi un tasto o fai click per '+testo1); AspettaKeyClick (tasto,pulsante); END;

Tastiera	KeyClickMessage2
	Esempio	Sorgente	Mostra
16 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