|
|
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 ... 41 42 [43] 44 45 ... 77
1051
« en: Sábado 8 de Abril de 2006, 00:56 »
procedure Guardar(Nombre: String; Puntaje: Integer); var F: TEXT; begin Assign(F, 'MejoresPuntajes.txt');{asigna al archivo su direccion} {$I-} {desactiva control entrada/salida} Append(F); {intenta poner el puntero al final de archivo, por si este existe} if IOResult <> 0 then {archivo no existe y hay que recrearlo} begin WriteLn('No se encuentra el archivo'); WriteLn('Desea crear uno nuevo'); res := ReadKey; if (res = 's') or (res = 'S') then ReWrite(F); end; {$I+} WriteLn(F, Nombre, ' ', Puntaje); {escribe en el archivo de texto, puntaje y nombre} Close(F); {cierra el archivo} end;
en este codigo lo que hace, es intentar escribir al final de un archivo, si este no existe, crea uno nuevo. Esto hay que hacerlo así porque en TurboPascal (creo que es lo que vos usas) no existe FileExiste(nombre) que te dice si existe un archivo podes usar el siguente código pero ASEGURATE que haya un ARCHIVO llamado "MejoresPuntajes.txt" enla carpeta de la ejecutable. (de tu programa) procedure Guardar(Nombre: String; Puntaje: Integer); var F: TEXT; begin Assign(F, 'MejoresPuntajes.txt'); Append(F); WriteLn(F, Nombre, ' ', Puntaje); Close(F); {cierra el archivo} end;
1052
« en: Sábado 8 de Abril de 2006, 00:22 »
mira ya cree que el aleatorio utilizando el random no se si estara bien, me gustaria que le vieras, pero tengo otra duda como hago para que solo me hago 10 tiburones y 5 barcos y los demas libres que un if??? o no se const NADA = 0; TIBURON = 1; BARCO = 2; var Mar: array[1..10,1..10] of Byte; {Esto inicia el tablero poniendo tiburones y barcos en siempre la misma posicion, despues, con otro procedimiuento se mezcla} procedure Init; var i,j : integer; begin for i:=1 to 10 do for J:=1 to 10 do Mar[i,j] := NADA; for i:=1 to 10 do Mar[i,1] := TIBURON; for i:=1 to 5 do Mar[i,2] := BARCO; end; {Intercambia dos variables} procedure Intercambiar(var A,B: Integer); var C: Integer; begin C := A; A := B; B := C; end; {esto mezcla los campos y los desordena, de manera que uno se asegura que hay 10 tiburones y 10 barcos} procedure Mezclar; var i,j, nI, nJ: integer; begin for i:=1 to 10 do for J:=1 to 10 do begin nI := RAndom(10)+1; nJ := RAndom(10)+1; Intercambiar(Mar[i,j], Mar[nI, nJ]; end; end;
Acordate de Poner un RAndomize al prencipio de todo en el Begin principal. El codigo velo como un pseudocodigo porque nunca lo probé ya uqe aca no tengo compilador. nI := RAndom(10)+1;nI := RAndom(10)+1;
1054
« en: Viernes 7 de Abril de 2006, 19:30 »
No se si entendí como es el juego, pero supongo que sería una especie de buscaminas.
necesitarías una matriz de 10x10 de tipo Byte o Integer:
0. nada
1: barco
2: tiburon
Lo primer que deberías hacer, es poder hacer que te redistribuya los tiburones y barcos en la matriz al Azar.
Luego, simplemente pides al jugador que ingrese una coordenada, y segun sea barco o tiburon, el das o sacas puntos......
Eso sería una idea básica muy por arriba, lo que necesitaría es que preguntes cosas más puntuales así poder ayudarte
1055
« en: Viernes 7 de Abril de 2006, 00:02 »
Aqui no se hacen tareas. ¿Dudas puntuales? 
1056
« en: Domingo 2 de Abril de 2006, 02:01 »
Bueno, creo que este post nunca lo vi, y si lo vi y postee, perdón por duplicar la información 
Soy de México, del norte para ser mas exactos, tengo 24 años y acabo de terminar la carrera de Ingeniería en Sistemas Computacionales, soy pasante de ingeniero, mi nombre es Ib David Quezada Rodríguez, mi nick es por mi 1er nombre en diminutivo.
Empecé a programar por ser videojugador y que siempre quise hacer uno, aunque a la fecha no he hecho ninguno, solo proyectos empezados y abandonados por falta de "apoyo" moral. Muchas veces pasa que uno comienza un proyecto grande y despues a la mitad del mismo, se ve en la imposibilidad de seguirlo debido a la falta de tiempo, recursos, conocimiento, y hasta a veces, ganas.  Bua, para la próxima ya saben 
1057
« en: Sábado 1 de Abril de 2006, 15:52 »
Tambien podes colocar 2 TGroupBox.
Volcar unos TRadioButtons en el GrupBox1 y otro en el GroupBox2. Así se seleccionan independientemente.
O bien, se puede usar el TRadioGroup y usar su propiedad Items para añadir radioButtons
1058
« en: Sábado 1 de Abril de 2006, 01:32 »
Mira, no teno ahora compilador para probar pero sería algo así; habrái que agregarle al codigo un par de ORs teniendo en cuenta el código ascii de las teclas "BackSpace" (8) y la del Espacio (32). procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Alfa: set of 'a'..'z'; // te combiene ponerlo en var global y no local como está aca begin if (not (Key in Alfa)) or (Key <> Chr(8)) or (Key <> Chr(32)) then Key := Chr(0); end;
1059
« en: Sábado 1 de Abril de 2006, 01:18 »
¿Y porqué no haces un solo grupo de RadioButtons en vez de 2?
1060
« en: Viernes 31 de Marzo de 2006, 03:51 »
Que extraño!!!!!!!!!!!!! A MI ME COMPILA Y Funciona de lo más bien. (Probé con Delphi y Turbo Pascal 7)
1061
« en: Viernes 31 de Marzo de 2006, 03:38 »
Está ya compilada (creo).Sólo me han dado dos archivos, un .cgi y un .o Uno de ellos debería ser el código fuente de la unidad, y el otro la unidad compilada. ¿El compilador de tu casa, es el mismo que el de la clase? Si son distintos, deberías recompilar la unidad con tu compilador para luego poder usarla. Para modificar, simplemente deberías abrir el código fuente de la unidad (alguno de esos dos archivos) con el editor de tu compilador y nada mas que eso.
1062
« en: Jueves 30 de Marzo de 2006, 17:37 »
Es que si tirá diferentes numeros al azar en distintas casillas es probable que NO TENGA RESOLUCION. Para el sudoku hay un par de reglas: En una casilla de 3x3, no pueden repetirse los numeros. es decir 1..9
En una fila de 9unidades (compuesta de 3 filas de 3u) tampoco pueden repetirse los numeros
Con las columnas pasa lo mismo que con filas.
Creo que son esas. Si creas al azar, tendrías que verificar si el tablero no tiene errores y si es posible resolver y ademas .... creo que solo tiene que haber una solucion.
1063
« en: Jueves 30 de Marzo de 2006, 17:31 »
¿Te pasaron el código fuente de la Unit?
¿O solo te la pasaron ya compilada?
1064
« en: Miércoles 29 de Marzo de 2006, 19:33 »
usa el Comando "VER" del modo consola (o DOS si es 98, pero creo que en el 98 te pasa la version de DOS y no la de wind) VER Muestra la versión de Windows.
Te postee lo que dice el comando HELP.
1065
« en: Miércoles 29 de Marzo de 2006, 19:07 »
Muy bueno  Por sierto, la mejor es la del candado  , por lo menos, el diseño cumple una muy buena funcion
1066
« en: Miércoles 29 de Marzo de 2006, 19:02 »
Muy bueno
1067
« en: Miércoles 29 de Marzo de 2006, 18:41 »
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var Alfa: set of 'a'..'z'; begin if not (Key in Alfa) then Key := Chr(0); end;
En vez de Chr(0), se puede usar tambien que es lo mismo
1068
« en: Martes 28 de Marzo de 2006, 21:10 »
Usando params: hay dos funciones que te serán útiles de la unit System: Delphi syntax: function ParamCount: Integer; function ParamStr(Index: Integer): string;
La primera te devuelve el numero de parametros pasados. La segunda de vuelve la cadena del parametro según su ubicacion. ParamStr(0) = Application.ExeName = direccion de la ejecutable. ParamStr(1) sería el primer parametro, ejemplo: 'C:\myApplication.exe parametro1'
ParamStr(0) devuelve 'C:\myApplication.exe' ParamStr(1) devuelve 'parametro1' Otra solucion Podes pasar parametros a la otra aplicación mediante un archivo de texto, es decir, con tu primera aplicación, antes de llamar a la segunda, escribes en un archivo de texto todos las cosas que necesites y haces que la segunda aplicacion los lea de all'i.
1069
« en: Martes 28 de Marzo de 2006, 20:54 »
Ah wena por el dato, pero en esa declaracion en el var, resulta q el programa si corre y lo asigna como variable inicial, weno por lo menos a mi me compila en Delphi 7. Si es sierto, evidentemente Object Pascal lo permite.
1070
« en: Martes 28 de Marzo de 2006, 19:11 »
Muchas gracias micropais y Eternal Idol  ¿Y cual es el mensaje de micropaís?  desapareció?
1071
« en: Lunes 27 de Marzo de 2006, 22:17 »
Entnces lo único que tienes que hacer es sacar un COMA de un string;
Revisa en la ayuda de Delphi la funcion para cortar cadenas: StrCut (creo que es esa).
pd:
Segun veo, si hiciste vos la funcion para formatear así el string con una COMA, tambien podrás supongo hacer la funcion inversa o no.
1072
« en: Lunes 27 de Marzo de 2006, 21:58 »
Yo creo que sería algo así:
Tienes una matriz con campos, Nombre y Documento.
La cosa, sería que tienes que ordenar la matriz por el campo del documento. es tan facil como ordenar como si fuera un vector de solamente numero de documento pero ahora, tendrías que mever los registros de los dos campos hacia la posicion ordenada.
El algoritmo de ordenamiento es el msimo, lo que cambia es la forma de intercambiar posiciones.
1073
« en: Lunes 27 de Marzo de 2006, 16:55 »
bueno lo que quiero no es una version completa, sino una trial, pero gracias de todas maneras. Justamente, en la página de Borland te podes bajar el trial con una mínima falta de componentes como los de Indy, Internet y otros... (Igualmente siempre te los podes conseguir.... a parte)
1074
« en: Lunes 27 de Marzo de 2006, 16:52 »
tenes funciones más faciles y predefenidas para formatear. function IntToStr(S: String): Integer; function StrToInt(X: Integer): String;
En la generalidad con esas de arreglas. %4s: por ejemplo quierá decir que tiene que devolver una parte de un string con 4 letras o algo así. En la práctica, tenes funciones que hacen que no tengas que usar formato al estilo "print del lenguaje C" nunca.
1075
« en: Lunes 27 de Marzo de 2006, 16:48 »
Si quieres inicializar variables podes usar el Evento onCreate de la TForm, o bien, al final del codigo usas la palabra reservada "initialization". Te conviene usar más el evento Form Create que es lo más rapido. Y Otra cosa, trata de usar lo menos posibles variables declaradas en VAR. Es más, si solo tenes algo como: Sería lo mejor. Mejor añadi en metodos públicos de la TForm lo que vayas a usar. type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public Variable: Integer; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Variable := 1; end; end.
Páginas: 1 ... 41 42 [43] 44 45 ... 77
|
|
|
Mostrar Mensajes
