Stránka: 1 z 1
| [ Príspevkov: 18 ] | |
Autor | Správa |
---|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
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
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
neviem aky zdrojak ale cestu mam urcite dobru som si to niekolko krat kontrolovala
|
|
Registrovaný: 21.07.07 Prihlásený: 09.10.07 Príspevky: 3 Témy: 0 | 0 |
NIKITA, vies robit v PASCALY?
|
|
Registrovaný: 12.10.06 Prihlásený: 16.11.24 Príspevky: 20519 Témy: 79 | 79 Bydlisko: Banska Byst... |
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
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
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
|
|
Registrovaný: 09.05.05 Prihlásený: 07.12.16 Príspevky: 1294 Témy: 69 | 69 Bydlisko: - - - |
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.
|
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
no tak ked som to tam dala napisalo mi ze turbo pascal version 7.0 copyright (c) 1983,92 borland internacional
|
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
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
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
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.
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
no aj ked som to zmenila nic nerobi no vlastne to iste ale este pise ze nepozna graph
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
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
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Registrovaný: 13.02.07 Prihlásený: 10.10.07 Príspevky: 24 Témy: 3 | 3 |
no bere a teraz neviem ako napisem to no tu vlnovku
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
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 |
|
Stránka: 1 z 1
| [ Príspevkov: 18 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 0 | 746 | 02.05.2007 14:56 nikita | | v Assembler, C, C++, Pascal, Java | 2 | 2000 | 21.06.2010 20:42 Martin Macy | | v Operačné systémy Microsoft | 3 | 632 | 18.04.2006 11:33 p2p | | v nVidia grafické karty | 12 | 961 | 22.04.2008 20:41 prandof | | v Pevné disky a radiče | 8 | 553 | 11.04.2010 23:06 Durinko | | v Audio programy | 8 | 1526 | 22.02.2009 16:52 HallOfFame | | v PHP, ASP | 27 | 1169 | 07.09.2007 19:16 Flety | | v PHP, ASP | 4 | 559 | 29.07.2007 16:19 TECHNODROME | | v Assembler, C, C++, Pascal, Java | 10 | 579 | 08.06.2012 22:40 Fico | | v Zvuk | 0 | 690 | 05.05.2008 19:33 sOsek | | v Chladiče a všetky druhy chladenia | 2 | 610 | 07.10.2015 12:16 martinius96 | | v Počítačové hry | 20 | 1341 | 17.07.2014 15:15 Rastulinqo1 | | v Siete | 4 | 2474 | 14.01.2007 14:59 mimkork | | v JavaScript, VBScript, Ajax | 7 | 538 | 08.09.2012 16:28 Ďuri | | v Siete | 14 | 2329 | 21.03.2010 17:43 AReYco | | [ Choď na stránku: 1, 2 ] v Audio programy | 43 | 1592 | 20.11.2009 20:51 prandof |
|