[ Príspevkov: 18 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
NapísalOffline : 09.10.2007 14:56 | pascal preco mi to nejde pomozte plz

mam len taky maly problem ze ked chcem spustit nieco v pascale z grafiky nabehne mi len cierna obrazovka a nic to neroby . na inom pc my to ide ale ja to potrebujem aby mi to aslo aj doma.
prosim ozvyte sa niekto plz :shock:


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 09.10.2007 15:30 | pascal preco mi to nejde pomozte plz

podla vsetkeho mas nastavenu zlu cestu ku grafike ale takto si to nepredstavuj ze budeme hadat hod sem ten zdrojak.


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 09.10.2007 17:28 | pascal preco mi to nejde pomozte plz

neviem aky zdrojak ale cestu mam urcite dobru som si to niekolko krat kontrolovala


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.07.07
Prihlásený: 09.10.07
Príspevky: 3
Témy: 0 | 0
NapísalOffline : 09.10.2007 17:35 | pascal preco mi to nejde pomozte plz

NIKITA, vies robit v PASCALY?


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 12.10.06
Prihlásený: 16.11.24
Príspevky: 20519
Témy: 79 | 79
Bydlisko: Banska Byst...
NapísalOffline : 09.10.2007 17:43 | pascal preco mi to nejde pomozte plz

Najprv by mala zacat s vyucbou gramatiky, a az potom pascalu. Hrubica dobreze nie v kazdom slove...A ocividne ani nevie co je to zdrojak...no amen :lol:

A navyse nenapise nic o tom, ze co a ako to robi - ci je to klasicky DOSovsky pascal, alebo dake Delphi alebo...


_________________
Ryzen 7 3700X | SilentiumPC Fera 3 | Asrock X570M Pro4 | Patriot Viper 4 Blackout 16GB DDR4-3600 CL17 | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 32" Samsung ViewFinity S60UA | 3x Noctua NF-S12B redux 1200 PWM
Xiaomi Mi 9 Lite 64GB
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 09.10.2007 18:00 | pascal preco mi to nejde pomozte plz

no takze je to klasicky turbo pascal 7 a ked spustim grafiku tak len cierna obrazovka tak neviem a programovat celkom asi viem ale nejak si nemapetamtake nejake nazvy a na gramatiku sa nestazuj lebo no kaslat na to


Offline

Čestný člen
Čestný člen
pascal  preco mi to nejde pomozte plz

Registrovaný: 09.05.05
Prihlásený: 07.12.16
Príspevky: 1294
Témy: 69 | 69
Bydlisko: - - -
NapísalOffline : 09.10.2007 18:28 | pascal preco mi to nejde pomozte plz

Tú cestu ku grafike má určite správnu, lebo inač by to hodilo eror a program by sa nespustil ani do tej čiernej obrazovky, to tak btw...

nikita, nevieme aký program sa snažíš pustiť, či už niečo veľké, alebo len základy, trocha popísať.. Skušala si skopírovať celý ten TP7 z toho počítača kde ti to funguje ?

Nasledujúci kód ti tiež len vyhodí čiernu obrazovku ?
Kód:
USES CRT, GRAPH;

VAR

GD, GM : INTEGER;

BEGIN
    InitGraph(GD,GM, '..\BGI');
    Line(50,50,100,100);
    readln;
    Line(50,50,100,50);
    readln;
    Line(100,50,100,100);
    readln;
    CloseGraph;
END.
 


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 09.10.2007 18:35 | pascal preco mi to nejde pomozte plz

no tak ked som to tam dala napisalo mi ze turbo pascal version 7.0 copyright (c) 1983,92 borland internacional


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 09.10.2007 18:37 | pascal preco mi to nejde pomozte plz

no a neskusala som to skopyrovat pretoze je to v skole a je to tam vsetko chranene a tie programy ktore robim si velmi jednoduch napr nakreslit terc aby menil farby alebo domcek alebo napisat techt a ten aby chodil po obrazovke ako titulky takze jednoduche


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 10.10.2007 13:15 | pascal preco mi to nejde pomozte plz

ak nevies co to je zdrojak tak, vies aspon co je to zdrojovy kod? source code? to je cely obsah toho programu tak to sem hod a uz nas neirituj.


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 10.10.2007 14:16 | pascal preco mi to nejde pomozte plz

no tak napriklad toto

program vyplnkruznica;
uses graph;
var gd,gm:integer;
i:integer;
procedure vyplnaj (farba_vyplne,x,y,farba_hranice:integer);
begin
setfillstyle (1,farba_vyplne);
floodfill (x,y,farba_vyplne);
end;
begin
initgraph(gd,gm,'d:\student\2.a');

{for i:=16 downto 1 do
begin
setcolor(i);
circle (300,250,5*i);
setfillstyle (1,i);
floodfill (300,250,i);
end; }

for i:=16 downto 1 do
begin
setcolor(i);
circle (300,250,5*i);
vyplnaj (i,300,250,50);
end;

readln;
end.


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 10.10.2007 14:57 | pascal preco mi to nejde pomozte plz

a co te premenne gd, a gm sak jasne ze nemas nastavenu cestu ku grafike ked ti cyhbaju ich hodnoty pred initgraph by sa mala dat funkcia detectgraph(gd,gm); a az nebodaj je tam nastavene nieco take ako ze to berie farby len do hodnoty 16 no tak to by mohol byt dalsi problem.


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 10.10.2007 16:04 | pascal preco mi to nejde pomozte plz

no aj ked som to zmenila nic nerobi no vlastne to iste ale este pise ze nepozna graph


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 10.10.2007 17:58 | pascal preco mi to nejde pomozte plz

tak teraz staci opravit tu cestu v initgraph() daj tam radsej absolutnu cestu adresara bgi ktory mas niekde v pascali.


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 10.10.2007 18:03 | pascal preco mi to nejde pomozte plz

tak mi to skus napisat ako to ma presne vizerat lebo ja som to uz skusala a nejak to stale nejde pascal mam na c program files a TP


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 10.10.2007 21:29 | pascal preco mi to nejde pomozte plz

otvor si normalny explorer v suborovom vyhladavaci (normalne dvojklik na nejaky adresar) teda az mas windows. preklikaj sa do toho adresara s pascalom a potom na tej vyhladavacej liste kde mas cestu k danemu adresa tak tu istu napis do initgraph(gd,gm,'sem');
az to mas nejak tak potom by to mohlo vyzerat asi takto nejak:
Kód:
detectgraph(gd,gm);
bud initgraph(gd,gm,'C:\program files\tp\bgi');
alebo tento initgraph(gd,gm,'..\bgi');
no lenze tym program files som si nie isty ci to nebere len 8znakove adresare v tom pripade by to mohlo byt progra~1


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 13.02.07
Prihlásený: 10.10.07
Príspevky: 24
Témy: 3 | 3
Napísal autor témyOffline : 14.10.2007 13:39 | pascal preco mi to nejde pomozte plz

no bere a teraz neviem ako napisem to no tu vlnovku


Offline

Užívateľ
Užívateľ
pascal  preco mi to nejde pomozte plz

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6 | 6
NapísalOffline : 14.10.2007 16:45 | pascal preco mi to nejde pomozte plz

bud si prepnes na anglicku klavesnicu shift + (klaves nad Tab)
alebo pomocou ascii kodu Alt + 126;
alebo.skus ten druhy.
proste si pozri options->directories. a podla toho to nasmeruj do bgi adresara.
'..\' je o adresar spat.
initgraph(gd,gm,'cesta\bgi');


_________________
getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória
 [ Príspevkov: 18 ] 


pascal preco mi to nejde pomozte plz



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

plz ludia pomôžte mi s pár lahkými príkladmi na pascal

v Assembler, C, C++, Pascal, Java

0

746

02.05.2007 14:56

nikita

V tomto fóre nie sú ďalšie neprečítané témy.

Preco mi nejde spustit pascal vo Windows 7 ?

v Assembler, C, C++, Pascal, Java

2

2000

21.06.2010 20:42

Martin Macy

V tomto fóre nie sú ďalšie neprečítané témy.

PLZ Pomozte

v Operačné systémy Microsoft

3

632

18.04.2006 11:33

p2p

V tomto fóre nie sú ďalšie neprečítané témy.

PRECO NEJDE?

v nVidia grafické karty

12

961

22.04.2008 20:41

prandof

V tomto fóre nie sú ďalšie neprečítané témy.

Prečo to nejde?

v Pevné disky a radiče

8

553

11.04.2010 23:06

Durinko

V tomto fóre nie sú ďalšie neprečítané témy.

prečo mi nejde mikrofon????

v Audio programy

8

1526

22.02.2009 16:52

HallOfFame

V tomto fóre nie sú ďalšie neprečítané témy.

preco mi to nejde?

v PHP, ASP

27

1169

07.09.2007 19:16

Flety

V tomto fóre nie sú ďalšie neprečítané témy.

Preco nejde while? help

v PHP, ASP

4

559

29.07.2007 16:19

TECHNODROME

V tomto fóre nie sú ďalšie neprečítané témy.

nejde otvorit pascal

v Assembler, C, C++, Pascal, Java

10

579

08.06.2012 22:40

Fico

V tomto fóre nie sú ďalšie neprečítané témy.

preco mi nejde zosilnit mikrofon?

v Zvuk

0

690

05.05.2008 19:33

sOsek

V tomto fóre nie sú ďalšie neprečítané témy.

3 Ventilátory, jeden nejde, prečo?

v Chladiče a všetky druhy chladenia

2

610

07.10.2015 12:16

martinius96

V tomto fóre nie sú ďalšie neprečítané témy.

Preco mi nejde spustit hra

v Počítačové hry

20

1341

17.07.2014 15:15

Rastulinqo1

V tomto fóre nie sú ďalšie neprečítané témy.

Preco mi nejde sietovy kabel?

v Siete

4

2474

14.01.2007 14:59

mimkork

V tomto fóre nie sú ďalšie neprečítané témy.

preco to nejde v mozille?

v JavaScript, VBScript, Ajax

7

538

08.09.2012 16:28

Ďuri

V tomto fóre nie sú ďalšie neprečítané témy.

WL-5460AP prečo nejde Internet???

v Siete

14

2329

21.03.2010 17:43

AReYco

V tomto fóre nie sú ďalšie neprečítané témy.

nejde mi zvuk.......pomozte

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Audio programy

43

1592

20.11.2009 20:51

prandof



© 2005 - 2024 PCforum, edited by JanoF