First commit 10/06/1992
This commit is contained in:
commit
b4ad5f43f2
BIN
0.PCX
Normal file
BIN
0.PCX
Normal file
Binary file not shown.
BIN
3.PCX
Normal file
BIN
3.PCX
Normal file
Binary file not shown.
BIN
EGAVGA.BGI
Normal file
BIN
EGAVGA.BGI
Normal file
Binary file not shown.
280
FREC.IMG
Normal file
280
FREC.IMG
Normal file
@ -0,0 +1,280 @@
|
|||||||
|
*
|
||||||
|
* ATENCION, ESTE ES EL CàDIGO FUENTE DE MIS LIBRERIAS PARA GENERAR FONDOS
|
||||||
|
* Y PULSADORES.
|
||||||
|
*
|
||||||
|
* VERSION DEL CODIGO COMPILABLE EN TIEMPO DE EJECUCION
|
||||||
|
*
|
||||||
|
* UTILICE EL PROGRAMA MK_BOTON.EXE PARA CONVERTIR A C++
|
||||||
|
* Y COMPILARLO JUNTO AL CODIGO FUENTE DE LA APLICACION.
|
||||||
|
*
|
||||||
|
* El autor de este programa vende LAS LIBRERIAS que el mismo a fabricado
|
||||||
|
* y con las que estan ello este programa:
|
||||||
|
*
|
||||||
|
* MAKE_BOTON 5.000 ptas ( Crea Pulsadores y FX's sin esfuerzo )
|
||||||
|
* WAVE_GENER 5.000 ptas ( Muestreador y retocador completo )
|
||||||
|
* FX_PACK 5.000 ptas ( N§s Grandes, Letras Despl, MouseP... )
|
||||||
|
* WAVE_PLAY 3.500 ptas ( Librerias de reproducci¢n de waves
|
||||||
|
* de hasta 32 TeraBytes con solo 8 Kb )
|
||||||
|
* XMS_MEMMGR 3.500 ptas ( Clase para manejar la XMS )
|
||||||
|
* B_DATOS 5.000 ptas ( Clase " la gestion de bases de datos )
|
||||||
|
*
|
||||||
|
* Ú---> 15.000 <---Â---> 15.000 <---Ä---> 15.000 <---Â---> 15.000 <---¿
|
||||||
|
* Ã---> 15.000 <---´ TODO EL KIT POR SOLO Ã---> 15.000 <---´
|
||||||
|
* À---> 15.000 <---Á---> 15.000 <---Ä---> 15.000 <---Á---> 15.000 <---Ù
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
* Û Û
|
||||||
|
* Û Pantalla Principal Û
|
||||||
|
* Û Û
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
|
||||||
|
1
|
||||||
|
|
||||||
|
|
||||||
|
* Cuadro de ondas
|
||||||
|
& 0, 120, 640, 480, 7, 63, 56, 2, 2
|
||||||
|
& 5, 125, 635, 284, 0, 56, 63, 1, 2
|
||||||
|
& 5, 288, 635, 313, 1, 56, 63, 1, 2
|
||||||
|
& 5, 317, 635, 475, 0, 56, 63, 1, 2
|
||||||
|
|
||||||
|
* Cuadro de numeros
|
||||||
|
& 0, 0, 240, 120, 7, 63, 56, 2, 2
|
||||||
|
& 8, 8, 232, 82, 0, 56, 63, 2, 2
|
||||||
|
& 8, 87, 232, 112, 0, 56, 63, 2, 2
|
||||||
|
|
||||||
|
* Cuadro de Botone
|
||||||
|
*
|
||||||
|
* COMIENZA EL JUEGO... ( JD EL GENIO DE GENIOS... )
|
||||||
|
*
|
||||||
|
*
|
||||||
|
|
||||||
|
#5
|
||||||
|
|
||||||
|
!1, 33
|
||||||
|
|
||||||
|
* Boton Seleccion Generador/Osciloscopio
|
||||||
|
$ 240, 0, 315, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Boton ejecutar accion GENERAR/OBTENER onda
|
||||||
|
$ 315, 0, 340, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* ????????????????????????????????????
|
||||||
|
$ 240, 24, 315, 48, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* ????????????????????????????????????
|
||||||
|
$ 315, 24, 340, 48, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* Boton Salvar
|
||||||
|
$ 240, 48, 340, 72, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Boton Cargar
|
||||||
|
$ 240, 72, 340, 96, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* Boton Salir
|
||||||
|
$ 240, 96, 340, 120, 7, 63, 56, 2, 2, 83, 00
|
||||||
|
|
||||||
|
|
||||||
|
* Boton Ayuda on-Line
|
||||||
|
$ 340, 0, 365, 30, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Boton Creditos
|
||||||
|
$ 340, 30, 365, 60, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Boton REGISTRO / MI LICENCIA
|
||||||
|
$ 340, 60, 365, 120, 7, 63, 56, 2, 2
|
||||||
|
|
||||||
|
|
||||||
|
* Cuadro/Boton Amplitud
|
||||||
|
& 540, 0, 615, 24, 7, 63, 56, 2, 2
|
||||||
|
$ 542, 2, 613, 22, 0, 56, 63, 2, 2, 00, 00
|
||||||
|
& 540, 24, 615, 48, 7, 63, 56, 2, 2
|
||||||
|
$ 542, 26, 613, 46, 0, 56, 63, 2, 2, 00, 00
|
||||||
|
* Cuadro/Boton unidad
|
||||||
|
& 611, 0, 640, 24, 7, 63, 56, 2, 2
|
||||||
|
$ 613, 2, 638, 22, 0, 56, 63, 2, 2, 00, 00
|
||||||
|
& 611, 24, 640, 48, 7, 63, 56, 2, 2
|
||||||
|
$ 613, 26, 638, 46, 0, 56, 63, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* Botones de cursor y acciones mas precisas para estos
|
||||||
|
*
|
||||||
|
$ 615, 48, 640, 72, 7, 63, 56, 2, 2, 00, 73
|
||||||
|
* --------->>>>>> Flecha derecha
|
||||||
|
$ 615, 72, 640, 96, 7, 63, 56, 2, 2, 00, 77
|
||||||
|
* Marcar Parte de la onda
|
||||||
|
$ 615, 96, 640, 120, 7, 63, 56, 2, 2, 00, 81
|
||||||
|
|
||||||
|
* ^^^^^ Flecha arriba
|
||||||
|
$ 590, 48, 615, 72, 7, 63, 56, 2, 2, 00, 72
|
||||||
|
* Centrar cero
|
||||||
|
$ 590, 72, 615, 96, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* \/ \/ \/ \/ \/ Flecha abajo
|
||||||
|
$ 590, 96, 615, 120, 7, 63, 56, 2, 2, 00, 80
|
||||||
|
|
||||||
|
*
|
||||||
|
$ 565, 48, 590, 72, 7, 63, 56, 2, 2, 00, 71
|
||||||
|
* <<<<<<-------- Flecha izquierda
|
||||||
|
$ 565, 72, 590, 96, 7, 63, 56, 2, 2, 00, 75
|
||||||
|
* Ground ( Tierra )
|
||||||
|
$ 565, 96, 590, 120, 7, 63, 56, 2, 2, 00, 79
|
||||||
|
|
||||||
|
* Selecciona la onda completa
|
||||||
|
$ 540, 48, 565, 120, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* Creacion de onda predefinida
|
||||||
|
* Estancar proceso
|
||||||
|
$ 365, 0, 395, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Retroceder tipo de onda
|
||||||
|
$ 395, 0, 424, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Onda pred. 1, 2, 3
|
||||||
|
$ 424, 0, 453, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
$ 453, 0, 482, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
$ 482, 0, 511, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Avanzar tipo de onda
|
||||||
|
$ 511, 0, 540, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
|
||||||
|
$ 365, 24, 424, 48, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
*
|
||||||
|
$ 424, 24, 482, 48, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
*
|
||||||
|
$ 482, 24, 540, 48, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* | 397, 50, 2, 4, 0, 63, MMMMMMMMM-MMMMMMMMM-MMMMMMMMM-,
|
||||||
|
|
||||||
|
2
|
||||||
|
|
||||||
|
| 240, 50, 2, 6, 0, 63, Salvar,
|
||||||
|
| 241, 51, 2, 6, 0, 0, Salvar,
|
||||||
|
| 240, 74, 2, 6, 0, 63, Cargar,
|
||||||
|
| 241, 75, 2, 6, 0, 0, Cargar,
|
||||||
|
| 240, 98, 2, 6, 0, 63, Salir,
|
||||||
|
| 241, 99, 2, 6, 0, 0, Salir,
|
||||||
|
| 240, 99, 2, 6, 0, 63, _,
|
||||||
|
| 241, 100, 2, 6, 0, 0, _,
|
||||||
|
|
||||||
|
| 614, 108, 2, 2, 0, 63, Marca,
|
||||||
|
| 615, 109, 2, 2, 0, 0, Marca,
|
||||||
|
| 563, 107, 2, 4, 0, 63, GND,
|
||||||
|
| 564, 108, 2, 4, 0, 0, GND,
|
||||||
|
| 382, 1, 2, 4, 1, 63, CRT,
|
||||||
|
| 383, 2, 2, 4, 1, 0, CRT,
|
||||||
|
|
||||||
|
!2, 1
|
||||||
|
$ 204, 274, 276, 291, 7, 56, 63, -2, 1, 00, 30
|
||||||
|
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
* Û Û
|
||||||
|
* Û Casilla de pregunta ( OPTAR por.... ACEPTAR CANCELAR Û
|
||||||
|
* Û Û
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
|
||||||
|
100
|
||||||
|
& 200, 212, 440, 267, 7, 56, 63, 2, 1
|
||||||
|
& 205, 217, 435, 262, 7, 63, 56, -2, 1
|
||||||
|
|
||||||
|
* Boton Aceptar
|
||||||
|
& 200, 270, 280, 295, 7, 63, 56, 2, 1
|
||||||
|
* Boton Cancelar
|
||||||
|
& 360, 270, 440, 295, 7, 63, 56, 2, 1
|
||||||
|
|
||||||
|
101
|
||||||
|
| 200, 274, 2, 5, 0, 63, Aceptar,
|
||||||
|
| 201, 275, 2, 5, 0, 0, Aceptar,
|
||||||
|
| 200, 274, 2, 5, 0, 14, A,
|
||||||
|
| 201, 275, 2, 5, 0, 0, A,
|
||||||
|
|
||||||
|
|
||||||
|
| 340, 274, 2, 5, 0, 63, Cancelar,
|
||||||
|
| 341, 275, 2, 5, 0, 0, Cancelar,
|
||||||
|
| 340, 274, 2, 5, 0, 14, C,
|
||||||
|
| 341, 275, 2, 5, 0, 0, C,
|
||||||
|
|
||||||
|
|
||||||
|
!3, 2
|
||||||
|
* Boton Aceptar
|
||||||
|
$ 204, 274, 276, 291, 7, 56, 63, -2, 1, 00, 30
|
||||||
|
* Boton Cancelar
|
||||||
|
$ 364, 274, 436, 291, 7, 56, 63, -2, 1, 00, 46
|
||||||
|
|
||||||
|
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
* Û Û
|
||||||
|
* Û File Browser Û
|
||||||
|
* Û Û
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
|
||||||
|
!4, 4
|
||||||
|
|
||||||
|
*Cuadro Cancelar
|
||||||
|
$ 377, 169, 391, 221, 7, 56, 63, 0, 1, 00, 46
|
||||||
|
*Boton Aceptar
|
||||||
|
$ 377, 223, 391, 276, 7, 56, 63, 0, 1, 00, 30
|
||||||
|
|
||||||
|
* Subir
|
||||||
|
$ 377, 278, 391, 303, 7, 56, 63, 0, 1, 00, 72
|
||||||
|
* Bajar
|
||||||
|
$ 377, 305, 391, 330, 7, 56, 63, 0, 1, 00, 80
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
* x y fuente tama¤o orientacion color texto
|
||||||
|
|
||||||
|
* Men£ para Cargar o Salvar
|
||||||
|
10
|
||||||
|
|
||||||
|
*Cuadro Total
|
||||||
|
& 240, 140, 400, 340, 7, 63, 56, 2, 1
|
||||||
|
& 243, 143, 397, 337, 7, 56, 63, -2, 1
|
||||||
|
*Cuadro Informativo
|
||||||
|
& 250, 150, 391, 164, 7, 56, 63, -0, 1
|
||||||
|
*Cuadro introduccion nuevos datos
|
||||||
|
& 250, 169, 375, 180, 0, 56, 63, 0, 1
|
||||||
|
*Cuadro de muestreo
|
||||||
|
& 250, 185, 375, 330, 0, 56, 63, 0, 1
|
||||||
|
|
||||||
|
*Cuadro Cancelar
|
||||||
|
& 377, 169, 391, 221, 7, 56, 63, 0, 1
|
||||||
|
*Boton Aceptar
|
||||||
|
& 377, 223, 391, 276, 7, 56, 63, 0, 1
|
||||||
|
|
||||||
|
* Subir
|
||||||
|
& 377, 278, 391, 303, 7, 56, 63, 0, 1
|
||||||
|
* Bajar
|
||||||
|
& 377, 305, 391, 330, 7, 56, 63, 0, 1
|
||||||
|
|
||||||
|
|377, 169, 2, 4, 1, 63, Cancelar,
|
||||||
|
|378, 170, 2, 4, 1, 0, Cancelar,
|
||||||
|
|377, 169, 2, 4, 1, 2, C ,
|
||||||
|
|378, 170, 2, 4, 1, 0, C ,
|
||||||
|
|377, 223, 2, 4, 1, 63, Aceptar ,
|
||||||
|
|378, 224, 2, 4, 1, 0, Aceptar ,
|
||||||
|
|377, 223, 2, 4, 1, 2, A ,
|
||||||
|
|378, 224, 2, 4, 1, 0, A ,
|
||||||
|
|
||||||
|
|377, 288, 2, 4, 0, 63, -,
|
||||||
|
|378, 289, 2, 4, 0, 0, -,
|
||||||
|
|377, 315, 2, 4, 0, 63, +,
|
||||||
|
|378, 316, 2, 4, 0, 0, +,
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
********************************************************************************
|
||||||
|
**** Prueba del pulsador derecho... *******************************************
|
||||||
|
********************************************************************************
|
||||||
|
!5, 7
|
||||||
|
* Boton Cerrar seleccion derecho
|
||||||
|
$ 0, 0, 25, 52, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
|
||||||
|
* Boton seleccion DISPERSION
|
||||||
|
$ 30, 0, 105, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
$ 50, 3, 103, 21, 0, 56, 63, 2, 1, 00, 00
|
||||||
|
|
||||||
|
* Boton seleccion PRESICIàN
|
||||||
|
$ 30, 29, 105, 52, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
$ 50, 32, 103, 49, 0, 56, 63, 2, 1, 00, 00
|
||||||
|
|
||||||
|
* Subir selecci¢n
|
||||||
|
$ 110, 0, 135, 24, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* Bajar selecci¢n
|
||||||
|
$ 110, 29, 135, 52, 7, 63, 56, 2, 2, 00, 00
|
||||||
|
* TODO EL CUADRO MIDE: (0, 0) - (135, 52)
|
||||||
|
********************************************************************************
|
||||||
|
********************************************************************************
|
||||||
|
********************************************************************************
|
||||||
|
|
||||||
BIN
LITT.CHR
Normal file
BIN
LITT.CHR
Normal file
Binary file not shown.
758
LLAVE.CPP
Normal file
758
LLAVE.CPP
Normal file
@ -0,0 +1,758 @@
|
|||||||
|
#define SEC_OPTAR 2
|
||||||
|
#define ENCUADRE 3
|
||||||
|
|
||||||
|
#include <math.h>
|
||||||
|
|
||||||
|
#include <io.h>
|
||||||
|
#include <dos.h>
|
||||||
|
#include <time.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <conio.h>
|
||||||
|
#include <alloc.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <graphics.h>
|
||||||
|
|
||||||
|
#include "..\libs\make_bot\make_bot.h" // Fuciones de MAKE_BOTON
|
||||||
|
|
||||||
|
#define PULSO_QUE_CABEN 48
|
||||||
|
#define ANCHO_PULSO 12
|
||||||
|
#define ALTO_PULSO 12
|
||||||
|
extern void ponicono(int x,int y,char matriz[18][18], char pos);
|
||||||
|
extern char flecha [18] [18];
|
||||||
|
|
||||||
|
typedef struct
|
||||||
|
{
|
||||||
|
int x, y; // Coordenadas iniciales de muestreo
|
||||||
|
char ndigitos; // n£mero de digitos a mostrar
|
||||||
|
char AX, AY; // factor de espaciado
|
||||||
|
char C1, C2, C3; // colores de fondo, texto, borde
|
||||||
|
|
||||||
|
// Datos privados y uso interno exclusivamente
|
||||||
|
unsigned int Flen; // longitud de la frase actual
|
||||||
|
char BitByte; // bit del byte por el que va en el recorrido
|
||||||
|
char currByte; // byte actual dentro de la frase
|
||||||
|
} p_Ampliada;
|
||||||
|
|
||||||
|
#define OFF 0
|
||||||
|
#define ON 1
|
||||||
|
|
||||||
|
#ifdef __cplusplus
|
||||||
|
#define __CPPARGS ...
|
||||||
|
#else
|
||||||
|
#define __CPPARGS
|
||||||
|
#endif
|
||||||
|
#define INTR 0X1C /* The clock tick interrupt */
|
||||||
|
|
||||||
|
char count = 0, intvect = OFF, IntVect = OFF;
|
||||||
|
|
||||||
|
extern int Optar( int optar, ...);
|
||||||
|
|
||||||
|
void AnulaInterrupcion(void);
|
||||||
|
void interrupt handler(__CPPARGS);
|
||||||
|
void interrupt ( *oldhandler)(__CPPARGS);
|
||||||
|
char *ptr_char;
|
||||||
|
|
||||||
|
void DibujaPulsos( long comienzo, char bit, char far *Datos, int x, int y, char color, long TotalPulsos );
|
||||||
|
void LeeFuentes(char *file);
|
||||||
|
void Fuente_Amplia( char *Frase, p_Ampliada far *FA );
|
||||||
|
void DibujaFondo(void);
|
||||||
|
void DibujaSeparadores( int X1, int Y1, int X2, int Y2, char color );
|
||||||
|
|
||||||
|
void Error( int code, char *MensajeError );
|
||||||
|
|
||||||
|
void BorraPantalla(void);
|
||||||
|
void ComienzaRutina(void);
|
||||||
|
|
||||||
|
extern char file_browser( char *comodin_name, char *texto1, char Cargar_Salvar );
|
||||||
|
|
||||||
|
long InicioPulso[6][2];
|
||||||
|
|
||||||
|
void CargarOnda( char *file, char far *Datos, char Ventana );
|
||||||
|
void SalvarOnda( char *file, char far *Datos, char Ventana );
|
||||||
|
|
||||||
|
char far *Datos[2];
|
||||||
|
|
||||||
|
int TiempoEspera = 5, DIR_LPT = 0x378, ANGULO = 0;
|
||||||
|
|
||||||
|
int main( int argc, char *argv[] )
|
||||||
|
{
|
||||||
|
|
||||||
|
int i;
|
||||||
|
long j;
|
||||||
|
char buffer[4][80] = { "Jos‚ David Guill‚n || _-ùFuTuRe ViSiOnù-_ || 1996 (c)",
|
||||||
|
" ",
|
||||||
|
" e-mail: Jose-David.Guillen@cs.us.es ",
|
||||||
|
" " };
|
||||||
|
|
||||||
|
if ( argc == 2 )
|
||||||
|
{
|
||||||
|
TiempoEspera = atoi(argv[1]);
|
||||||
|
if ( TiempoEspera < 0 || TiempoEspera > 1000 )
|
||||||
|
TiempoEspera = 5;
|
||||||
|
}
|
||||||
|
if ( argc == 3 )
|
||||||
|
{
|
||||||
|
DIR_LPT = atoi( argv[2] );
|
||||||
|
if ( DIR_LPT < 0 )
|
||||||
|
DIR_LPT = 0x379;
|
||||||
|
|
||||||
|
}
|
||||||
|
if ( argc == 4 )
|
||||||
|
{
|
||||||
|
ANGULO = atoi( argv[3] );
|
||||||
|
if ( ANGULO < 0 )
|
||||||
|
ANGULO = 0;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if ( atexit( AnulaInterrupcion ) != 0 )
|
||||||
|
intvect = OFF;
|
||||||
|
else
|
||||||
|
intvect = ON;
|
||||||
|
|
||||||
|
True_Push = ON; PunteroRaton = 1;
|
||||||
|
Initialize( 9, 2 ); // Inicializa el Modo Gr fico
|
||||||
|
inicializa_raton_grafico( 0, 0, 639, 479 );
|
||||||
|
setrgbpalette(EGA_WHITE, 56, 58, 59 );
|
||||||
|
setrgbpalette(EGA_LIGHTGRAY, 30, 37, 43 );
|
||||||
|
setrgbpalette(EGA_DARKGRAY, 24, 27, 30 );
|
||||||
|
|
||||||
|
if ( carga_botones( "llave.img" ) != OK ) Error( 0x03, "Make Boton, no pudo cargar los botones" );
|
||||||
|
|
||||||
|
if ( ( Datos[0] = (char far *)farcalloc( 100000, sizeof(char) ) ) == NULL )
|
||||||
|
{
|
||||||
|
Optar( 0, "ERROR DE MEMORIA", "Memoria insuficiente", "para la primera forma", "de onda.", NULL );
|
||||||
|
closegraph();
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( ( Datos[1] = (char far *)farcalloc( 100000, sizeof(char) ) ) == NULL )
|
||||||
|
{
|
||||||
|
farfree( Datos[0] );
|
||||||
|
Optar( 0, "ERROR DE MEMORIA", "Memoria insuficiente", "para la segunda forma", "de onda.", NULL );
|
||||||
|
closegraph();
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
_fmemcpy( Datos[0], &i, 50000 );
|
||||||
|
|
||||||
|
if ( intvect == ON )
|
||||||
|
{
|
||||||
|
// save the old interrupt vector
|
||||||
|
oldhandler = getvect(INTR);
|
||||||
|
// install the new interrupt handler
|
||||||
|
setvect(INTR, handler);
|
||||||
|
|
||||||
|
IntVect = ON;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( ( ptr_char = ( char *)malloc( sizeof(char)*4096 ) ) == NULL )
|
||||||
|
Error( 0x06, "Error inicializando Memoria, fuentes" );
|
||||||
|
LeeFuentes("llave.fnt");
|
||||||
|
|
||||||
|
|
||||||
|
DibujaFondo();
|
||||||
|
|
||||||
|
ComienzaRutina();
|
||||||
|
|
||||||
|
BorraPantalla();
|
||||||
|
|
||||||
|
free( ptr_char );
|
||||||
|
AnulaInterrupcion();
|
||||||
|
|
||||||
|
closegraph();
|
||||||
|
|
||||||
|
printf( "\n%s", buffer[0] );
|
||||||
|
printf( "\n%s", buffer[1] );
|
||||||
|
printf( "\n%s", buffer[2] );
|
||||||
|
printf( "\n%s", buffer[3] );
|
||||||
|
|
||||||
|
farfree( Datos[0] );
|
||||||
|
farfree( Datos[1] );
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
void ComienzaRutina(void)
|
||||||
|
{
|
||||||
|
int ok, BPush, VentanaActiva, i, j;
|
||||||
|
long DLectura;
|
||||||
|
char buffer[280];
|
||||||
|
|
||||||
|
// Temporal hasta que existan datos reales...
|
||||||
|
/*
|
||||||
|
Datos[0] = (char *)&ok;
|
||||||
|
Datos[1] = (char *)&ok;
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
VentanaActiva = 0;
|
||||||
|
for ( j = 0; j < 2; j++ )
|
||||||
|
for ( i = 0; i < 5; i++ )
|
||||||
|
InicioPulso[i][j] = 0;
|
||||||
|
|
||||||
|
InicioPulso[5][0] = 100000;
|
||||||
|
InicioPulso[5][1] = 100000;
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27, 630, 193, EGA_RED );
|
||||||
|
DibujaSeparadores( 63, 27 + 250, 630, 193 + 250, EGA_RED );
|
||||||
|
// Borramos los pulsos anteriores, y los desplazamos
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][0], 0x01 << j, Datos[0], 63, 42 + 30*j + 0, EGA_GREEN, InicioPulso[5][0] );
|
||||||
|
DibujaPulsos( InicioPulso[j][1], 0x01 << j, Datos[1], 63, 42 + 30*j + 250, EGA_GREEN, InicioPulso[5][1] );
|
||||||
|
}
|
||||||
|
|
||||||
|
// Flecha hacia arriba
|
||||||
|
ponicono( 20, 225, flecha, 2 );
|
||||||
|
|
||||||
|
|
||||||
|
ok = 0;
|
||||||
|
do {
|
||||||
|
|
||||||
|
// Actualiza todos los puntos
|
||||||
|
setfillstyle( SOLID_FILL, EGA_BLACK );
|
||||||
|
setcolor( EGA_WHITE );
|
||||||
|
for ( i = 0; i < 2; i++ )
|
||||||
|
for ( j = 0; j < 5; j++ )
|
||||||
|
{
|
||||||
|
bar( 12, 42+31*j + 250*i, 52, 53+31*j + 250*i );
|
||||||
|
sprintf( buffer, "%7ld", InicioPulso[j][i] );
|
||||||
|
outtextxy( 12, 41 + 31*j + 250*i, buffer );
|
||||||
|
}
|
||||||
|
|
||||||
|
BPush = Comprueba_Secuencia( 1, NULL );
|
||||||
|
|
||||||
|
switch( BPush )
|
||||||
|
{
|
||||||
|
case -2:
|
||||||
|
case -1:
|
||||||
|
case -0:
|
||||||
|
while( kbhit() ) getch();
|
||||||
|
break;
|
||||||
|
// Salir
|
||||||
|
case 1:
|
||||||
|
ok = 1;
|
||||||
|
break;
|
||||||
|
// Cambio de Ventana
|
||||||
|
case 2:
|
||||||
|
VentanaActiva = !VentanaActiva;
|
||||||
|
// Flecha hacia arriba
|
||||||
|
ponicono( 20, 225, flecha, VentanaActiva == 0 ? 2 : 4 );
|
||||||
|
|
||||||
|
break;
|
||||||
|
// Desplazamiento de ondas (IZQUIERDA )
|
||||||
|
case 3:
|
||||||
|
case 4:
|
||||||
|
case 5:
|
||||||
|
case 6:
|
||||||
|
case 7:
|
||||||
|
InicioPulso[BPush-3][VentanaActiva] --;
|
||||||
|
if ( InicioPulso[BPush-3][VentanaActiva] < 0 )
|
||||||
|
{
|
||||||
|
InicioPulso[BPush-3][VentanaActiva] = 0;
|
||||||
|
} else {
|
||||||
|
// Borramos la onda anterior
|
||||||
|
DibujaPulsos( InicioPulso[BPush-3][VentanaActiva] + 1, 0x01 << (BPush - 3), Datos[VentanaActiva], 63, 42 + 30*(BPush-3) + ( VentanaActiva ? 250 : 0 ), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
|
||||||
|
// Dibujamos la nueva onda
|
||||||
|
DibujaPulsos( InicioPulso[BPush-3][VentanaActiva], 0x01 << (BPush - 3), Datos[VentanaActiva], 63, 42 + 30*(BPush-3) + ( VentanaActiva ? 250 : 0 ), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
// Desplazamiento de ondas (DERECHA)
|
||||||
|
case 8:
|
||||||
|
case 9:
|
||||||
|
case 10:
|
||||||
|
case 11:
|
||||||
|
case 12:
|
||||||
|
InicioPulso[BPush-8][VentanaActiva] ++;
|
||||||
|
if ( InicioPulso[BPush-8][VentanaActiva] > InicioPulso[5][VentanaActiva] )
|
||||||
|
{
|
||||||
|
InicioPulso[BPush-8][VentanaActiva] --;
|
||||||
|
} else {
|
||||||
|
// Borramos la onda anterior
|
||||||
|
DibujaPulsos( InicioPulso[BPush-8][VentanaActiva] - 1, 0x01 << (BPush - 8), Datos[VentanaActiva], 63, 42 + 30*(BPush-8) + (VentanaActiva ? 250 : 0), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
|
||||||
|
// Dibujamos la nueva onda
|
||||||
|
DibujaPulsos( InicioPulso[BPush-8][VentanaActiva], 0x01 << (BPush - 8), Datos[VentanaActiva], 63, 42 + 30*(BPush-8) + (VentanaActiva ? 250 : 0), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
// Desplazamiento de pulsos TODAS (IZQUIERDA)
|
||||||
|
case 13:
|
||||||
|
// Borramos los pulsos anteriores, y los desplazamos
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
InicioPulso[j][VentanaActiva]--;
|
||||||
|
if ( InicioPulso[j][VentanaActiva] < 0 )
|
||||||
|
InicioPulso[j][VentanaActiva] = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27 + (VentanaActiva ? 250 : 0 ), 630, 193 + (VentanaActiva ? 250 : 0 ), EGA_RED );
|
||||||
|
|
||||||
|
// Dibujamos los nuevos pulsos.
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
break;
|
||||||
|
// Reset de todos los pulsos
|
||||||
|
case 14:
|
||||||
|
// Borramos los pulsos anteriores, y los reseteamos
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
InicioPulso[j][VentanaActiva] = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27 + (VentanaActiva ? 250 : 0 ), 630, 193 + (VentanaActiva ? 250 : 0 ), EGA_RED );
|
||||||
|
|
||||||
|
// Dibujamos los nuevos pulsos.
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
break;
|
||||||
|
// Al final de todos los pulso
|
||||||
|
case 15:
|
||||||
|
// Borramos los pulsos anteriores, nos colocamos al final
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
InicioPulso[j][VentanaActiva] = InicioPulso[5][VentanaActiva] - PULSO_QUE_CABEN;
|
||||||
|
}
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27 + (VentanaActiva ? 250 : 0 ), 630, 193 + (VentanaActiva ? 250 : 0 ), EGA_RED );
|
||||||
|
|
||||||
|
// Dibujamos los nuevos pulsos.
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
break;
|
||||||
|
// Desplazamiento de pulsoso TODOS (Derecha)
|
||||||
|
case 16:
|
||||||
|
// Borramos los pulsos anteriores, y los desplazamos
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_BLACK, InicioPulso[5][VentanaActiva] );
|
||||||
|
InicioPulso[j][VentanaActiva]++;
|
||||||
|
if ( InicioPulso[j][VentanaActiva] > InicioPulso[5][VentanaActiva] )
|
||||||
|
InicioPulso[j][VentanaActiva]--;
|
||||||
|
}
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27 + (VentanaActiva ? 250 : 0 ), 630, 193 + (VentanaActiva ? 250 : 0 ), EGA_RED );
|
||||||
|
|
||||||
|
// Dibujamos los nuevos pulsos.
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
DibujaPulsos( InicioPulso[j][VentanaActiva], 0x01 << j, Datos[VentanaActiva], 63, 42 + 30*j + ( VentanaActiva ? 250 : 0 ), EGA_GREEN, InicioPulso[5][VentanaActiva] );
|
||||||
|
break;
|
||||||
|
// CARGAR
|
||||||
|
case 17:
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][0], 0x01 << j, Datos[0], 63, 42 + 30*j + 0, EGA_BLACK, InicioPulso[5][0] );
|
||||||
|
DibujaPulsos( InicioPulso[j][1], 0x01 << j, Datos[1], 63, 42 + 30*j + 250, EGA_BLACK, InicioPulso[5][1] );
|
||||||
|
}
|
||||||
|
|
||||||
|
strcpy( buffer, "*.llv" );
|
||||||
|
if ( file_browser( buffer, "Cargar Archivo", 0 ) )
|
||||||
|
CargarOnda( buffer, Datos[VentanaActiva], VentanaActiva );
|
||||||
|
|
||||||
|
DibujaSeparadores( 63, 27, 630, 193, EGA_RED );
|
||||||
|
DibujaSeparadores( 63, 27 + 250, 630, 193 + 250, EGA_RED );
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][0], 0x01 << j, Datos[0], 63, 42 + 30*j + 0, EGA_BLACK, InicioPulso[5][0] );
|
||||||
|
DibujaPulsos( InicioPulso[j][1], 0x01 << j, Datos[1], 63, 42 + 30*j + 250, EGA_BLACK, InicioPulso[5][1] );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
// SALVAR
|
||||||
|
case 18:
|
||||||
|
strcpy( buffer, "*.llv" );
|
||||||
|
if ( file_browser( buffer, "Salvar Archivo", 1 ) )
|
||||||
|
SalvarOnda( buffer, Datos[VentanaActiva], VentanaActiva );
|
||||||
|
break;
|
||||||
|
// LEER ONDA
|
||||||
|
case 19:
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][0], 0x01 << j, Datos[0], 63, 42 + 30*j + 0, EGA_BLACK, InicioPulso[5][0] );
|
||||||
|
DibujaPulsos( InicioPulso[j][1], 0x01 << j, Datos[1], 63, 42 + 30*j + 250, EGA_BLACK, InicioPulso[5][1] );
|
||||||
|
}
|
||||||
|
Optar( 0, "Lectura de Onda", "Prepare el chisme, y", "pulse una tecla cuando este", "preparado...", NULL );
|
||||||
|
Optar( ENCUADRE, "Leyendo Onda", "Presione una cualquier", "tecla para interrumpir el", "proceso...", NULL );
|
||||||
|
|
||||||
|
outportb( DIR_LPT + 0, 0xFF );
|
||||||
|
outportb( DIR_LPT + 1, 0x01 );
|
||||||
|
// Comienza lectura
|
||||||
|
for ( DLectura=0; DLectura < InicioPulso[5][VentanaActiva] && !kbhit(); DLectura++ )
|
||||||
|
{
|
||||||
|
Datos[VentanaActiva][DLectura] = inportb( DIR_LPT );
|
||||||
|
|
||||||
|
sin( ANGULO );
|
||||||
|
delay(TiempoEspera);
|
||||||
|
}
|
||||||
|
|
||||||
|
while( kbhit() ) getch();
|
||||||
|
|
||||||
|
Optar( ENCUADRE, NULL );
|
||||||
|
DibujaSeparadores( 63, 27, 630, 193, EGA_RED );
|
||||||
|
DibujaSeparadores( 63, 27 + 250, 630, 193 + 250, EGA_RED );
|
||||||
|
// Borramos los pulsos anteriores, y los desplazamos
|
||||||
|
for ( j = 0; j < 5; j ++ )
|
||||||
|
{
|
||||||
|
DibujaPulsos( InicioPulso[j][0], 0x01 << j, Datos[0], 63, 42 + 30*j + 0, EGA_GREEN, InicioPulso[5][0] );
|
||||||
|
DibujaPulsos( InicioPulso[j][1], 0x01 << j, Datos[1], 63, 42 + 30*j + 250, EGA_GREEN, InicioPulso[5][1] );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}while ( !ok );
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
void CargarOnda( char *file, char far *Datos, char Ventana )
|
||||||
|
{
|
||||||
|
FILE *file_in;
|
||||||
|
int i;
|
||||||
|
char buffer[80];
|
||||||
|
|
||||||
|
struct CABECERA
|
||||||
|
{
|
||||||
|
long DPulsos[6];
|
||||||
|
} Cabecera;
|
||||||
|
|
||||||
|
if ( ( file_in = fopen( file, "rb" ) ) != NULL )
|
||||||
|
{
|
||||||
|
fread( &Cabecera, sizeof( CABECERA ), 1, file_in );
|
||||||
|
|
||||||
|
farfree( Datos );
|
||||||
|
if ( ( Datos = (char far *)farmalloc( sizeof(char)*Cabecera.DPulsos[5] ) ) == NULL )
|
||||||
|
{
|
||||||
|
sprintf( buffer, "longitud %ld bytes.", (long)(sizeof(char)*Cabecera.DPulsos[5]) );
|
||||||
|
Optar( 0, "ATENCION !!!", "No hay suficiente memoria", "no pude cargar el pulso", buffer, NULL );
|
||||||
|
for ( i = 0; i < 6; i++ )
|
||||||
|
Cabecera.DPulsos[i] = 0;
|
||||||
|
} else {
|
||||||
|
fseek( file_in, sizeof( CABECERA ), SEEK_SET );
|
||||||
|
fread( Datos, sizeof(char), Cabecera.DPulsos[5], file_in );
|
||||||
|
}
|
||||||
|
|
||||||
|
for ( i = 0; i < 6; i++ )
|
||||||
|
InicioPulso[i][Ventana] = Cabecera.DPulsos[i];
|
||||||
|
|
||||||
|
|
||||||
|
fclose(file_in);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void SalvarOnda( char *file, char far *Datos, char Ventana )
|
||||||
|
{
|
||||||
|
FILE *file_out;
|
||||||
|
int i;
|
||||||
|
|
||||||
|
struct CABECERA
|
||||||
|
{
|
||||||
|
long DPulsos[6];
|
||||||
|
} Cabecera;
|
||||||
|
|
||||||
|
if ( ( file_out = fopen( file, "wb" ) ) != NULL )
|
||||||
|
{
|
||||||
|
for ( i = 0; i < 6; i++ )
|
||||||
|
Cabecera.DPulsos[i] = InicioPulso[i][Ventana];
|
||||||
|
|
||||||
|
fwrite( &Cabecera, sizeof( CABECERA ), 1, file_out );
|
||||||
|
fseek( file_out, sizeof( CABECERA ), SEEK_SET );
|
||||||
|
fwrite( Datos, sizeof(char), Cabecera.DPulsos[5], file_out );
|
||||||
|
|
||||||
|
fclose(file_out);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void BorraPantalla(void)
|
||||||
|
{
|
||||||
|
int CLS;
|
||||||
|
setcolor( 0 );
|
||||||
|
randomize();
|
||||||
|
|
||||||
|
switch( random(4)+1 )
|
||||||
|
{
|
||||||
|
case 1:
|
||||||
|
for ( CLS = 0; CLS < 640; CLS+=2 )
|
||||||
|
{
|
||||||
|
line( CLS, 0, CLS, 479 );
|
||||||
|
line( 639-CLS, 0, 639-CLS, 479 );
|
||||||
|
delay( 10 );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
for ( CLS = 0; CLS < 480; CLS+=2 )
|
||||||
|
{
|
||||||
|
line( 0, CLS, 639, CLS );
|
||||||
|
line( 0, 479-CLS, 639, 479-CLS );
|
||||||
|
delay( 10 );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
for ( CLS = 0; CLS < 640*2; CLS+=2 )
|
||||||
|
{
|
||||||
|
line( 639-CLS, 0, 639 , CLS );
|
||||||
|
line( CLS, 479, 0, 480-CLS );
|
||||||
|
delay( 10 );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 4:
|
||||||
|
for ( CLS = 0; CLS < 640*2; CLS+=2 )
|
||||||
|
{
|
||||||
|
line( CLS, 0, 0, CLS );
|
||||||
|
line( 640-CLS, 479, 639, 480-CLS );
|
||||||
|
delay( 10 );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
void DibujaPulsos( long comienzo, char And_bit, char far *Datos, int x, int y, char color, long TotalPulsos )
|
||||||
|
{
|
||||||
|
long Pulso;
|
||||||
|
|
||||||
|
// seleccionamos el color de usuario
|
||||||
|
setcolor( color );
|
||||||
|
|
||||||
|
y += ALTO_PULSO + 5;
|
||||||
|
|
||||||
|
// moveto( x, y + ( comienzo > 0 ? ( ( Datos[comienzo-1] & And_bit ) ? ALTO_PULSO : 0 ) : 0 ) );
|
||||||
|
moveto( x, y - ( comienzo > 0 ? ( ( Datos[comienzo] & And_bit ) ? ALTO_PULSO : 0 ) : 0 ) );
|
||||||
|
for ( Pulso = comienzo; Pulso < ( comienzo + PULSO_QUE_CABEN ) & Pulso < TotalPulsos; Pulso++, x+=ANCHO_PULSO )
|
||||||
|
{
|
||||||
|
lineto( x, y - ( ( Datos[Pulso] & And_bit ) ? ALTO_PULSO : 0 ) );
|
||||||
|
lineto( x, y - ( ( Datos[Pulso+1] & And_bit ) ? ALTO_PULSO : 0 ) );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void DibujaSeparadores( int X1, int Y1, int X2, int Y2, char color )
|
||||||
|
{
|
||||||
|
setcolor( color );
|
||||||
|
|
||||||
|
setlinestyle( CENTER_LINE, 0, NORM_WIDTH );
|
||||||
|
|
||||||
|
for ( ; X1 < X2; X1 += ANCHO_PULSO )
|
||||||
|
line( X1, Y1, X1, Y2 );
|
||||||
|
|
||||||
|
setlinestyle( SOLID_LINE, 0, NORM_WIDTH );
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void DibujaFondo(void)
|
||||||
|
{
|
||||||
|
FILE *fp;
|
||||||
|
int alto, ancho; unsigned char byte; int contador; char BitMap[40][40];
|
||||||
|
|
||||||
|
int x, y, vez = -1;
|
||||||
|
|
||||||
|
if ( ( fp = fopen ( "1.PCX", "rb" ) ) != NULL )
|
||||||
|
{
|
||||||
|
// Saltamos la cabecera
|
||||||
|
fseek( fp, 128, SEEK_SET );
|
||||||
|
|
||||||
|
for(alto=0; alto<32; alto++)
|
||||||
|
{
|
||||||
|
for(ancho=0; ancho<32; )
|
||||||
|
{
|
||||||
|
byte=getc(fp);
|
||||||
|
if(byte<=0xC0)
|
||||||
|
{
|
||||||
|
if ( vez == -1 ) vez = byte;
|
||||||
|
BitMap[ancho%32][alto%32] = byte;
|
||||||
|
ancho++;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
contador=byte&0x3F; byte=getc(fp);
|
||||||
|
for(; contador>0; contador--)
|
||||||
|
{
|
||||||
|
BitMap[ancho%32][alto%32] = byte;
|
||||||
|
ancho++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Rellenamos la pantalla con un fondo atractivo...
|
||||||
|
setfillstyle( SOLID_FILL, vez ); bar( 0, 0, 640, 480 );
|
||||||
|
for ( ancho = 0; ancho < 32; ancho++ )
|
||||||
|
for ( y = 0; y < 480; y+=35 )
|
||||||
|
for ( alto = 0; alto < 32; alto++ )
|
||||||
|
for ( x = 0; x < 640; x+=35 )
|
||||||
|
putpixel( x + ancho, y + alto, BitMap[ancho][alto] );
|
||||||
|
fclose( fp );
|
||||||
|
} else {
|
||||||
|
// Rellenamos la pantalla con un fondo atractivo...
|
||||||
|
setcolor( 1 );
|
||||||
|
setfillstyle( LTBKSLASH_FILL, 1 ); bar( 0, 0, 640, 480 );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Imprime_Estaticos( 10, "llave.img" );
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
setfillstyle( SOLID_FILL, EGA_GREEN );
|
||||||
|
setcolor( 11 );
|
||||||
|
rectangle( 58, 23, 632, 197 );
|
||||||
|
*/
|
||||||
|
// & 58, 23, 632, 197, 0, 56, 63, 2, 2
|
||||||
|
// & 58, 273, 632, 447, 0, 56, 63, 2, 2
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void AnulaInterrupcion(void)
|
||||||
|
{
|
||||||
|
/* reset the old interrupt handler */
|
||||||
|
if ( intvect == ON )
|
||||||
|
setvect(INTR, oldhandler);
|
||||||
|
intvect = OFF;
|
||||||
|
}
|
||||||
|
|
||||||
|
/***************************************************************************\
|
||||||
|
|* *|
|
||||||
|
|* INT CLK *|
|
||||||
|
|* *|
|
||||||
|
|* Descripci¢n: *|
|
||||||
|
|* interrupci¢n para el parpadeo de los led's *|
|
||||||
|
|* *|
|
||||||
|
|* Entradas: (indeterminadas) *|
|
||||||
|
|* *|
|
||||||
|
|* *|
|
||||||
|
|* *|
|
||||||
|
|* Salidas: (ninguna) *|
|
||||||
|
|* *|
|
||||||
|
\***************************************************************************/
|
||||||
|
void interrupt handler(__CPPARGS)
|
||||||
|
{
|
||||||
|
/* increase the global counter */
|
||||||
|
if ( IntVect == ON )
|
||||||
|
{
|
||||||
|
count = (count++)%16;
|
||||||
|
if ( count == 1 )
|
||||||
|
{
|
||||||
|
setpalette( 11, EGA_GREEN );
|
||||||
|
setpalette( 13, EGA_LIGHTGREEN );
|
||||||
|
}
|
||||||
|
else if ( count == 8 )
|
||||||
|
{
|
||||||
|
setpalette( 11, EGA_RED );
|
||||||
|
setpalette( 13, EGA_LIGHTRED );
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* call the old routine */
|
||||||
|
oldhandler();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void LeeFuentes(char *file)
|
||||||
|
{
|
||||||
|
FILE *fich;
|
||||||
|
/* Reservamos 4 Kb. para cargar la fuente en memoria */
|
||||||
|
|
||||||
|
/* Abrimos el fichero de la fuente */
|
||||||
|
|
||||||
|
if ((fich=fopen(file,"rb"))==NULL) {
|
||||||
|
printf("\a\nArchivo %s no encontrado.\n",file);
|
||||||
|
Error(0, "No se encuentra el archivo de fuentes");
|
||||||
|
}
|
||||||
|
|
||||||
|
fseek(fich, SEEK_SET, 0); /* Nos colocamos al principio del fichero */
|
||||||
|
fread(ptr_char,1,4096,fich); /* Cargamos en memoria 4096 bytes del fichero */
|
||||||
|
fclose(fich); /* Cerramos el fichero */
|
||||||
|
}
|
||||||
|
|
||||||
|
#define TAMx 8
|
||||||
|
#define TAMy 8
|
||||||
|
void Fuente_Amplia( char *Frase, p_Ampliada far *FA )
|
||||||
|
{
|
||||||
|
int i, j, k; // Variables de avance
|
||||||
|
int c_elec; // Color en el momento de imprimir
|
||||||
|
int PosX, PosY; // Posicion fisica final
|
||||||
|
char LCaract; // Caracter de linea a tratar
|
||||||
|
|
||||||
|
if ( FA->Flen != _fstrlen( Frase ) ) // Reseteamos las variables de control interno
|
||||||
|
{
|
||||||
|
// Obtenemos la longitud de la frase. ( En d¡gitos )
|
||||||
|
FA -> Flen = _fstrlen( Frase );
|
||||||
|
// Contador de digito actual a cero
|
||||||
|
FA -> BitByte = 0;
|
||||||
|
// Posicion dentro de la frase
|
||||||
|
FA -> currByte = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Avance horizontal de bit's ( avance de digitos )
|
||||||
|
for ( i = 0; i < ( TAMx * (FA -> ndigitos) ); i++ )
|
||||||
|
{
|
||||||
|
k = ( Frase[ ( (i+FA->BitByte)/TAMx + FA -> currByte ) % FA->Flen ] ) << 4;
|
||||||
|
LCaract = ( (char)0x01 << (7 - (i+FA->BitByte)%TAMx) );
|
||||||
|
PosX = FA -> x + FA->AX * i; // Posicion f¡sica horizontal
|
||||||
|
// Avance vertical de bit's
|
||||||
|
for ( j = 0; j < TAMy; j ++ )
|
||||||
|
{
|
||||||
|
PosY = FA -> y + FA->AY * j; // Posicion f¡sica vertical
|
||||||
|
|
||||||
|
if ( ptr_char[ k + j ] & LCaract )
|
||||||
|
c_elec = FA->C2;
|
||||||
|
else
|
||||||
|
c_elec = FA->C1;
|
||||||
|
|
||||||
|
putpixel ( PosX, PosY, c_elec );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Tenemos en cuenta el avance dentro de la frase
|
||||||
|
if ( ( FA -> BitByte ++ ) >= 7 )
|
||||||
|
{
|
||||||
|
FA -> BitByte = 0; FA -> currByte ++;
|
||||||
|
if ( FA -> currByte >= FA -> Flen )
|
||||||
|
FA -> currByte = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
#undef TAMy
|
||||||
|
#undef TAMx
|
||||||
|
|
||||||
|
|
||||||
|
void Error( int code, char *MensajeError )
|
||||||
|
{
|
||||||
|
free( ptr_char );
|
||||||
|
AnulaInterrupcion();
|
||||||
|
restorecrtmode();
|
||||||
|
|
||||||
|
printf( "\nSe produjo un codigo de error %d, subcodigo no disponible ", code );
|
||||||
|
switch( code )
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
printf( "\n Error Desconocido " );
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
printf( "\n BDatos gener¢ el error de salida. |ERROR DE ACCESO| " );
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
printf( "\n Make Boton gener¢ el error de salida " );
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
printf( "\n Fall¢ en alg£n punto del men£ principal" );
|
||||||
|
break;
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
printf( "\n> %s_", MensajeError );
|
||||||
|
exit(code);
|
||||||
|
}
|
||||||
BIN
LLAVE.EXE
Normal file
BIN
LLAVE.EXE
Normal file
Binary file not shown.
BIN
LLAVE.FNT
Normal file
BIN
LLAVE.FNT
Normal file
Binary file not shown.
240
LLAVE.IMG
Normal file
240
LLAVE.IMG
Normal file
@ -0,0 +1,240 @@
|
|||||||
|
** Codigo fuente para MAKE_BOTON
|
||||||
|
**
|
||||||
|
** Make BOTON es un programa realizado por Jos‚ David Guill‚n
|
||||||
|
**
|
||||||
|
** Enlazar al programa principal con MB2CPP, y compilar a OBJ para Linkar
|
||||||
|
**
|
||||||
|
**
|
||||||
|
** MAKE_BOTON es un producto de JD. -->>> 5.000 Libreria exelente para
|
||||||
|
** tratamiento de botones y grf.
|
||||||
|
** ONDA_GRN es un producto de JD. --->>> 5.000 Le gustaria representar ondas
|
||||||
|
** sonoras con facilidad: ONDA_GRN
|
||||||
|
** UTILIZADO EN FREC_OSC !!!
|
||||||
|
**
|
||||||
|
|
||||||
|
|
||||||
|
*****************************************************************************
|
||||||
|
*
|
||||||
|
* ATENCION !!!
|
||||||
|
* ALTERAR ESTE FICHERO, CAUSARA EL MALFUNCIONAMIENTO DEL
|
||||||
|
* PROGRAMA DE APOYO... ( ERRORES NO DOCUMENTADOS )
|
||||||
|
*
|
||||||
|
*****************************************************************************
|
||||||
|
|
||||||
|
#3
|
||||||
|
|
||||||
|
!1,20
|
||||||
|
|
||||||
|
* Boton SALIR!!!
|
||||||
|
$ 570, 215, 630, 255, 7, 7, 7, 0, 2, 000, 000
|
||||||
|
|
||||||
|
* Forma de onda
|
||||||
|
$ 15, 205, 48, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
|
||||||
|
* Desplazamiento de ondas
|
||||||
|
$ 58, 205, 110, 217, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 58, 217, 110, 229, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 58, 229, 110, 241, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 58, 241, 110, 253, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 58, 253, 110, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 113, 205, 165, 217, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 113, 217, 165, 229, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 113, 229, 165, 241, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 113, 241, 165, 253, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 113, 253, 165, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
|
||||||
|
* Reset Total
|
||||||
|
$ 170, 205, 185, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 185, 205, 200, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 200, 205, 215, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
$ 215, 205, 230, 265, 7, 63, 56, 1, 2, 000, 000
|
||||||
|
|
||||||
|
* Cargar / Salvar
|
||||||
|
$ 485, 205, 565, 233, 7, 63, 56, 2, 2, 000, 000
|
||||||
|
$ 485, 237, 565, 265, 7, 63, 56, 2, 2, 000, 000
|
||||||
|
|
||||||
|
* Leer / ???
|
||||||
|
$ 400, 205, 480, 233, 7, 63, 56, 2, 2, 000, 000
|
||||||
|
*$ 300, 205, 380, 233, 7, 63, 56, 2, 2, 000, 000
|
||||||
|
$ 400, 237, 480, 265, 7, 63, 56, 2, 2, 000, 000
|
||||||
|
|
||||||
|
|
||||||
|
10
|
||||||
|
|
||||||
|
* Selector de forma de onda
|
||||||
|
& 15, 205, 48, 265, 7, 63, 56, 1, 2
|
||||||
|
|
||||||
|
*& 5, 20, 635, 200, 7, 63, 56, 2, 2
|
||||||
|
*& 5, 270, 635, 450, 7, 63, 56, 2, 2
|
||||||
|
|
||||||
|
|
||||||
|
* Desplazamiento de ondas
|
||||||
|
& 58, 205, 110, 217, 7, 63, 56, 1, 2
|
||||||
|
& 58, 217, 110, 229, 7, 63, 56, 1, 2
|
||||||
|
& 58, 229, 110, 241, 7, 63, 56, 1, 2
|
||||||
|
& 58, 241, 110, 253, 7, 63, 56, 1, 2
|
||||||
|
& 58, 253, 110, 265, 7, 63, 56, 1, 2
|
||||||
|
& 113, 205, 165, 217, 7, 63, 56, 1, 2
|
||||||
|
& 113, 217, 165, 229, 7, 63, 56, 1, 2
|
||||||
|
& 113, 229, 165, 241, 7, 63, 56, 1, 2
|
||||||
|
& 113, 241, 165, 253, 7, 63, 56, 1, 2
|
||||||
|
& 113, 253, 165, 265, 7, 63, 56, 1, 2
|
||||||
|
| 60, 205, 2, 4, 0, 0, <--- 1 1 --->,
|
||||||
|
| 60, 217, 2, 4, 0, 0, <--- 2 2 --->,
|
||||||
|
| 60, 229, 2, 4, 0, 0, <--- 3 3 --->,
|
||||||
|
| 60, 241, 2, 4, 0, 0, <--- 4 4 --->,
|
||||||
|
| 60, 253, 2, 4, 0, 0, <--- 5 5 --->,
|
||||||
|
|
||||||
|
* Reset Total
|
||||||
|
& 170, 205, 185, 265, 7, 63, 56, 1, 2
|
||||||
|
& 185, 205, 200, 265, 7, 63, 56, 1, 2
|
||||||
|
& 200, 205, 215, 265, 7, 63, 56, 1, 2
|
||||||
|
& 215, 205, 230, 265, 7, 63, 56, 1, 2
|
||||||
|
| 170, 205, 2, 4, 1, 0, Retrocede,
|
||||||
|
| 185, 205, 2, 4, 1, 0, INICIO ,
|
||||||
|
| 200, 205, 2, 4, 1, 0, FIN ,
|
||||||
|
| 215, 205, 2, 4, 1, 0, Avanza ,
|
||||||
|
|
||||||
|
|
||||||
|
* Boton SALIR!!!
|
||||||
|
& 600, 235, 30, -1, 7, 63, 56, 3, 2
|
||||||
|
| 578, 220, 2, 6, 0, 0, Salir,
|
||||||
|
| 579, 221, 2, 6, 0, 63, Salir,
|
||||||
|
|
||||||
|
& 485, 205, 565, 233, 7, 63, 56, 2, 2
|
||||||
|
& 485, 237, 565, 265, 7, 63, 56, 2, 2
|
||||||
|
| 485, 207, 2, 5, 0, 0, Cargar,
|
||||||
|
| 486, 208, 2, 5, 0, 63, Cargar,
|
||||||
|
|
||||||
|
| 485, 237, 2, 5, 0, 0, Salvar,
|
||||||
|
| 486, 238, 2, 5, 0, 63, Salvar,
|
||||||
|
|
||||||
|
& 400, 205, 480, 233, 7, 63, 56, 2, 2
|
||||||
|
*& 300, 205, 380, 233, 7, 63, 56, 2, 2
|
||||||
|
& 400, 237, 480, 265, 7, 63, 56, 2, 2
|
||||||
|
| 404, 207, 2, 5, 0, 0, Leer Onda,
|
||||||
|
| 405, 208, 2, 5, 0, 63, Leer Onda,
|
||||||
|
*| 486, 238, 2, 5, 0, 63, Salvar,
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*& 5, 20, 635, 200, 7, 63, 56, 2, 2
|
||||||
|
*& 5, 270, 635, 450, 7, 63, 56, 2, 2
|
||||||
|
|
||||||
|
|
||||||
|
* Linea de fondo para ayudas
|
||||||
|
& 5, 455, 500, 475, 0, 63, 56, 0, 2
|
||||||
|
& 505, 455, 635, 475, 63, 0, 56, 0, 2
|
||||||
|
|
||||||
|
* Pulsadores da avance global
|
||||||
|
|
||||||
|
|
||||||
|
* Ventanas para las formas de ondas
|
||||||
|
& 5, 20, 635, 200, 7, 63, 56, 2, 2
|
||||||
|
& 5, 270, 635, 450, 7, 63, 56, 2, 2
|
||||||
|
& 58, 23, 632, 197, 0, 56, 63, 2, 2
|
||||||
|
& 58, 273, 632, 447, 0, 56, 63, 2, 2
|
||||||
|
|
||||||
|
* Ventanitas para saber cuanto se ha desplazado una onda en particualar
|
||||||
|
& 10, 40, 53, 55, 0, 56, 63, 0, 2
|
||||||
|
& 10, 71, 53, 86, 0, 56, 63, 0, 2
|
||||||
|
& 10, 102, 53, 117, 0, 56, 63, 0, 2
|
||||||
|
& 10, 133, 53, 148, 0, 56, 63, 0, 2
|
||||||
|
& 10, 164, 53, 179, 0, 56, 63, 0, 2
|
||||||
|
* Ventanitas para saber cuanto se ha desplazado una onda en particualar
|
||||||
|
& 10, 290, 53, 305, 0, 56, 63, 0, 2
|
||||||
|
& 10, 321, 53, 336, 0, 56, 63, 0, 2
|
||||||
|
& 10, 352, 53, 367, 0, 56, 63, 0, 2
|
||||||
|
& 10, 383, 53, 398, 0, 56, 63, 0, 2
|
||||||
|
& 10, 414, 53, 429, 0, 56, 63, 0, 2
|
||||||
|
|
||||||
|
|
||||||
|
| 0, 0, 2, 4, 0, 0, ,
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
* Û Û
|
||||||
|
* Û File Browser Û
|
||||||
|
* Û Û
|
||||||
|
* ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||||||
|
|
||||||
|
!2, 4
|
||||||
|
|
||||||
|
*Cuadro Cancelar
|
||||||
|
$ 377, 169, 391, 221, 7, 56, 63, 0, 1, 00, 46
|
||||||
|
*Boton Aceptar
|
||||||
|
$ 377, 223, 391, 276, 7, 56, 63, 0, 1, 00, 30
|
||||||
|
|
||||||
|
* Subir
|
||||||
|
$ 377, 278, 391, 303, 7, 56, 63, 0, 1, 00, 72
|
||||||
|
* Bajar
|
||||||
|
$ 377, 305, 391, 330, 7, 56, 63, 0, 1, 00, 80
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
* x y fuente tama¤o orientacion color texto
|
||||||
|
|
||||||
|
* Men£ para Cargar o Salvar
|
||||||
|
20
|
||||||
|
|
||||||
|
*Cuadro Total
|
||||||
|
& 240, 140, 400, 340, 7, 63, 56, 2, 1
|
||||||
|
& 243, 143, 397, 337, 7, 56, 63, -2, 1
|
||||||
|
*Cuadro Informativo
|
||||||
|
& 250, 150, 391, 164, 7, 56, 63, -0, 1
|
||||||
|
*Cuadro introduccion nuevos datos
|
||||||
|
& 250, 169, 375, 180, 0, 56, 63, 0, 1
|
||||||
|
*Cuadro de muestreo
|
||||||
|
& 250, 185, 375, 330, 0, 56, 63, 0, 1
|
||||||
|
|
||||||
|
*Cuadro Cancelar
|
||||||
|
& 377, 169, 391, 221, 7, 56, 63, 0, 1
|
||||||
|
*Boton Aceptar
|
||||||
|
& 377, 223, 391, 276, 7, 56, 63, 0, 1
|
||||||
|
|
||||||
|
* Subir
|
||||||
|
& 377, 278, 391, 303, 7, 56, 63, 0, 1
|
||||||
|
* Bajar
|
||||||
|
& 377, 305, 391, 330, 7, 56, 63, 0, 1
|
||||||
|
|
||||||
|
|377, 169, 2, 4, 1, 63, Cancelar,
|
||||||
|
|378, 170, 2, 4, 1, 0, Cancelar,
|
||||||
|
|377, 169, 2, 4, 1, 2, C ,
|
||||||
|
|378, 170, 2, 4, 1, 0, C ,
|
||||||
|
|377, 223, 2, 4, 1, 63, Aceptar ,
|
||||||
|
|378, 224, 2, 4, 1, 0, Aceptar ,
|
||||||
|
|377, 223, 2, 4, 1, 2, A ,
|
||||||
|
|378, 224, 2, 4, 1, 0, A ,
|
||||||
|
|
||||||
|
|377, 288, 2, 4, 0, 63, -,
|
||||||
|
|378, 289, 2, 4, 0, 0, -,
|
||||||
|
|377, 315, 2, 4, 0, 63, +,
|
||||||
|
|378, 316, 2, 4, 0, 0, +,
|
||||||
|
|
||||||
|
************************************************ Botones D: 6
|
||||||
|
**** **** Botones S:
|
||||||
|
** Parte Utilizada por Optar **
|
||||||
|
**** ****
|
||||||
|
************************************************
|
||||||
|
!3, 2
|
||||||
|
|
||||||
|
$ 170, 320, 270, 350, 7, 63, 56, 2, 2, 000, 30
|
||||||
|
$ 370, 320, 470, 350, 7, 63, 56, 2, 2, 000, 46
|
||||||
|
|
||||||
|
100
|
||||||
|
& 170, 165, 470, 315, 7, 63, 56, 0, 2
|
||||||
|
& 172, 167, 468, 190, 1, 56, 63, 0, 2
|
||||||
|
|
||||||
|
& 170, 320, 270, 350, 7, 63, 56, 2, 2
|
||||||
|
| 175, 325, 2, 6, 0, 63, Aceptar,
|
||||||
|
| 176, 326, 2, 6, 0, 0, Aceptar,
|
||||||
|
| 175, 327, 2, 6, 0, 63, _,
|
||||||
|
| 176, 328, 2, 6, 0, 0, _,
|
||||||
|
|
||||||
|
& 370, 320, 470, 350, 7, 63, 56, 2, 2
|
||||||
|
| 373, 325, 2, 6, 0, 63, Cancelar,
|
||||||
|
| 374, 326, 2, 6, 0, 0, Cancelar,
|
||||||
|
| 373, 327, 2, 6, 0, 63, _,
|
||||||
|
| 374, 328, 2, 6, 0, 0, _,
|
||||||
|
|
||||||
BIN
LLAVE.PRJ
Normal file
BIN
LLAVE.PRJ
Normal file
Binary file not shown.
752
LLAVE_FL.CPP
Normal file
752
LLAVE_FL.CPP
Normal file
@ -0,0 +1,752 @@
|
|||||||
|
#include <io.h>
|
||||||
|
#include <dos.h>
|
||||||
|
#include <dir.h>
|
||||||
|
#include <direct.h>
|
||||||
|
#include <ctype.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdarg.h>
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include <alloc.h>
|
||||||
|
#include <conio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <graphics.h>
|
||||||
|
|
||||||
|
char flecha [18] [18] =
|
||||||
|
{
|
||||||
|
7,7,7,7,7,7,7,7,7,0,7,7,7,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,7,7,0,4,0,7,7,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,7,0,4,4,4,0,7,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,0,4,4,4,4,4,4,4,0,7,7,7,7,
|
||||||
|
7,7,7,7,0,4,4,4,4,4,4,4,4,4,0,7,7,7,
|
||||||
|
7,7,7,0,4,4,4,4,4,4,4,4,4,4,4,0,7,7,
|
||||||
|
7,7,0,0,0,0,0,4,4,4,4,4,0,0,0,0,0,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,4,4,4,4,4,0,7,7,7,7,7,
|
||||||
|
7,7,7,7,7,7,0,0,0,0,0,0,0,7,7,7,7,7
|
||||||
|
};
|
||||||
|
void ponicono(int x,int y,char matriz[18][18], char pos)
|
||||||
|
{
|
||||||
|
int veces1,veces2;
|
||||||
|
|
||||||
|
for (veces1=0;veces1<=17;veces1++)
|
||||||
|
{
|
||||||
|
for (veces2=0;veces2<=17;veces2++)
|
||||||
|
{
|
||||||
|
|
||||||
|
switch( pos )
|
||||||
|
{
|
||||||
|
case 1:
|
||||||
|
if ( matriz[veces1][veces2] != 3 )
|
||||||
|
putpixel(x+veces1,y+veces2,matriz[veces1][veces2]);
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
if ( matriz[17-veces2][veces1] != 3 )
|
||||||
|
putpixel(x+veces1,y+veces2,matriz[17-veces2][veces1]);
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
if ( matriz[17-veces1][veces2] != 3 )
|
||||||
|
putpixel(x+veces1,y+veces2,matriz[17-veces1][veces2]);
|
||||||
|
break;
|
||||||
|
case 4:
|
||||||
|
if ( matriz[veces2][veces1] != 3 )
|
||||||
|
putpixel(x+veces1,y+veces2,matriz[veces2][veces1]);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#include "..\libs\make_bot\make_bot.h"
|
||||||
|
|
||||||
|
/*extern CFG_FREC cfgFREC;*/
|
||||||
|
////////////////////////////////////////////////////////////////////////////
|
||||||
|
/***************************************************************************\
|
||||||
|
| Critical Disk Error handling routines (C) 1995 Jason Speight. |
|
||||||
|
| void interrupt critical_error_handler(__CPPARGS) is the interrupt which |
|
||||||
|
| captures disk io errors. (int 0x24, if you're interested!) Such errors |
|
||||||
|
| are : Disk not inserted in drive, seek error reading from a drive, general|
|
||||||
|
| disk failure etc. The only things the interrupt does is : |
|
||||||
|
| Suppress the dos ABORT,RETRY,FAIL,IGNORE statement |
|
||||||
|
| Sets a variable erroroccurred to the dos error statement. (!=0) |
|
||||||
|
| |
|
||||||
|
| StartCEH() and StopCEH() start and stop the error handler. YOU MUST |
|
||||||
|
| STOPCEH BEFORE THE EXIT OF THE PROGRAM. or else when you get a disk |
|
||||||
|
| error, the int 24 issued bu DOS points to the middle of nowhere! *HANG* |
|
||||||
|
| |
|
||||||
|
| diskerror() is my routine to display a disk IO error. It also sets the |
|
||||||
|
| global variable erroroccurred to 0 for future use. This procedure also |
|
||||||
|
| needs access to "SCRNHNDL.H" and "BOXES.H" |
|
||||||
|
| |
|
||||||
|
| BTW, anybody know how to trap the message "PLEASE INSERT DISK FOR DRIVE x"|
|
||||||
|
\***************************************************************************/
|
||||||
|
|
||||||
|
void interrupt critical_error_handler(.../*__CPPARGS*/); // interrupt prototype
|
||||||
|
void interrupt (*old_int24)(.../*__CPPARGS*/); // interrupt function pointer
|
||||||
|
void startceh();
|
||||||
|
void stopceh();
|
||||||
|
|
||||||
|
int erroroccurred=0;
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
char files[13] ; //100 files, 12 byte filename (+1 for terminator!)
|
||||||
|
long filesize ; //Try as static.. free up that ram, bud. (Use HUGE mem model)
|
||||||
|
unsigned char attrs ;
|
||||||
|
} SFile;
|
||||||
|
|
||||||
|
SFile far *S_File;
|
||||||
|
|
||||||
|
void FileDownRow(void);
|
||||||
|
void FileUpRow(void) ;
|
||||||
|
void PrintWholeScreen_Files(void);
|
||||||
|
void PrintSelectRow( char Hide_Show );
|
||||||
|
|
||||||
|
unsigned char FileRow = 0; int FileCurrTopRow = 0;
|
||||||
|
unsigned int maxfiles=0;
|
||||||
|
unsigned int rasterscan(char *fm);
|
||||||
|
char Archivo[13];
|
||||||
|
void PrintVisor(void);
|
||||||
|
|
||||||
|
int Optar( int optar, ... );
|
||||||
|
|
||||||
|
int InputCadenaG(char *s, int numalp, int lmax, int cc, int cf, int left, int up, int right, int down);
|
||||||
|
|
||||||
|
char file_browser( char *comodin_name, char *texto1, char Cargar_Salvar );
|
||||||
|
|
||||||
|
char file_browser( char *comodin_name, char *texto1, char Cargar_Salvar ){
|
||||||
|
|
||||||
|
int ok = 0, inst = 0;
|
||||||
|
struct textsettingstype textinfo;
|
||||||
|
char oldpath[229]=" -- NONE -- "; //internal. do not change
|
||||||
|
unsigned char olddrive=255; //impossible drive name
|
||||||
|
char olddisk, key; long MemVideo;
|
||||||
|
|
||||||
|
startceh();
|
||||||
|
|
||||||
|
FileRow = FileCurrTopRow = 0;
|
||||||
|
|
||||||
|
olddrive = getdisk();
|
||||||
|
getcwd( oldpath, 229 );
|
||||||
|
|
||||||
|
void far *C_Texto;
|
||||||
|
|
||||||
|
MemVideo = JD_imagesize(240, 140, 400, 340);
|
||||||
|
C_Texto = farmalloc( MemVideo );
|
||||||
|
S_File = (SFile far *)farmalloc( sizeof(SFile) * 101 );
|
||||||
|
|
||||||
|
if( C_Texto == NULL || S_File == NULL )
|
||||||
|
{
|
||||||
|
closegraph();
|
||||||
|
cprintf("\n\rSALIENDO");
|
||||||
|
cprintf("\n\rImposible encontrar %ldKbytes en el Heap %ld", (long)(sizeof(SFile)*101), MemVideo );
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
rasterscan( comodin_name );
|
||||||
|
|
||||||
|
gettextsettings(&textinfo);
|
||||||
|
|
||||||
|
getimage( 240, 140, 400, 340, C_Texto);
|
||||||
|
|
||||||
|
|
||||||
|
Imprime_Estaticos( 20, "llave.IMG"); // Imprime botones estaticos 'Seccion 20'
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
settextstyle( SMALL_FONT, HORIZ_DIR, 4);
|
||||||
|
|
||||||
|
setcolor( EGA_YELLOW );
|
||||||
|
outtextxy( 250+( ( 141 - textwidth(texto1) ) / 2 ), 150, texto1 );
|
||||||
|
|
||||||
|
PrintWholeScreen_Files();
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
|
||||||
|
|
||||||
|
while(!ok){ // Bucle infinito
|
||||||
|
|
||||||
|
switch( Comprueba_Secuencia( 2, NULL ) ) { // Iniciamos comprobacion de 2¦ sec
|
||||||
|
|
||||||
|
case 0: // No se pulso ningun BOTON
|
||||||
|
// Pero el raton fue presionado en
|
||||||
|
// algun sitio...
|
||||||
|
break;
|
||||||
|
case -2: // Hay una tecla normal en BUFFER
|
||||||
|
switch( key = getch() ) { // La utilizamos
|
||||||
|
// ESC ( CANCELAR )
|
||||||
|
case 27:
|
||||||
|
inst = 0;
|
||||||
|
ok = 1;
|
||||||
|
break;
|
||||||
|
case 13:
|
||||||
|
switch( S_File[FileRow + FileCurrTopRow].attrs )
|
||||||
|
{
|
||||||
|
// Si directorio: cambiamos simplemente
|
||||||
|
case FA_DIREC:
|
||||||
|
chdir( S_File[FileRow + FileCurrTopRow].files );
|
||||||
|
FileRow = FileCurrTopRow = 0;
|
||||||
|
rasterscan( comodin_name );
|
||||||
|
PrintWholeScreen_Files();
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
break;
|
||||||
|
// Si unidad comprobamos que podemos cambiar y como directorio...
|
||||||
|
case 255:
|
||||||
|
erroroccurred=0;
|
||||||
|
olddisk=getdisk();
|
||||||
|
setdisk( (S_File[FileRow + FileCurrTopRow].files[0] - 'A') );
|
||||||
|
if (erroroccurred) {
|
||||||
|
setdisk(olddisk);
|
||||||
|
} else {
|
||||||
|
FileRow = FileCurrTopRow = 0;
|
||||||
|
rasterscan( comodin_name );
|
||||||
|
PrintWholeScreen_Files();
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
if ( strcmp(Archivo, S_File[FileRow+FileCurrTopRow].files) == 0 )
|
||||||
|
{
|
||||||
|
if ( Cargar_Salvar == 0 ) {
|
||||||
|
if ( access(Archivo, 0) != 0) break;
|
||||||
|
sprintf( comodin_name, "%c:\\", getdisk() + 'A' );
|
||||||
|
getcurdir(0,comodin_name+3);
|
||||||
|
strcat(comodin_name, "\\");
|
||||||
|
strcat(comodin_name, Archivo);
|
||||||
|
inst = 1;
|
||||||
|
ok = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
strcpy(Archivo, S_File[FileRow+FileCurrTopRow].files);
|
||||||
|
PrintVisor();
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
strcpy( Archivo, "\0" );
|
||||||
|
ungetch(key);
|
||||||
|
InputCadenaG(Archivo, 0, 12, 0, /*cfgFREC.F_Texto*/1, 252, 171, 373, 178);
|
||||||
|
if (Cargar_Salvar == 0)
|
||||||
|
{
|
||||||
|
// Comprobamos que existe el fichero
|
||||||
|
if ( access(Archivo, 0) != 0)
|
||||||
|
strcpy( Archivo, "\0" );
|
||||||
|
}
|
||||||
|
PrintVisor();
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case -1: // Hay una tecla especial en BUFFER
|
||||||
|
getch(); // La eliminamos
|
||||||
|
break;
|
||||||
|
// Boton Aceptar
|
||||||
|
case 2:
|
||||||
|
if ( Cargar_Salvar == 0 ) {
|
||||||
|
if ( access(Archivo, 0) != 0) break;
|
||||||
|
sprintf( comodin_name, "%c:\\", getdisk() + 'A' );
|
||||||
|
getcurdir(0,comodin_name+3);
|
||||||
|
strcat(comodin_name, "\\");
|
||||||
|
strcat(comodin_name, Archivo);
|
||||||
|
inst = 1;
|
||||||
|
ok = 1;
|
||||||
|
} else {
|
||||||
|
if ( access(Archivo, 0) == 0)
|
||||||
|
if ( Optar( 1, "ATENCION !!!", "El fichero ya existe", "¨ Desea reemplazarlo ?", NULL ) != 1 ) break;
|
||||||
|
sprintf( comodin_name, "%c:\\", getdisk() + 'A' );
|
||||||
|
getcurdir(0,comodin_name+3);
|
||||||
|
strcat(comodin_name, "\\");
|
||||||
|
strcat(comodin_name, Archivo);
|
||||||
|
inst = 1;
|
||||||
|
ok = 1;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
// Boton Cancelar
|
||||||
|
case 1:
|
||||||
|
inst = 0;
|
||||||
|
ok = 1;
|
||||||
|
break;
|
||||||
|
// Boton Subir
|
||||||
|
case 3:
|
||||||
|
FileUpRow();
|
||||||
|
break;
|
||||||
|
// Boton Bajar
|
||||||
|
case 4:
|
||||||
|
FileDownRow();
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
while( kbhit() ) getch(); // Limpiamos posibles teclas en BUFFER
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
putimage( 240, 140, C_Texto, COPY_PUT);
|
||||||
|
|
||||||
|
farfree ( C_Texto );
|
||||||
|
farfree ( S_File );
|
||||||
|
|
||||||
|
settextstyle(textinfo.font, textinfo.direction, textinfo.charsize );
|
||||||
|
settextjustify(textinfo.horiz, textinfo.vert);
|
||||||
|
|
||||||
|
setdisk(olddrive);
|
||||||
|
chdir(oldpath);
|
||||||
|
|
||||||
|
|
||||||
|
stopceh();
|
||||||
|
|
||||||
|
return inst;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
unsigned int rasterscan(char *fm) {
|
||||||
|
struct ffblk ffblk;
|
||||||
|
char done=0;
|
||||||
|
unsigned int olddisk;
|
||||||
|
maxfiles = 0;
|
||||||
|
|
||||||
|
// build a disk drive availiable list
|
||||||
|
olddisk=getdisk();
|
||||||
|
for (int i=1;i<27;i++) if (_chdrive(i) == 0)
|
||||||
|
{
|
||||||
|
sprintf( S_File[maxfiles].files, "%c:", (char)('A' + i - 1) );
|
||||||
|
S_File[maxfiles].filesize=0;
|
||||||
|
S_File[maxfiles].attrs=255; // Unidad
|
||||||
|
if (ffblk.ff_attrib & 16) S_File[maxfiles].filesize=0;
|
||||||
|
maxfiles++;
|
||||||
|
|
||||||
|
}
|
||||||
|
setdisk(olddisk);
|
||||||
|
|
||||||
|
// drivelist[2]='N'; //stop access to B drive until I sort out pahntom dive probs
|
||||||
|
//Ok, Drive B may be a phantom drive. If you try to access drive B, then
|
||||||
|
//the program looses controll. Bummer!
|
||||||
|
// needs debugging. (always ignores drive b...)
|
||||||
|
// asm int 0x11
|
||||||
|
// asm mov equipmentlist,ax
|
||||||
|
// drivelist[2]='N';
|
||||||
|
// if ((equipmentlist & 16)) drivelist[2]='Y';
|
||||||
|
|
||||||
|
|
||||||
|
done = findfirst("*.*",&ffblk,FA_DIREC);
|
||||||
|
while (!done) {
|
||||||
|
if (ffblk.ff_attrib == 0x10) {
|
||||||
|
strcpy(S_File[maxfiles].files,ffblk.ff_name);
|
||||||
|
S_File[maxfiles].filesize=ffblk.ff_fsize;
|
||||||
|
S_File[maxfiles].attrs=ffblk.ff_attrib;
|
||||||
|
if (ffblk.ff_attrib & 16) S_File[maxfiles].filesize=0;
|
||||||
|
maxfiles++;
|
||||||
|
}
|
||||||
|
done = findnext(&ffblk);
|
||||||
|
if (maxfiles==100) done=!done; //stop to prevent internal crashes.
|
||||||
|
}
|
||||||
|
|
||||||
|
done = findfirst(fm,&ffblk,FA_DIREC);
|
||||||
|
while (!done) {
|
||||||
|
if (ffblk.ff_attrib != 0x10) {
|
||||||
|
strcpy(S_File[maxfiles].files,ffblk.ff_name);
|
||||||
|
S_File[maxfiles].filesize=ffblk.ff_fsize;
|
||||||
|
S_File[maxfiles].attrs=ffblk.ff_attrib;
|
||||||
|
if (ffblk.ff_attrib & 16) S_File[maxfiles].filesize=0;
|
||||||
|
maxfiles++;
|
||||||
|
}
|
||||||
|
done = findnext(&ffblk);
|
||||||
|
if (maxfiles==100) done=!done; //stop to prevent internal crashes.
|
||||||
|
}
|
||||||
|
if (maxfiles==0) { //no files to browse
|
||||||
|
strcpy(S_File[0].files," -- NONE -- ");
|
||||||
|
S_File[0].filesize=-1;
|
||||||
|
maxfiles=1;}
|
||||||
|
strcpy(S_File[100].files," -- NONE -- ");
|
||||||
|
S_File[100].filesize=-1;
|
||||||
|
return maxfiles;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void PrintWholeScreen_Files(void )
|
||||||
|
{
|
||||||
|
|
||||||
|
int OldFileRow = FileRow ;
|
||||||
|
char Contador;
|
||||||
|
|
||||||
|
setfillstyle( SOLID_FILL, 0 );
|
||||||
|
bar(252, 187, 374, 327);
|
||||||
|
|
||||||
|
PrintSelectRow ( 0 );
|
||||||
|
for ( FileRow = 0; FileRow < 14; FileRow++ )
|
||||||
|
if ( ( FileRow + FileCurrTopRow ) < maxfiles )
|
||||||
|
PrintSelectRow ( 0 );
|
||||||
|
|
||||||
|
|
||||||
|
FileRow = OldFileRow;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
void PrintSelectRow( char Hide_Show )
|
||||||
|
{
|
||||||
|
|
||||||
|
char Buffer[80];
|
||||||
|
char Buff1[80];
|
||||||
|
char Buff2[80];
|
||||||
|
|
||||||
|
if ( Hide_Show==0 )
|
||||||
|
{
|
||||||
|
setfillstyle( SOLID_FILL, 0 );
|
||||||
|
bar(252, 188 + ( FileRow * 10 ) , 373, 187 + 10 + ( FileRow * 10 ) );
|
||||||
|
setcolor( /*cfgFREC.Texto*/EGA_RED );
|
||||||
|
} else {
|
||||||
|
setfillstyle( SOLID_FILL, /*cfgFREC.F_Texto*/EGA_YELLOW );
|
||||||
|
bar(252, 188 + ( FileRow * 10 ) , 373, 187 + 10 + ( FileRow * 10 ) );
|
||||||
|
setcolor(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
switch( S_File[FileRow + FileCurrTopRow].attrs )
|
||||||
|
{
|
||||||
|
case FA_DIREC:
|
||||||
|
sprintf(Buffer, "%-13s", S_File[FileRow+FileCurrTopRow].files );
|
||||||
|
sprintf(Buff1 , " < DIR >" );
|
||||||
|
break;
|
||||||
|
case 255:
|
||||||
|
sprintf(Buffer, "%-8s", strncpy( Buff1, S_File[FileRow+FileCurrTopRow].files, 8) );
|
||||||
|
sprintf(Buff1 , " >DRIVER<" );
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
|
||||||
|
sprintf(Buffer, "%-13s", S_File[FileRow+FileCurrTopRow].files);
|
||||||
|
// outtextxy( 252 , 187 + ( FileRow * 10 ) , Buffer );
|
||||||
|
sprintf(Buff1 , " %7lu", S_File[FileRow+FileCurrTopRow].filesize );
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
outtextxy( 252 , 187 + ( FileRow * 10 ) , Buffer );
|
||||||
|
outtextxy( 252 , 187 + ( FileRow * 10 ) , Buff1 );
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
void FileDownRow(void)
|
||||||
|
{
|
||||||
|
|
||||||
|
// ¨¨ Estoy en la linea fisica 000 ???
|
||||||
|
if ( (FileRow + FileCurrTopRow) != (maxfiles - 1) ) {
|
||||||
|
|
||||||
|
// Linea 0, Baja Con retroceso multiple
|
||||||
|
if ( FileRow == 13 ) {
|
||||||
|
FileCurrTopRow += 14;
|
||||||
|
while ( (FileCurrTopRow + FileRow) > maxfiles ) FileCurrTopRow--;
|
||||||
|
FileRow = 0;
|
||||||
|
PrintWholeScreen_Files();
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
} else {
|
||||||
|
PrintSelectRow( 0 );
|
||||||
|
FileRow++;
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void FileUpRow(void)
|
||||||
|
{
|
||||||
|
|
||||||
|
// ¨¨ Estoy en la linea fisica 000 ???
|
||||||
|
if ( (FileRow + FileCurrTopRow) != 0 ) {
|
||||||
|
|
||||||
|
// Linea 0, Baja Con retroceso multiple
|
||||||
|
if ( FileRow == 0 ) {
|
||||||
|
FileCurrTopRow -= 14;
|
||||||
|
if ( FileCurrTopRow < 0 ) FileCurrTopRow = 0;
|
||||||
|
FileRow = 0;
|
||||||
|
PrintWholeScreen_Files();
|
||||||
|
FileRow = 13;
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
} else {
|
||||||
|
PrintSelectRow( 0 );
|
||||||
|
FileRow--;
|
||||||
|
PrintSelectRow( 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
void diskerror(void) {
|
||||||
|
char message[30];
|
||||||
|
pushscreen();
|
||||||
|
draw3dboxup(19,10,43,6);
|
||||||
|
draw3dboxdn(21,11,39,4);
|
||||||
|
switch (erroroccurred) {
|
||||||
|
case 1 : strcpy(message,"Write Protected Disk"); break;
|
||||||
|
case 2 : strcpy(message,"Drive Not Ready"); break;
|
||||||
|
case 3 : strcpy(message,"Unknown Command"); break;
|
||||||
|
case 4 : strcpy(message,"Data Error (CRC)"); break;
|
||||||
|
case 5 : strcpy(message,"Bad Request Structure Length"); break;
|
||||||
|
case 6 : strcpy(message,"Seek Error"); break;
|
||||||
|
case 7 : strcpy(message,"Unknown Media Type"); break;
|
||||||
|
case 8 : strcpy(message,"Sector Not Found"); break;
|
||||||
|
case 9 : strcpy(message,"Printer Out Of Paper"); break;
|
||||||
|
case 10: strcpy(message,"Write Fault"); break;
|
||||||
|
case 11: strcpy(message,"Read Fault"); break;
|
||||||
|
case 12: strcpy(message,"General Failure"); break;
|
||||||
|
default: strcpy(message,"Unknown Error");
|
||||||
|
}
|
||||||
|
|
||||||
|
printcentered(12,"Error - Press any key to continue",0x74);
|
||||||
|
printcentered(13,message,0x70);
|
||||||
|
getch();
|
||||||
|
popscreen();
|
||||||
|
erroroccurred=0;
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
|
||||||
|
void interrupt critical_error_handler(.../*__CPPARGS*/) {
|
||||||
|
asm push ax //preserve only modified register
|
||||||
|
asm mov ax,di //di holds error code ranging from 0 to 0x0c
|
||||||
|
// asm inc ax
|
||||||
|
asm mov erroroccurred,ax //increase erroroccurred for ease of programming
|
||||||
|
asm mov al,0x20
|
||||||
|
asm out 0x20,al //send interrupt clear flag
|
||||||
|
// asm pushf // I think I dont need this line in....
|
||||||
|
asm pop ax //restore ax
|
||||||
|
}
|
||||||
|
|
||||||
|
void startceh() {
|
||||||
|
old_int24 = _dos_getvect( 0x24 );
|
||||||
|
_dos_setvect( 0x24, critical_error_handler);
|
||||||
|
}
|
||||||
|
|
||||||
|
void stopceh() {
|
||||||
|
_dos_setvect(0x24,old_int24);
|
||||||
|
}
|
||||||
|
|
||||||
|
void PrintVisor(void)
|
||||||
|
{
|
||||||
|
|
||||||
|
setfillstyle( SOLID_FILL, 0 );
|
||||||
|
bar(252, 171, 373, 178);
|
||||||
|
setcolor( /*cfgFREC.Texto*/1 );
|
||||||
|
outtextxy(252, 169, strupr(Archivo) );
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
int InputCadenaG(char *s, int numalp, int lmax, int cc, int cf, int left, int up, int right, int down)
|
||||||
|
{
|
||||||
|
|
||||||
|
int ls; // longitud cadena
|
||||||
|
char *s1; // puntero a cadena inicial
|
||||||
|
int c, ok = 0;
|
||||||
|
|
||||||
|
s1 = s; // inicio cadena
|
||||||
|
ls = strlen ( s ); // Longitud de actual
|
||||||
|
s += ls; // se coloca en el final
|
||||||
|
|
||||||
|
setfillstyle(SOLID_FILL, cf);
|
||||||
|
do{
|
||||||
|
bar(left, up, right, down);
|
||||||
|
setcolor(cc);
|
||||||
|
outtextxy( left, up-2, s1 );
|
||||||
|
if ( ls < lmax ) {
|
||||||
|
setcolor(4);
|
||||||
|
outtextxy( left+textwidth( s1 ), up-2, "<");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
switch( c = getch() ) // obtiene tecla
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
case 13:
|
||||||
|
ok = 1; // 13 = INTRO || Especiales
|
||||||
|
break;
|
||||||
|
case 8:
|
||||||
|
if ( ls > 0 ) { // 8 = Back Space
|
||||||
|
ls--;
|
||||||
|
s--;
|
||||||
|
*s = '\0';
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 27:
|
||||||
|
*s='\0';
|
||||||
|
ok = 1;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
if ( !numalp && c >= 32 && c <= 254 && ls < lmax)
|
||||||
|
{
|
||||||
|
*s++ = toupper(c);
|
||||||
|
ls++;
|
||||||
|
*s = '\0';
|
||||||
|
} else
|
||||||
|
if ( numalp && isdigit(c) && ls < lmax) {
|
||||||
|
*s++ = c;
|
||||||
|
ls++;
|
||||||
|
*s = '\0';
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
}while(!ok);
|
||||||
|
|
||||||
|
ok = 1;
|
||||||
|
*s = ' ';
|
||||||
|
while( ok ) {
|
||||||
|
if(*s==' ') { *s = '\0'; s--;
|
||||||
|
} else { s++; ok = 0; }
|
||||||
|
}
|
||||||
|
|
||||||
|
*s = '\0';
|
||||||
|
|
||||||
|
while(kbhit()) getch(); // Vacia Buffer impidiendo falsas
|
||||||
|
// pulsaciones...
|
||||||
|
|
||||||
|
return ls;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/************************************/
|
||||||
|
/************************************//************************************/
|
||||||
|
/************************************//************************************/
|
||||||
|
/************************************//************************************/
|
||||||
|
/************************************/
|
||||||
|
#define SEC_OPTAR 3
|
||||||
|
#define ENCUADRE 3
|
||||||
|
int Optar( int optar, ... )
|
||||||
|
{
|
||||||
|
static void far *fondo, far *fd_aceptar, far *fd_cancelar;
|
||||||
|
static char Memoria = 0;
|
||||||
|
|
||||||
|
int DEV = 0, ok = 0, linea = 0;
|
||||||
|
int Center; char *buff;
|
||||||
|
struct textsettingstype texttypeinfo;
|
||||||
|
|
||||||
|
va_list ap;
|
||||||
|
va_start( ap, &optar );
|
||||||
|
|
||||||
|
if ( Memoria == 1 )
|
||||||
|
{
|
||||||
|
putimage( 170, 165, fondo , COPY_PUT );
|
||||||
|
putimage( 170, 320, fd_aceptar , COPY_PUT );
|
||||||
|
putimage( 370, 320, fd_cancelar, COPY_PUT );
|
||||||
|
|
||||||
|
farfree( fondo );
|
||||||
|
farfree( fd_aceptar );
|
||||||
|
farfree( fd_cancelar );
|
||||||
|
|
||||||
|
Memoria = 0;
|
||||||
|
|
||||||
|
if ( optar == ENCUADRE ) return DEV;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( ( fondo = farmalloc( JD_imagesize( 170, 165, 470, 315 ) ) ) != NULL &&
|
||||||
|
( fd_aceptar = farmalloc( JD_imagesize( 170, 320, 270, 350 ) ) ) != NULL &&
|
||||||
|
( fd_cancelar = farmalloc( JD_imagesize( 370, 320, 470, 350 ) ) ) != NULL )
|
||||||
|
{
|
||||||
|
Memoria = 1;
|
||||||
|
|
||||||
|
getimage( 170, 165, 470, 315, fondo );
|
||||||
|
getimage( 170, 320, 270, 350, fd_aceptar );
|
||||||
|
getimage( 370, 320, 470, 350, fd_cancelar);
|
||||||
|
|
||||||
|
gettextsettings( &texttypeinfo );
|
||||||
|
|
||||||
|
Imprime_Estaticos( 100, "llave.img" );
|
||||||
|
|
||||||
|
settextstyle( SMALL_FONT, HORIZ_DIR, 6 );
|
||||||
|
|
||||||
|
setcolor( 63 );
|
||||||
|
|
||||||
|
while ( (buff = va_arg(ap, char *)) != NULL )
|
||||||
|
{
|
||||||
|
Center = (296 - textwidth( buff ) ) / 2;
|
||||||
|
outtextxy( 172+Center, ( (linea == 0 ) ? 167 : 200 + 20*linea ), buff );
|
||||||
|
linea++;
|
||||||
|
}
|
||||||
|
|
||||||
|
va_end(ap);
|
||||||
|
|
||||||
|
settextstyle( texttypeinfo.font, texttypeinfo.direction, texttypeinfo.charsize );
|
||||||
|
|
||||||
|
|
||||||
|
if ( optar != ENCUADRE )
|
||||||
|
{
|
||||||
|
ok = 0; while( kbhit() ) getch(); // Limpiamos posibles teclas en BUFFER
|
||||||
|
do {
|
||||||
|
switch( Comprueba_Secuencia( SEC_OPTAR, NULL ) )
|
||||||
|
{
|
||||||
|
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 );
|
||||||
|
|
||||||
|
putimage( 170, 165, fondo , COPY_PUT );
|
||||||
|
putimage( 170, 320, fd_aceptar , COPY_PUT );
|
||||||
|
putimage( 370, 320, fd_cancelar, COPY_PUT );
|
||||||
|
|
||||||
|
farfree( fondo );
|
||||||
|
farfree( fd_aceptar );
|
||||||
|
farfree( fd_cancelar );
|
||||||
|
|
||||||
|
Memoria = 0;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
} else {
|
||||||
|
farfree( fondo );
|
||||||
|
farfree( fd_aceptar );
|
||||||
|
farfree( fd_cancelar );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
return DEV;
|
||||||
|
}
|
||||||
9
README.md
Normal file
9
README.md
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
#LLAVE
|
||||||
|
|
||||||
|
|
||||||
|
*10/06/1992*
|
||||||
|
|
||||||
|
ToDo: wwtcf?
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BIN
TEST1.LLV
Normal file
BIN
TEST1.LLV
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user