|
|
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 ... 36 37 [38] 39 40 ... 77
926
« en: Sábado 8 de Julio de 2006, 21:07 »
Si consideras que para participar necesitas otro lenguaje solo dilo y veremos. Yo lo decía por otros que deseen participar del reto. 
927
« en: Sábado 8 de Julio de 2006, 14:23 »
Invitacion, El que quiera , sera bienvenido.
Lenguajes permitidos
* asm
* visual basic 6.0
* java
* C# o Vb.NET
* C
* C++
Entonces no es el que quiera, el que PUEDA Y QUIERA. 
928
« en: Sábado 8 de Julio de 2006, 14:19 »
emmm... tengo una duda: no se supone que para saber si un año es bisiesto solo debemos obtener el residuo de dividirlo entre 4??? o sea solo: anio mod 4 = 0...
Creo que eso es suficiente =S yo siempre pense lo mismo, con tal de que sea multiplo de 4 debe de ser suficiente. (esto sobre el codigo del primer post: 400 es multiplo de 4 al igual que 100, por eso el 4 es lo qe importa)
929
« en: Viernes 7 de Julio de 2006, 16:40 »
Respecto a eso, no te sabría decir muy bien, pero según tengo entendido, si cargas las imagenes dentro de la ejecutable tarda un poco más en cargarse (ni te das cuenta en realidad) y ademas, si luego la quieres comprimir (con compresor de ejecutables que ademas cifra, no win zip) es probable que las imagenes no sean leibles.
Cuando cargas una imagen en tiempo de ejecucion, esta se carga "al monton de la memoria", es decir, en una memoria compartida. Si está en la ejecutable, se crga "en la memoria de la pila", es decir, de la ejecutable donde estan las variables que hayas definido, por eso, se puede volver mas lento por ahí la cosa si haces de ese modo.
Igualmente, habría falta una opinion de alguien más para asegurarse.
Personalmente prefiero tenerlas afuera. para engañar al usuario, Puedes cambiarles la extencion por alguna otra *.DAT por ejemplo.
una ventaja de tener las imagenes afuera es que puedes crear SKINS, es decir, tener la misma imagen en distintos colores.
PD: si no quieres dibujar, intenta escanear una tabla periodica sencilla.
930
« en: Viernes 7 de Julio de 2006, 15:10 »
Pensalo así, NO IMPORTA DONDE ESTEN LAS IMAGENES SIEMPRE OCUPAN ESPACIO. O sea, si estan dentro o fuera de la ejecutable, siempre será la misma cantidad de espacio en el disco duro que va a ocupar la ejecutable para funcionar normalmente. Sugerencias: 200 iconos de 32x32 te ocupan mucho más espacio que una imagen de 640x640 (es decir 32x200) por la paleta. Te conviene tener una imagen grande con todas las imagenes pequeñas e ir recortando los sectores que necesitas. Algo as'i>  Lo que tienes que hacer es hacer una imagen con todos los iconos de la tabla periodica, uno despue sde otro (6400x32) (va a ocupar menos porque por el tema de la paleta que individualmente ocupa más) var MainBitmap: TBimap; begin MainBitmap := TBitmap.Create; MainBitmap.LoadFRomFile('nombreImagenGrande.bmp');
despues, creas un vector de 120 elementos de tipo bitmap (el indice del vector sería el numero atómico , 1 hidrogeno, 2 helio... ) var bmpElementos: Array[1..120] of TBitmap; I: Integer; begin for i:=1 to 120 do begin bmpElementos[i] := TBitmap.Create; height := 32; width := 32; end;
no te olvides despues de hacer bmpElementos .Free;
ahora que los tienes inicializados, cargas los trozitos de las imagenes a cada indice del vector;
SourceRect: TREct; for i:=1 to 120 do begin //es i*32 - 32 porque asi empieza copiando desde 0 y no 32 // si el priemer indice fuera 0, no haria falta, pero ser'ia incomodo hidrogeno=1 SourRect := Rect(i*32-32, 0, i*32, 32); bmpElementos.Canvas.CopyRect(Rect(0,0,32,32),mainBitmap.canvas, SourcRect); //la recta de destino es constante 0,0,32,32 end; end;
Con eto tienes todas las imagenes cargadas en un vector, donde el indice corresponde a la imagen del elemento del numero at'omico correspondiente. Inclusive podrias hacer algo as'i: TElemento = record Numero: Byte; Peso: Real; NroOxidacion: ShortInt; //-127..127 Electronegatividad: ShortInt; Imagen: TBitmap; // y cargas todo aca; end; TTablaPeriodica = array[1..120] of TElemento; end;
Cualquier otroa duda, avisa Saludos
931
« en: Jueves 6 de Julio de 2006, 02:40 »
Regresaste!!!!!!!!!!!!!!!!
Se te extrañaba por aqui en el foro :cry:
932
« en: Jueves 6 de Julio de 2006, 02:36 »
Que tipo de error te da? Lo que puede pasar es que intenes cerrar algo que ya está cerrado y te manda el error de memoria. Proba sacar la siguiente line, o ponerla mediante una condicion, (cerrar si está abierto) ADOStoredProc1.Close;
933
« en: Jueves 6 de Julio de 2006, 02:33 »
Usa la propiedad CaretPos del TMemo, indica la posicion de la barrita de escribir. procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('(' + IntToStr(Memo1.CaretPos.X) + ', ' + IntToStr(Memo1.CaretPos.Y) + ')'); end;
934
« en: Jueves 6 de Julio de 2006, 02:24 »
Debes tener tu fondo cargado en un TBitmap; var Fondo: TBitmap; begin Fondo := TBitmap.Create; Fondo.LoadFromFile(FileName); end;
Luego, simplemente copias el Fondo al Canvas del Form var ARect: TRect; begin ARect := Rect(0,0,Fondo.Width, Fondo.Height); Form1.Canvas.CopyRect(ARect,Fondo.Canvas, ARect); end;
935
« en: Lunes 3 de Julio de 2006, 21:21 »
Desde WinXP no voy a poder ejecutar programas hechos en Pascal.. o es solo porque le han borrado esos dos files que me dices Enko??
Probá ejecutar cualquier program de DOS, por ejemplo el commando "edit" del modo consola. Si se ejecuta, es otra cosa, si no, es porque evidentemente te falta alguno de los dos archivos y no vas a poder ejecutar programasa de DOS hasta que los vuelvas a colocar.
936
« en: Domingo 2 de Julio de 2006, 01:22 »
937
« en: Sábado 1 de Julio de 2006, 15:30 »
Out of Topic
X.Cyclop, ¿a qué te refieres con ser Gallego? ¿Significa algo esa palabra por tu tierra?
Espero respuesta (ala, seguid con vuestras peleas que últimamente yo no sé qué ha hecho el mundial que estais todos insoportables) [este comentario va sin maldad]
 Si no me equivoco, Se dice Gallegos a Españoles.
939
« en: Sábado 1 de Julio de 2006, 00:43 »
Es cierto que en las eliminatorias juegan solos pero en el mundial, al menos el partido contra Argentina estuvo muy parejo, podria haber ganado cualquiera.
Por otra parte FORZA ITALIA, 3 a 0 a Ucrania en un partido de VERDAD. Hicieron lo que pudieron  ¿Y porqué Boca le ganó a Milán y Real Madrid? SABEMOS JUGAR.
Vamos a los mundiales. ¿Porqué Argentina GOLEO a Serbia & Montenegro?
Así que esa afirmación es una locura. whistling.gif
España Goleo a Ucrania y esta llego más lejos, que irónico ¿NO? : 
940
« en: Viernes 30 de Junio de 2006, 02:23 »
http://astronomy.swin.edu.au/~pbourke/index.html
Excelente sitio, me encanto. Completisimo, no solo en las texturas sino que tiene un monton de cosas que esta bueno saber para programar videojuegos, por ejemplo sobre los Vectores en geometria
941
« en: Viernes 30 de Junio de 2006, 02:07 »
Si puedes asociar tus propios procedimientos a Eventos de Componentes generados en Tiempo de Ejecucion y en Tiempo de dise;o tambien. Tiene que ser un procedimiento de tipo TNotifyEvent, es decir con el parametro Sender. Aqui te pongo un ejemplo. type TForm1 = class(TForm) Button1: TButton; Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public Image: TImage; procedure MyClick(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Image := TImage.Create(Form1); //puede ser Self, nil Image.Parent := Form1; {.... lo que haga falta} Image.OnClick := myClick; end; procedure TForm1.MyClick(Sender: TObject); begin ShowMessage('presionaste la imagen'); end;
Tienes que definir un procedimiento de tipo TEvent: procedure Nombre(Sender:TObject);
Y luego asignarlo al Evento onClick de la imagen. Si quieres acceder a las propiedades de la imagen desde el evento on Click, poruqe tienes varias Imagenes, y no sabes en la cual se hizo el Click, usa el parametro Sender con Type Casing> procedure TForm1.MyClick(Sender: TObject); begin if Sender is TImage then begin TImage(Sender).Picture.Canvas.Bitmap.SaveToFile('test.bmp'); //guarda la imagen en la que se hizo click ShowMessage(InttoStr(TImage(Sender).Width)); //muestra el acho end; end;
Usando el Sender como si fuera TImage, pudes asignar el mismo procedimiento a Distintas Imagenes.. Image1.onClick := myClick; Image2.onClick := myClick; ImageN.ohclick := MyClick;
Cualquier otra duda que surga, no dudes en avisar Saludos
942
« en: Viernes 30 de Junio de 2006, 00:52 »
Pascal necesita de otros archivos para poder ejecutarse. Puedes usar el Dependency Walker para saber qué archivos necesita. Turbo pascal no tiene ninguna Dependencia de nada. 1)Podria ser lo que dice Danielo. 2)La otra maquina no puede ejecutar aaplicaciones DOS porque tiene win XP, y se han borrado los archivos AUTOBOOT.NT CONFIG.NT de %systemrooth% (system32)
943
« en: Miércoles 28 de Junio de 2006, 16:32 »
La verdad que no se si hay un sitio donde se puede bajar las actualizaciones de windows que no sea la de Microsoft.  Siempre tenes la posibilidad de esperar el SP3 y descargar el intalador completo.  por sierto, alguien sabe si se pueden descargar de una maquina e instalar en otra?
944
« en: Miércoles 28 de Junio de 2006, 16:21 »
945
« en: Miércoles 28 de Junio de 2006, 16:04 »
¿Ucrania? Sí, al que golearon 4-0.
Ahora solamente quedan los buenos, excluyendo a Ucrania, Portugal y Francia. No lo digo porque sea ucraniano pero.... ¿Que quieres que te diga, aunque España haya goleado 4-0 a ucrania esta llego más lejos que españa, ES LO QUE SE LLAMA JUGAR CON ESTILO ("y mucho culo") Lo siento por españa, IGUALMENTE, mas lejos no hiban a llegar
947
« en: Domingo 25 de Junio de 2006, 19:05 »
Shareware quiere decir que lo puedes usar durante no se cuantos dias, despues no te deja.
No, no tiene nada qe ver con Turbo Pascal. Miralo como si fuerra QuickBasic y Visual Basic, o bien C y Visual C++. ¿C y Visual C++? Veo la diferencia clara en que uno es lenguaje y otro es IDE-Compilador. 
Una aclaración: Tú estás bajando un IDE-Compilador, NO el lenguaje. Los lenguajes no se bajan.
Delphi/Pascal: Lenguajes.
Turbo Pascal, Borland...: IDEs-Compiladores.
Busca el serial y listo. Estas cosas en lo posible por Privado.
948
« en: Domingo 25 de Junio de 2006, 16:48 »
949
« en: Domingo 25 de Junio de 2006, 16:38 »
Igual de claro que Heinze debia estar expulsado
Eso es cierto, pero tuvo que haber muchisimas más amarillas para los mejicanos que en los tiempos adicionales lo unico que hacian es ir a los pies  El prtido mucho no me gusto, ya desde el principio se veía que los mejicanos hiban a jugar como nenitas, "todos a la pelota". Sobresaturaron el partido, un embole, y despues quedaron cansadisimos que por eso perdieron.
950
« en: Domingo 25 de Junio de 2006, 16:33 »
Shareware quiere decir que lo puedes usar durante no se cuantos dias, despues no te deja. No, no tiene nada qe ver con Turbo Pascal. Miralo como si fuerra QuickBasic y Visual Basic, o bien C y Visual C++.
Páginas: 1 ... 36 37 [38] 39 40 ... 77
|
|
|
Mostrar Mensajes
