home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
dos
/
prg
/
mos
/
exemples
/
txt_src
/
va_requ.pas
< prev
Wrap
Pascal/Delphi Source File
|
1994-09-11
|
3KB
|
57 lines
{╔══════════════════════════════════════════════════════════════════════════╗
║ EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE TEXTE ║
╠══════════════════════════════════════════════════════════════════════════╣
║ OBTENTION D'UN REQUESTER DE TYPE "VA" ║
╠══════════════════════════════════════════════════════════════════════════╣
║ Coded by Zuul as BouFFtou as Cheveau Frédéric. ║
║ Programmé à l'IUT de Montpellier sur Turbo Pascal V7.00. ║
║ Contact us on 36.14 RTEL1 - Bal "BouFFtou" or Bal "ICF". ║
╚══════════════════════════════════════════════════════════════════════════╝}
{$M 64000,0,365520} {*Stack and Heap*}
Program EXEMPLE;
Uses Crt,
ZUUL_MSE, {*Unités Nécessaires*}
ZUUL_COL,
ZUUL_REQ;
{╔═══════════════════════════════════════════════════════════════════════════╗
║ PROCEDURE PRINCIPALE ║
╚═══════════════════════════════════════════════════════════════════════════╝}
Procedure MAIN;
Var NUM:ShortInt; {*Numéro Gadget Sélectionné*}
REP:Longint; {*Valeur renvoyée par le Req*}
X0,Y0:Word; {*Save Pos Curseur for Resto*}
Begin
X0:=WhereX; Y0:=WhereY; {*Capture Position du Curseur*}
REP:=0; {*Pas de chiffre rentré*}
VA_REQUEST('Voici un "VA_Requester" (ou "Value Requester")|'+
'Vous pouvez entrer un chiffre compris entre -50 et +120|'+
'Les bornes "Min" et "Max" sont définissables à volontée||'+
'Allez-y ...|',
'VALIDER|ANNULER|',-50,+120,NUM,REP,True);{*Appel VA_Requester*}
Gotoxy(X0,Y0); TC(7); BGC(0); {*Affichage de l'entrée*}
If NUM=1 Then Writeln('Vous avez entré: ',REP)
Else Writeln('Vous avez annuler l''entrée.');
End;
{╔═══════════════════════════════════════════════════════════════════════════╗
║ PROGRAMME PRINCIPAL ║
╚═══════════════════════════════════════════════════════════════════════════╝}
Begin
CursOff; {*Cache le Curseur*}
ShowMouse; {*Affiche la Souris*}
ExtendedCols; {*Passe en Couleurs Etendues*}
MAIN; {*Procedure Principale*}
NormalCols; {*Passe en Couleurs Normales*}
HideMouse; {*Planque la Souris*}
CursOn; {*Affiche le Curseur*}
End.