|
|
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 ... 53 54 [55] 56 57 ... 77
1351
« en: Domingo 29 de Mayo de 2005, 06:03 »
me huele a tarea y en este foro no se hacen tareas  te mostraré un ejemplo sencillo de procedimiento procedure ReadThenWrite; var s: string; begin ReadLn(s); WriteLn(s); end;
en lo posible, coloca dudas puntuales 
1352
« en: Viernes 27 de Mayo de 2005, 00:14 »
No es tan así, pero se podria decir que es una especie de "Visual Pascal" pero orientado a objeto mas que a envento. leete si quires este artículo que escribí http://www.teleportmedia.com/tutoriales/pr...ucosEntorno.htmPodes bajar una muestra de Delphi en la Página de Borland, hay que registrarce.
1353
« en: Jueves 26 de Mayo de 2005, 00:07 »
Para empezar, son dos cosas completamente distintas. Turbo Pascal o Free Pascal para DOS permiten desarollar aplicaciones para DOS que son secuenciales. En Delphi, las aplicaciones gráficas, son basadas en eventos. Delphi practicamente te obliga usar POO y TP o FP no. Las ejecutables que produce Delphi son para Win, es decir,de 32 bi mientras que las de TP son de 16. Se puede hacer aplicaciones en modo consola, es decir, sería algo parecido a DOS pero sin poder usar text en colores. Y las librerías estandar de TP o FP como DOS, CRT, Graph, no funcionan en Delphi. Delphi se puede descargar de la pagina de Borland, pero es de muestra. Hay muchas cosas más  si no te queda claro, avisame.
1354
« en: Viernes 20 de Mayo de 2005, 04:11 »
Sinseramente no entiendo bien lo de secuencia H. Podrías dar más ejemplos porfa o explicar lo que es porque no entendí 
1355
« en: Jueves 19 de Mayo de 2005, 00:25 »
Despues de tanto tiempo, un fan del juego decidió hacer un server no oficial y al principio funcionaba los fines de semana pero ahora, al parecer funciona las 24 hs. Por ahora, el juego, esta en su forma original. Vean este link para mas info: http://www.artesarcanas.tk/
1356
« en: Miércoles 18 de Mayo de 2005, 01:11 »
Haciendo un par de modificaciones...... te adjunto un player funcionand, tenes que cargar una playlist, y usar los botones "<<", ">>", "Load", "Play".
1357
« en: Martes 17 de Mayo de 2005, 00:30 »
¿En que sabe programar Bill Gates ademas de Basic?
Los que trabajaban con el desarollaron QBasic, yo dudo mucho qeue Billy sepa programar algo, nisiquiera la alarma de despertador
1358
« en: Martes 17 de Mayo de 2005, 00:25 »
completamente de acuerdo Ya con tantos votos, voy a empezar a preparar algo 
1359
« en: Sábado 14 de Mayo de 2005, 17:54 »
Yo cuando tenia conexion telefónica, un par de días estaba con un problema similar, despues se paso solo. Supuse que ere problema del provedor.
1360
« en: Sábado 14 de Mayo de 2005, 15:35 »
Random genera numeros aleatorios y se pueden repetir
Me falto la instruccion Randomize. Igualmente, aunque se repita el numero recuerda que estas intercambiando desde 1 hasta la maxima cantidad. O sea, por ejemplo: Intercambio el 5 con el 1 (5,x,x,x,1) y luego cuando quiero intercambiar la 6 me aparece 1, de esa manera quede 1,x,x,x,6,5 y sigue mezclado. Para aumentar la eficacia, podes ejecutar el codigo 2 veces. Muy importatne es que no tienes que sacar todas las fichas al azar, sino que, creas un vector con todas las fichas ordenadas y las mezclas. Cuando entregaste 5 fichas por ejemplo, ejecutaras el codigo de mezcla con for i:=1 to MAX - 5, de manera que no mezclara esas fichas. REspecto a las graficas, deberias buscar info en la ayuda de delphi acerca de TCanvas que es la parte grafica de cualquier componente, Ya sea TForm o TImage. Usando ese propiedad, puedes pegar bitmaps (TBitMap) poner Pixels, lineas, etc..... Esos son los metodos de TCanvas. Draw
DrawPoint
DrawPoints
Ellipse
FillRect
GetClipRegion
LineTo
MoveTo
Pie
PolyBezier
PolyBezierTo
Polygon
Polyline
Refresh
ReleaseHandle
ResetClipRegion
RoundRect
SetClipRect
Start
StretchDraw
1361
« en: Jueves 12 de Mayo de 2005, 00:31 »
Lo mas importante: Conseguite las reglas del juego. Sobre las fichas de domino: supongo que serán un arreglo de 2 elementos o un record con dos numeros. EJ: type TFicha=array[1..2] of Byte; TFicha=record lado1: Byte; lado2: byte; end;
Realmente, ahora desconozco cual de las dos conviene. Supongo que el Juego de las fichas sera un vector de tipo TJuegoFichas = array[1..MAX] of TFicha.
Para mezclar la baraja, primero la creas ordenada y luego, la desordenas con algo como lo sig procedure Mezclar; var i: integer; rand: integer; temp: TFicha; begin for i:=1 to MAX do begin rand := Random(MAX)+1; temp := JuegoFichas[i]; JuegoFichas[i] := JuegoFichas[rand]; JuegosFichas[rand] := temp; end; end;
Con el codigo anterior, teoricamente estarias intercambiando el lugar de cada ficha con otra ficha. La mesa de juego, es decir, las fichas colocadas sobre la mesa en linea, supongo que no tiene que ser guardado en un vector, es que no recuerdo bien las reglas pero la baraja si. Asi que lo que tendirias que hacer, es repartir del juego de dominos la cantidad necesaria a cada jugador y verificar cual es el ultimo numero de las fichas colocodas para sabar si la jugada es valida o algo por el estilo. Lo mas importante, conseguite las reglas. Espero tus noticias.
1362
« en: Martes 10 de Mayo de 2005, 22:39 »
Se ve que esta complicado. Por lo general se suele usar un file of TAlgo. Considera este ejemplo: type TPersona = record Nombre: string[64]; Edad: Byte; end; var F: file of TPersona; Persona: TPersona; Size: LongInt; Pos: LongInt; BEGIN {Lee todo el archivo} Size := FileSize(F); while not EOF(F) do begin ReadLn(F, Persona); Pos := FilePos(F); WriteLn('Registro N: ', Pos, ' Nombre: ', Persona.Nombre, ' Edad: ', Persona.Edad); end; {Se posiciona en la mitad del archivo y lee el registro} Seek(F, Size div 2); ReadLn(F, Persona); Pos := FilePos(F); WriteLn('Registro N: ', Pos, ' Nombre: ', Persona.Nombre, ' Edad: ', Persona.Edad); {pide una posicion y va ahi y lee} Write('Ingrese posicion: '); ReadLn(Pos); Seek(F, Size div 2); ReadLn(F, Persona); WriteLn('Registro N: ', Pos, ' Nombre: ', Persona.Nombre, ' Edad: ', Persona.Edad); END.
Como es un archivo con tipo, se puede posicionarse en cualquier lugar usando Seek y se puede saber la posicion actual usando FilePos y el tama;o con FileSize; Estoy casi seguro que con archivos sin tipo no funciona eso.  Creo que vas a tener que cambiar algo de tu codigo no? PD> El ejemplo no es un codigo completo. Le falta asignacion del archivo entre otras cosas que estoy seguro que no vienen al caso.
1363
« en: Martes 10 de Mayo de 2005, 22:20 »
Para el ejemplo de la clase, para que funcione necesitas, Un Opendialog1, MediaPlayer1. No pude comprobar su funcionalidad porque no estoy en mi casa y no tengo delphi a mano, el ejemplo lo hice basandome en el anterior. TPlayList = class public Index: integer;//index actual Count: integer;//cantidad total de elementos Item: array[1..50] of string; //lista de nombres constructor Create; private procedure LoadFromFile; procedure Play; procedure Next; end; constructor TPlayList.Create(); var i: integer; begin Index:=0; for i := 1 to 50 do Item[i] := 'SinAsignar'; end; procedure TPlayList.LoadFromFile; //carga la playlist var i: integer; f: text; S: string; begin AssignFile(f, 'playlist.txt'); Reset(f); while not eof(f) do begin Inc(I); ReadLn(f, Item[i]); end; Count := i; end; procedure TPlayList.Next; //posiciona el Index mas adelante begin Inc(Index); end; procedure TPlayList.Play; // reproduce elemento actual del index begin Form1.MediaPlayer1.Stop; Form1.MediaPlayer1.FileName := Form1.OpenDialog1.FileName; Form1.MediaPlayer1.Open; Form1.MediaPlayer1.Play; end;
La playlist debe ser algo como> C:\primero.mp3
C:\segundo.mp3
C:\musica\tercero.mp3
Debes crear un Boton llamado Next y otro llamado Play y en el evento onClick, colocar los metodos de la clase TPlayList Correspondientes. No olvides crear una instancia de esa clase> PlayList: TPlayList en por ej. Form1.Create;
1364
« en: Martes 10 de Mayo de 2005, 03:24 »
¿Si o si tienes que usar archivos sin tipo? ¿No puedes tener por ejemplo un archivo de tipo? Para desplazarte en archivos con tipo puedes usar el Seek procedure Seek(var F; N: Longint)
No se si a eso te refires, es que no entendi mucho lo que planteas.
1365
« en: Jueves 5 de Mayo de 2005, 02:52 »
QUOTE (RadicalEd @ 3/05/2005, 11:18 AM)
mmm sabes que bajar cosas no autorizadas es pirateria, pero te voy a enseñar.
Tiene razon Soultaker, eso no es pirateria.
1366
« en: Miércoles 4 de Mayo de 2005, 17:51 »
A mí para empezar con Delphi me vino de maravilla, por eso siempre lo recomiendo, pero quizás tengas razón y sea un poco duro para un principiante
Un saludito. En realidad, me refería a que no es muy facil para un programador principiante tomando en cuanta que es su primer lenguaje. Si uno ya conoce uno similar, si que es bueno.
1367
« en: Miércoles 4 de Mayo de 2005, 00:19 »
Cara Oculta delphi 4.
Ese es excelente. Pero no es para empezar.
1368
« en: Viernes 29 de Abril de 2005, 02:26 »
Pues no me parece necesario. Solo haz la pregunta en el subforo que corresponda sin importar lo dificil/facil que sea, si alguine sabe la respuesta, sin ningun problema te la proporcionará. PD: tu firma pesa 850 Kb, es casi un mega.  Que tal algo mas liviano, si alguien tiene conexion de 56 K se muere de infeliz bajandola
1369
« en: Viernes 29 de Abril de 2005, 00:06 »
gracias gran enko smartass.gif
tampoco para tanto. Respecto al metodo Next(), supongo que debe ser valido para CD y parecidos. Podrias tener un archivo de texto que te indique los nombres de los temas, los cargas en un vector, y luego los lees reproduciendolos con el codigo anterior que te pasé.
1370
« en: Jueves 28 de Abril de 2005, 04:10 »
Tenes dos posibilidades: FreePascal (muy bueno) TurboPascal(Excelente pero viejito y muy usado para emprezar) Ambos los encontras facil en Google. Fijate este post
1371
« en: Miércoles 27 de Abril de 2005, 14:26 »
windows tiene reservados ciertos nombres para archivos y carpetas...
CON, AUX, COM1, COM2, COM3, COM4, LPT1, LPT2, LPT3, PRN, NUL
La verdad es que nunca se me hubiera ocurrido que éstos nombres pudieran suponer un problema... Ahora ya sabemos que nombres no usar para nuestros archivos o carpetas y evitarnos dolores de cabeza... Eso pensé. Por cierto, Los nombre PRN,NUL parecen normales a diferencia de COM1, LPT1, etc..
1372
« en: Miércoles 27 de Abril de 2005, 01:13 »
Hola:
Apenas llevo un par de meses usando Delphi y se hace dificil en ocasiones resolver situaciones simples, pero para algunos tan dificiles, y lo cierto es que no aparecen en los manuales o tutoriales.
Por lo que me parece una magnifica idea que seguira ayudandonos a todos.
Saludos
Guille Muy cierto 
1373
« en: Lunes 25 de Abril de 2005, 23:48 »
1374
« en: Lunes 25 de Abril de 2005, 23:42 »
muchas gracias por tu ayuda, la maestra me dijo otra forma de hacerlo, pero con la tuya se me hace que es mas facil.
De nada. Estaría bueno que postearas la respuesta que te dio tu maestra porque la verdad, es que la mia es muy lenta, prueba todas las posibilidades. Es decir, un numero primo solo es primo si es divisible por el 1 y si mismo. Por eso, en el codigo recorro desde el uno hasta el Numero-1, si en algun momento, el resto es cero quiere decir que no es primo. Como observas, es muuuuuuuuy lento, no hay problama con el 5 pero que pasa cuando es 12358497462 por ej.
1375
« en: Lunes 25 de Abril de 2005, 23:36 »
ShellExecute(Self.Handle, nil, Pchar('http:\\www.mipagina.com'),
'', '', SW_SHOWNORMAL);
Muy buena esa manera.
Páginas: 1 ... 53 54 [55] 56 57 ... 77
|
|
|
Mostrar Mensajes
