Free pascal

Free Pascal es un potente compilador para dicho lenguaje.

La sintaxis de lenguaje de Free Pascal es semánticamente compatible con Turbo Pascal 7.0. También soporta algunas extensiones usadas por Delphi.

Opciones adicionales incluyen: soporte para sobrecarga de proceso, optimizador de código, posibilidad para cargar variables en registros, un analizador del nivel del flujo de datos del ensamblador, eliminaciones de Stack, un ensamblador integrado, encadenamiento inteligente, soporte para debugger GNU, y soporte API.

& como sabran las descargas son de los sitios oficiales esta ves la tomaremos desde softonic:
Descargar:  http://free-pascal.softonic.com/descargar



Nota: Lo he usado y lo uso para mis calses de pascal y debo decir que es excelente me gusta mucho este compilador y para los que trabajen con turbopascal y vallan a provar este compilador. donde colcan:
Uses wincrt; en free pascal es de la siguiente forma: Uses crt;  

Sistema de Encuestas Visual Basic.NET

Bueno como muchos sabrán este fue nuestro primer parcial de programación avanzada y como muchos no sabrán son la 02:15am jejej ya va siendo hora de acostarme, así que seré breve.

Este consiste en una aplicación que realiza encuestas donde primero que todo se registran los candidatos y luego los barrios donde se realizara la encuesta. Cuenta con el modulo de encuestado donde los datos ya son cargados según los barrios y candidatos que se registraron, excepto los estratos que tome 10 tipos de estratos. Ahora las consultas permiten consultar el porcentaje total de un candidato seleccionándolo en un combo que se carga con los nombres de los candidatos, permite una consulta por parámetro para este caso por sexo, así muestra según el sexo seleccionado el porcentaje de personas que votaron por cada candidato, y por ultimo cuenta con una consulta por barrio que nos muestra el porcentaje de personas en un barrio especificado que botaran por los candidatos

Descargar el proyecto:

 

http://www.4shared.com/file/ODQ5hB6T/encuesta.html

Vortal "manejo de archivos"

Una imagen:

Video de la aplicacion Corriendo:






Como lo prometido es deuda este es un minivortal desarrollado por supuesto en visual basic.NET y como estoy trabajando en otra aplicación, un sistema de encuestas para subirlo mas tarde les dejo una descripción básica:



La aplicación utiliza las siguientes estructuras "Lo cual verán, y se darán cuenta que esta echa en tal forma como si fuera una base de datos", por eso en el post anterior dije que la siguiente aplicación traería principios conceptuales de bases de datos. ahora las estructuras:

Public Structure materias
Public nomb_materi As String
Public cod_materia As Integer
End Structure

Public datos_materias() As materias

Public Structure estudiante
Public nombre As String
Public id As Long
Public dir As String
Public tel As Long
Public fecha_nac As Date
End Structure

Public datos_estudiante() As estudiante

Public Structure matricula
Public cod_estudiante As Long
Public cod_materia As Long
End Structure

Public datos_matricula() As matricula

Public Structure notas
Public cod_estudiante As Long
Public cod_materia As Long
Public n1 As Decimal
Public n2 As Decimal
Public n3 As Decimal
End Structure

Public datos_notas() As notas

Descargar el proyecto:

 http://www.4shared.com/file/3Aw5v9Ur/sistemalaumnos.html

Manejo de archivos en visual basic.net

Hola. Tengan buenas noches. Muchos se preguntaran ¿el porque de mentalidad cliptoniana? Pues cuando cree el blog se hizo para compartir ideas de como optar por soluciones eficientes para desarrollar nuestras aplicaciones. Pues hoy me tomare unos minuticos para mostrarles algo de archivo.

Esta idea nace en que patiño nos puso hacer un programa con un vector dinámico de registro el cual iba incrementando su tamaño a medida que se iban incluyendo registros o perdiendo tamaño a medida que se iban eliminando, eso esta bien todos los damos para hacer pero a patiño se le ocurrió que lo pasáramos a archivo. & pues había que modificar la mayoría de la estructura del código, y como soy muy flojo dije eso es demasiado para mi así que me pregunte a mi mismo: mi mismo inventate algo que trabaje con archivos pero que no tengas que modificar gran parte del programa, me puse a leer sobre flujos-archivos y entre tanto leer conseguí cosas que me hicieron pensar en otras cosas y después de contarle como surgió la idea aquí esta:

Para los que conocen sobre Bases de Datos sabrán lo que es un acceso desconectado y me dije si ya lo tenemos en un vector tratemos de emitar este tipo de conexión que caga los datos en el dataset y luego actualiza la Base de Datos cuando sea necesario... jejej supongo que ya se habran imaginado que use como dataset el vector que ya tenia así que solo tenia que crear una clase que escribiera y leyera los datos luego cargarlos en un vector y en el momento de agregar, editar o eliminar un registro lo hacia en el vector que me resultaba mucho mas fácil, & cuyo procedimiento ya estaba implementado asi que solo esa agregar una linea de código al final de los botones que implementaban estas operaciones para trabajar con mi objeto de escritura y lectura de archivos.

Pues esa es la idea, hasta el momento he ido mejorando el sistema y me ha resultado muy util ya que puedo acomodarlo a cualquier numero de estructuras como verán en el siguiente aporte que pretende ser un sistema de matricula de materias y digitalizacion de notas con un poco de pricipios teoricos de fundamentos de Base de datos.

Esto se fue largo pero como dije pretende ser una idea, una forma de dar solución a un problema. Ahora explicare un detalle que me parece importante

Para el proceso de escritura:

--Verifico si existe el archivo

----sino existe

**********quiere decir que sera el primer registro que almacenare en el archivo

***********esto lo ago de modo normal con modo append, y write

--pero si existe

*hago una copia de seguridad del archivo-por si se daña el archivo en el proceso

*luego elimino el archivo original

*creo uno nuevo en el cual lo que ago es escribir en el archivo todo el vector(proceso muy sencillo)

--Para la lectura

-verifico si existe el archivo

*leo el archivo hasta que sea fin de archivo

*lo que boy leyendo lo boy almacenando en el vector

& listo problema solucionado

Descargar el proyecto:



http://www.4shared.com/file/D8inct6S/Manejodearchivos.html

Funcion para validar datos

esta es una pequeña funcion que pretende validar los datos introducidos por el teclado.

esta es una prueba de la aplicacion:



Este es el codigo:

  1 #include <stdio.h> 
  2 #include <iostream.h> 
  3 #include <conio.h> 
  4 #include <stdlib.h> 
  5 #include <string.h> 
  6 #include <ctype.h> 
  7  
  8 double funcvalnum (int tam); 
  9 char   *funcvalet (int n); 
 10 char  *funcvalfnume (int ampl); 
 11  
 12 void main (void) 
 13 { 
 14   textbackground(1); 
 15   textcolor(4); 
 16   clrscr(); 
 17  //  int a=getche();///pruebas de momento 
 18   double prueban; 
 19   char pruebalf[30]; 
 20   char pruebalfn[20]; 
 21  
 22   gotoxy(7,9);cout<<"digite un numero: "; 
 23   gotoxy(7,11);cout<<"Digite nombre: "; 
 24   gotoxy(7,13);cout<<"Cadena alfanumerica: "; 
 25   gotoxy(24,9);prueban=funcvalnum(5); 
 26   gotoxy(22,11);strcpy(pruebalf,funcvalet(30)); 
 27   gotoxy(28,13);strcpy(pruebalfn,funcvalfnume(7)); 
 28  
 29  
 30  
 31   cout<<endl<<endl<<pruebalfn;//<<prueban<<endl<<pruebalf<<endl<<pruebalfn; 
 32   getch(); 
 33 }///fin main 
 34  
 35  
 36  
 37  
 38 double funcvalnum (int tam) 
 39 { 
 40    /* funcvalnum 
 41      La siguiente funcion no es apta para todo publico puede contener 
 42      partes enredadas  se recomienda la supervicion de un adulto :-) 
 43    */ 
 44   char vnume[15], baux; 
 45   int pnume,posx,posy; 
 46   double numero; 
 47  
 48   posx=wherex(); posy=wherey(); 
 49  
 50   for(int i=0;i<tam;)///se llena el vector hasta donde debe ser no recibe + 
 51   {                  //caracteres de lo estipulado y hace la comparacion 
 52              //inmediatamente si es uan letra o numero 
 53  
 54     textbackground(1);///es igual q el crscr se mdoifican los colores 
 55     textcolor(4); 
 56     do{ 
 57     gotoxy(posx +i,posy);cout<<" "; 
 58        //gotoxy(3,18);clreol(); 
 59        gotoxy(posx +i,posy);baux=getche(); 
 60        pnume=(int) baux; 
 61     //cout<<endl<<pnume<<" "<<i; 
 62     //getch(); 
 63     }while ((i==0 && pnume==13) || (i!=0 && pnume==45));////por si me digitan un enter sin escribri nada 
 64  
 65      if( (pnume<48 || pnume>57) && (pnume!=13) && (pnume!=46 && pnume!=45)) 
 66      { 
 67       textcolor(7); 
 68       gotoxy(3,18);cout<<"[X] "; cprintf("Se ha digitado un caracter no valido"); 
 69       getch(); 
 70       gotoxy(posx +i,posy);cout<<" "; 
 71      } 
 72      else 
 73  
 74       if (pnume==13) 
 75     break; 
 76        else 
 77        { 
 78     vnume[i]=baux; 
 79     i++; 
 80        } 
 81  
 82   }//fin for 
 83       numero=atof(vnume); 
 84    return numero; 
 85  
 86 }//fin funcion que valida numeros 
 87  
 88  
 89 char  *funcvalet (int n) 
 90 { 
 91   char valfab[30], baux; 
 92   int pnume,posx,posy,comprobar; 
 93   double numero; 
 94  
 95   posx=wherex(); posy=wherey(); 
 96  
 97   for(int i=0;i<n;)///se llena el vector hasta donde debe ser no recibe + 
 98   {                  //caracteres de lo estipulado y hace la comparacion 
 99              //inmediatamente si es uan letra o numero 
100  
101     textbackground(1);///es igual q el crscr se mdoifican los colores 
102     textcolor(4); 
103     do{ 
104     gotoxy(3,18);delline(); 
105     gotoxy(posx +i,posy);baux=getche(); 
106     pnume=(int) baux; 
107  
108     }while((i==0 && pnume==13)|| (i==0 && pnume==32));////por si me digitan un enter sin escribri nada 
109  
110  
111     comprobar=isalpha(baux); 
112     if (comprobar==0 && pnume!=32 && pnume!=13) 
113     { 
114       textcolor(7); 
115       gotoxy(3,18);cout<<"[X] "; cprintf("Se ha digitado una caracter no valido"); 
116       getch(); 
117       gotoxy(posx +i,posy);cout<<" "; 
118     } 
119       else 
120     if(pnume==13) 
121     { 
122      break; 
123     } 
124      else 
125      { 
126       valfab[i]=baux; 
127       i++; 
128      } 
129  
130   }//fin for 
131    return valfab; 
132  
133 }///fin funcion q valida las letras 
134  
135 char  *funcvalfnume (int ampl)///porq tiene q se run puntero? 
136 { 
137  
138   char valfanu[30], baux; 
139   int pnume,posx,posy,comprobar; 
140   double numero; 
141  
142   posx=wherex(); posy=wherey(); 
143  
144   /*for(int j=0; j<ampl; j++)  ///por el probelma d eun solo digito 
145   valfanu[j]=' '; */ 
146  
147   for(int i=0;i<ampl;)///se llena el vector hasta donde debe ser no recibe + 
148   {                  //caracteres de lo estipulado y hace la comparacion 
149              //inmediatamente si es uan letra o numero 
150  
151     textbackground(1);///es igual q el crscr se mdoifican los colores 
152     textcolor(4); 
153     do{ 
154     gotoxy(3,18);delline(); 
155     gotoxy(posx +i,posy);baux=getche(); 
156     pnume=(int) baux; 
157  
158     }while((i==0 && pnume==13)|| (i==0 && pnume==32));////por si me digitan un enter sin escribri nada 
159  
160  
161     comprobar=isalnum(baux); 
162  
163        if(comprobar!=8 && comprobar!=2 && pnume!=32 && pnume!=13 && pnume!=46 && pnume!=35 && pnume!=64 && pnume!=45 && pnume!=95)//comprubea los caracteres (. # @ - _ ) 
164        { 
165  
166     textcolor(7); 
167     gotoxy(3,18);cout<<"[X] "; cprintf("Se ha digitado una caracter no valido"); 
168     getch(); 
169     gotoxy(posx +i,posy);cout<<" "; 
170  
171        } 
172     else 
173     if(pnume==13) 
174      { 
175       break; 
176      } 
177  
178      else 
179       { 
180        valfanu[i]=baux; 
181        i++; 
182       } 
183  }///fin for 
184  
185   return valfanu; 
186  
187 }///fin funcion valores alfanumericos

Una presentacion con algo de estilo matrix

Este es un codigo que hice como un año y medio y buscando me encontre con el dentro de mis archivos olvidados la verdad es muy simple, pero para los que solo comienzan les puede servir de guia.




& aqui el codigo:

  1 #include<iostream.h> 
  2 #include<conio.h> 
  3 #include<stdio.h> 
  4 #include<dos.h> 
  5 #include<time.h> 
  6  void  mipresentacion (int x, char letra); 
  7  void  apariencia(); 
  8  
  9 void main () 
 10 {///inicio main 
 11  //cargo la pariencia q esta dividida en dos funciones 
 12  apariencia(); 
 13  
 14  
 15  
 16     getch(); 
 17 }//fin main 
 18  
 19  void  apariencia() 
 20  { 
 21   //apariencia basica de la pantalla 
 22 textcolor(2); 
 23 textbackground(6); 
 24 clrscr(); 
 25  
 26   for(int i=3;i<=73;i++) 
 27   { 
 28    gotoxy(i,4);cout<<"Ÿ"; 
 29    gotoxy(i,45);cout<<"Ÿ"; 
 30     if (i<=44) 
 31     { 
 32       gotoxy(3,i+1);cout<<"Ÿ"; 
 33       gotoxy(73,i+1);cout<<"Ÿ"; 
 34     } 
 35    delay(20); 
 36  
 37   } 
 38      gotoxy(9,9);cout<<"Autor:"; 
 39      int x=30,z=1; char letra; 
 40      time_t rawtime; 
 41      time(&rawtime); 
 42  
 43      gotoxy(45,9); cout<<ctime(&rawtime); 
 44        ///for2 
 45        for(z;z<=16;z++) 
 46     { 
 47        if (z==1) 
 48        { 
 49          letra='F'; 
 50          mipresentacion(x,letra); 
 51        } 
 52        if (z==2) 
 53        { 
 54          letra='e'; 
 55          mipresentacion(x,letra); 
 56        } 
 57        if (z==3) 
 58        { 
 59          letra='l'; 
 60          mipresentacion(x,letra); 
 61        } 
 62        if (z==4) 
 63        { 
 64          letra='i'; 
 65          mipresentacion(x,letra); 
 66        } 
 67        if (z==5) 
 68        { 
 69          letra='x'; 
 70          mipresentacion(x,letra); 
 71        } 
 72  
 73        if (z==6 || z==10) 
 74        { 
 75          letra=' '; 
 76          mipresentacion(x,letra); 
 77        } 
 78  
 79        if (z==7 || z==8 || z==9) 
 80        { 
 81          letra='-'; 
 82          mipresentacion(x,letra); 
 83        } 
 84  
 85        if (z==11) 
 86        { 
 87          letra='C'; 
 88          mipresentacion(x,letra); 
 89        } 
 90        if (z==12) 
 91        { 
 92          letra='l'; 
 93          mipresentacion(x,letra); 
 94        } 
 95        if (z==13) 
 96        { 
 97          letra='i'; 
 98          mipresentacion(x,letra); 
 99        } 
100        if (z==14) 
101        { 
102          letra='p'; 
103          mipresentacion(x,letra); 
104        } 
105        if (z==15) 
106        { 
107          letra='t'; 
108          mipresentacion(x,letra); 
109        } 
110         if (z==16) 
111        { 
112          letra='o'; 
113          mipresentacion(x,letra); 
114        } 
115        x=x+1; 
116     }//fin for2 
117     gotoxy(25,35);cout<<"Espero sea de tu agrado!!! "; 
118     gotoxy(23,37);cout<<"& si no suerte para la proxima... "; 
119 ////fin aparienciabasica de la pantalla 
120  } 
121  
122  
123 void  mipresentacion(int x, char letra) 
124 { 
125   ///mi presentacion personal 
126     int i; 
127  
128      for(i=10;i<=25;i++) 
129        { 
130     gotoxy(x,i);cout<<letra; 
131     delay(30); 
132     if (i==25) 
133      { 
134          for(i=10;i<25;i++) 
135          { 
136           gotoxy(x,i);cout<<" "; 
137           delay(70); 
138          } 
139      } 
140        }//fin for 
141   //  }//fin si de diferente 
142  
143  
144  } 
145  
146 

Variables Dinamicas, Punteros

Estos son unos ejemplos Sencillos que hicimos en clase espero se entiendan

 /* Hacer un programa en c/c++, que reciba un valor para N y determine si
existe o no en la lista de elementos del arreglo:
vector[10]={2,5,8,4,5,9,3,0,4,8}. Para accesar al arreglo usar un puntero*/

  1 #include<iostream.h>
  2 #include<conio.h> 
  3 #include <ctype.h> 
  4  
  5 void main(void)
  6 { 
  7  int vector[10]={2,5,8,4,5,9,3,0,4,8},*n,*p,*i;
  8  char *si,*ct; 
  9  p = &vector[0];//p tiene la direccion de la primera posicion del vector
 10  
 11  //declaracion del vector en forma dinamica
 12  n=new int;///valor a leer
 13  p=new int;//acceso a puntero
 14  i=new int; //recorrido
 15  si=new char;
 16  ct=new char;
 17  
 18    *ct='S'; 
 19  
 20    while(*ct=='S')
 21    { 
 22     clrscr(); 
 23  
 24     *si='n';//incializo como si el valor no estubiera dentro de la lista
 25     gotoxy(2,4);
 26     cout<<"Digite un n£mero para ser consultado: "; 
 27     cin>>*n; 
 28  
 29     for (*i=0; *i<=9; (*i)++)
 30     { 
 31       if (*n==*p)//compara el valor almacenado en la direccion de n con el
 32       {            //valor alamcenado en la direccion de p
 33     cout<<endl;
 34     cout<<"El valor se encuentra almacenado dentro de la lista";
 35     *si='s'; 
 36     break; 
 37       }//fin si 
 38       // cout<<endl; 
 39              //cout<<*p;  Q pasa con la primera posicion
 40       p=&vector[*i]; 
 41     }//fin for que recorre el vector 
 42  
 43       if(*si=='n')
 44       { 
 45        cout<<"El valor no esta dentro de la lista";
 46       } 
 47  
 48        cout<<endl<<endl<<endl;
 49        cout<<"presione s para buscar otro valor u otra tecla para salir: ";
 50        cin>>*ct; 
 51        *ct=toupper(*ct); 
 52  
 53    }///fin whie 
 54  
 55 }//Fin main