Pascal

Základní | Problémy | Unity | Moje programy | Odkazy

Základní

Borland pascal 7.0 - Originalní Borland instalace Pascala 7.0 s objektama a s BPW. Jestliže máte mašinu rychlejší než 233 mhz, tak si po instalaci do binu nakopírujte těch pár souborů, co je ve složce FIXERROR (je to oprava jednotky CRT).

Tiny BP_7 - Už se vám někdy stalo, že potřebujete na nějaký počítač dostat Pascala, máte pomalý internet a zrovna u sebe nemáte CD? Tak presně pro tyhle účely jsem vytvořil osekanou verzi BP_7. Je tam jen zakladní překladač, egavga.bgi a český help. Velikost 1 MB! (není problém dát na jednu disketu)

Lekce pascala - Pokud se chcete naučit rychle programovat, tak si tohle určitě stahněte.

Tahák Pascala - Tahák/rychlokurz k Pascalu, přehled těch nejzákladnějších příkazů a deklarací tohoto jazyka.

Možné problémy a jejich řešení

Problém: Mám M$ Windows XP a při spuštění BP7 mi píší chybovou hlášku :
16-bitovy subsystém MS-DOS
Cestak programu, který se snažíte spustit nebo nainstalovat C:\Windows\System32\Autoexec.nt The system file is not suitable for running MS-DOS and Microsoft Windows applications. Choose 'Close' to terminate the application.
Řešení: Vložte CD s M$ Windows XP do mechaniky a spus?te (nabídka start --> spustit) následující příkaz :
expand X:\i386\autoexec.nt_ c:\windows\system32\autoexec.nt
X nahraďte písmenem vaší CD-rom jednotky.

Problém: Snažím se spustit program, co používá BGI grafiku (jednotku GRAPH), ale píše to chybu :
BGI Error: Graphics not initialized (use InitGraph)
Řešení : Pascal zřejmě nemůže najít soubor BGI (nejčastěji egavga.bgi). Ujistěte se, že ho máte v aktuálním adresáři a ze není určený "jen pro čtení". Případně použijte File --> Change dir a nastavte BGI adresář (standardně bp7\bgi).

Problém : Při používání jednotky CRT nebo při spouštění zkompilovaných souborů z internetu mi Pascal hází hlášku :
Runtime Error 200: Division by zero
Řešení : Tato chyba je způsobena rychlostí počítače. Pokud máte procesor rychlejší, než 233 mhz, musíte si v BIN adresáři přepsat pár souborů, aby jste mohli překládat. Pro spuštění již přeložených souborů potřebujete utilitu TPPatch, které dáte jako parametr jméno exe souboru a ona ho opraví. Všechny tyto opravy jsou obsaženy v mém BP7 (ke stažení nahoře).

Unity & resources

Pokud by jste si nevěděli rady s deklarací, unity jsou použity v mých hrách.

SVGA 4 - Nejlepší unity na grafiku do Pascala, co znám. Jsou rychlé, podpora rozlišení od 320x200 do 1152x864 na 256 barev, podpora průhlednosti, loading/saving PCX, funkce na změnu hranic vykreslovacího okna (clip), fonty, palety, polygony, VSync, fade, samozřejmě práce s images, elipsy a podobně. Zdrojové kódy jsou v adresáři source\borland (VGA256.pas a SVGA.pas). Tyto jednotky potřebujete k preložení téměř každého mého programu. Bohužel mohou nastat komplikace u některých novějších grafických karet (někdy se stává, že změní frekvenci monitoru mimo rozsah)

Keypres2 - Tohle je úžasná unita pro práci s klávesnicí. Také vás už štvalo, když jste psali nějakou hru a funkce readkey nezvládala více stisknutých kláves najednou ??? Tady je klávesnice pole a vy si jednoduše zjiš?ujete, které klávesy jsou momentálně stisknuty.

Plus system pro 2.3 - Nadstavba na Borland Pascal 7.0 umožňující rychlou grafiku, přehrávání zvuků (XMI a SND souborů) na pozdí, myš s animovanými kurzory, přehrávání FLI animací a spostu dalšího. Vsechno to zkopírujte do adresáře s Pascalem (Bp7).

• XMI pack - Sbírka 303 XMI hudebních souborů pro zkrášlení vašich her. Postahoval Mircosoft, dík

SBwav - Unita umožňující přehrávat nekomprimované wav soubory NA POZADÍ. Když se wav soubor upraví třeba v GoldWave, má jedna minuta něco málo přes 1 mb, kvalita ujde a velikostí si je podobný s MP3. Funguje i pod win XP a součástí ZIPu je ukázkový program.

Mouse & BMP - Unita na myš a na loading BMP souborů. BMP unita je však pomalá a je pro BGI (standardní GRAPH unitu), takže doporučuji používat spíše PCX z SVGA4. Pod SVGA4 se nezobrazí kurzor myši (256 barev) a proto ho je nutné kreslit a mazat v nějakém cyklu. Také se musí nastavit limity myši podle rozlišení, no SVGA je zkraka trochu složitější, ale použití je obsaženo v roomeditu ve hře NIGHTwalker. Obsahuje BGI ukázku.

TPMOD - Toto není unita, ale ukázkový program, co využívá objektový soubor. Unitu z něj ale uděláte za 30 sekund... Běží pouze pod čistým DOSem a dokáže přehrávat na pozadí MOD soubory (to je něco jako midi, ale má to vlastní banku, takže to umožňuje i slova atd.) a to na PC speakeru, na COVOXU či SoundBlaster nebo Adlib kompatibilní zvukové kartě. ZIP obsahuje 6 ukázkových MODů.

Tabulka period tónů k vestavěné proceduře sound. Třeba se to bude někomu hodit...

Moje programy a hry

pozn. : programy označené ikonou "" jsou včetně zdrojového kódu.

 

	Nightwalker v 0.5 Má ročníkovka z výpočetní techniky. Jedné velmi temné, deštivé noci na jednom velmi špatném místě... Náhrobní kámen se odsouvá a... Takhle začíná krátká, ale poměrně těžká, retro hra. Dovedete zbloudilou duši zpět do našeho světa ?
	596x
	Dungeon v 0.5 Nová beta dungeonu
	209x
	Mines v 1.0 Hledání min je jedna z mála mých přehledných a dobře okomentovaných věcí. Vytvořil jsem ji podle klasického Windowsovského Hledače min. Aby jste neřekli, ze používám jen asík, použil jsem zde BGI grafiku.
	533x
	Bacteries v 1.0 Život bakterií je pole o 80x49 políčkách a v každém z nich může být živá nebo mrtvá bakterie. Pokud jsou kolem mrtvé 3 živé, znovu ožívá. Pokud jsou kolem žive 2 nebo 3 žive, zůstane naživu, pokud ne, zemře na přemnožení nebo nedostatek sousedů. Nová generace se pak ukládá do druhého pole, aby se bakterie nemíchaly. Tento jednoduchý algoritmus (cca 50 řádků) vytváří zajímavé obrazce.
	398x
	onvoH šachy v 0.1 Tenhle program jsme napacháli s Nashornem někdy na konci 1.ročníku v kritickém nedostatku času, o čemž vypovídá také zdrojový kód. Proč ale to jméno ? Hmmm, jednomu nejmenovanému profesorovi se původní nelíbilo, tak jsme ho museli trochu pozměnit. Snad se někdy dostaneme k tomu, aby jsme to dodělali...
	223x
	Želvička Karetka (R) A na závěr něco pro pobavení : Nedávno jsem ve starých zálohách vyhrabal svou první hru - Želvičku Karetku. Jedná se o velmi krátkou a jednoduchou "adventuru" kreslenou v malování, odehrávající se na pražském petrovickém sídlišti. Hra je včetně zdrojového kódu, ale jelikož je to už X let zpátky, opravdu, ale opravdu v něm nehledejte žádná moudra. Když se dívám, jak jsem psal předtím, musím se smát ;].
	427x
	BioVirus 2.2  BioVirus jsem kdysi napsal v Pascalu a posloužil v počítačové učebně mé základní školy, kde zablokoval několik počítačů. Běží pod DOSem a byl určen pro systém Windows 98 (který je založen na DOSu), kde se jednoduše vložil do autoexecu. Vtip byl v tom, že virus zasekl autoexec nekonečnou smyčkou a nedovolil systému pokračovat v bootování. Šlo ho vypnout pouze pomocí hesla.
	22x

Covox - Udělejte si za půl hodiny svou "zvukovou kartu"

D/A převodník Covox je vlastně hodně jednoduchá "zvuková karta" na port LPT. Toto zapojení se skládá jen z několika odporů, které by měly být hodně přesné, a jde při troše práce celé schovat do konektoru LPT. Čím přesnější odpory, tím čistší zvuk, takže si kupte raději s 1% tolerancí. Covox je podporován mnoha programy a podporuje ho i MidPak z PlusSystemsPro pro Borland Pascal. Odpory R1 - R9 jsou 20 nebo 22 k ohmu a R10 - R18 10 nebo 11 k ohmu. C1 je 100 nF. Na výstup připojte samici stereo jacku (nezapomeňte propojit kanály) a do ní už dejte normální aktivní repro.



Zde je schéma zapojení a fotka mého Covoxu (jak vidíte, provedení jsem opravdu neřešil) :


Programy v Pascalu podporující Covox :
Midpak z PlusSystemsPro
TPMOD - jede jen pod čistým dosem

Odkazy

Zde je pár odkazu na stránky o Pascalu...

Mircosoft page - Velmi rozsáhlá stránka věnovaná programování v Pascalu. Velké množství unit, příkladů, programů a her.

Michael Stavěla - Sbíka několika pěkných programů a her se zdrojovými kódy

Zpět na hlavní stránku

01.06.2010 17:44:34
Lukas	Hovno šachy, to je dobrý ja se pos*u Odpovědět

31.03.2010 19:04:21
Martin Koleček	Jaký je ten odpor tam u pinu 20, není tam hodnota a já to fakt nevím jaký tam patří ?? myslím ten COVOX Odpovědět

31.03.2010 20:35:45
sdraco	R20 je chyba, má tam být jen vodič Odpovědět

07.07.2010 16:56:34
LOL	mno chyba to neni ale odpor je takovy kolik da vodic Odpovědět

23.03.2010 10:48:54
	No, tak to delphi sa mi viac pozdáva, lebo PASCAL sa mi zdá starý(ale ajtak s ním chcem začať ) Odpovědět

22.03.2010 13:18:19
	Aha a delphi je ťažšie? Odpovědět

22.03.2010 13:36:45
sdraco	Jak se to vezme, jsou to téměř totožné jazyky, jen programování pro Windows je trochu složitější na pochopení (program už nejede odshora dolů). Odpovědět

22.03.2010 08:55:51
jan	aha, takže to windows okno nie? Odpovědět

22.03.2010 12:52:39
sdraco	Pascal není pro Windows, takže Windows okno ne Jazyk Pascal dále pokračuje jako Delphi, kde to možné je. Odpovědět

21.03.2010 12:35:49
jan	Ahojte, neviem ci mi budes chciet odpovedat ale mam 3 otazky 1.V akom programe programujes(v jazyku PASCAL)? no, lebo vzdy sa tu pise len o tom jazyku.. je to ten Borlan pascal? 2. da sa v pascale naprogramovať program ako napr Student dog?A tak aby mal to windowsacke okienko.. 3.ako dlho ste sa ucil Pascal? A ako dlho trvala vyroba napr Nightwalkera? Odpovědět

Přidat novou zprávu:

Jméno:
E-mail:	Odpověď zaslat na můj email
Web:
Pro kontrolu prosím opište text z obrázku:

Odkazy v textu se automaticky zaktivní a všechny html tagy se pouze zobrazí.
Pokud zpráva obsahuje text "a href" nebo více než 2 odkazy, bude označena jako spam.