• Jueves 28 de Marzo de 2024, 10:19

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.


Temas - Enko

Páginas: 1 ... 4 5 [6]
126
Dudas informáticas / Se Volvio Loco El Explorador!
« en: Sábado 5 de Junio de 2004, 02:42 »
Como dice el titulo creoi que mi Windows Explorer del Windows XP no da para más . No se que hacer Cada vez que compilo a disco un programa para DOS con un compilador que funciona bajo DOS  ( Turbo Pascal , Turbo C++, Quick Basic )
al tratar de borrarlo Me aparece un mensaje diciendo más o menos :
 " No se puede borrar el archivo porque está siendo utilizado por otro proceso. Cierre todos los programas y intentenlo de nuevo."
con poca investigación me di cuenta que este proceso es el Explorador de Windows y la unica manera de borrar los programas compilados  es ejecutar el Administrador de tareas de Windows y terminar el proceso Explorer.exe y luego ejecurat el Command.com y borrarlos.
Si compilo un programa para DOS con Delphi,C++ Builder esto no pasa y lo puedo borrar normalmente.
Esto no es un problema pero ... Asi no tiene que ser.
Si alguien sabe como solucionarlo por favor HELP

Gracias :hola:

127
Pascal / Randomizar Baraja
« en: Sábado 3 de Abril de 2004, 01:14 »
Por alguna extraña  razón el código que escribí saca naipes al azar pero a veces se repiten . ( En una baraja común la cartas ni se repiren  :angry: )
    Si bien el programa tiene un procedimiento que supuestamente tiene que controlar que los naipes no se repitan pero no funciona del todo bien  :blink:
Aqui se los paso cualquier ayuda me será de gran utoilidad Gracias :)
Código: Text
  1.  
  2. program Truco;
  3. uses CRT;
  4. (***************************************************************************)
  5. type
  6.  TNaipe = record
  7.     Palo :  (Espada,Basto,Oro,Copa);
  8.     Nro  :  Byte;
  9.     Dib  :  char;
  10.  end;
  11.  TBaraja =  array [1..40] of TNaipe;
  12. (***************************************************************************)
  13. Var
  14.  Espad  :  TNaipe;
  15.  Baraja :  TBaraja;
  16.  Ch     :  char;
  17.  I      :  integer;
  18. (***************************************************************************)
  19. procedure RandomCarta(var Naipe : Tnaipe);
  20.  var
  21.   I : Integer;
  22.   J : Integer;
  23.  begin
  24.   I := Random(4)+1;
  25.   J := Random(12)+1;
  26.   If (J=8) or (J=9) Then J := Random(12)+1;
  27.   Naipe.Nro := J;
  28.   Case I of
  29.    1: begin
  30.        Naipe.Palo := Espada;
  31.        Naipe.Dib := #6;
  32.       end;
  33.    2: begin
  34.        Naipe.Palo := Basto;
  35.        Naipe.Dib := #3;
  36.       end;
  37.    3: begin
  38.        Naipe.Palo :=Oro;
  39.        Naipe.Dib := #4;
  40.       end;
  41.    4: begin
  42.        Naipe.Palo :=Copa;
  43.        Naipe.Dib := #5;
  44.       end;
  45.   end;
  46.  end;
  47.  
  48. function SinRepetir(N:Integer&#59; Naipe:TNaipe&#59; Maso:TBaraja ) : boolean;
  49.  var I : Integer;
  50.  begin
  51.   for I := 1 to N  do
  52.    begin
  53.     if(Maso[I].Nro=Naipe.Nro)
  54.      and (Ord(Maso[I].Palo)=Ord(Naipe.Palo))
  55.       then SinRepetir := False
  56.     else SinRepetir := True
  57.    end;
  58.  end;
  59.  
  60. procedure RandomBaraja(var  Maso : TBaraja);
  61.  var
  62.   I : integer;
  63.   Carta : TNaipe;
  64.  begin
  65.   for I := 1 to 40 do
  66.    begin
  67.     RandomCarta(Carta);
  68.     If SinRepetir(I,Carta,Maso)
  69.      then Maso[I] := Carta
  70.     else RandomCarta(Carta);
  71.    end;
  72.   end;
  73. (***************************************************************************)
  74. Begin
  75.  TextMode(3);
  76.  ClrScr;
  77.  Randomize;
  78.  RandomBaraja(Baraja);
  79.  TextColor(4);
  80.  for I := 1 to 40 do
  81.   begin
  82.    WriteLn('    ',Baraja[I].Nro:5,'    ',Baraja[I].Dib);
  83.    if I = 20 Then
  84.     begin
  85.     window(40,1,70,25);
  86.     WriteLn('    ',Baraja[I].Nro:5,'    ',Baraja[I].Dib)
  87.     end;
  88.  end;
  89. ReadKey;
  90. End.
  91.  
  92.  
  93.  

128
C/C++ / Compilador C++?
« en: Viernes 26 de Marzo de 2004, 23:50 »
Citar
Hola les quieria hacer una consulta :
                                                     Qiero empezar a programar en C y la verdad que no se que compilador usar ya que el lenguaje que manejo es el Pascal y todo lo referente a C/C++ no tengi ni idea.
                                                       Tambien me seria muy {util si alguien me recomienda algun tutorial web del mismo .

Desde ya muchas Gracias

129
Programación de Videojuegos / Mapa De Scroll
« en: Sábado 13 de Marzo de 2004, 19:43 »
Hola como no tengo idea de como se llama y supongo que es mapa de scroll :'(
Necesito por favor que alguien me diga en donde se puede descargar un programa para dibyjar fondos de videojuegos.Yo los llamo mapas de scroll


Gracias desde ya

130
Virus / Pefina De Inicio Int.expl.
« en: Sábado 6 de Marzo de 2004, 14:24 »
Se me cambia todo el tiempo la pagina de inicio predeterminada ;) .
Probe con Ad-Ware pero este no encontro nada
Mi duda es ¿ <_< Como puedo solucionarlo?
Espero una ayuda , Igualmente MUCHAS GRACIAS :rolleyes:

131
Sobre los Foros de SoloCodigo / Sugerir Un Foro
« en: Miércoles 3 de Marzo de 2004, 22:27 »
Hola SoloCodigo me gustaria proponer un foro para poder hacer consulta sobre como se pueden tratar algunos virus que los antivirus como Norton o MacAffee no los identifica y que es lo que se puede hacer para prevenirlos entre otras cosas.
  Me faltaba tambien seria muy importante incluir ahi no solo los virus sino los diversos fallos que suelen tener los sist.op. que parecieran que son virus y no lo son.
 Desde ya gracias.

132
Pascal / Ventanas Emergentes
« en: Jueves 12 de Febrero de 2004, 14:08 »
Hola , despues de varias dias sin resultado  de tratar de hacer un código que hiciera que guarde todo el contenido de lo que se ve en la pantalla ( en modo texto) no tengo más remedio que consultar en este foro.
    Necesitaria , por favor , que elguien me diera una pista de como se puede salvar el contenido de una pantalla de texto en una variable de cualquier tipo o cualquier otra cosa que lo permita . Asi de esta manera despues de llamar a Window(X1,Y1,X2,Y2)  se pueda recuperar el contenido de la pantalla que la ventana borró .

133
Pascal / Test Teclas
« en: Sábado 7 de Febrero de 2004, 14:30 »
Es un pequeño programa freeware de internet que cuando presionas una tecla te dice su codigo ASCII
Acepta combinaciones (por ej. Alt+F1 , Alt+Ctrl+K,etc)

134
Pascal / Pequeño Ejemplo
« en: Jueves 5 de Febrero de 2004, 00:55 »
Es uno de los primero programas que hice en la unidad grafica de Turbo Pascal

Código: Text
  1. program demo;
  2. uses
  3.     crt,graph,dos;
  4. const
  5.      Xmax=640;
  6.      Ymax=480;
  7.  
  8. procedure inicializacion;
  9. var
  10.    Gd, Gm: Integer;
  11. begin
  12.      Gd := Detect;
  13.      InitGraph(Gd, Gm, '');
  14.      if GraphResult <> grOk then
  15.      Halt(1);
  16.      randomize;
  17. end;
  18.  
  19. procedure esperar;
  20. var
  21. tecleado:char;
  22. const esc=#27;
  23. begin
  24.      repeat until keypressed;
  25.      tecleado:=readkey;
  26.      if tecleado = #0 then tecleado:=readkey;
  27.      if tecleado = esc then halt(0)
  28.      else cleardevice;
  29. end;
  30.  
  31. procedure recuadro;
  32. var
  33.    ViewPort : ViewPortType;
  34. begin
  35.      cleardevice;
  36.      setcolor(white);
  37.      SetLineStyle(solidln, 0, NormWidth);
  38.      GetViewSettings(ViewPort);
  39.      with ViewPort do
  40.      Rectangle(0, 0, x2-x1, y2-y1)
  41. end;
  42.  
  43. procedure stars;
  44. begin
  45.  
  46.      repeat
  47.      setbkcolor(0);
  48.      putpixel(random(getmaxX-5) , random(getmaxY-5) , (white))
  49.      until keypressed;
  50.      esperar;
  51. end;
  52.  
  53. procedure lineas;
  54. begin
  55.      repeat
  56.      setbkcolor(0);
  57.      setcolor(random(getmaxcolor));
  58.      line((getmaxX div 2) ,( getmaxY div 2) ,random(getmaxX-5) , random(getmaxY-5));
  59.      until keypressed;
  60.      delay(1);
  61.      esperar;
  62. end;
  63. procedure elipses;
  64. begin
  65.  
  66.     repeat
  67.     setcolor(random(100)); ellipse(random(getmaxX-50),random(getmaxY-50),
  68. random(360),random(360),random(50),random(50));
  69.     until keypressed;
  70.     delay(100);
  71.     esperar;
  72. end;
  73. procedure tramado;
  74. var x,y:word;
  75. begin
  76.     y:=1;
  77.     x:=1;
  78.     while y<480 do
  79.     while x<640 do
  80.      begin
  81.       y:=y+20;
  82.       x:=x+20;
  83.       setcolor(lightblue);
  84.       line(0,y,x,480);
  85.       line(x,0,640,y);
  86.     end;
  87.   esperar;
  88.   end;
  89. begin{cuerpo principal}
  90.  inicializacion;
  91.  recuadro;
  92.  stars;
  93.  recuadro;
  94.  elipses;
  95.  recuadro;
  96.  lineas;
  97.  tramado;
  98.  readln;
  99.  closegraph;
  100.  end.
  101.  
espero que a alguien le sirva como ej.
La manera en que esta escrito es muy pobre ( eran mis comienzos no es para tanto che <_< ) Ahora mejore :P
Necesitaran la Graph.tpu

135
Pascal / Letras En Espiral
« en: Lunes 2 de Febrero de 2004, 15:04 »
{ La funcion 'Car' fue hecha gracias a .B. y chujkero miembros de la                  }
{pag.¡Saludos :hola: !                                                                                     }
{ El programa llena la pantalla con letras al azar de 'A' a 'Z' sigiuendo una espiral}

program Espiral;
uses Crt;
const
 
Tiempo = 1000; {­Modifica segun la velocidad de tu ordenador !
                 En el mio anduvo BIEN.}
var
 Control : integer;  { Lleva el control de las repeticiones }
 X,Y     : byte;     { Variables de tipo contador }
 Xi,Xf   : byte;
 Yi,Yf   : byte;

procedure InitTextMode;  {Inicia todas las variabes con sus valores}
 begin
  Randomize;
  TextMode(C80);  { Inicia modo CGA 80*25 ( casi indespensable en mi win XP)}
  Window(1,1,80,25);
  TextBackground(0);
  Textcolor(10);
  ClrScr;
  X := 1;
  Y := 1;
  Xf := 79;
  Yf := 24;
  Xi := 1;
  Yi := 1;
  Control := 1;
 end;

function Car : char;  { Saca al azar letras de la 'A' a 'Z'}
 begin
  Car := Chr(Random(25)+65);
 end;

begin        { El begin principal}
 InittextMode;
 repeat
 while X < Xf do  { Aqui se comienza a dibujar la espiral}
  begin
   GotoXY(X+1,Yi);
   Write(car);
   X := X+1;
   if KeyPressed then Break;  { Por si se presiona una tecla para el Bucle}
   Delay(Tiempo);{ Aqui es donde se hace mas lento el movimiento}
  end;
 while Y < Yf do
  begin
   Y := Y+1;
   GotoXY(Xf,Y);
   Write(car);
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 while X > Xi do
  begin
   GotoXY(X,Yf);
   Write(car);
   X := X-1;
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 while Y > Yi do
  begin
   GotoXY(Xi,Y);
   Write(car);
   Y := Y-1;
   if KeyPressed then Break;
   Delay(Tiempo);
  end;
 Xi := Xi+1;  { Parte necesaria para que continue la espiral}
 Yi := Yi+1;
 Xf := Xf-1;
 Yf := Yf-1;
 Control := Control+1; {Lleva el control de las repiticiones}
until  (KeyPressed) or (Control = 13); { Me parece que el
                                         KeyPressed esta demas pero ...}
 ReadLn;
end.

136
Pascal / Randomizar Letras ?
« en: Jueves 29 de Enero de 2004, 14:06 »
Hola soy nuevo y tengo una duda acerca de como se puede sacar rapidamente letras al azar en turbo pascal que no sea :

Numero:=Random(10)+1;
Case Numero Of
   1:Letra:='A';
   2:Letra:='B';
   3:Letra:='C;...............Etc ;)

Páginas: 1 ... 4 5 [6]