Pascal/Turbo Pascal - No sirve la biblioteca "GRAPH.TPU"

   
Vista:
Imágen de perfil de Luis Alfredo

No sirve la biblioteca "GRAPH.TPU"

Publicado por Luis Alfredo (11 intervenciones) el 16/05/2016 22:58:33
Hola de nuevo.

Necesito ayuda con la biblioteca "Graph.tpu" pues cuando la quiero usar para hacer graficos me muestra esto:

Sin-titulo-1

Y como pueden ver, es la misma direccion, el mismo archivo y todo, pero sigue sin funcionar

Ayuda

p.d: por cualquier cosa, aqui dejo el codigo que encontre, que es el que quiero usar para hacer lineas:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program TercerGrafico;
 
 uses Graph;                     { Va a usar la librería gráfica de TP }
 
 var
  Driver, Modo: Integer;             { Pues el driver y el modo, claro }
  bucle: word;                       { Para bucles, ya se verá por qué }
 
 begin
  Driver := Vga;                                   { Para pantalla VGA }
  Modo := VgaHi;                            { Modo 640x480, 16 colores }
  InitGraph(Driver, Modo, 'c:\tp\bgi');                { Inicializamos }
  SetColor(LightRed);                                     { Color rojo }
  for bucle := 0 to 639 do                        { Dibujaremos lineas }
    line (0,0,bucle,439);
  Readln;                                                  { Esperamos }
  CloseGraph                                              { Y se acabó }
 end.

Edito: descubri un fallo en el programa, en la linea 12 dice una direccion incorrecta, pero ahora si encuentra el archivo, pero no abre totalmete el programa (Muestra una pantalla negra con palabras que dicen "ERROR" pero al instante se cierra, o no se muestra esta pantalla)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

No sirve la biblioteca "GRAPH.TPU"

Publicado por David (144 intervenciones) el 17/05/2016 00:12:24
¿Qué versión de Pascal usas? Probado en Free Pascal 2.6 funciona correctamente. Otra cosa: Si utilizas Turbo Pascal 7.0 ¿Has probado que en la opción Options>Directories las direcciones de las units sean las correctas ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Luis Alfredo

No sirve la biblioteca "GRAPH.TPU"

Publicado por Luis Alfredo (11 intervenciones) el 17/05/2016 00:39:40
uso la 5.5, y si, ya habia modificado esa opcion y continuaba fallando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

No sirve la biblioteca "GRAPH.TPU"

Publicado por David (144 intervenciones) el 17/05/2016 17:20:46
Copia el archivo graph.tpu en el directorio en el que estés trabajando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

No sirve la biblioteca "GRAPH.TPU"

Publicado por David (144 intervenciones) el 17/05/2016 17:58:44
Otra cosa: ¿Has comprobado que el archivo egavga.bgi esté en el directorio correspondiente?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

No sirve la biblioteca "GRAPH.TPU"

Publicado por ramon (2072 intervenciones) el 18/05/2016 10:30:41
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{Prueba esto corregido}
 
program TercerGrafico;
 
 uses Graph;                     { Va a usar la
 
librería gráfica de TP }
 
 var
  Driver, Modo: Integer;             { Pues el
 
driver y el modo, claro }
  bucle: word;                       { Para
 
bucles, ya se verá por qué }
 
 begin
  Driver := detect;
 
{ Para pantalla VGA }
  InitGraph(Driver, Modo, 'c:\tp\bgi');
 if graphresult <> 0 then
   begin
     writeln('  Error Grafico Pulse Enter');
readln;
   end
  else
    begin
 
    { Inicializamos }
  SetColor(LightRed);
 
       { Color rojo }
  for bucle := 0 to 639 do
 
{ Dibujaremos lineas }
    line (0,0,bucle,439);
  Readln;
 
        { Esperamos }
  CloseGraph
 
       { Y se acabó }
  end;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar