Código de C/Visual C - LeaLinea

Requerimientos

Embarcadero RAD Studio 10.2 o versión superior. El código fuente es compatible con MS-DOS y Windows.

1.0

Publicado el 11 de Febrero del 2022gráfica de visualizaciones de la versión: 1.0
512 visualizaciones desde el 11 de Febrero del 2022
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

lealinea02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
/* LEALINEA.C */
/* Eugenio Mart¡nez -- Enero de 2022 */
/* Define las funciones
	pause,
	delay_ms,
        getkey(),
	lealinea(),
	direct_video(),
	backspace(),
        newline y
	tab()
*/
/*
 * Licencia   : Copyright ©Eugenio Mart¡nez, 2022
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */
 
#include <conio.h>
#include <stdio.h>
 
#ifdef __WIN32__
#  include <windows.h>
#else
#  include <dos.h>
#endif
 
/* Ciclo do...until
   Usar: do
	 {
	   cuerpo;
	 } until(cond);
*/
#define until(cond) while(!(cond))
 
#define loop()  while(1)
 
int lealinea(char *entrada, int max_linea);
void delay_ms(unsigned int ms);
void pause(unsigned int sec);
unsigned int getkey(void);
void direct_video(int v);
void backspace(void);
void newline(void);
void tab(void);
 
/*
   lee el teclado y devuelve su c¢digo, intercepta las teclas extendidas
   reconoce c¢digos de teclas de 2 bytes o m s
   similar a getch() de <conio.h>
*/
unsigned int getkey(void)
{
	register unsigned char codigo_extendido = 0;
	unsigned int tecla = 0;
        int status = 0;
 
#ifdef __WIN32__
   __flush_win95_keyup_events();  /* libera la memoria intermedia del teclado */
#endif
 
   status = ungetch(0);  /* inserta cero en la memoria intermedia del teclado */
   if(status == EOF)
     fprintf(stderr, "[EOF]");
 
   do
   {
     codigo_extendido = ~codigo_extendido;	/* convierte 0 -> 1 y 1 -> 0 */
     tecla = getch();				/* invoca a getch */
 
   } until(tecla != 0);
 
   if(codigo_extendido == 0)
     tecla += 256;      /* teclas F1~F12, Alt+F1~Alt+F12, etc. */
 
   return tecla;
}
 
/*
   Lee una secuencia de caracteres hasta 'max_linea' desde el teclado
   y guarda los mismos en 'entrada'.
   En caso de ‚xito devuelve 0 sino 1.
   Termina la entrada de datos cuando se presiona la tecla [Intro].
   Reconoce la tecla [Retroceso] para borrar el caracter anterior.
   Hace sonar el altavoz de la PC cuando se alcanza el l¡mite permitido
   de caracteres a leer.
   similar a cgets() de <conio.h>
*/
int lealinea(char *entrada, int max_linea)
{
	unsigned int caracter = 0;
	int n = 0;
	int tope = 0;
 
   if(max_linea < 1)
     return 1;	/* error en 'max_linea' */
 
   if(entrada == NULL)
     return 1;  /* error porque 'entrada' contiene un puntero nulo */
 
   loop()	/* inicia ciclo repetitivo */
   {
     caracter = getkey();  /* lee tecla */
 
     if(caracter == 269)  /* tecla [Intro] presionada */
       break;		   /* sale del ciclo repetitivo */
 
     if(caracter == 264 && tope == 1)	/* en el tope alcanzado */
     {
       tope = 0;
       backspace();			/* retrocede un lugar */
 
       n--;
       entrada[n] = '\0';               /* elimina el £ltimo caracterer */
 
       continue;                        /* contin£a leyendo el teclado */
     }
 
     if(n < max_linea)
     {
       if((unsigned char)caracter > 31 && (unsigned char)caracter <= 255)   /* acepta caracteres imprimibles */
       {
	 putch(caracter);
	 entrada[n] = (unsigned char)caracter;
	 n++;
       }
       else				/* analiza caracteres especiales */
	 if(caracter == 264)		/* tecla [Retroceso] presionada */
	 {
	   if(n == 0)			/* sin caracteres recibidos */
	     putchar('\a');		/* suena el altavoz interno */
	   else
	   {
	     backspace();		/* retrocede un lugar */
	     n--;
	     entrada[n] = '\0';		/* elimina el £ltimo caracterer */
	   }
	 }
	 else
	   putchar('\a');		/* suena el altavoz interno */
     }
     else
     {
       putchar('\a');			/* suena el altavoz interno */
       tope = 1;			/* tope alcanzado */
     }
   }	/* finaliza ciclo repetitivo */
 
   entrada[n] = '\0';		/* da por finalizada la entrada de datos */
   return 0;			/* entrada exitosa de datos */
}
 
/* Retrocede el cursor horizontalmente un espacio sobre la pantalla */
void backspace(void)
{
   gotoxy(wherex()-1, wherey());
   putch(32);
   gotoxy(wherex()-1, wherey());
}
 
/* Avanza el cursor horizontalmente ocho espacios sobre la pantalla */
void tab(void)
{
   gotoxy(wherex() + 8, wherey());
}
 
/* Realiza un avance de l¡nea, mueve el cursor a la siguiente l¡nea */
void newline(void)
{
   putch(10); putch(13);
}
 
/*
   Efect£a una pausa en la ejecuci¢n del programa
   hasta que se presiona cualquier tecla.
   Cuando 'sec' es igual a 0, espera por cualquier tecla que se va a presionar.
   Cuando 'sec' es mayor a 0, deja transcurrir un tiempo de espera (en segundos)
   y no lee el teclado.
*/
void pause(unsigned int sec)
{
   if(sec == 0)
   {
     while(!kbhit())
       ;
   }
   else
     delay_ms(sec * 1000);
}
 
/* Activa la salida por pantalla de manera directa o no
   v = 0 desactivado
   v = 1 activado
 */
void direct_video(int v)
{
#ifdef __WIN32__
   _directvideo = v;  /* para compilador de 32 bits Borland C++ */
#else
   directvideo = v;  /* para compilador de 16 bits Borland C++ */
#endif
}
 
// Efect£a una demora (milisegundos) en la ejecuci¢n del programa
void delay_ms(unsigned int ms)
{
#ifdef __WIN32__
   Sleep(ms);	/* para aplicaciones que corren en Windows/32 bits */
#else
   delay(ms);   /* para aplicaciones que corren en MS-DOS/16 bits */
#endif
}
 
void main(void)
{
	int edad = 0;
	int estado = 0;
	char sin_dato[] = "<sin datos>";
	char nombre_apellido[96] = { "" };
	char domicilio_particular[96] = { "" };
	char numero[3] = { "" };
 
   direct_video(0);
   clrscr();
 
   /* Visualiza los títulos */
   cputs("<< Ejercicio de programaci¢n C >>");
   gotoxy(1, wherey() + 1); cputs("Uso de las funciones de conio.h");
   gotoxy(1, wherey() + 2); cputs("Ficha personal");
 
   /* Solicita la entrada de datos */
   gotoxy(1, wherey() + 1); cprintf("Ingrese su nombre y apellido   : ");
   estado = lealinea(nombre_apellido, 20);
 
   if(estado == 1)
     cprintf("\n\rError en el ingreso de datos: %s\n\r", nombre_apellido);
 
   newline();
 
   cprintf("Ingrese su edad                : ");
   estado = lealinea(numero, 2);
   sscanf(numero, "%d", &edad);
 
   newline();
 
   cputs("Ingrese su domicilio particular: ");
   domicilio_particular[0] = 80;
   cgets(domicilio_particular);
 
   clrscr();
 
   /* Visualiza los datos ingresados */
   cputs("Los datos ingresados fueron los siguientes");
   newline();
 
   if(nombre_apellido[0] != '\0')
     cprintf("Nombre y apellido   : %s", nombre_apellido);
   else
     cprintf("Nombre y apellido   : %s", sin_dato);
 
   newline();
 
   if(edad > 0)
     cprintf("Edad                : %d", edad);
   else
     cprintf("Edad                : %s", sin_dato);
 
   newline();
 
   if(domicilio_particular[1] > 0)
     cprintf("Domicilio particular: %s", &domicilio_particular[2]);
   else
     cprintf("Domicilio particular: %s", sin_dato);
 
   newline(); newline();
   cputs("Ficha personal lista para ser guardada en la base de datos.");
 
   pause(5);
}



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s7198