• Viernes 9 de Mayo de 2025, 22:12

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Enko

Páginas: 1 2 3 [4] 5 6 ... 77
76
Novedades en SoloCodigo / Re: Sugerencias Para Mejorar El Sitio
« en: Lunes 21 de Abril de 2008, 18:34 »
Otra cosa que se me ocurre diferente es hacer un concurso online usando sistema de puntos.
Los usuarios que postean ganarían una cantidad determinada de puntos.
Estos puntos los pueden apostar a un numero y al final de cada semana, se sortea un numero y los que acierten se quedan con esos puntos.
Los  participantes tambien podrían apostar puntos entre ellos.


Para sortear el numero, lo mejor sería que sea una especie de hipodromo en la página principal. La carrera de los caballitos duraría una semana y se aceptan apuestas hasta los mediados de la semana. Cada dia, hora los caballos avanzarían y uno podría revisar la página principal para ver que caballo está ganando y como va la apuesta.

Los puntos no tendrían utilidad práctica excepto saber que usario tiene más puntos, (un juego al fin) o bien , cada aniversario de solocodigo se entregaría un premio al usuario que tuvo más puntos durante el año.

77
Novedades en SoloCodigo / Re: Sugerencias Para Mejorar El Sitio
« en: Lunes 21 de Abril de 2008, 18:28 »
Holas, que tal?
Se me ocurre que tambien se podría cambiar un poco el formato de la página principal: http://solocodigo.com/ por algo que tenga más gráficos y menos texto que impacta un poco. Como que uno se pierde entre tanto contenido.

Y muy importante, hacer una descripcion de lo que es solocodigo en la página principal(http://solocodigo.com/). cuando se abre esta, aparecen las categorias, y recursos pero en ninguna lado dice que es en realidad solocodigo. Que explique "¿qué es el punto de encuentro de los programadores?", ¿que beneficios encontrarán si se registran, ¿que son los recursos?, ¿cuales son los miembros activos?,etc...

Saludos.

78
Pascal / Re: Conversion De Caracteres
« en: Domingo 20 de Abril de 2008, 18:57 »
Deberías usar la funcion ReadKey que lee un caracter y no lo escribe en la pantalla.
La idea seria, lees un caracter, lo sumas a la cadena contrasеña y dibujas un * hasta que se ingrese la tecla ENTER.
Código: Text
  1.  
  2. const
  3.     RETURN = #27;
  4. var
  5.     Pass: String;
  6.     Ch: Char;
  7. begin
  8.     Pass := '';
  9.     Ch := ReadKey;
  10.     while(Ch <> RETURN) do
  11.     begin
  12.        Pass := Pass + Ch;
  13.        Write('*');
  14.        Ch := ReadKey;
  15.     end;
  16.     Writeln;
  17.     Writeln(Pass);
  18.     Readln;
  19. end.
  20.  
  21.  

79
Pascal / Re: Crear Un Menu De Varias Opciones
« en: Jueves 10 de Abril de 2008, 15:22 »
Prueba usar Real y formateando la salida:
Código: Text
  1.  
  2.   R: Real;
  3. begin
  4.   R := sqrt(2);
  5.   WriteLn(R:0:0);
  6.   Readln;
  7. end;
  8.  
  9.  
El primer "0" es para ver cuantos espacios en blanco dejas. El segundo "0" para ver cuantos numeros decimales se muestran.

80
Pascal / Re: Crear Un Menu De Varias Opciones
« en: Miércoles 9 de Abril de 2008, 17:24 »
usar procedimientos no es obligatorio.
Puedes hacer algo así:
Código: Text
  1.  
  2. var
  3.   Option,SubOption: byte;
  4. begin
  5.   repeat
  6.      WRITELN ('1.- Para ver mi fecha de nacimiento');
  7.      WRITELN ('2.- Ver mi numero de telefono');
  8.      WRITELN ('3.- OTRA OPCION');
  9.      WRITELN ('4.- SALIR');
  10.      ReadLn(Option);
  11.      case Option of
  12.           1: begin
  13.              repeat
  14.                  WriteLn('1 sub opcion A');
  15.                  Writeln('2 sub opcion B');
  16.                  Writeln('3 VOLVER MENU PRINCIPAL')
  17.                  Readln(SubOption);  
  18.                  case SubOption of
  19.                      1: begin end;
  20.                      2: begin end;
  21.                  end;
  22.              until SubOption = 3;
  23.           end;
  24.           2: begin
  25.           end;
  26.           3:begin
  27.            end;
  28.      end;
  29.   until Option=4;  
  30.  
  31.  
Saludos.

81
Pascal / Re: Interrupciones
« en: Sábado 29 de Marzo de 2008, 03:40 »
GIYF:
Te dejo un par de enlaces.

http://ar.geocities.com/nrs_arg/pascalmania/interrup.htm
http://pascalchuk.blogspot.com/2007/07/mouse-en-pascal.html

y aqui hay algo sobre CD-ROM
http://lists.freepascal.org/lists/fpc-pasc...ber/012624.html

Saludos

82
Pascal / Re: Cliente/servidor
« en: Jueves 27 de Marzo de 2008, 02:10 »
Código: Text
  1.  
  2. unit Untitled;
  3.  
  4. interface
  5.    .....
  6.     aqui van las definiciones/funciones/variables/constantes que se podrán ver por el usuario de la libreria
  7.    .....
  8. implementation
  9.     .....
  10.     aquí van las definiciones/funciones/variables/constantes que no podrán ser vistar por el usuario de la libreria
  11.     .....
  12. begin
  13.  
  14. end.
  15.  
  16.  

83
Pascal / Re: Cliente/servidor
« en: Miércoles 26 de Marzo de 2008, 01:50 »
Primero debes aprender lo basico de comunicacion con Sockets.
http://es.wikipedia.org/wiki/Socket_de_Internet


Aca te dejo la referencia de la libreria de sockets de FreePascal.
http://www.freepascal.org/docs-html/rtl/sockets/index.html

84
Pascal / Re: Free Pascal Pregunta???
« en: Domingo 23 de Marzo de 2008, 23:58 »
Para trabajar con archivos:
http://www.learn-programming.za.net/progra...al_learn11.html

Para hacer la espera hace:
Código: Text
  1.  
  2. Write('Espere');
  3. Delay(1000);
  4. Write('.');
  5. Delay(1000);
  6. Write('.');
  7. Delay(1000);
  8. Write('.');
  9.  
  10.  
Delay(milisegundos)  hace pausar la ejecucion del programa por el tiempo que le pases.

85
Pascal / Re: Free Pascal Pregunta???
« en: Domingo 23 de Marzo de 2008, 22:52 »
Hola, no es ninguna molestia. Cualquier duda que tengas, pregunta nomas.
Código: Text
  1.  
  2. begin
  3.     repeat
  4.          WriteLn('1: opcion A');
  5.          WriteLn('2: opcion B');
  6.          WriteLn('9: SALIR');
  7.          ReadLn(opcion);
  8.          case opcion of
  9.              1: ProcedureOpcionA;
  10.              2: ProcedureOpcionB;
  11.              else
  12.                 WriteLn('Opcion Invalida, eliga 1,2,9);
  13.          end;
  14.     until opcion = 9;
  15. end.
  16.  
  17.  
Se imprime el menu y se pide que se eliga una opcion hasta que el usuario ingresa un '9' como eleccion.
Saludos.

86
Pascal / Re: Free Pascal Pregunta???
« en: Domingo 23 de Marzo de 2008, 17:48 »
Cita de: "- RIKI -"
Pues si este ya me esta bn muchas gracias de verdad!!!  weno i se ve k lo de poner un link en el prograam es algo imposible no?
Si lo que quieres es poner un link, pues tendrías que hacer aplicaciones con una GUI para windows y en Free Pascal se hace complicado eso. Mejor usar Lazarus que usa como compildor FreePascal y VCL de Delphi.
Mas facil seria hacer simplemente:
Código: Text
  1.  
  2. WriteLn('Descargar: http://www.foros.solocodigo.com');
  3.  
  4.  
y listo.

87
Pascal / Re: Pequeño Problema De Programacion
« en: Domingo 23 de Marzo de 2008, 05:07 »
estas usando mal el case....... case no lleva "begin" pero si lleva un "end"
Código: Text
  1.  
  2. case opcion of
  3. 1:
  4. 2:
  5. else
  6. end;
  7.  
  8.  
Código: Text
  1.  
  2. begin
  3. writeln('Pone el numerito magico ');
  4. readln(numero);
  5.  
  6. case numero of
  7.    1: writeln('El mes que ingresaste es enero');
  8.    2: writeln('El mes que ingresaste es febrero');
  9.    3 : writeln('El mes que ingrsaste es marzo');
  10.    4 : writeln('El mes que ingresaste es abril');
  11.    5 : writeln('El mes que ingresaste es mayo');
  12.    6 : writeln('El mes que ingresaste es junio');
  13.    7 : writeln('El mes que ingrsaste es julio');
  14.    8 : writeln('El mes que ingresaste es agosto');
  15.    9 : writeln('El mes que ingresaste es septiembre');
  16.    10 : writeln('El mes que ingresaste es octubre');
  17.    11 : writeln('El mes que ingresaste es noviembre');
  18.    12 : writeln('El mes que ingresaste es diciembre');
  19.    else ('No ingresaste ningun numero valido');
  20. end;
  21.  
  22. end.
  23.  
  24.  

88
Pascal / Re: Free Pascal Pregunta???
« en: Domingo 23 de Marzo de 2008, 05:04 »
No se que tipo de menú quieres crear. Uno sencillo en modo texto sería:
Código: Text
  1.  
  2. var
  3.    opcion: Integer;
  4. begin
  5.     WriteLn('Elija una opcion: ');
  6.     WriteLn('1> opcion a');
  7.     WriteLn('2> opcion b');
  8.     Readln(opcion);
  9.     if opcion = 1 then
  10.     begin
  11.        ..............
  12.     end else
  13.     if opcion = 2 then..........
  14.  
  15.  

89
La taberna del BIT / Re: Cuentame Un Chiste
« en: Viernes 14 de Marzo de 2008, 13:04 »
http://www.santabanta.com/jokes.asp?catid=8784
Citar
Hard Disk Girls:
She remembers everything, FOREVER.

RAM Girls:
She forgets about you, the moment you turn her off.

Windows Girls:
Everyone knows that she can't do a thing right, but no one can live without her.

Screensaver Girls:
She is good for nothing but at least she is fun!

Internet Girls:
Difficult to access.

Server Girls:
Always busy when you need her.

Multimedia Girls:
She makes horrible things look beautiful.

CD-ROM Girls:
She is always faster and faster.

Email Girls:
Every ten things she says, eight are nonsense.

Virus Girls:
Also known as "WIFE"; when you are not expecting her, she comes, installs herself and uses all your resources. If you try to uninstall her you will lose something, if you don't try to uninstall her you will lose everything.

90
ASM (Ensamblador) / Re: Desplazar 16 Bits Un Dato Dd Añadiendo Ceros
« en: Martes 11 de Marzo de 2008, 02:12 »
usa la instruccion shl
Código: Text
  1.  
  2. shr ax 16
  3.  
  4.  
Saludos.

91
Pascal / Re: Pascal - Linux (ubuntu)
« en: Miércoles 5 de Marzo de 2008, 01:35 »
Algunos compiladores son quisquillosos con el nombre de la unidad y con la declaracion del nombre dentro del codigo fuente.
Es decir, es mejor si es el mismo....
Código: Text
  1.  
  2. UNIT Unit_prueba;
  3.  
  4. INTERFACE
  5. ------
  6. IMPLEMENTATION
  7. ------
  8. BEGIN
  9. END.
  10.  
  11.  
Y esto tienen que estar dentro de un fichero llamado: "Unit_prueba.pas". En delphi bajo windows pasa lo mismo.

92
Delphi / Re: Metodologías De Programación
« en: Lunes 3 de Marzo de 2008, 18:38 »
Aca encontras todo lo necesario.
http://es.wikipedia.org/wiki/Categor%C3%AD...ogramaci%C3%B3n

Saludos.

93
La taberna del BIT / Re: Celular Flexible By Nokia
« en: Sábado 1 de Marzo de 2008, 19:53 »
Más que un video animado, me gustaría ver un prototipo.

94
Pascal / Re: Instrucciones Para Controlar El Envio De Inf.
« en: Viernes 29 de Febrero de 2008, 21:03 »
Se hace con un Write y se pasa como primer parametro el nombre del puerto.
Código: Text
  1.  
  2. Write(lpt1, Informacion_Que_Se_Quiere_Enviar)
  3.  
  4.  

95
Pascal / Re: Problemilla Con Combinaciones
« en: Viernes 29 de Febrero de 2008, 20:55 »
No es nada complicado, es cuestión de hacer un par de fors.... te lo muestro con el numero IP
Código: Text
  1.  
  2. for i:=1 to 255 do
  3.   for j:=1 to 255 do
  4.     for k:=1 to 255 do
  5.        for l:=1 to 255 do
  6.         Writeln(i,'.',j,'.',k,'.',l);
  7.  
  8.  

96
Pascal / Re: La Víbora En Modo Gráfico
« en: Jueves 14 de Febrero de 2008, 21:19 »
Cita de: "roko1986"
excelentes ejemplos de utilización del modo gráfico y realmente, muy buena la pagina!! lastima que yo sea el que se haya hecho millonario con los códigos!! XD
Este hilo es del año 2006 :P

97
Pascal / Re: ¿compilar Para Arm (nintendo Ds)?
« en: Martes 5 de Febrero de 2008, 23:45 »
Tendrías que conseguir un compilador de Pascal para la plataforma ARM específica. Lo más probable es que para la nintendo DS no consigas tal cosa :( .
Este es de palm: http://www.ppcompiler.org/download.php?lng=en

98
Pascal / Re: Imprimir Matriz
« en: Lunes 4 de Febrero de 2008, 04:07 »
NO hace falta que uses gotoXY simplemente no hagas todo el tiempo WriteLn....
Código: Text
  1.  
  2. for j:=1 to 10 do
  3. begin
  4.    for i:=1 to 10 do
  5.     begin
  6.          Write(v[i,j], ' ');
  7.      end;
  8.      WriteLn;
  9. end;
  10.  
  11.  
Esto imprimiria el contenido de las celdas de esta manera:
Citar
a1 a2 a3 a4 a5...
b1 b2 b3 b4 b5...
....

99
Delphi / Re: Problema Con Colores
« en: Sábado 2 de Febrero de 2008, 15:31 »
http://www.greatis.com/delphicb/tips/lib/m...color2html.html

100
Delphi / Re: Buena Informacion
« en: Lunes 28 de Enero de 2008, 12:57 »
El enlace no funciona.
Y por cierto, que hay una seccion llamada Publicacion y e-Books que está justamente para esto.
Saludos y Gracias por el enlace. Espero que lo corrigas.

Páginas: 1 2 3 [4] 5 6 ... 77