juanlf/Borland-C
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Backup proyecto Joyfe - Borland

Browse Source
This commit is contained in:
juanlf
2025-06-16 22:54:10 +02:00
commit d61829a1a7
130 changed files with 11881 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
LIB/DXVIDEO.H Normal file
View File

@ -0,0 +1,45 @@
// ************************************************************************************************
//
// Soporte para video Direct X.
//
// ************************************** (c) Pedro D<>ez L<>pez ************************************
#ifndef __DIRECTX_SUPPORT__
#define __DIRECTX_SUPPORT__
#include <ddraw.h>
class CDXVideo
{
public:
int hres; // Resolucion horizontal.
int vres; // Resolucion vertical
int bpp; // bpp de la resolucion.
int DimBuffer; // Dimension del buffer.
int ElmBuffer; // Elementos del buffer.
union Buffer // Distintos tipos de resolucion.
{
void *bpp;
BYTE *bpp8;
WORD *bpp16;
DWORD *bpp32;
}pBuffer;
HCURSOR mDDCursorShape;
private:
LPDIRECTDRAW lpDD; // Puntero a Direct Draw.
LPDIRECTDRAWSURFACE lpDDSView; // Puntero a la superficie.
LPDIRECTDRAWSURFACE lpDDSBack; // Puntero a la 2<> superficie.
void *lpDXBuffer;// Puntero al LFB.
DDSURFACEDESC ddsd; // Descriptor de Superficie.
DDSCAPS ddscaps; // Descriptor de capabilities.
HRESULT ddrval; // Resultado de la llamada DD.
public:
BOOL Inicio(HWND hwnd,int Ancho,int Alto,int BPP);
void Cursor(HCURSOR nCursor);
void Pinta ();
void Fin();
};
#endif

96
LIB/GUI.H Normal file
View File

@ -0,0 +1,96 @@
void modo_grafico(char ruta[]){
int gdriver = DETECT, gmode, errorcode;
initgraph(&gdriver, &gmode, ruta);
errorcode = graphresult();
if (errorcode != grOk)
{
printf("Error grafico: %s\n", grapherrormsg(errorcode));
printf("Pulse una tecla para finalizar:");
getch();
exit(1);
}
}
// -----------------------------------------------------------------------
// FUNCI<43>N VENTANA CON TITULO
// -----------------------------------------------------------------------
void ventana(int x1, int y1, int x2, int y2,char titulo[],
int fondo_titulo, int fondo_ventana )
{
setcolor(7);
rectangle(x1, y1, x2, y2); // cuadro gris claro
setcolor(16);
line(x1, y2, x2, y2); // linea negra -- abajo
line(x2, y2, x2, y1); // linea negra | derecha
setcolor(15);
rectangle(x1+1, y1+1, x2-1, y2-1); // cuadro blanco dentro
setcolor(8);
line(x1+1, y2-1, x2-1, y2-1); // gris -- abajo
line(x2-1, y1+1, x2-1, y2-1); // gris | derecha
int fv= (fondo_ventana) ? fondo_ventana : 7; // color del interior de
setfillstyle(1,fv); // la ventana, por defecto
bar(x1+2, y1+2, x2-2, y2-2); // (0) es el gris.
int ft= (fondo_titulo) ? fondo_titulo : 1; // color del fondo del
setfillstyle(1,ft); // t<>tulo, por defecto (0)
bar(x1+3, y1+3, x2-4, y1+20); // es azul oscuro.
setcolor(15);
outtextxy(x1+10, y1+4, titulo); // t<>tulo de la ventana
} // FIN VENTANA ---------------------------------------------------------
// -----------------------------------------------------------------------
// FUNCI<43>N BOTON
// -----------------------------------------------------------------------
void boton(int x1,int y1, int x2,int y2, int pulsado, char titulo[],
int color_titulo, int fondo_boton) {
setcolor(7); rectangle(x1,y1,x2,y2); // cuadro gris claro
if (pulsado)
{
setcolor(16);
line(x1, y1, x2, y1); // linea negra -- arriba
line(x1, y2, x1, y1); // linea negra | izquierda
setcolor(15);
rectangle(x1+1,y1+1,x2-1,y2-1); //cuadro blanco dentro
setcolor(8);
line(x1+1, y1+1, x2-1, y1+1); // gris -- arriba
line(x1+1, y1+1, x1+1, y2-1); // gris | izquierda
}
else {
setcolor(16);
line(x1, y2, x2, y2); // linea negra -- abajo
line(x2, y2, x2, y1); // linea negra | derecha
setcolor(15);
rectangle(x1+1, y1+1, x2-1, y2-1); //cuadro blanco dentro
setcolor(8);
line(x1+1, y2-1, x2-1, y2-1); // gris -- abajo
line(x2-1, y1+1, x2-1, y2-1); // gris | derecha
}
int fb= (fondo_boton) ? fondo_boton : 7; // color del interior del
setfillstyle(1,fb); // bot<6F>n, por defecto (0)
bar(x1+2, y1+2, x2-2, y2-2); // es el gris.
int ct= (color_titulo) ? color_titulo : 15;
setcolor(ct);
// settextstyle(2,0,5);
outtextxy(x1+10,y1+4,titulo);
} // FIN BOTON -----------------------------------------------------------

108
LIB/ICONOS.H Normal file
View File

@ -0,0 +1,108 @@
// ************************************************************************
// **************** LIBRER<45>A DE ICONOS ********************
// ************************************************************************
// ------------------------------------------------------------------------
// ---------------- LISTA DE ICONOS --------------------
// ------------------------------------------------------------------------
// <20><><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><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>ͻ
// <20> Nombre <20> Especificaci<63>n <20>
// <20><><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><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>͹
// <20> icon1 <20> Es una cruz roja de 10x10 pixels. <20>
// <20><><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><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>͹
// <20> icon2 <20> Es una flecha (->) azul de 10x10 pixels. <20>
// <20><><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><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>͹
// <20> icon3 <20> Es un circulo con borde negro y pintado de verde de 10x10 <20>
// <20> <20> pixels. <20>
// <20><><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><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>͹
// <20> icon4 <20> Es un c<>rculo blanco (completo incluido borde) de 10x10 <20>
// <20> <20> pixels. <20>
// <20><><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><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>͹
// <20> icon5 <20> Es un c<>rculo negro (completo incluido borde) de 10x10 <20>
// <20> <20> pixels. <20>
// <20><><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><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>͹
// <20> icon6 <20> Es un c<>rculo blanco (completo incluido borde) de 20x20 <20>
// <20> <20> pixels. <20>
// <20><><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><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>͹
// <20> icon7 <20> Es un c<>rculo negro (completo incluido borde) de 20x20 <20>
// <20> <20> pixels. <20>
// <20><><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><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>͹
// <20> icon8 <20> Es una flecha (->) gris (con punta azul) de 10x10 pixels. <20>
// <20><><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><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>͹
// <20> *icon9 <20> Es una flecha (->) de color c de 10x10 pixels. <20>
// <20><><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><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>͹
// <20> icon10 <20> Es un triangulo amarillo con l<>neas negras y una exclama- <20>
// <20> <20> ci<63>n negra dentro. Es de 20x20 pixels. <20>
// <20><><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><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>ͼ
// ****** NOTA: A todos los iconos hay que pasarles la posici<63>n X y la Y **
// ****** A los marcados con * hay que pasarles tambi<62>n el color **
void icon1(int x,int y){
setcolor(4);setlinestyle(0,1,3);
line(x,y,x+10,y+10);line(x+10,y,x,y+10);
setlinestyle(0,1,1);
}
void icon2(int x,int y){
setcolor(1);setlinestyle(0,1,3);
line(x,y+5,x+5,y+5);setlinestyle(0,1,1);
line(x+5,y,x+10,y+5);line(x+5,y+10,x+10,y+5);line(x+5,y,x+5,y+10);
setfillstyle(1,1);floodfill(x+6,y+6,1);
setlinestyle(0,1,1);
}
void icon3(int x, int y){
setlinestyle(0,1,1);
setcolor(0);circle(x+5,y+5,5);
setfillstyle(1,2);floodfill(x+5,y+5,0);
}
void icon4(int x, int y){
setlinestyle(0,1,1);
setcolor(15);circle(x,y,5);
setfillstyle(1,15); floodfill(x,y,15);
}
void icon5(int x, int y){
setlinestyle(0,1,1);
setcolor(0);circle(x,y,5);
setfillstyle(1,0); floodfill(x,y,0);
}
void icon6(int x, int y){
setlinestyle(0,1,1);
setcolor(15);circle(x,y,10);
setfillstyle(1,15); floodfill(x,y,15);
}
void icon7(int x, int y){
setlinestyle(0,1,1);
setcolor(0);circle(x,y,10);
setfillstyle(1,0); floodfill(x,y,0);
}
void icon8(int x,int y){
setcolor(7);setlinestyle(0,1,3);
line(x,y+5,x+5,y+5);setlinestyle(0,1,1);
line(x+5,y,x+10,y+5);line(x+5,y+10,x+10,y+5);line(x+5,y,x+5,y+10);
setfillstyle(1,1);floodfill(x+6,y+6,1);
setlinestyle(0,1,1);
}
void icon9(int x,int y,int c){
setcolor(c);setlinestyle(0,1,3);
line(x,y+5,x+5,y+5);setlinestyle(0,1,1);
line(x+5,y,x+10,y+5);line(x+5,y+10,x+10,y+5);line(x+5,y,x+5,y+10);
setfillstyle(1,c);floodfill(x+6,y+6,c);
setlinestyle(0,1,1);
}
void icon10(int x,int y){
setcolor(0);line(x,y+20,x+20,y+20);
line(x,y+20,x+10,y);line(x+20,y+20,x+10,y);
setfillstyle(1,14);floodfill(x+10,y+19,0);
setlinestyle(0,0,2);line(x+10,y+5,x+10,y+13);
setlinestyle(0,0,1);circle(x+10,y+17,1);
setfillstyle(1,0);floodfill(x+10,y+17,0);
}

45
LIB/LIBRE.H Normal file
View File

@ -0,0 +1,45 @@
void introcad(int x, int y, char cad[], int a,
int c, int s, int t, int col) {
int i;
for (i=0;i<=a-1;) {
if (i<a-1){
cad[i]=getche();
if (cad[i]==8){
if (i>0){
setcolor(col);settextstyle(s,0,t);outtextxy(x,y,cad);
cad[i-1]=NULL;i-=2;
}
else{
sound(1000);delay(50);nosound();i--;
}
}
setcolor(c);settextstyle(s,0,t);outtextxy(x,y,cad);
}
else {
if (i==a-1 && cad[i]!=13){
cad[i]=getche();
if (cad[i]!=13 && cad[i]!=8){
sound(1000);delay(50);nosound();
}
else{
if (cad[i]==8 && i>=0){
setcolor(col);settextstyle(s,0,t);outtextxy(x,y,cad);
cad[i-1]=NULL;i--;
setcolor(c);settextstyle(s,0,t);outtextxy(x,y,cad);
}
}
i--;
}
}
if (cad[i]==13 && i>0)
break;
else
if (cad[i]==13 && i==0)
i--;
if (cad[0]!=NULL)
i++;
if (i==-1)
i++;
}
cad[i]=NULL;
}

31
LIB/MILIB.H Normal file
View File

@ -0,0 +1,31 @@
void imprimir_num(int j_resto) {
int numero,base;
int tabla[15];
clrscr();
gotoxy(10,12);
printf ("El n<>mero %d en base %d es: ",numero,base);
for (;j_resto>=0;j_resto--) {
if (tabla[j_resto]<=9)
printf ("%d",tabla[j_resto]);
else
if (tabla[j_resto]==10)
printf ("A");
else
if (tabla[j_resto]==11)
printf ("B");
else
if (tabla[j_resto]==12)
printf ("C");
else
if (tabla[j_resto]==13)
printf ("D");
else
if (tabla[j_resto]==14)
printf ("E");
else
if (tabla[j_resto]==15)
printf ("F");
}
}

16
LIB/UTIL.H Normal file
View File

@ -0,0 +1,16 @@
int modo_grafico(char ruta[80]) {
/* request auto detection */
int gdriver = DETECT, gmode, errorcode;
/* initialize graphics mode */
initgraph(&gdriver, &gmode, ruta);
/* read result of initialization */
errorcode = graphresult();
if (errorcode != grOk) {
printf("Graphics error: %s\n", grapherrormsg(errorcode));
printf("Press any key to halt:");
getch();
exit(1); /* return with error code */
}
return(0);
}