C/LosArcosChicos
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 04/09/1996

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 20:24:08 +02:00
commit 885bf44ba6
21 changed files with 4886 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

277
TXT_UTL.CPP Normal file
View File

@ -0,0 +1,277 @@
#include <dos.h>
#include <conio.h>
#include <ctype.h>
#include <stdio.h>
#include <alloc.h>
#include <string.h>
#include <stdarg.h>
#define BLANCO EGA_WHITE
#define ENCUADRE 3
#define SEC_OPTAR 5
#include "zorr.h"
void BEEP(void);
/**************************************************************************\
|* *|
|* InputCadenaG *|
|* *|
|* Descripci<63>n: *|
|* Edita una cadena en formato gr<67>fico *|
|* *|
|* Entradas: *|
|* Puntero a los datos editados *|
|* 0 alfanumerico 1 numerico *|
|* longitud de la cadena (TEXTO/NUMERO) *|
|* color del texto *|
|* color de fondo *|
|* Limites de acotacion *|
|* *|
|* Salidas: (ninguna) *|
|* *|
|* *|
\**************************************************************************/
int InputCadenaG(char *s, int numalp, int lmax, int cc, int cf, int X0, int Y0, int X1, int Y1)
{
// A todas las y les sumaba antes +RoW*12 parametro que indica la linea
int ls; // longitud cadena
char Status = 0;
char *s1; // puntero a cadena inicial
int c, ok, i;
s1 = s; // inicio cadena
textbackground( cf );
gotoxy( X0, Y0 );
for ( i = 0; i < X1; i++ )
putch( 32 );
textcolor( cc );
gotoxy( X0, Y0 );
cprintf( "%s", s1 );
_setcursortype( _SOLIDCURSOR );
ls = strlen ( s ); // Longitud de actual
s += ls; // se coloca en el final
do{
c = getch(); // obtiene tecla
if ( c == 27 ) Status = 1;
ok = ( c == 27 || c == 13 || c == 0); // 13 = INTRO || Especiales
if ( c == 8 && ls > 0 && !ok ) { // 8 = Back Space
ls--;
s--;
*s = '\0';
gotoxy( X0, Y0 );
for ( i = 0; i < X1; i++ )
putch( 32 );
textcolor( cc );
gotoxy( X0, Y0 );
cprintf( "%s", s1 );
} else {
if ( !numalp && c >= 32 && c <= 254 && ls < lmax) {
*s++ = c;
ls++;
*s = '\0';
gotoxy( X0, Y0 );
for ( i = 0; i < X1; i++ )
putch( 32 );
textcolor( cc );
gotoxy( X0, Y0 );
cprintf( "%s", s1 );
} else {
if ( numalp && isdigit(c) && ls < lmax) {
*s++ = c;
ls++;
*s = '\0'; // Cero final
gotoxy( X0, Y0 );
for ( i = 0; i < X1; i++ )
putch( 32 );
textcolor( cc );
gotoxy( X0, Y0 );
cprintf( "%s", s1 );
}
/*<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*/
else if( c == 27 ) {*s='\0'; ok = 1; }
/*<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*/
else BEEP();
}
}
}while(!ok);
_setcursortype( _NOCURSOR );
ok = 1;
*s = ' ';
while( ok && ls >= 0 ) {
if(*s==' ') { *s = '\0'; s--; ls--;
} else { s++; ok = 0; }
}
*s = '\0';
while(kbhit()) getch(); // Vacia Buffer impidiendo falsas
// pulsaciones...
return ( (Status<<8) + (ls&0x00FF) );
}
void BEEP(void)
{
sound(440);
delay(50);
nosound();
}
void formatea_u_long( unsigned long Numero, char *Inter_Chg)
{
char Buffer1[80];
int c;
sprintf(Buffer1, "%lu", Numero);
Inter_Chg[0]='\0';
strrev(Buffer1);
c = strlen( Buffer1 );
while( c >= 3 )
{
c -= 3;
strncat( Inter_Chg, Buffer1, 3);
strrev(Buffer1);
Buffer1[c] = '\0';
strrev(Buffer1);
if(strlen(Buffer1)!=0)
strcat( Inter_Chg, "." );
}
strcat( Inter_Chg, Buffer1);
strrev(Inter_Chg);
/*// return Buffer2;*/
}
int Optar( int optar, ... )
{
struct Boton_Texto BT[6];
int devolver = 0;
BT[0].x = 22; BT[0].y = 15; strcpy( BT[0].Texto, " &Aceptar "); BT[0].ID_T1 = 00; BT[0].ID_T2 = 30;
BT[1].x = 51; BT[1].y = 15; strcpy( BT[1].Texto, " &Cancelar"); BT[1].ID_T1 = 00; BT[1].ID_T2 = 46;
static char fondo[4096];
static char Memoria = 0;
int DEV = 0, ok = 0, linea = 0;
int Center; char *buff;
va_list ap;
va_start( ap, &optar );
if ( Memoria == 1 )
{
puttext( 21, 5, 63, 17, (void *)fondo ); Memoria = 0;
if ( optar == ENCUADRE ) return DEV;
}
Memoria = 1;
gettext( 21, 5, 63, 17, (void *)fondo );
textbackground( BLACK );
textcolor( CYAN );
gotoxy( 21, 5 ); cprintf("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ");
gotoxy( 21, 6 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 7 ); cprintf("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĵ");
gotoxy( 21, 8 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 9 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 10 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 11 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 12 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 13 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 14 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 15 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 16 ); cprintf("<EFBFBD> <20>");
gotoxy( 21, 17 ); cprintf("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>");
textcolor( RED );
linea = 0;
while ( (buff = va_arg(ap, char *)) != NULL )
{
Center = (42 - strlen( buff ) ) / 2;
gotoxy( 21+Center+1, ( (linea == 0 ) ? 6 : 8 + linea ) );
cprintf( "%s", buff );
linea++;
}
va_end(ap);
if ( optar != ENCUADRE )
{
ok = 0; while( kbhit() ) getch(); // Limpiamos posibles teclas en BUFFER
if ( optar == 1 )
do {
switch( Funcion_Botones(STD_BY, 2, BT) )
{
case 0: // No se pulso ningun BOTON
case -2:
case -1:
while( kbhit() ) getch(); // Limpiamos posibles teclas en BUFFER
if ( optar == 0 ) ok = 1;
break;
case 1:
DEV = 1; ok = 1;
break;
case 2:
DEV = 0; ok = 1;
break;
}
}while( !ok );
else { espera_pulsar(); espera_soltar(); }
puttext( 21, 5, 63, 17, (void *)fondo );
Memoria = 0;
}
return DEV;
}