| | |
| 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 | Napísal nikita: 09.10.2007 14:56 | |
|
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 | Napísal juho: 09.10.2007 15:30 | |
|
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 | Napísal autor témy nikita: 09.10.2007 17:28 | |
|
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 |
NIKITA, vies robit v PASCALY?
|
|
Registrovaný: 12.10.06 Prihlásený: 17.04.24 Príspevky: 20302 Témy: 79 Bydlisko: Banska Byst... | Napísal shiro: 09.10.2007 17:43 | |
|
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 | 24" BenQ GW2470H | 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 | Napísal autor témy nikita: 09.10.2007 18:00 | |
|
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 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 | Napísal autor témy nikita: 09.10.2007 18:35 | |
|
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 | Napísal autor témy nikita: 09.10.2007 18:37 | |
|
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 | Napísal juho: 10.10.2007 13:15 | |
|
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 | Napísal autor témy nikita: 10.10.2007 14:16 | |
|
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 | Napísal juho: 10.10.2007 14:57 | |
|
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 | Napísal autor témy nikita: 10.10.2007 16:04 | |
|
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 | Napísal juho: 10.10.2007 17:58 | |
|
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 | Napísal autor témy nikita: 10.10.2007 18:03 | |
|
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 | Napísal juho: 10.10.2007 21:29 | |
|
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 | Napísal autor témy nikita: 14.10.2007 13:39 | |
|
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 | Napísal juho: 14.10.2007 16:45 | |
|
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 |
---|
| plz ludia pomôžte mi s pár lahkými príkladmi na pascal v Assembler, C, C++, Pascal, Java | 0 | 729 | 02.05.2007 14:56 nikita | | Preco mi nejde spustit pascal vo Windows 7 ? v Assembler, C, C++, Pascal, Java | 2 | 1953 | 21.06.2010 20:42 Martin Macy | | PLZ Pomozte v Operačné systémy Microsoft | 3 | 604 | 18.04.2006 11:33 p2p | | PRECO NEJDE? v nVidia grafické karty | 12 | 924 | 22.04.2008 20:41 prandof | | Prečo to nejde? v Pevné disky a radiče | 8 | 530 | 11.04.2010 23:06 Durinko | | prečo mi nejde mikrofon???? v Audio programy | 8 | 1487 | 22.02.2009 16:52 HallOfFame | | preco mi to nejde? v PHP, ASP | 27 | 1122 | 07.09.2007 19:16 Flety | | Preco nejde while? help v PHP, ASP | 4 | 520 | 29.07.2007 16:19 TECHNODROME | | nejde otvorit pascal v Assembler, C, C++, Pascal, Java | 10 | 532 | 08.06.2012 22:40 Fico | | WL-5460AP prečo nejde Internet??? v Siete | 14 | 2284 | 21.03.2010 17:43 AReYco | | preco mi nejde zosilnit mikrofon? v Zvuk | 0 | 654 | 05.05.2008 19:33 sOsek | | 3 Ventilátory, jeden nejde, prečo? v Chladiče a všetky druhy chladenia | 2 | 563 | 07.10.2015 12:16 martinius96 | | Preco mi nejde sietovy kabel? v Siete | 4 | 2444 | 14.01.2007 14:59 mimkork | | Preco mi nejde spustit hra v Počítačové hry | 20 | 1269 | 17.07.2014 15:15 Rastulinqo1 | | preco to nejde v mozille? v JavaScript, VBScript, Ajax | 7 | 508 | 08.09.2012 16:28 Ďuri | | nejde mi zvuk.......pomozte [ Choď na stránku: 1, 2 ] v Audio programy | 43 | 1524 | 20.11.2009 20:51 prandof |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|