turbo pascal 7 ja Graph Unit
Kari Laine
yritän asennella pojalleni konetta missä toimisi turbo pascal 7 kaikilta
osin. Olen nyt päätynyt siihen, että koneen pitää olla DOS-pohjainen
mikäli haluaa käyttää kaikkia turbo pascalin piirteitä. (tyhmää että
koulussa käytetään näin antiikkista välinettä opettamiseen (yläaste))
Mutta en kuitenkaan saa mitään graph unittia käyttävää ohjelmaa
toimimaan. DOS on versio 6.22, prossu Intel III 600MHz, muistia on
riittävästi ja näyttökortti on ATI Rage 128. En turboa tunne. Koetin
vain esimerkkejä manuaalista. Pitäisikö Turbo Pascalin grafiikka puolen
toimia mainitun vuosikerran näyttökortilla? Miten alkaisin haarukoida
ongelmaa? Voisiko vika olla siinä, että esimerkki käyttää automaattista
grafiikkatilan tunnistamista? Pitäisikö pakottaa joku käsin?
Kiitoksia ennakkoon kaikesta avusta.
Kari
Matti Juhani Kurkela
> yritän asennella pojalleni konetta missä toimisi turbo pascal 7
> kaikilta osin. Olen nyt päätynyt siihen, että koneen pitää olla
> DOS-pohjainen mikäli haluaa käyttää kaikkia turbo pascalin piirteitä.
> (tyhmää että koulussa käytetään näin antiikkista välinettä
> opettamiseen (yläaste))
Pascal on hyvä ja selkeä ohjelmointikieli ohjelmoinnin perusteitten
opiskeluun. Turbo Pascalia ilmeisesti myytiin kouluille oikein
urakalla joskus aikanaan, joten sille löytyy valmista oppimateriaalia
helposti. Itsekin otin tuohon tuntumaa koulussa kauan sitten 90-luvun
alkupuolella.
> Mutta en kuitenkaan saa mitään graph unittia käyttävää ohjelmaa
> toimimaan. DOS on versio 6.22, prossu Intel III 600MHz, muistia on
> riittävästi ja näyttökortti on ATI Rage 128. En turboa tunne. Koetin
> vain esimerkkejä manuaalista. Pitäisikö Turbo Pascalin grafiikka
> puolen toimia mainitun vuosikerran näyttökortilla? Miten alkaisin
> haarukoida ongelmaa? Voisiko vika olla siinä, että esimerkki käyttää
> automaattista grafiikkatilan tunnistamista? Pitäisikö pakottaa joku
> käsin?
DOS-pakosta en olisi aivan varma, mutta tuo on niin vanha
ohjelmointiympäristö, että se saa sydänhalvauksen nähdessään kuinka
käsittämättömän nopea kone sinulla on. Jo 233 MHz:n Pentium II riittää
aiheuttamaan tämän ongelman. Jos virhe on "Runtime Error 200", kyse on
aika varmasti juuri tästä.
(Arvailen, koska et kertonut *miten* ongelma ilmenee!)
Taustaa (englanniksi, ranskaksi tai saksaksi):
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
Hae tuolta seuraava tiedosto:
http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/t7tplfix.zip
Pura zippipaketti siihen hakemistoon, jossa on Turbo Pascaliin kuuluva
TURBO.TPL-tiedosto. Paketista purkautuu mm. T7TPLFIX.EXE. Aja se
tuossa hakemistossa, niin se korjaa Turbo Pascalin ajastinrutiinin.
Alkuperäisen rutiinin koodaaja ei ollut osannut varautua koneiden
suorituskyvyn kasvuvauhtiin, ja rutiini heittää hanskat tiskiin jos
koneen nopeus ylittää tietyn rajan.
Juha Piispa
>Taustaa (englanniksi, ranskaksi tai saksaksi):
>http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/
>
>Hae tuolta seuraava tiedosto:
>http://www.brain.uni-freiburg.de/~klaus/pascal/runerr200/t7tplfix.zip
>
>Pura zippipaketti siihen hakemistoon, jossa on Turbo Pascaliin kuuluva
>TURBO.TPL-tiedosto. Paketista purkautuu mm. T7TPLFIX.EXE. Aja se
>tuossa hakemistossa, niin se korjaa Turbo Pascalin ajastinrutiinin.
>
>Alkuperäisen rutiinin koodaaja ei ollut osannut varautua koneiden
>suorituskyvyn kasvuvauhtiin, ja rutiini heittää hanskat tiskiin jos
>koneen nopeus ylittää tietyn rajan.
Tämä korjaa tuon ongelma ja muista ongelmista en ole TP:n kanssa
kuullut. Tiedän, että Turbo Pascalia on ajettu ihan XP koneissa, mutta
suosittelen, että teet pikakuvakkeen ja määrittelet siellä
yhteensopivuuden Win95:seksi.
Se että kouluissa käytetään vanhaa on varmasti kustannus syy. Tosin
nykyään koulu saisi uuden Vista yhteensopivan Delphin, jossa on
edelleen tuo Pascal kieli mukana, melko edullisesti.
Vuosilisenssi maksaa alkaen 6€kpl ja minimi on 100 lisenssiä, joten
kustannus ei olisi suuri ja samalla oppilaat saisivat tuntumaa
nykyaikaiseen ohjelmointiin XP/Vista koneissa. Lisäksi tuohon sisältyy
kotikäyttöoikeus eli opiskelijat voivat ostaa tai saada asennusCD:n
koulusta opintoja varteen kotiin.
Regards, Qapla'
Juha Piispa
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Juha Piispa
Moonsoft OY
Kalle Olavi Niemitalo
> Mutta en kuitenkaan saa mitään graph unittia käyttävää ohjelmaa
> toimimaan.
Jospa ne eivät löydä *.BGI-tiedostoja. Minkäs arvon GraphResult
palauttaa InitGraph-kutsun jälkeen?
Vesa Lappalainen
> Se että kouluissa käytetään vanhaa on varmasti kustannus syy. Tosin
> nykyään koulu saisi uuden Vista yhteensopivan Delphin, jossa on
> edelleen tuo Pascal kieli mukana, melko edullisesti.
Entä ilmainen Turbo Delphi joka ajanee saman asian niin kauan
kuin ei tarvita itse kirjoitettuja komponentteja?
Vesa
Antti Kervinen
> yritän asennella pojalleni konetta missä toimisi turbo pascal 7
> kaikilta osin. Olen nyt päätynyt siihen, että koneen pitää olla
> DOS-pohjainen mikäli haluaa käyttää kaikkia turbo pascalin
> piirteitä. (tyhmää että koulussa käytetään näin antiikkista
> välinettä opettamiseen (yläaste))
Kyllä kone voi olla Windows-, Linux- tai OS/X-pohjainenkin. Riittää,
että se näyttää Turbo Pascalille DOS-koneelta. Dosboxin asentaminen on
luultavasti helpoin tapa saada tämä efekti aikaan. Dosboxin voi hakea
täältä:
http://dosbox.sourceforge.net/download.php?main=1
> Mutta en kuitenkaan saa mitään graph unittia käyttävää ohjelmaa
> toimimaan.
Ainakin minulla Turbo Pascal 7.0 tuntuu toimivan (graph unit mukaan
lukien) Dosboxissa ilman ongelmia.
Hain Turbo Pascalin täältä:
http://www.simonhuggins.com/courses/progbegin/pascal/download/tp70.exe
-- Antti
Mika Iisakkila
> Se että kouluissa käytetään vanhaa on varmasti kustannus syy. Tosin
> nykyään koulu saisi uuden Vista yhteensopivan Delphin, jossa on
> edelleen tuo Pascal kieli mukana, melko edullisesti.
> Vuosilisenssi maksaa alkaen 6€kpl ja minimi on 100 lisenssiä, joten
> kustannus ei olisi suuri ja samalla oppilaat saisivat tuntumaa
> nykyaikaiseen ohjelmointiin XP/Vista koneissa.
Kyllä se valitettavasti olisi monessa koulussa suuri kustannus. Saati
jotkut XP/Vista -koneet.
--
http://www.hut.fi/u/iisakkil/ --Foo.
Jari-Matti Mäkelä
> Se että kouluissa käytetään vanhaa on varmasti kustannus syy. Tosin
> nykyään koulu saisi uuden Vista yhteensopivan Delphin, jossa on
> edelleen tuo Pascal kieli mukana, melko edullisesti.
Ilmaiseksi saisi Freepascalin (http://www.freepascal.org/) ja siihen
GUI-kehittelyyn Lazaruksen (http://www.lazarus.freepascal.org/).
Kari Laine
Kiitos Matti vastauksesta.
> Pascal on hyvä ja selkeä ohjelmointikieli ohjelmoinnin perusteitten
> opiskeluun. Turbo Pascalia ilmeisesti myytiin kouluille oikein
> urakalla joskus aikanaan, joten sille löytyy valmista oppimateriaalia
> helposti. Itsekin otin tuohon tuntumaa koulussa kauan sitten 90-luvun
> alkupuolella.
En lähde kiistelemään. Nämä ovat vain omia näkemyksiäni.
- kirjakaupoista ei löydy kirjoja (yritin Dataclub.fi).
- Kirjastosta ei löytynyt kunnon kirjaa (Nummela).
- En saa ohjelmointiympäristöä(Graph) toimimaan millään seuraavista
DOS, WIN98, XP
- Pascalin sijasta voisi opetella jotain vallitsevaa kieltä kuten C,
C++ tai Java.
> DOS-pakosta en olisi aivan varma, mutta tuo on niin vanha
> ohjelmointiympäristö, että se saa sydänhalvauksen nähdessään kuinka
> käsittämättömän nopea kone sinulla on. Jo 233 MHz:n Pentium II riittää
> aiheuttamaan tämän ongelman. Jos virhe on "Runtime Error 200", kyse on
> aika varmasti juuri tästä.
Tämän itseasiassa itse osasin korjata jo aiemmin. Tämä oli ensimmäinen
ongelma johon törmäsin jo XP:n puolella.
>
> (Arvailen, koska et kertonut *miten* ongelma ilmenee!)
Ongelma ilmenee niin, ettei mitään tule näytölle :-). Eli graafinen tila
ei käynnisty. Epäilen että näyttökortti on jollain tavalla liian uusi
vaikkka se onkin ATI Rage 128. Ehdotuksia miten edetä? Minulla on joku
vanha compaq - taidan yrittää sillä.
Terveisin
Kari
Mikko Parviainen
> - Pascalin sijasta voisi opetella jotain vallitsevaa kieltä kuten C,
> C++ tai Java.
No, minulle opetettiin peruskoulussa Logoa. Siitä oli jonkin verran
hyötyä, mutta en sen paremmin nykyisiä töitä tekisi vaikka olisin
tätä C:tä silloin opetellut. Lähinnä siis oli hyvästä osata jotain
kieltä ja ymmärtää, kuin opetella jotain juuri silloin vallitsevaa
kieltä. Ei silloin 20 vuotta sitten jostain Javasta tiedetty mitään.
C++:aakin opettelin 1995, ja siitä sekin kieli on kehittynyt jo.
Ennemmin sitten vaikka Pythonia tai Schemeä, vähemmän itse ohjelmoinnin
ympärillä olevaa pakollista säätöä. Kyllä sitä uuden kielen oppii, jos
osaa perusteet.
>> (Arvailen, koska et kertonut *miten* ongelma ilmenee!)
> Ongelma ilmenee niin, ettei mitään tule näytölle :-). Eli graafinen tila
> ei käynnisty. Epäilen että näyttökortti on jollain tavalla liian uusi
> vaikkka se onkin ATI Rage 128. Ehdotuksia miten edetä? Minulla on joku
> vanha compaq - taidan yrittää sillä.
Minä kokeilisin sitä dosboxia vielä.
--
Mikko Parviainen
http://www.iki.fi/pare/
Kari Laine
YES!
Se palauttaa -3
"Graphics Driver: Device driver file not found EGAVGA.BGI"
En nopeasti keksinyt miten kääntäjälle kerrotaan kyseisen hakemiston
.\BGI paikka. Voisitko kertoa ...
Terveisin
Kari
Matti Lehtiniemi
>
InitGraph(GraphDriver, GraphMode, ' ');
Laita tohon noiden ' ' väliin EGAVGA.BGI:n hakemistopolku.Löytyy BGI hakemistosta.
Ei kannata haukkua TP:tä. Ihan hyvä kieli.
QBasic on kuitenkin parempi kieli koululaisille ja myös meille ammattilaisille kaikkeen kivaan pikku
ohjelmointiin.
Matti
Kari Laine
>> En nopeasti keksinyt miten kääntäjälle kerrotaan kyseisen hakemiston .\BGI paikka. Voisitko kertoa ...
>>
>
> InitGraph(GraphDriver, GraphMode, ' ');
>
> Laita tohon noiden ' ' väliin EGAVGA.BGI:n hakemistopolku.Löytyy BGI hakemistosta.
>
> Ei kannata haukkua TP:tä. Ihan hyvä kieli.
käyttäisivät esim Delphiä. Mutta nyt vika oli kyllä minussa. Tuolla
ohjeellasi graph toimii nyt jopa XP:ssä - Kiitos!
>
> QBasic on kuitenkin parempi kieli koululaisille ja myös meille ammattilaisille kaikkeen kivaan pikku
Terveisin
Kari
Kari Laine
>> En nopeasti keksinyt miten kääntäjälle kerrotaan kyseisen hakemiston .\BGI paikka. Voisitko kertoa ...
>>
>
> InitGraph(GraphDriver, GraphMode, ' ');
>
> Laita tohon noiden ' ' väliin EGAVGA.BGI:n hakemistopolku.Löytyy BGI hakemistosta.
et sattuisi tietämään miten tuo BGI "linkataan" mukaan exe:en jotta ei
tarvitsisi kopioida hakemistoriippuvaisia tiedostoja ohjelman mukana.
Kokeilin niin minulla pitää olla kohdekoneessa c:\tp\bgi hakemisto ja
siellä nuo BGI:t, jotta ohjelma toimisi. Tämä on vähän epäkäytännöllistä.
Kyseleepi
Kari
Matti Lehtiniemi
> ohjelman mukana. Kokeilin niin minulla pitää olla kohdekoneessa c:\tp\bgi hakemisto ja siellä nuo BGI:t, jotta ohjelma toimisi.
> Tämä on vähän epäkäytännöllistä.
Muistaakseni ei pysty linkkaamaan.
Yksi keino on laittaa EGAVGA.BGI samaan hakemistoon kuin itse ajettava ohjelma,
jolloin ohjelmaa pystyy levittämään.
Ja hakemistopoluksi sitten ' ' (vai oliko se '.') tuohon initgraph -funktioon.
Noi on niin vanhoja juttuja että tossa joudut googlaamaan aika tavalla jos haluat ottaa selvää
kaikista kiemuroista.
Suosittelisiin opetteluun QBasicia ja siitä suoraan sitten Visual Basic .NET -ohjelmointikieleen.
Kaikki löytyy ilmaiseksi netistä laillisesti. (Eiköhän tuo QBasicin lataaminen ole laillista)
Matti
Kari Laine
>> et sattuisi tietämään miten tuo BGI "linkataan" mukaan exe:en jotta ei tarvitsisi kopioida hakemistoriippuvaisia tiedostoja
>> ohjelman mukana. Kokeilin niin minulla pitää olla kohdekoneessa c:\tp\bgi hakemisto ja siellä nuo BGI:t, jotta ohjelma toimisi.
>> Tämä on vähän epäkäytännöllistä.
>
> Muistaakseni ei pysty linkkaamaan.
>
> Yksi keino on laittaa EGAVGA.BGI samaan hakemistoon kuin itse ajettava ohjelma,
> jolloin ohjelmaa pystyy levittämään.
> Ja hakemistopoluksi sitten ' ' (vai oliko se '.') tuohon initgraph -funktioon.
>
> Noi on niin vanhoja juttuja että tossa joudut googlaamaan aika tavalla jos haluat ottaa selvää
> kaikista kiemuroista.
>
> Suosittelisiin opetteluun QBasicia ja siitä suoraan sitten Visual Basic .NET -ohjelmointikieleen.
> Kaikki löytyy ilmaiseksi netistä laillisesti. (Eiköhän tuo QBasicin lataaminen ole laillista)
Jep itsekkin olisin kallistumassa johonkin muuhun kuten esim PowerBasic.
Olen sillä tehnyt jotain pieniä ohjelmia. Mutta pojan koulu käyttää
Turbo Pascal 6 tai 7 ja poika tarvitsee sen vuoksi sen.
Kiitos sinulle ja muille avusta
Kari
Kalle Olavi Niemitalo
> et sattuisi tietämään miten tuo BGI "linkataan" mukaan exe:en
> jotta ei tarvitsisi kopioida hakemistoriippuvaisia tiedostoja
> ohjelman mukana.
Tähän piti käyttää BGIOBJ-ohjelmaa, {$L}-direktiiviä ja
RegisterBGIDriver-funktiota.
Vesa Lappalainen
> Olen sillä tehnyt jotain pieniä ohjelmia. Mutta pojan koulu käyttää
> Turbo Pascal 6 tai 7 ja poika tarvitsee sen vuoksi sen.
Katso Delphistä oppaaksi tuota jos opasta tarvitset:
http://www.mit.jyu.fi/vesal/kurssit/winohj/delphi/moniste/m/m.html
Vesa