PCPROG.2

06 Nov 1992 - 26 Jul 1993

Topics

  1. algoritmi (223)
  2. ms.dos (250)
  3. asembler (141)
  4. jezici (278)
  5. pascal (1307)
  6. cccc (752)
  7. cpp (91)
  8. clipper (1027)
  9. baze.podataka (229)
  10. razno (379)
  11. van.teme (189)
  12. basic (56)

Messages - pascal

pascal.846 pedjak, -> #839, draganm
> Ortak me je zamolio da vam ostavim njegovih ruku delo u ovoj > konferenciji ...... Radi se o rutinama za user interface u > textualnom modu .... Što su tako nevidljive ;) ?
pascal.847 beast,
Da li je trač ili istina da BP 7.0 pravi stringove proizvoljne dužine (length>256) i kako?
pascal.848 eagle,
Yo! Kako da uklonim rezidentni program?
pascal.849 darone, -> #846, pedjak
>> > konferenciji ...... Radi se o rutinama za user >> > interface u textualnom modu .... >> Što su tako nevidljive ;) ? _Neviđeno_ su brze ;)) darone
pascal.851 skerl,
Evo jes jedne zezalice na temu pacova. Mali unit sa sav moguci pad sa doticnim. Pozdrav, Skerl. tp-rat.zip
pascal.852 skerl,
┌────────────┐ │ BP7SB 1.00 │ └────────────┘ BP7SB 1.00 is a Source Beautifier for Turbo / Borland Pascal sources up to Version 7.0. Pozdrav, Skerl. bp7sb100.zip
pascal.853 janko, -> #845, mmile
> delay(d); > dtime:=60; Da li je ovo kritično? Ako TP koristi dos tajmer, koji kuca 18.2 puta u sekundi? Zbilja, zna li neko da li DELAY u Borland programima ima i rezoluciju od jedne milisekunde ili su samo jedinice milisekunde? I, inače, ume li neko da objasni kako ostvariti, ne koristeći DELAY, rezoluciju od manje od 18.2 puta u sekundi, a da se ne unište tajmeri koji su potrebni sistemu?
pascal.854 dejanr,
========== borland/turbo.pascal #6652, from hkenner, 766 chars, Sun Mar 21 16:07:53 1993 Comment(s). ---------- TITLE: Funny bug ... Here's a strange one. A TP program--not a very complicated one--that runs fine compiled by Turbo 5.5 but develops a funny bug when compiled by Borland 7.0. The bug kicks in when I select a very straightforward option for massaging input lines. On that option being selected--not operated, mind you, just selected--we get a long error message to the effect that QEMM has reported an Illegal Instruction. We're also told the contents of all CPU registers, and the text (in machine code) of the alleged Illegal Instruction. We can now either get out of the program or reboot. What further info would you like? Understand, it's no hardship to revert to the TP-5.5 compiler. I thought maybe Borland would like to examine this oddity. --HK ========== borland/turbo.pascal #6654, from abailey, 265 chars, Sun Mar 21 17:30:56 1993 Comment to 6652. Comment(s). ---------- If you compile with BP 7.0 with a real mode target do you get the same reaction? If it only happens with protected mode targets, it's probably a bad pointer, either NIL or not properly created. In protected mode you can't just make up absolute pointers. >>>ALB<<< ========== borland/turbo.pascal #6655, from hkenner, 170 chars, Sun Mar 21 18:21:47 1993 Comment to 6654. ---------- No pointers used by the program, as far as I remember. If you're talking about pointers the compiler might invoke ... I'll try real mode target and see. Thanks. --HK
pascal.855 dejanr,
========== borland/turbo.pascal #6664, from adamwheeler, 872 chars, Wed Mar 24 19:19:18 1993 Comment to 6093. Comment(s). ---------- I am having a similar problem with Borland Pascal with Object (7.0) and QEMM 6.0 2 with Stealth disabled on a 386SX. The problem is: if QEMM (and only QEMM is causing this) is installed, BP is not interpreting the keyboard scan codes properly. WHen the IDE first starts running, it acts as if I am pressing the shift key continuously. (This block marks text in the edit window). If I press CTRL or ALT, thereafter the IDE acts as if I am holding that particular key down! Eventually all you can do is type ALT-X to exit, and when I get to DOS the problem still exists! (then it is reboot time, since nothing else can be done). I have verified that it is a software conflict with QEMM and QEMM alone. TURBO.EXE, supplied with BP 7.0, does not exhibit this problem, and TDx runs fine with QEMM. If any one can help, it would be appreciated!!! Thank you, David Robb ========== borland/turbo.pascal #6665, from abailey, 855 chars, Wed Mar 24 20:17:50 1993 Comment to 6664. ---------- The problem isn't QEMM directly. What is happening is too many keyboard interrupts when running protected mode, in particular when the NumLock light is lit. It stems from the way enhanced keyboards generate keystrokes. When the NumLock is on a single keypress can generate up to 4 rapid interrupts on each press and release. In protected mode the overhead for servicing the interrupts causes some to be lost. It shows up as "stuck" Shift Alt and ctrl keys and random characters as you cursor through text. What to do about it, I don't know. I've tried a number of fixes and none have done the job. Turning off the NumLock will help the situation. The one true solution is a faster machine. I'm finding a 40 MHz 386 is about a minimum. I've heard it suggested that another keyboard might help but so far I haven't found one that helps enough. >>>ALB<<< ========== borland/turbo.pascal #6666, from adamwheeler, 1009 chars, Sat Mar 27 07:18:15 1993 Comment to 6665. Comment(s). ---------- REF: Keyboard problem with BP 7.0 and QEMM I finally called tech support, and was given a solution IMMEDIATELY! Unfortunately it involves running a TSR supplied with DOS, but it works... KEYB, the memory-resident international keyboard support program supplied with DOS 5 installs it's own keyboard interrupt that intercepts the original BIOS keyboard interrupts. This interrupt seems to work much better than the one I have installed in my BIOS, because it works now... the problem w as timing differences (pretty much what you explained). The reason a faster computer may seem to solve the problem is that the BIOS is probably newer and has better keyboard functions. My BIOS is dated sometime in 1988 - and is generally BAAAD (It has a problem with floppy drives when the motherboard's floppy controller is disabled, and probably some others I haven'td iscovered yet). THis solved the problem on my machine, hopefully it will help you. Thank you, David Robb ========== borland/turbo.pascal #6667, from abailey, 568 chars, Sat Mar 27 08:18:33 1993 Comment to 6666. ---------- Glad it worked for you. I tried KEYB and a half dozen other key interrupt replacement programs and couldn't get it to work. I run on Novell and I think the network shell is adding some extra overhead which pushes it to far. I wish I knew what Windows 3.1 does to the Keyboard interrupt. If I run BP 7.0 from Windows, the keyboard works perfectly even if I turn off the machines turbo switch and drop down to 8 MHZ. So far this is the only complete fix, for even very slow machines. Now if I knew what they did and could get Borland to add it to RTM.... :) >>>ALB<<<
pascal.856 ssokorac, -> #843, bearboy
─┼┤ SETVISUALPAGE i SETACTIVEPAGE. Ako............ Problem je što čak ni na najobičnijem 320x200x256 ove procedure ne rade kako treba. :( Tačnije, ActivePage je UVEK 4, a visual može da se menja kako hoću. Istina, meni ove procedure ne rade dobro ni u jednom modu :( možda nešto u njima ne valja... Ima li neko ideju kako ovo rešiti?
pascal.857 pele, -> #848, eagle
>=} Yo! Kako da uklonim rezidentni program? MARK & REPLACE. pele.
pascal.858 bulaja, -> #853, janko
│Da li je ovo kriticno? Ako TP koristi dos tajmer, koji kuca │18.2 puta u sekundi? Zbilja, zna li neko da li DELAY u Borland │programima ima i rezoluciju od jedne milisekunde ili su samo │jedinice milisekunde? └─── Izgleda da su sada zaista milisekunde (bar u Borland C++ biblioteci), evo sta kaze BC++ 2.0 manual za delay(): "It is no longer necessary to make calibration call to delay before using it. delay is accurate to milisecond."
pascal.859 ssokorac, -> #852, skerl
─┼┤ BP7SB 1.00 is a Source Beautifier for Turbo / Borland Pascal ─┼┤ sources up to Version 7.0. Ulepšavač programa? :) Ukratko, šta radi? :)
pascal.860 dusanp, -> #857, pele
=> MARK & REPLACE. Cut & Glue? Valjda si mislio na MARK & RELEASE ? :)
pascal.861 pedjak, -> #847, beast
> Da li je trač ili istina da BP 7.0 pravi stringove proizvoljne > dužine (length>256) i kako? Kol'ko sam čuo, istina je. Postoji novi tip PChar koji to omogućava ( kao u C-u )
pascal.862 mrmf, -> #845, mmile
> Ako hoces da ubrzas smanji vrednost dtime > > Mozes i sam da napravis proceduru koja "izracunava" koje tonove > akord sadrzi Fala ti, spaso si mi zivot :) Brada
pascal.863 vitez.koja, -> #853, janko
#=> Da li je ovo kritično? Ako TP koristi dos tajmer, koji #=> kuca 18.2 puta u sekundi? Zbilja, zna li neko da li #=> DELAY u Borland Ne koristi dos tajmer. Naime, ako se neki program koji se bavi zvukom startuje dok je racunar u nizoj brzini, pa se onda kad je program vec ucitan racuanr prebaci u turbo mod, desavaju se prilicno zanimljive stvari ;)) i delay postaje atrakcija, zanimljiiva a nekorisna. (8/25 Mhz 386)
pascal.864 skerl, -> #859, ssokorac
│ Ulepsavac programa? :) Ukratko, sta radi? :) └───── Sto da ti prepricavam kad je autor sve sam rekao :) Introduction ──────────── BP7SB is a useful tool with many options to format Pascal code in a consistent form. BP7SB uses default values to reformat the source code, but with the options you can develop some other shape. It makes your code OPTICALLY beautiful. BP7SB - if you want - makes keyword conversion (lower, mixed, upper case or according to your own pattern). BP7SB - if you want - structures loops. BP7SB - if you want - arranges record and object structures. BP7SB - if you want - sets the length of source code line. BP7SB - if you want - inserts space characters to make your source code better readable. But BP7SB does not check for syntax errors. The original source file will be saved as a *.BAK backup file. You don't use .BAK, .COM, .DLL, .EXE, .OBJ, .RES, .TPP, .TPU or .TPW files as input. If you don't use extension after the input file name, .PAS will be added. Standard wildcards may be used. BP7SB 1.00 recognizes following builtin keywords: 739 functions 197 procedures 62 reserved words 93 types 409 variables and constants Pozdrav, Skerl.
pascal.865 ognjen, -> #848, eagle
)-> Yo! Kako da uklonim rezidentni program? CTRL + ALT + DEL
pascal.866 vitez.koja, -> #859, ssokorac
#=> Ulepšavač programa? :) Ukratko, šta radi? :) verovatno za situaciju var b : boolean; pretvara if b=true u if b Mora se rec' da je ovo drugo lepse :)
pascal.867 eagle, -> #856, ssokorac
>> ─┼┤ SETVISUALPAGE i SETACTIVEPAGE. Ako............ > hoću. Istina, meni ove procedure ne rade dobro ni u jednom modu > :( možda nešto u njima ne valja... Jesi probao sa najobičnijim egavga.bgi drajverom, u vgamed modu?
pascal.868 jasicp,
Zna li neko puno ime i prezime dobre biblioteke za rad sa bazama podataka ( ne mora DBF kompatibilno ) a da je u TPascalu ? Pozeljno je da je Object tipa, kao isporuceni objekti. Izgleda da ce mi neko odgovoriti " I sta da ti otpeva jos ...". Pozdrav , Djape !
pascal.869 dejanr, -> #861, pedjak
>> > Da li je trač ili istina da BP 7.0 pravi stringove proizvoljne >> > dužine (length>256) i kako? >> >> Kol'ko sam čuo, istina je. Postoji novi tip PChar koji to omogućava >> ( kao u C-u ) Da, to je postojalo još u TP for Windows 1.0. Samo, za te stringove mora da se koristi potpuno odvojen set funkcija.
pascal.870 skerl,
Evo objasnjenja kako se podesavaju boje u Turbo Vision-u. Pozdrav, Skerl. tvcolor.zip
pascal.871 ppekovic, -> #868, jasicp
>> Zna li neko puno ime i prezime dobre biblioteke za rad sa bazama >> podataka ( ne mora DBF kompatibilno ) a da je u TPascalu ? >> Pozeljno je da je Object tipa, kao isporuceni objekti. Ima ns FFS-u u dir-u /msdos/prog/pascal fajl tbase101.zip. Paya P.S. FFS 237 23 92 i 237 23 93 login: guest
pascal.873 isekulovic,
Onaj SFE (Stroked font editor) koji se nalazi u jednom od sezamovih direktorijuma je poprilično bagovit. Uzeo sam bio litt.chr i malo menjao i sve je bilo ok dok nisam hteo da ga snimim pod drugim imenom. Sfe je snimio,nije da nije, ali taj font pod novim imenom jednostavno nije hteo da se prikaže ni u jednom programu. Instalacija fonta bi prošla ok, bez poruke o grešci ali bi jednostavno umesto tim fontom program pisao default fontom. Onda je taj font odnesen na jedan drugi comp gde je učitan u onaj font editor koji visi u jednoj od pascal tema (drugi comp je bio neophodan jer moj ima herca a ovaj drugi editor je vga only) i samo snimljen pod nekim trećim imenom i kao takav vraćen na moj comp gde je savršeno radio, sve dok nisam poželeo da unesem još neke izmene. Izmene koje sam vršio u fontu pomoću sfe-a nisu zeznjavale font samo ako nisam snimao font pritiskom na F2, već ako bih krenuo da izađem iz editora, pa mi on ponudio da snimi a ja odgovirio sa <enter>. Naravoučenije: Ako imate vga dalje ruke od sfe-a. Nadam se da nisam mnogo ugnjavio, a biću srećan ako sam nekome ovim pomogao. Ivan
pascal.874 peca.st,
Pokušao sam da neki .OBJ fajl koristim u pascalu. ja lepo definišem proc & func i onda lupim external, prethodno stavim $L IME i ne radi. :( Kaže "Invalid PUBLIC definition (IME.OBJ). E možda je probelm što je obj napravljen iz C-a, pa sam void funkcije definisao kao procedure nisam znao kako. u glavnom, šta ne valja? Peđa. P.S. Sori za konfuznost, on line. :)
pascal.875 pele, -> #860, dusanp
>=} => MARK & REPLACE. >=} >=} Cut & Glue? Valjda si mislio na MARK & RELEASE ? :) Jap,jap...Ko radi,taj i greši :)) pele.
pascal.876 ppekovic, -> #874, peca.st
>> je probelm što je obj napravljen iz C-a, pa sam void funkcije >> definisao kao procedure nisam znao kako. u glavnom, šta ne valja? Za početak, da li si u tom c modulu definisao funkcije za prenos parametara kako to pascal više voli, tj. nešto kao: void pascal bla(); Ako nisi, prvo to uradi pa onda da mislimo dalje. Paya
pascal.877 ssokorac, -> #867, eagle
─┼┤ Jesi probao sa najobičnijim egavga.bgi drajverom, u vgamed modu? Odseca dodnji deo ekrana :(.
pascal.878 .obj, -> #874, peca.st
> Kaže "Invalid PUBLIC definition (IME.OBJ). E možda > je problem što je obj napravljen iz C-a, pa sam void funkcije > definisao kao procedure nisam znao kako. u glavnom, šta ne valja? Ne bih da tvrdim da ne može, ali ćeš jako teško povezati C sa TP. Nije samo do deklaracije, već se uz tvoju proceduru u C-u mora vezati i C-ova biblioteka, a TP nema linker koji vezuje i LIB-ove (a i da ima, opet bi druge stvari zezale ;). Eventualno možeš da povežeš sa TP neke trivijalne procedurice koje ćeš mnogo lakše da napišeš u TP. Ako mene pitaš, batali posao i napiši proceduru u paskalu (ili asembleru).
pascal.879 pedjak, -> #868, jasicp
> Zna li neko puno ime i prezime dobre biblioteke za rad sa bazama > podataka ( ne mora DBF kompatibilno ) a da je u TPascalu ? Paradox Engine 3.0
pascal.881 mrmf,
Jel piso neko nesto sa podrskom sound blastera? Brada
pascal.882 peca.st, -> #877, ssokorac
!-> Odseca dodnji deo ekrana :(. Imaš 512K, pa nema dovoljno memorije za pune 2 strane. Isti slučaj i kod mene, ali je za većinu slučajeva dovoljan... Peđa.
pascal.883 peca.st, -> #876, ppekovic
!-> Za početak, da li si u tom c modulu !-> definisao funkcije za prenos parametara !-> kako to pascal više voli, tj. nešto kao: !-> void pascal bla(); Nisam razumeo baš. :( Na primer, definicija ide ovako: void trt_mrt (int a, int b, char c) ili int mrt_trt (void) (ima raznih kombinacija, void sa parametrima, void bez, ili na primer int sa parametrima, ili bez...) Peđa.
pascal.884 peca.st, -> #878, .obj
!-> trivijalne procedurice koje ćeš mnogo !-> lakše da napišeš u TP. Ako mene pitaš, !-> batali posao i napiši proceduru u paskalu !-> (ili asembleru). Nisu trivijalne. :( Neki interapti, čuda, koje sam pokušao da prevedem na pascal ali teško ide. Peđa.
pascal.885 peca.st,
Jedna #define komanda u C-u mi izgleda ovako: #define TRT 0x21; Kako to da prevedem na pascal? (problem je u 0x21...) Peđa.
pascal.886 dejanr, -> #885, peca.st
>> #define TRT 0x21; Najpribližnije bi bilo: const trt = $21;
pascal.887 smiloradovic, -> #885, peca.st
)># define TRT 0x21; )> )> Kako to da prevedem na pascal? )> (problem je u 0x21...) recimo kao const mrt=$21;
pascal.888 korvin, -> #885, peca.st
­­>># define TRT 0x21; Ovo je čista krađa :) Baš sam juče imao 100% istu tu liniju u mom programu trt.c :) Od sada da se zna TRT(c) is registred trademark :)
pascal.889 dgrbic, -> #876, ppekovic
:: Za početak, da li si u tom c modulu definisao :: funkcije za prenos parametara kako to pascal više voli, :: tj. nešto kao: :: :: void pascal bla(); Jer ako nije, onda se i funkcija u .obj fajlu ne zove bla nego _bla, na šta greška koju prijavljuje TP po svoj prilici ukazuje.
pascal.890 eagle, -> #877, ssokorac
> ─┼┤ Jesi probao sa najobičnijim egavga.bgi drajverom, u vgamed > modu? > Odseca dodnji deo ekrana :(. Kod mene radi kako treba. Možda ipak nisi stavio u vgamed(u vgahi odseca donji deo). Uzgred, kad imaš više strana, default je nulta. ) ( < E > ) (
pascal.891 skerl,
────────────────────────────── INSIDE TURBO PASCAL UNIT FILES Version 6.0 for MS-DOS Version 1.0 for WINDOWS ────────────────────────────── ABSTRACT If you want to know what is in a .TPU (unit) file produced by either Version 1.0 of Turbo Pascal for Windows or by Version 6.0 of Turbo Pascal from Borland International, then this paper is for you. It doesn't explain quite everything since the I don't have access to secret documents or anything like that and since some of the data in .TPU files just doesn't have enough auxiliary information to make its role clear. However, it is possible to learn a great deal about how Turbo Pascal organizes the information it needs to refer to, and it is also possible to learn just what kind of code the compiler produces. This is the fourth in a series of reports on the subject of Turbo Pascal Units, the previous reports treating with Turbo Pascal Versions 5.0 through 6.0. The evolution of these files in the face of changing requirements has been fascinating to behold and deciphering their contents has been challenging to say the least. The programs supplied with this report have been reorganized from their 6.0 style and many identifiers have been changed. There are also a few bug fixes and algorithm changes. Other changes were dictated by the changes in the utilization of the TPU file itself by the Windows Compiler. Since I have a "real" job which requires my full attention, and since it doesn't involve use of these products in any direct way, I am usually hard-pressed to find the personal time to conduct this research. Consequently, I always refuse to commit to follow-up or even error correction. It would be irresponsible of me to pretend it could be otherwise. Even so, this is a revised report which contains a few error fixes and discusses the newly enhanced program which incorporates these fixes and sports some enhanced capabilities. Strasna stvar! Pozdrav, Skerl. twu1.zip
pascal.892 ppekovic, -> #883, peca.st
>> void trt_mrt (int a, int b, char c) ili >> int mrt_trt (void) Umesto ovog kucaj: void pascal trt_mrt (int a, int b, char c) ili int pascal mrt_trt (void) i iz pascal programa ih pozivaj sa _trt_mrt i _mrt_trt, kao što Grba reče. Paya
pascal.893 eagle, -> #882, peca.st
>! -> Odseca dodnji deo ekrana :(. > Imaš 512K, pa nema dovoljno memorije za pune 2 strane. > Isti slučaj i kod mene, ali je za većinu slučajeva dovoljan... 512Kb bi bilo dovoljno za tri strane u 640*480*16 (lako izračunaš da jedna strana zauzima tačno 150Kb), ali egavga.bgi radi samo sa 256Kb. ) ( < E > ) (
pascal.894 eagle, -> #881, mrmf
> Jel piso neko nesto sa podrskom sound blastera? Ako ti treba dobra muzika, skini odavde jedan unit koji svira module(.mod) u pozadini. Podržava Disney sound card, koja je valjda kompaktibilna sa SB. ) ( < E > ) (
pascal.895 peca.st, -> #886, dejanr
!-> Najpribližnije bi bilo: !-> const trt = $21; Hvala. :) Peđa.
pascal.896 vvelisavljev, -> #881, mrmf
> Jel piso neko nesto sa podrskom sound blastera? Prošao je ovuda jedan zgodan unit koji svira *.mod, ali nisam siguran da li podržava SB. (verovatno da)
pascal.897 peca.st, -> #892, ppekovic
!-> Umesto ovog kucaj: !-> i iz pascal programa ih pozivaj sa !-> _trt_mrt i _mrt_trt, kao što Grba reče. Evo prepravio sam da tako bude i neće. :( Da li da funkcije koje su void u Cu definišem kao procedure (kako sam do sada radio) ili nekako drugačije? Da li treba da konstante koje sam definisao u Cu definišem i u pascalu? Puno hvala. Peđa. P.S. Radim sa Turbo C-om 2.0, ako je to bitno.
pascal.898 .obj, -> #889, dgrbic
> Jer ako nije, onda se i funkcija u .obj fajlu ne zove bla nego _bla, na šta > greška koju prijavljuje TP po svoj prilici ukazuje. Neće biti :) žim se funkcija deklariše kao 'pascal', dodeljuje joj se ime bez '_'. Peco.st, evo jednog ludog predloga. Lud je zato što ja zaista ne vidim način da uradiš to što želiš osim ovoga, koji je lud ;). Dakle, prevedi program u C-u sa prekidačem koji će modul prevesti u asembler, kod TC-a je to -S. Zatim promeni deklaracije segmenata: sve koje nisu _TEXT, _DATA, _xxx_DATA obriši, sve _TEXT promeni u CSEG. Ako u dotičnom C modulu imaš podatke koji su inicijalizovani (stringovi, na primer), mislim da ćeš imati toliko komplikacija da ti ni bog otac neće pomoći: Turbo Pascal ne podržava inicijalizaciju podataka u DATA segmentu, na žalost. Ako nema dotičnih inicijalizovanih podataka u _DATA segmentu, onda sve _DATA promeni u DATA. Sve to asembliraj ;) i onda probaj. Ja sam po prirodi optimista, ali mislim su ti šanse da povežeš C sa TP 1:100 :) Osim ako uspeš ovo malopre, onda je 1:50 :)
pascal.899 skerl,
Neko je trazio neki unit za rad sa bazama. Evo jednog ************************************************************************** Tbase Ver 1.1 Object for manipulating Dbase files. For Turbo Pascal 6.0 ************************************************************************** Pozdrav, Skerl. tbase601.zip
pascal.900 beast, -> #871, ppekovic
>>>> Pozeljno je da je Object tipa, kao isporuceni objekti. >> >> Ima ns FFS-u u dir-u /msdos/prog/pascal fajl tbase101.zip. Ili još bolje, uzmi Paradox Engine 2.0.
pascal.901 predragd, -> #861, pedjak
> Kol'ko sam čuo, istina je. Postoji novi tip PChar koji to > omogućava To baš i nije novost. Postoji i u verziji TP-a 6.0. Peđa.
pascal.902 peca.st, -> #898, .obj
!-> Ja sam po prirodi optimista, ali mislim !-> su ti šanse da povežeš C sa TP 1:100 :) !-> Osim ako uspeš ovo malopre, onda je 1:50 !-> :) Eh, hvala ti .obj na svemu napisanom, ali ja ne znam ni trunku assemblera. :( Ako je stvarno tako kako kažeš, onda me nisi baš razveselio. Peđa.
pascal.903 dgrbic, -> #897, peca.st
:: !-> Umesto ovog kucaj: :: :: !-> i iz pascal programa ih pozivaj sa :: !-> _trt_mrt i _mrt_trt, kao što Grba reče. :: :: Evo prepravio sam da tako bude i neće. :( Eh, ako su deklarisane kao pascal u c-u tj. void pascal trtmrt(); onda ne treba, čini mi se, dodavati _ ispred imena, to c sam dodaje na funkcije koje su deklarisane kao Cdecl (a sve su automatski tako deklarisane ako se ne naredi drugo, što može da se uradi i iz setupa kod turbo c-a). Pažnja: Neko ti već reče, ne smeš u c funkciji pozivati funkcije iz biblioteke! (ali možeš pozivati pascal funkcije i procedure, al to je već komplikovano). :: Da li treba da konstante koje sam definisao u Cu :: definišem i u pascalu? Ako su to #define, onda ne treba. C predprocesor ih samo zameni tamo gde ih nađe u tekstu i to je to.
pascal.904 dgrbic, -> #894, eagle
:: u pozadini. Podržava Disney sound card, koja je valjda :: kompaktibilna sa SB. Nije! Disney sound card je kompatibilna sa covox-om, što će reći, običan D/A konverter na LPT1 portu. SB ima nekoliko kanala itd.
pascal.905 dgrbic, -> #898, .obj
:: Neće biti :) žim se funkcija deklariše kao 'pascal', :: dodeljuje joj se ime bez '_'. Znam, al on nigde nije rekao da li ih je deklarisao kao pascal, a ako nije... to je ono o čemu sam pričao ;)
pascal.906 mrmf, -> #894, eagle
>> Jel piso neko nesto sa podrskom sound blastera? > > Ako ti treba dobra muzika, skini odavde jedan unit koji svira > module(.mod) u pozadini. Podrzava Disney sound card, koja je > valjda kompaktibilna sa SB. U svakom slucaju cu ga skinuti, ali bi meni vise odgovarao nacin kako da uvalim nesto odma na $220... Brada
pascal.907 peca.st, -> #903, dgrbic
!-> Pažnja: Neko ti već reče, ne smeš u c !-> funkciji pozivati funkcije iz biblioteke! !-> (ali možeš pozivati pascal funkcije i !-> procedure, al to je već komplikovano). Au, moguće da zbog toga ne radi. :( Naime, ima jedna funkcija u toj biblioteci, koju nekoliko njih iz iste pozivaju. Baš mi i nije jasno zašto ne može, al ajde. :( Peđa.
pascal.908 peca.st, -> #903, dgrbic
!-> Pažnja: Neko ti već reče, ne smeš u c !-> funkciji pozivati funkcije iz biblioteke! !-> (ali možeš pozivati pascal funkcije i !-> procedure, al to je već komplikovano). Ponovo repliciram na isti citat: Ovo je _definitivno_ razlog zašto ne radi. Naime, pošto me je iznerviralo što ne radi, počeo sam da iz celokupne C biblioteke vadim jednu po jednu funkciju i onda pravim .OBJ od njih, pa zatim pascal u kome isto tako dodajem po jednu funkciju... Rezultat: Sve dok nisam uključio funkciju koja poziva neku drugu, sasvim normalno je radilo. E, sad, razmišljam da napravim posebnu C biblioteku u kojoj će biti samo ta funkcija koju ostale pozivaju, pa onda da stavim #include i da probam tako, jer mi ionako ta funkcija sama ne treba, nego samo preko ovih koje je pozivaju. Ja se _duboko_ nadam da će raditi. (kad radi sa #include <dos.h> zašto ne bi radilo i sa ovim?) Uh, možda dopišem rezultat u međuvremenu. :) Peđa. Evo dopisujem: Na žalost iskrsao je novi problem, zbog koga ne mogu ispitati ono gore: u zaglavlju C biblioteke imam definisano ovo: void interrupt (*radoman) (); E, čim pokušam da u pascal prebacim funkciju koja koristi pointer radoman ;) on neće. Šta da ubacim ako išta radi?
pascal.909 dgrbic, -> #907, peca.st
:: Naime, ima jedna funkcija u toj biblioteci, koju nekoliko :: njih iz iste pozivaju. Baš mi i nije jasno zašto ne može, :: al ajde. :( Šta da ti kažem, probaj sa lib programom da "izvučeš" tu funkciju napolje, pa da i nju vežeš u pascal kao .obj fajl, možda proradi, nikad nisam probao tako nešto. I javi da li si uspeo :)
pascal.910 predragd, -> #856, ssokorac
> Problem je što čak ni na najobičnijem 320x200x256 ove > procedure ne rade kako treba. :( Tačnije, ActivePage je > UVEK 4, a visual može da se menja kako hoću. Istina, meni > ove procedure ne rade dobro ni u jednom modu :( možda Ako sam dobro razumeo pitanje, problem je u tome što ne rade procedure SetVisualPage i njoj srodne. Pa problem nije u njihovim "bubicama" već u samoj VGA. U rezolucijama 640x480 2 boje ($11), 640x480 16 boja ($12) i 320x200 256 boja ($13) postoji maksimalno 1 stanica. Tako da praktično, o ovim modovima, ne možete kotistiti date naredbe. Ovo važi za VGA kartice, a kakva je situacija sa SVGA karticama, ne znam. Peđa.
pascal.911 peca.st, -> #909, dgrbic
!-> Šta da ti kažem, probaj sa lib programom !-> da "izvučeš" tu funkciju napolje, pa da i !-> nju vežeš u pascal kao .obj fajl, možda !-> proradi, nikad nisam probao tako nešto. I !-> javi da li si uspeo :) žekaj čekaj malo... Ako je ja "izvučem" (uzgred, kako?), kako ću je onda pozivati u samom Cu? Mislim, moram je ponovo nekako vratiti u C, da bi imalo šta da se poziva. Peđa.
pascal.912 eagle, -> #910, predragd
> procedure SetVisualPage i njoj srodne. Pa problem nije u > njihovim "bubicama" već u samoj VGA. U rezolucijama 640x480 2 > boje ($11), 640x480 16 boja ($12) i 320x200 256 boja ($13) > postoji maksimalno 1 Zašto bi postojala samo jedna strana u ovom poslednjem? Inače, u modu $12 je moguće preći na drugu stranu, ali će biti odsečen deo prve, zbog nedovoljno memorije na kartici. (E)
pascal.913 dgrbic, -> #911, peca.st
:: Ako je ja "izvučem" (uzgred, kako?), kako ću je onda :: pozivati u samom Cu? Mislim, moram je ponovo nekako :: vratiti u C, da bi imalo šta da se poziva. Nemam sad instaliran C na disku, ali je to bilo nešto u stilu: TLIB CLIBCE *imemodula ili nešto slično, pokreni tlib pa vidi šta kaže za sintaksu. Time se modul kopira iz lib fajla u još jedan primerak. Ne briše se.
pascal.914 predragd, -> #912, eagle
> Inače, u modu $12 je moguće preći na drugu stranu, ali će > biti odsečen deo prve, zbog nedovoljno memorije na > kartici. Ono što sam ranije naveo nije moja mudrost već je preneto iz knjige "Programmer's Guide to the EGA and VGA Cards" od Richard F. Ferraro. Što će reći, ako je čovek pogrešio i ja grešim. Ako je to što kažeš tako, onda nije nikakav problem pozvati BIOS umesto TP-ovih naredbi i uraditi posao, naravno na karticama koje imaju više memorije. Peđa.
pascal.915 peca.st, -> #913, dgrbic
!-> ili nešto slično, pokreni tlib pa vidi !-> šta kaže za sintaksu. Time se modul !-> kopira iz lib fajla u još jedan primerak. !-> Ne briše se. Hvala svima koji su pokušali da mi pomognu, ali rešio sam da više ne idem ovako. :( Probaću da prevedem to na pascal, ako budem uspeo - lepo, ako ne... :( Peđa.
pascal.916 eagle, -> #914, predragd
> Ako je to što kažeš tako, onda nije nikakav problem pozvati > BIOS umesto TP-ovih naredbi i uraditi posao, naravno na > karticama koje imaju više memorije. Pitanje je da li će procedure TP-a raditi sa ovako postavljenom stranom.. Ako neko hoće da proba: ah=$05, al=strana, prekid $10. (E)
pascal.917 peca.st, -> #915, peca.st
!-> Probaću da prevedem to na pascal, ako !-> budem uspeo - lepo, ako ne... :( Najzad malo optimizma! Prevođenje ide mnogo lakše nego što sam mislio. :) Imam samo jedan problem: Kako prevesti ovo: int d; ... d = (int) (115200L / 1200); Problem je u ovom L. Hvala. Peđa.
pascal.918 dekiper, -> #917, peca.st
Pa, ima rešenja, a mislim da je to var d:integer; d=Int(LongInt(115200)/1200); Ako nije ovako ne zameri jel' se dosad nisam mnogo zezao sa konvertovanjem P.S. Peđa, platićeš mi za ono u petak!!! Pozdrav, Dejan (Dekiper)
pascal.919 peca.st, -> #918, dekiper
!-> d=Int(LongInt(115200)/1200); !-> Ako nije ovako ne zameri jel' se dosad !-> nisam mnogo zezao sa Ovako nije sigurno. ;) Umesto "d=" treba "d:=" ;), a osim toga int(x:real) vraća takođe real, pa mora round ili trunc. I onako problem nije bio u tome, nego u onom L. Hvala ti na odgovoru! Peđa.
pascal.920 mzdravkovic,
Imam jedan problem u vezi ucitavanja podataka iz datoteke. Naime hocu da svaki bajt iz datoteke stavim u neki niz, i to sam do sada radio na sledeci nacin: repeat read (ulaz,p); niz[x]:=p; x:=x+1; until eof(ulaz); p je promenjiva tipa Byte. Ovo radi, medjutim strahovito je sporo. Zamolio bih nekog da mi objasni kako ovo da prevazidjem.
pascal.921 dejanr, -> #920, mzdravkovic
>> repeat >> read (ulaz,p); niz[x]:=p; x:=x+1; >> until eof(ulaz); >> >> Ovo radi, medjutim strahovito je sporo. Zamolio bih nekog da mi >> objasni kako ovo da prevazidjem. var nmax: word; blockread (ulaz, niz[1], 60000, nmax) Ovim je gotovo trenutno napunjeno niz[1], niz[2], ... niz[nmax]. Na žalost, ne može se u jednom cugu pročitati više od 65535 bajta, tako da ovu naredbu moraš da staviš u petlju. žim izpadne nmax<60000, znači da si stigao do kraja fajla.
pascal.922 mzdravkovic, -> #921, dejanr
>> var nmax: word; >> >> blockread (ulaz, niz[1], 60000, nmax) >> >> Ovim je gotovo trenutno napunjeno niz[1], niz[2], ... niz[nmax]. >> Na zalost, ne moze se u jednom cugu procitati vise od 65535 >> bajta, tako da ovu naredbu moras da stavis u petlju. Cim izpadne >> nmax<60000, znaci da si stigao do kraja fajla. Hvala za odgovor, ali imam jos jedno podpitanje: Posle ove naredbe niz ima popunjen potreban broj elemenata, ali promenljiva nmax dobija uvek neku vrednost manju od 100, a isprobavao sam na datotekama od po 20K. U uputstvu pise da je nmax procitan broj bajtova, medjutim to se kod mene nije tako ispalo ???? MZdravkovic
pascal.923 dgrbic, -> #921, dejanr
:: Na žalost, ne može se u jednom cugu pročitati više od :: 65535 bajta, tako da ovu naredbu moraš da staviš u :: petlju. žim izpadne A ni niz ne može da mu bude veći od 64k tako da to nije bitno.
pascal.924 dejanr, -> #922, mzdravkovic
>> Posle ove naredbe niz ima popunjen potreban broj elemenata, ali >> promenljiva nmax dobija uvek neku vrednost manju od 100, a isprobavao >> sam na datotekama od po 20K. U uputstvu pise da je nmax procitan >> broj bajtova, medjutim to se kod mene nije tako ispalo ???? Joj, to sam zaboravio da ti kažem. Dakle, taj broj se izražava u nekim blokovima, koji su zbog kompatibilnosti sa nekim Turbo Pascalom 0.-1 dužine 128 ili tako nešto bajta. To više niko ne koristi, dakle kad otvaraš fajl, treba da ga otvoriš sa: reset (ime,1) odnosno, ako je za upis: rewrite (ime,1) posle toga će se dužine izražavati u bajtovima.
pascal.925 dejanr, -> #923, dgrbic
>> A ni niz ne može da mu bude veći od 64k tako da to nije bitno. Da... na žalost, ista priča i kod Borland Pascal-a 7.0, u protected modu. Za podatke 64 K :((( jedino što možeš na heap-u da alociraš 64 K po 64 K i tako sve dok ne napuniš onoliko mega koliko imaš RAM-a u kompjuteru. Ali 64 K za strukturu se i dalje "kezi" :(
pascal.926 bearboy, -> #893, eagle
║ 512Kb bi bilo dovoljno za tri strane u 640*480*16 (lako izračunaš da ║ jedna strana zauzima tačno 150Kb), ali egavga.bgi radi samo sa 256Kb. Nisam siguran, ali SVGAx.BGI bi trebao da radi kako treba ?
pascal.928 eagle, -> #926, bearboy
> Nisam siguran, ali SVGAx.BGI bi trebao da radi kako treba ? Na OAK-u ne :(
pascal.929 dekiper,
Da li neko zna kako se iz Turbo Pascala kreiraju COM fajlovi? (Umesto standardnog EXE treba mi COM). Molim vas, hitno je. Pozdrav, Deki
pascal.930 dejanr, -> #929, dekiper
>> Da li neko zna kako se iz Turbo Pascala kreiraju COM fajlovi? (Umesto >> standardnog EXE treba mi COM). Molim vas, hitno je. Koliko znam, nema načina. Jedino da uzmeš stari-prastari Turbo Pascal 3.0 ili 2.0 koji je pravio samo COM fajlove. Mada teško da to više iko ima, mnogo je davno bilo.
pascal.932 ssokorac, -> #928, eagle
─┼┤ Na OAK-u ne :( A ni na Tridentu :(.
pascal.933 dgrbic, -> #925, dejanr
:: Da... na žalost, ista priča i kod Borland Pascal-a 7.0, u :: protected modu. Za podatke 64 K :((( jedino što možeš na :: heap-u da alociraš A za ovo (ovaj put :) nije kriv Borland, nego DPMI mehanizam. Kad naprave Pascal za 386, valjda će moći da se naprave i veće strukture.
pascal.934 dejanr, -> #933, dgrbic
>> A za ovo (ovaj put :) nije kriv Borland, nego DPMI mehanizam. Da, ali Borland reklamira Pascal 7.0 sa "finaly, no limits" ;)
pascal.935 ilazarevic, -> #930, dejanr
> samo COM fajlove. Mada teško da to više iko ima, mnogo je davno bilo. Ima ga na timovima garantovano. Samo treba prebaciti... ;) ili raditi na timu ;(
pascal.936 vitez.koja, -> #935, ilazarevic
#=> Ima ga na timovima garantovano. Samo treba prebaciti... #=> ;) ili raditi na timu ;( Oovaj ;) tim nije imao x86 procesor.
pascal.937 valhala,
elem, zanima me da li je moguce kontrolisati modem preko pascala, tj. da li mogu da uticem na njega programski tako da mi snima analogne(voice) informacije, pa da ih onda prevodi u digitalne(byte)?Mozda zvuci konfuzno, ali ne znam kako drukcije to da kazem. i jos nesto: kako bi ste recimo kompresovali datoteku tipa record rec:array[1..50] of char; opis_reci:array[1..300\400(nije bitno)] of char; da li je moguce koristiti za ovo neke metode date u racunarima kao primeri,recimo ona sa drvetom, nemam pri ruci racunare pa ne znam tacno njen naziv ali se radi o starijem broju r. unapred zahvalan, val.
pascal.939 mdrljaca,
Haj svima . Zanima me da li je moguće napraviti recimo stablo (binarno) ili recimo niz koji ću da bacim na disk a zatim da ga odma vrnem nazad.Znači bilo šta što je u memoriji bacim u neku datoteku a zatim da ga dignem odmah nazad po ulasku u program.Možda malko konfuzno pitam ali se nadam da ste shvatili.Za pretvaranje u niz pa sa block write i read znam ali da li može nekako brže da ne moram ponovo da pravim strukturu? Pozdrav, cope
pascal.940 dzakic, -> #939, mdrljaca
>> Zanima me da li je moguće napraviti recimo stablo (binarno) ili recimo >> niz koji ću da bacim na disk a zatim da ga odma vrnem nazad. Bojim se da stablo koje formiraš na heapu i nije tako sekvencijalno u memoriji kako bi bilo zgodno blockwrite-u da ga odjednom zapišeš na disk. Opet, ako si siguran da je heap na početku bio prazan i da je u njemu ˙samo˙ tvoje stablo, onda možeš da snimiš deo memorije od HeapOrg do HeapPtr, zajedno sa stanjem pointera HeapPtr i da ga, kasnije, po učitavanju postaviš na istu vrednost. Ako nisi siguran da nije došlo do fragmentacije, onda snimi sve od HeapOrg do HeapEnd, ali ja nisam siguran da su to ˙sve˙ promenljive koje heap koristi za alociranje memorije. Valjalo bi probati... ┌─────────────┐ <- HeapEnd │ │ H │ │ │ free │ E │ │ │ │ A ├ ─ ─ ─ ─ ─ ─ ┤ <- HeapPtr │ │ P │ used │ │ │ └─────────────┘ <- HeapOrg Možda ti ova sličica pomogne da se lakše snađeš. U opštem slučaju, heap je proizvoljno dug, više od 64k a ova tri pointera su FAR tipa, dakle klasični paskalovi pointeri sa segmentom i ofsetom. Pozdrav, Zak
pascal.941 skerl,
Personal Communications Library For Turbo Pascal ( Version 4.0 & up) ( PCL4P ) Version 3.0 Jan 15, 1992 Introduction The Personal Communications Library for Turbo Pascal ( PCL4P ) is an asynchronous communications library designed for experienced software developers programming in Turbo Pascal. An IBM PC/XT/AT or compatible is required. The PCL features: o 26 communications and support functions. o Interrupt driven receiver. o Supports 300 baud to 115,200 baud. o Supports COM1, COM2, COM3, and COM4. o Adjustable receive queues from 8 bytes to 16 KB. o Control-BREAK error exit. o 17 communications error conditions trapped. o Allows 2 ports to run concurrently. o Complete modem control & status. o Written in assembly language for small size & high speed. Pozdrav, Skerl. pcl4p30.zip
pascal.942 .bale., -> #940, dzakic
He, davno je to bilo (kao i sve, izgleda, u mom slucaju) kad sam se time bakcao, ali zar nije sasvim razumno resenje otprilike da napravi binarnu datoteku sa slogom tipa cvora stabla, pa da obidje stablo u npr. preorder-u i snimi slog po slog (cvor po cvor) i pri ucitavanju isto tako, gledajuci sta je ucitao (da li moze da se grana ili ne...)? Regards from .bale. ! #:*)+-<
pascal.943 dzakic, -> #942, .bale.
>> zar nije sasvim razumno resenje otprilike da napravi binarnu datoteku >> sa slogom tipa cvora stabla, pa da obidje stablo u npr. preorder-u i Pa i ja prvo na to pomislih, ali cope reče: >> Za pretvaranje u niz pa sa block write i read znam ali da li >> može nekako brže da ne moram ponovo da pravim strukturu? Nisam probao ono što sam mu opisao, ali je blockread/write sa blokovima od 64k sigurno brzi način (ako radi ;).
pascal.944 ppekovic, -> #943, dzakic
>> Nisam probao ono što sam mu opisao, ali je blockread/write >> sa blokovima od 64k sigurno brzi način (ako radi ;). Neka napravi par procedura koje elemente stabla upisuju sekvencijalno u alocirani memorijski blok od 64K, pa kad se napuni, ili dođe do kraja neka flush-ne to u fajl. Nije problem napraviti, a i bilo bi brzo. Paya
pascal.946 marzi,
Koja knjiga je najbolja za pocetak i ucenje PASCAL-a.
pascal.947 almi,
Najbolja po meni je knjiga Milana žabarkape -Osnovi programiranja u Pascalu- ;Građevinska Knjiga Mišel.
pascal.948 beast, -> #946, marzi
>> Koja knjiga je najbolja za pocetak i ucenje PASCAL-a. Milan žabarkapa - Pascal sa ekstenzijama Turbo Pascala
pascal.949 paki, -> #948, beast
­>>> Koja knjiga je najbolja za pocetak i ucenje PASCAL-a. ­> ­> Milan žabarkapa - Pascal sa ekstenzijama Turbo Pascala Ja iz te knjige nikad ne bih ništa naučio. Možda grešim, ali... Pola knjige je napisana u vidu zadataka (fuj,fuj,fuj :) pa mislim da je knjiga predviđena za udžbenik po školama (recimo, u MG se koristi). Šta znam, meni se više dopada DejanRov umetak nego ova knjiga, iz njega sam saznao mnogo više korisnih stvari.
pascal.950 mmile, -> #948, beast
>>> Koja knjiga je najbolja za pocetak i ucenje PASCAL-a. > > Milan žabarkapa - Pascal sa ekstenzijama Turbo Pascala A kasnije Turbo Pascal 5.5 Ivan Papes
pascal.951 spantic, -> #946, marzi
> Koja knjiga je najbolja za pocetak i ucenje PASCAL-a. Pa nemaš baš neki izbor. Ako hoćeš da naučiš Pascal onda je najbolja knjiga tvoraca Pascala ( pogotovo ako si već malo familijaran sa nekim jezikom, imaš brz, referentni pregled ). Kod nas ju je izdala Mikro knjiga: Jensen-Wirth, Pascal priručnik. To ti u svakom slučaju preporučujem kao osnovu u svakom slučaju, uključujući i eventualnu kasniju želju za prelazak na Turbo Pascal, odnosno Borland Pascal. Za njihove ekstenzije ( da ne kažem novi jezik ) će ti biti potrebna nova knjiga. Za to ima više knjiga, ali verovatno će dobar izbor biti prevod "Turbo Pascal 6.0 kompletan vodič", osim cene, avaj. U svakom slučaju ne preporučujem knjige Duška Savića. Sam sam svojevremeno kupio njegovu knjigu "Turbo Pascal - naredbe i objekti" i ne mislim da sam iole pametno uložio novac.
pascal.952 dejanr, -> #949, paki
>> Šta znam, meni se više dopada DejanRov umetak nego ova knjiga, iz >> njega sam saznao mnogo više korisnih stvari. Obzirom da sam više puta čuo pohvale za taj (inače 6-7 godina star) umetak, rešio sam da ga "osposobim" za upload i stavim ga u dir INFO, tamo se zove BAS2PAS.ZIP. Ne znam baš kako će "Računari" na to gledati al' valjda se neće baš previše ljutiti ;) Par stvari koje treba da imate u vidu pre nego što se rešite na download: - Umetak se zove "Sa bejzika na paskal" i naslov mu dobro odgovara - Nije posvećen Turbo Pascalu (jer u doba kad je pisan nit' sam imao Turbo Pascal nit' nešto na čemu bi ga "gonio" ;) već standardnom paskalu. - Neki delovi su "pregaženi vremenom", na primer uvod i poglavlje o stringovima. No većina teksta se odnosi na paskal uopšte i mislim da je dosta primenjiva. - U datoteci ima *više* nego u objavljenom umetku, jedan veliki listing koji tamo nije mogao da stane. Takođe, jedna slika koja je tehničkom greškom u "Računarima" izostavljena, a posle je objavljena ispravka ali je i iz ispravke slika nedostajala. Ako ispadne da i sada nedostaje... ;) - Pisan je na BBC-jevom tekst procesoru View a onda sa nekih kaseta prebačen na disk, pa sa diska na PC, pa tu konvertovan u WordPerfect format pa odatle u ASCII pa odatle u UYU format (imate i "raspakivač" u arhivi). Sve u svemu, Bog zna šta se tu sve poremetilo ali se ipak nadam da je velika većina ok :) - U tekstu se pominju izvesna ne-lica (iz sada ne više jugoslovenskih republika) i izvesne ne-reči u vezi sa socijalističkim samoupravljanjem ;> Srećno :)