• Martes 13 de Mayo de 2025, 16:59

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 ... 55 56 [57] 58 59 ... 77
1401
Pascal / Re: Error 160
« en: Jueves 7 de Abril de 2005, 22:48 »
Si, medio raro eso..... :alien:
Supongo que debe ser una especie de palabra reservada para el Win y DOS. El turbo pascal, al tratar de abrir algun archivo llamado aux.txt me dice que es un dispositivo :alien:

1402
Delphi / Re: Uso De Sonido
« en: Jueves 7 de Abril de 2005, 22:32 »
Citar
DeviceType(para archivos wav)

Yo hace mucho probe asi y no me funcionaba hasta que puse la opcion "dtAutoSelect"

1403
C++ Builder / Re: Bloquear Cambiar Imagen De Escritorio
« en: Jueves 7 de Abril de 2005, 16:15 »
Es mejor si lo publicas en la seccion Dudas Sobre Informatica

1404
Dudas informáticas / Crear Archivo "aux.txt"
« en: Jueves 7 de Abril de 2005, 16:04 »
El tema es asi....
En el Foro de Pascal,  un forero, Mapi,  posteo un codigo que en resumen abria archivos de texto y les escribia cosas adentor. Uno de esos archivos se llamaba aux.txt y valga la cosa rara, ocuria un error en tiempo de ejecucion al tratar de escribirle algo. Cosa mas rara que dicho archivo no me aparecia visible , pero si lo hacia el otro que se llamaba distinto.
El problema del programa creo que soluciono cambiandole el nombre pero mi observacion y duda fue:

En ninguna carpeta de mi XP puedo crear un archivo llamado aux.txt porque el mismo ya existe.

Y la preguna es: ¿Que es lo que hace este archivo?

PD: si lo quieren abrir en el block de notas, (pongan Abrir, entren a cualquier carpeta y escriban donde dice *.txt el nombre aux.txt), Se llevan una lindo mensaje de Acceso Denegado.

1405
Pascal / Re: Error 160
« en: Jueves 7 de Abril de 2005, 15:56 »
El codigo tuyo que reescribi yo esta bien, lo que pasa, es que por alguna inexplicable razon el archivo aux.txt no se crea (por lo menos en Delphi no) por lo  que le cambie el nombre y todo anduvo.
Código: Text
  1.  
  2. Assign(archaux,'auxdatos.txt');
  3.  
  4.  
Es todo lo que tuve que cambiar. Eso espero :ph34r:

PD: Me parecio raro que el archivo aux.txt no se creara y  me termine dandome cuenta de esto.....Visita este post de Dudas sobre Informatica

1406
Programación de Videojuegos / Re: Juego De Rol En Línea
« en: Jueves 7 de Abril de 2005, 03:08 »
Citar
Lastima que sea solo para Window$ sad.gif oops.gif
Como la mayoria de los juegos. DirectX tiene ocupada una enorme parte del mercado.

1407
Programación de Videojuegos / Re: Juego De Rol En Línea
« en: Jueves 7 de Abril de 2005, 00:29 »
Hace dias que no puedo acceder a la pagina oficial :(

1408
Pascal / Re: Error 160
« en: Jueves 7 de Abril de 2005, 00:15 »
Seria bueno que digas que es lo que tiene que hacer tu programa.
Como no se que tiene que hacer, tal vez, el error este en otra parte.

Tambien, en lo posible, cuendo lo pegues hacelo usando el boton Code que esta arriba del editor o  poner el codigo entre [ CODE ] codigo tuyo [/ CODE ]  sin los espacios entre [ y CODE.
Código: Text
  1.  
  2. var
  3.   archDat:text;
  4.   archAux:text;
  5.   numCamp,i,long,Dato,NumDat:byte;
  6.   Tip:char;
  7.  
  8. begin
  9.   Assign(archdat,'datos.txt');
  10.   Assign(archaux,'aux.txt');
  11.   reWrite(archdat);
  12.   reWrite(archaux);
  13.   Write('Ingrese el numero de campos :');
  14.   ReadLn(NumCamp);
  15.   if numcamp>0 then
  16.   begin
  17.     WriteLn(archdat,numcamp);
  18.     for i:=1 to NumCamp do
  19.     begin
  20.       WriteLn('Ingrese el tipo de dato ,i,: ');
  21.       ReadLn(tip);
  22.       if UpCase(tip)=upcase('C') then
  23.       begin
  24.         Write('Ingrese el tamano de la cadena: ');
  25.         ReadLn(long);
  26.         WriteLn(archdat,ord(upcase('C')));
  27.         WriteLn(archdat,long);
  28.       end else
  29.       if UpCase(tip)=upcase('I') then
  30.       begin
  31.       Write('Ingrese el numero de bits :');
  32.       ReadLn(long);
  33.       WriteLn(archdat,ord(upcase('I')));
  34.       WriteLn(archdat,long);
  35.       end;
  36.     end;
  37.   end else WriteLn('El numero de campos tiene que ser menor que cero');
  38.   WriteLn('Ingrese el numero de datos');
  39.   ReadLn(NumDat);
  40.   WriteLn('Empiece a ingresar los datos');
  41.   for i:=1 to numDat do
  42.   begin
  43.     ReadLn(Dato);
  44.     WriteLn(archaux,Dato);
  45.   end;
  46. Close(archdat);
  47. Close(archaux);
  48. end.
  49.  
  50.  

1409
Delphi / Re: Componente Con Foco.
« en: Miércoles 6 de Abril de 2005, 00:16 »
Revista esto eventos....
  • onCellClick(Column) // como parametro dice la columna clickeada</li>
  • onColEnter</li>
  • onColExit</li>
  • onMouseDown junto con MouseCoord(X,Y)  //asi podes saber en que celda esta el click</li>
no se si esta bien claro..... por cualquier cosa, pregunta.... :hola:

1410
La taberna del BIT / Re: ¿porqué Los Nicks?
« en: Martes 5 de Abril de 2005, 02:43 »
Antes era EugenioEnko porque me llamo Eugenio y las cuantor ultimas letras de mi apellido son Enko.

Ahora solo Enko por mas facilidad.

1411
Delphi / Re: Campo Fecha-hora
« en: Martes 5 de Abril de 2005, 02:16 »
la funcion Now devuelve  TDateTime
la funcion DateTimeToStr devuelve el sctring del tiempo  
Código: Text
  1.  
  2. procedure TForm1.Button1Click(Sender: TObject);
  3.  
  4. begin
  5.   Label1.Caption := DateTimeToStr(Now);
  6. end;
  7.  
  8.  

1412
La taberna del BIT / Re: Correo Gratuito De Google
« en: Lunes 4 de Abril de 2005, 01:51 »
Citar
You are currently using 0 MB (0%) of your 2055 MB.
Yo gano jujuajuaju

1413
La taberna del BIT / Re: Quien Quiere Vivir Más?
« en: Domingo 3 de Abril de 2005, 21:46 »
La Mata Radicales

 :devil:  :D  :P

1414
La taberna del BIT / Re: Quien Quiere Vivir Más?
« en: Domingo 3 de Abril de 2005, 00:46 »
Citar
pastilla que permite al organismo humano deshacerse de los radicales libres
RadicalEd: creo que aqui te toca a vos  :devil:

1415
La taberna del BIT / Re: Favorcito...ayuda
« en: Sábado 2 de Abril de 2005, 00:49 »
Citar
si alguno tiene problemas para volver a votar es por el fireFox mad.gif

es decir solo se puede volver avotar si se usa el internet explorer blink.gif .
Y no es poco  comun que ocura, pero igualmente, me gusta mas.

Aunque en esto, el IE no tiene todas las ventajas ya que no reconoce nombres de los colores en la parte del diseño de paginas.  Cuando digo nombre de colores, me refiero a : MintCream, PapayaWhip, LightBlue, etc.. (estos si los reconoce).
Claro, ni mensiono la falta de seguridad que tiene IE.

1416
Sobre los Foros de SoloCodigo / Re: Foro De Presentacion De Nuevos Usuarios
« en: Viernes 1 de Abril de 2005, 03:01 »
Si, es muy cierto lo que dice Cirrus. Por aqui pasan muchas personas que luego no vuelven y no creo que quieran presentarse.
Citar
No veo demasiado util el foro, pero si recibe buenos apoyos tampoco me voy a negar, esto es como una democracia
no,no,no... estas a favor o estas encontra :angry:
basta de grises :angry:

jajajaj, es broma :devil:

1417
La taberna del BIT / Re: Partituras
« en: Viernes 1 de Abril de 2005, 02:56 »
El guitar pro es excelente (tambien toco guitara) pero si es solo partitura que buscas, el MidiView pasa al igual que guitar pro, de MIDI a partitura pero es un poco mas comoda que la de guitar pro.

en fin midiview aqui

1418
La taberna del BIT / Re: Favorcito...ayuda
« en: Viernes 1 de Abril de 2005, 02:52 »
Ya estoy votando por ahi.

PD: se ven agradables las imagenes y tambien son bastante variadas. B) me gusto especialmente la de abajo de todo. La del arbol por los colores que t                      tiene.

1419
Delphi / Re: Pila Con Listas Enlazadas
« en: Miércoles 30 de Marzo de 2005, 01:35 »
Causante del error
Código: Text
  1.  
  2. Cima,AUX:^NodoPila;
  3.  
  4.  

Esto es lo que corrige el Error
Código: Text
  1.  
  2. Cima,AUX: TNodo;
  3.  
  4.  

Código: Text
  1.  
  2. program Project2;
  3.  
  4. {&#036;APPTYPE CONSOLE}
  5. type
  6.   TNodo=^NodoPila;
  7.     NodoPila=RECORD
  8.     Elemento:integer;
  9.     Enlace:TNodo;
  10. end;
  11.  
  12. var
  13.   Cima,AUX: TNodo;
  14.  
  15. begin
  16.   new(Cima);
  17.   new(AUX);
  18.   AUX^.elemento:=10;
  19.   AUX^.enlace:=Cima;
  20.   Cima:=AUX;
  21.  
  22.   WriteLn(AUX^.Elemento ,'  ', Cima^.Elemento);
  23.   ReadLn;
  24. end.
  25.  
  26.  

Asi me compilo de los mas bonito.
Saludos.

1420
Programación de Videojuegos / Re: Editor De Mapa De Tiles
« en: Domingo 27 de Marzo de 2005, 18:53 »
Definitivamente ya no tengo tiempo para eso. Asi que creo que lo voy a parar por un tiempo. Intente acualizar algunas cosas pero veo que le perdi la mano al codigo y no tengo el tiempo para retomarla.

Igualmente dejo el Link para bajar la version Pre Alpha del "nuevo editor" que posee un entorno mucho mas comodo.

Baje el Pre Alpha desde aqui

1421
Dudas informáticas / Re: Inquietud En Shockwave.
« en: Domingo 27 de Marzo de 2005, 17:43 »
Ya la pude Bajar guardar. :)  :)  :)  :)

El tema es asi, el 90 % de la pagina se carga dinamicamente con JavaScript.
En el documento scromscript.js es el que se encarga de eso.
En una parte del mismo aparece
Citar
contentFrame.write('<embed src="' + myname + '.dcr" swRemote="swContextMenu=\'FALSE\'" sw1="../mcontrol/" sw2="'+ isSound +',1,1" SW3="1" width=768 height=527></embed>');
Código: Text
  1.  
  2. Donde myName = TempUrl  = myUrl = unescape(document.URL);
  3.  
  4.  

Asi, el nombr de la pelicula seria, el nombre de la pagina con la extencion dcr.
Ejemplo:
El vinculo que pasaste primero http://col.senavirtual.edu.co/IB/excel/es2001a.html
La pelicula es:
http://col.senavirtual.edu.co/IB/excel/es2001a.dcr

problema: No se como visualizarla, pero definitivamente es la pelicula. Trate hacer una pagina que diga:
Código: Text
  1.  
  2. &#60;embed src=&#34;es2001a.dcr&#34;&#62;&#60;/embed&#62;
  3.  
  4.  
Pero me dijo esto al tratar de Abrir: This shockwave movie has caused playback problems....... error....etc....

1422
Dudas informáticas / Re: Inquietud En Shockwave.
« en: Domingo 27 de Marzo de 2005, 04:59 »
Si te refieres a peliculas de flash, bajate la pagina y mira en el fuente por el tag  "<EMBEDED src="Aqui es donde esta la pelicula">". Copia la direccion del vinculo y escribila en el exploraror y te va a poner para guardar a disco.

Supongo que funcionar'a :lightsabre:  :lightsabre:  :lightsabre:

1423
Novedades en SoloCodigo / Re: Problemas En El Servidor
« en: Domingo 27 de Marzo de 2005, 01:09 »
Hace una hora, no podia entrar. La pagina nunca se abria.

1424
Publicaciones y e-books / Re: ¿Qué Opinan De Código Latino?
« en: Sábado 26 de Marzo de 2005, 02:07 »
Iba a poner, puede mejorarse pero... ahora que la vi :alien:  :scream:

Nada que ver a lo que habia visto antes, esta demasiado agradable a la vista, las baras oscuras al costado izquierdo combinan demasiado bien con las barras rojas del titulo. La  presentacion de los temas en un monitor LCD se ve excelente y los contenidos de la siguiente edicion, en el libraco negro con perspectiva esta barbaro.

No hablo de los contenidos ya que est'a demas. Es que son muy buenos.

Respecto al formato que tienes.........
Se pierde mucho tiempo juntando las partes para terminar descompremiendo el ZIP.
Solucion> El WinRar permite Zipear y  a la vez separar en varios el archivo de manera que uno pone descomprimir y listo. Porsupuesto que tenidno todas las partes.

1425
Delphi / Re: Codigo Para Agregar Un Sonido
« en: Sábado 26 de Marzo de 2005, 01:48 »
*Coloca en tu aplicacion un componente llamado TMediaPlayer, esta en la pestaña System.
*en la Propiedad FileName de dicho componente Ingresa el nombre del archivo WAV
*En la propiedad de Visible del mismo componete coloca False (para que no se vea)
*en el Evento Form Create coloca: MediaPlayer1.Open;
*En el Evento onClick del boton escribe: MediaPlayer1.Play;

Aqui todo el codigo junto.....
Código: Text
  1.  
  2. unit Unit1;
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  8.   Dialogs, StdCtrls, MPlayer;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     MediaPlayer1: TMediaPlayer;
  13.     Button1: TButton;
  14.     procedure Button1Click(Sender: TObject);
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   Form1: TForm1;
  24.  
  25. implementation
  26.  
  27. {&#036;R *.dfm}
  28.  
  29. procedure TForm1.Button1Click(Sender: TObject);
  30. begin
  31.   MediaPlayer1.Play;
  32. end;
  33.  
  34. procedure TForm1.FormCreate(Sender: TObject);
  35. begin
  36.   MediaPlayer1.Open;
  37.         //MediaPlayer1.FileName := 'C:&#092;Algo.wav';    
  38. end;
  39.  
  40. end.
  41.  
  42.  

Páginas: 1 ... 55 56 [57] 58 59 ... 77