• Ogłoszenie:

Turbo Pascal i tryb graficzny (graph)

Wszystko na temat programów: skąd pobrać, instalacja, użytkowanie, problemy, poszukiwane programy.

Turbo Pascal i tryb graficzny (graph)

Postprzez lipton 07 Maj 2005, 20:09

reklama
Mam mały problem, napisałem taki prosciutki programik:


Program PR1;
uses crt,graph;
var karta,tryb : Integer;
begin
clrscr;
DetectGraph (karta,tryb);
Initgraph(karta,tryb,'c:windows/system');
putpixel(10,10,yellow);
readln
end.


kompiluje sie dobrze ale jak uruchamiam to wyskakuje blad BGI error: Graphics not initialized (use Initgraph)

wydaje mi sie ze dlatego ze zle wskazałem sciezke do sterownikow, ale nie wiem gdzie onie sie instaluja
a po 2: to jak pojde pochwalic sie kumplowi programem z modułem graph to bede za kazda zmiana kompa zmieniac sciezke do sterownikow ?
lipton
~user
 
Posty: 104
Dołączenie: 20 Mar 2005, 09:04
Pochwały: 1



Postprzez Magik 07 Maj 2005, 20:21

lipton napisał(a):kompiluje sie dobrze ale jak uruchamiam to wyskakuje blad BGI error: Graphics not initialized (use Initgraph)


hm...szkoda ze faka z infy opuszczalem jak o Pascalu bylo......mam nadzieje ze cos jeszcze pamietam :D :D :D :D

Dysponujac kodem źródłowym, wystarczy tylko poprawić tą ścieżkę tak, aby wskazywała na podkatalog gi w katalogu Turbo Pascala (najczęściej c: pgi). Jeśli nie dysponujesz kodem źródłowym, to pojawia się mały problem, bo trzeba zgadnąć gdzie też autor programu miał swoje sterowniki. Najczęściej będzie to katalog bieżący, czyli wystarczy skopiować plik egavga.bgi (albo bezpieczniej - *.bgi) do katalogu, w którym znajduje się błędnie napisany program.

Tyle wiem

PZRD
Image Image
Awatar użytkownika
Magik
~user
 
Posty: 7956
Dołączenie: 08 Maj 2004, 09:17
Miejscowość: Głogów
Pochwały: 886



Postprzez lipton 07 Maj 2005, 21:28

to ja nnapisałem ten program i mam kod ...


ten plik EGAVGA.BGI znajduje sie C:\Program Files\TP\BGI

zmienilem kod i dalem sciezke taka i dalej ten sam blad
lipton
~user
 
Posty: 104
Dołączenie: 20 Mar 2005, 09:04
Pochwały: 1



Postprzez Magik 07 Maj 2005, 21:33

Zrob tak:
wystarczy tylko poprawić tą ścieżkę tak, aby wskazywała na podkatalog \bgi w katalogu Turbo Pascala (najczęściej c:\tp\bgi)

najlepiej napisz sobie procedurke:

Kod: Zaznacz wszystko
procedure start_grafiki(path:string);
var
k:integer;
begin
k:=detect;
initgraph(k,k,path);
end;


i teraz w programie mozesz jej uzywac:

Kod: Zaznacz wszystko
begin
start_grafiki('c:\tp\bgi');
.
rysowanie
.
closegraph;
end.


gdzie 'c:\tp\bgi' - to jest sciezka dostepu do katalogu BGI na twoim dysku

PZDR
Image Image
Awatar użytkownika
Magik
~user
 
Posty: 7956
Dołączenie: 08 Maj 2004, 09:17
Miejscowość: Głogów
Pochwały: 886



Postprzez lipton 07 Maj 2005, 21:38

to samo ...
lipton
~user
 
Posty: 104
Dołączenie: 20 Mar 2005, 09:04
Pochwały: 1



Postprzez Magik 07 Maj 2005, 21:58

lipton napisał(a):to samo ...


To juz zaczynam glupiec :lol: :lol: :lol: :lol:

a czy w tym katalogu /bgi JEST UMIESZCZONY/SKOPIOWANY plik EGAVGA.BGI :?: :?: :?:

Dodaj/to drugie zeedytuj takie linijki

Kod: Zaznacz wszystko
ster:= vga; tryb:= vgahi;
initgraph(ster, tryb, 'c:\bgi');


PZDR
P.S
ta lokalizacje oczywiscie dostosuj do siebie:)
Image Image
Awatar użytkownika
Magik
~user
 
Posty: 7956
Dołączenie: 08 Maj 2004, 09:17
Miejscowość: Głogów
Pochwały: 886



Postprzez lipton 07 Maj 2005, 22:26

zrobilem tak jak mowisz i dalej nie działa ...

nawet przekopiowałem katalog BGI na c: i zmienilem sciezke na c:\bgi i dalej nie dziala
lipton
~user
 
Posty: 104
Dołączenie: 20 Mar 2005, 09:04
Pochwały: 1



Postprzez Magik 07 Maj 2005, 22:45

hmmmm
hmmmm
hmmmm

no i po co Łukaszu opusczales fakultet z informatyki :?: :?: :?: :?: :?: :lol: :lol: :lol: 8)

jest taka funkcja zeby sprawdzic dokladnie dlaczego

Kod: Zaznacz wszystko
#include
int main(void)
{
    int gerr;   /* graphics error */
    int gdriver = DETECT, gmode;
    /* Initialize graphics using auto-detection and look
    for the .BGI and .CHR files in the C:\TURBOC directory.
    */
    initgraph(&gdriver, &gmode, "C:\\TURBOC");
    if ((gerr = graphresult()) != grOk)
    {
        printf("Error : %s\n", grapherrormsg(gerr));
        exit(1);
    }
    :
}


PZDR
Image Image
Awatar użytkownika
Magik
~user
 
Posty: 7956
Dołączenie: 08 Maj 2004, 09:17
Miejscowość: Głogów
Pochwały: 886




Powróć do Programy

Kto jest na forum

Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 14 gości