tzs
Tag
- Csatlakozás
- 2008.06.04.
- Üzenetek
- 3,298
- Reakció pontszám
- 3
TERROR NEWS * TERROR NEWS * TERROR NEWS * TERROR NEWS * TERROR NEWS *
SAJAT.TPU
for
Turbo Pascal 7.0
DOS version
User Manual
Writted, Coded & Edited by: Bunny from FLYbusterstm.
(c) copyright 1992 Charles Tylor
All rights reserved.
Last modify:1993/03/22
======================================================================
saját.tpu Dátummal kapcsolatos függvények és eljárások I. fejezet.
======================================================================
Dátum eljárás
Szintax: Datum(var ev:Word; var honap:String; var nap:Word;
var hét:String);
Az eljárás a megadott Pascal formátumú angol dátumot magyar nyelvûként
adja vissza azokban a változókban, amiket a paramétermegadásnál
használtunk. Ezért CSAK paraméteresen hívható meg.
Elseje függvény
Szintax: Elseje(nap:Word; var hét:Word):String;
A függvény visszaadja hogy az aktuális hónapban milyen napra esik
elseje. A nap a dátum utolsó 2 számjegye, a hét a Pascal által
megadott hétsorszám. (0-Vasárnap..)
HetNap függvény
Szintax: HetNap(nap_sorszáma:Word):String;
A függvény A Pascal által megadott a napnak a hét napjain belüli
sorszámából (Vasárnap-0,Hétfô-1..) visszaadja a nap magyar
megfelelôjét.
HetNapja függvény
Szintax: HetNapja(év, hó, nap:Word):String;
A függvény visszaadja, hogy a megadott dátum milyen napra esik. A
visszaadott érték a nap neve magyarul.
HonapNev függvény
Szintax: HonapNev(ho_sorszáma:Word):String;
A függvény a Pascal által megadott hónapsorszámból megadja a hónap
magyar nevét.
======================================================================
saját.tpu File és speciális függvények, eljárások II. fejezet.
======================================================================
DiskLabel függvény
Szintax: DiskLabel(drive:String):String;
A függvény a drive paraméterben megadott meghajtó (a: .. z
nevét
adja vissza.
FileAttrib eljárás
Szintax: FileAttrib(név:String64; parancs:Byte; var attrib:Byte;
var hiba:Integer);
Az eljárás a Turbo Pascal GetFAttr, SetFAttr eljárásának a tökélete-
sítése, mert az eredeti csak a már megnyitott file-oknál mûködött, így
amit nem lehetett megnyitni annál nem is tudtunk attributum-ot
állítani. Ez az eljárás bármely file attributumát képes kezelni. A név
64 karakteres lehet maximum, tartalmazhatja a path-ot is, de nem
tartalmazhat ? és * karaktereket A parancs lehet 0 - ekkor az eljárás
az attributumot lekérdezi, és visszaadja az attrib változóba; és lehet
1 - ekkor az eljárás az attributumot beál- lítja a file-on az attrib
paraméterben megadott szerint. Végül az utolsó hiba paraméterben az
esetleges hiba kódot kapjuk vissza.A hiba kódok: 2-es ha az állományt
nem találja, 3-as ha az útvonalat nem találja, és az 5-ös ha a
hozzáférés megtagadott a file esetén. Az attrib paraméter a következô
táblázat szerinti értéket veheti fel:
read only - 1
hidden - 2
system - 4
label - 8
directory - 16
archiv - 32
Több attributum estén az értékek összegét adjuk meg. Pl.: read only-
hidden esetén az érték 1+2=3.
Figyelem, a 16-os directory attributumhoz csak a 2-es hidden
társulhat!
FileDelete eljárás
Szintax: FileDelete(név:String64; var hiba:integer); Az eljárás egy
nem rejtett, system, read only file-t töröl. A név paraméter egy 64
karakteres string, mely a path-ot is tartalmazhatja, de nem lehet * és
? benne. A hiba paraméterben visszakapjuk az esetleges hiba kódját.
(lsd: FileAttrib) Ha a file attributuma nem normál, akkor használjuk a
szerzô FileAttrib eljárását a beállításra.
Password függvény
Szintax: Password(jelszó:String):integer; a paraméterben adott
szöveget egy integer (-32768..32767) értékként kapjuk vissza. A szám
visszakódolhatatlan, semmiféle következtetés nem vonható le a
nagyságából sem.
Protect eljárás
Szintax: Protect(path:String); a path-ban megadott file-ban lévô
adatokkal összehasonlítja a számítógép bizonyos paramétereit. Ha az
összehasonlítás során bármilyen eltérést tapasztal azonnal megáll a
program futása. A file adatokat a szerzô által forgalmazott
PROTECT.EXE program képes elôállítani.
IsFloppy függvény
Szintax: IsFloppy(meghajtó:Byte):Boolean; A megadott meghajtót
megvizsgálja, hogy van-e bennt lemez. meghajtó: 0- aktuális, 1-A: ,
2-B:, 3-C: ... Ha van, akkor igaz értékkel tér vissza.
======================================================================
saját.tpu String kezelô függvények, eljárások III. fejezet.
======================================================================
MidStr függvény
Szintax: MidStr(mibôl:String; honnan, mennyit:Integer):String; A
függvény az adott string kijelölt darabját adja vissza.
RightStr függvény
Szintax: RightStr(mibôl:String; mennyit:Integer):String; A függvény az
adott string adott hosszban jobbról levágott darabját adja vissza.
StrXor függvény
Szintax: StrXor(bemenô:String; kulcs:byte):String; A függvény a bemeno
string a kulcs-val képzett Xor alakját adja vissza, vagyis egy kizáró
vagy mûveletet végez rajta.
Using függvény
Szintax: Using(szám;tab:Char):String; A függvény a szám numerikus
egész elôjeles számot a tab tabulátor karakterrel ezres értékekre
tördel.Tehát pl.: szám:= 1210000 és a tab:=',' akkor a visszaadott
érték: '1,210,000' lesz. szám { Byte ,Shortint, Word, Integer, Longint
}
======================================================================
saját.tpu Matematikai függvények IV. fejezet.
======================================================================
A Most következô öt függvény a Commodore GMBH. által kiadott User
manual címû könyvben közölt konverziós adatok alapján készültek.
ArcCos függvény
Szintax: ArcCos(szám:Real):Real; A függvény a szám ArcusCosinus-át
adja vissza.
ArcSin függvény
Szintax: ArcSin(szám:Real):Real; A szám arcusSinus-át adja vissza.
ArcCtg függvény
Szintax: ArcCtg(szám:Real):Real; A szám ArcusCoTangens-ét adja vissza.
Sec függvény
Szintax: Sec(szám:Real):Real; A szám Sekáns-át adja vissza.
CoSec függvény
Szintax: CoSec(szám:Real):Real; A szám CoSekáns-át adja vissza.
SAJAT.TPU
for
Turbo Pascal 7.0
DOS version
User Manual
Writted, Coded & Edited by: Bunny from FLYbusterstm.
(c) copyright 1992 Charles Tylor
All rights reserved.
Last modify:1993/03/22
======================================================================
saját.tpu Dátummal kapcsolatos függvények és eljárások I. fejezet.
======================================================================
Dátum eljárás
Szintax: Datum(var ev:Word; var honap:String; var nap:Word;
var hét:String);
Az eljárás a megadott Pascal formátumú angol dátumot magyar nyelvûként
adja vissza azokban a változókban, amiket a paramétermegadásnál
használtunk. Ezért CSAK paraméteresen hívható meg.
Elseje függvény
Szintax: Elseje(nap:Word; var hét:Word):String;
A függvény visszaadja hogy az aktuális hónapban milyen napra esik
elseje. A nap a dátum utolsó 2 számjegye, a hét a Pascal által
megadott hétsorszám. (0-Vasárnap..)
HetNap függvény
Szintax: HetNap(nap_sorszáma:Word):String;
A függvény A Pascal által megadott a napnak a hét napjain belüli
sorszámából (Vasárnap-0,Hétfô-1..) visszaadja a nap magyar
megfelelôjét.
HetNapja függvény
Szintax: HetNapja(év, hó, nap:Word):String;
A függvény visszaadja, hogy a megadott dátum milyen napra esik. A
visszaadott érték a nap neve magyarul.
HonapNev függvény
Szintax: HonapNev(ho_sorszáma:Word):String;
A függvény a Pascal által megadott hónapsorszámból megadja a hónap
magyar nevét.
======================================================================
saját.tpu File és speciális függvények, eljárások II. fejezet.
======================================================================
DiskLabel függvény
Szintax: DiskLabel(drive:String):String;
A függvény a drive paraméterben megadott meghajtó (a: .. z
nevétadja vissza.
FileAttrib eljárás
Szintax: FileAttrib(név:String64; parancs:Byte; var attrib:Byte;
var hiba:Integer);
Az eljárás a Turbo Pascal GetFAttr, SetFAttr eljárásának a tökélete-
sítése, mert az eredeti csak a már megnyitott file-oknál mûködött, így
amit nem lehetett megnyitni annál nem is tudtunk attributum-ot
állítani. Ez az eljárás bármely file attributumát képes kezelni. A név
64 karakteres lehet maximum, tartalmazhatja a path-ot is, de nem
tartalmazhat ? és * karaktereket A parancs lehet 0 - ekkor az eljárás
az attributumot lekérdezi, és visszaadja az attrib változóba; és lehet
1 - ekkor az eljárás az attributumot beál- lítja a file-on az attrib
paraméterben megadott szerint. Végül az utolsó hiba paraméterben az
esetleges hiba kódot kapjuk vissza.A hiba kódok: 2-es ha az állományt
nem találja, 3-as ha az útvonalat nem találja, és az 5-ös ha a
hozzáférés megtagadott a file esetén. Az attrib paraméter a következô
táblázat szerinti értéket veheti fel:
read only - 1
hidden - 2
system - 4
label - 8
directory - 16
archiv - 32
Több attributum estén az értékek összegét adjuk meg. Pl.: read only-
hidden esetén az érték 1+2=3.
Figyelem, a 16-os directory attributumhoz csak a 2-es hidden
társulhat!
FileDelete eljárás
Szintax: FileDelete(név:String64; var hiba:integer); Az eljárás egy
nem rejtett, system, read only file-t töröl. A név paraméter egy 64
karakteres string, mely a path-ot is tartalmazhatja, de nem lehet * és
? benne. A hiba paraméterben visszakapjuk az esetleges hiba kódját.
(lsd: FileAttrib) Ha a file attributuma nem normál, akkor használjuk a
szerzô FileAttrib eljárását a beállításra.
Password függvény
Szintax: Password(jelszó:String):integer; a paraméterben adott
szöveget egy integer (-32768..32767) értékként kapjuk vissza. A szám
visszakódolhatatlan, semmiféle következtetés nem vonható le a
nagyságából sem.
Protect eljárás
Szintax: Protect(path:String); a path-ban megadott file-ban lévô
adatokkal összehasonlítja a számítógép bizonyos paramétereit. Ha az
összehasonlítás során bármilyen eltérést tapasztal azonnal megáll a
program futása. A file adatokat a szerzô által forgalmazott
PROTECT.EXE program képes elôállítani.
IsFloppy függvény
Szintax: IsFloppy(meghajtó:Byte):Boolean; A megadott meghajtót
megvizsgálja, hogy van-e bennt lemez. meghajtó: 0- aktuális, 1-A: ,
2-B:, 3-C: ... Ha van, akkor igaz értékkel tér vissza.
======================================================================
saját.tpu String kezelô függvények, eljárások III. fejezet.
======================================================================
MidStr függvény
Szintax: MidStr(mibôl:String; honnan, mennyit:Integer):String; A
függvény az adott string kijelölt darabját adja vissza.
RightStr függvény
Szintax: RightStr(mibôl:String; mennyit:Integer):String; A függvény az
adott string adott hosszban jobbról levágott darabját adja vissza.
StrXor függvény
Szintax: StrXor(bemenô:String; kulcs:byte):String; A függvény a bemeno
string a kulcs-val képzett Xor alakját adja vissza, vagyis egy kizáró
vagy mûveletet végez rajta.
Using függvény
Szintax: Using(szám;tab:Char):String; A függvény a szám numerikus
egész elôjeles számot a tab tabulátor karakterrel ezres értékekre
tördel.Tehát pl.: szám:= 1210000 és a tab:=',' akkor a visszaadott
érték: '1,210,000' lesz. szám { Byte ,Shortint, Word, Integer, Longint
}
======================================================================
saját.tpu Matematikai függvények IV. fejezet.
======================================================================
A Most következô öt függvény a Commodore GMBH. által kiadott User
manual címû könyvben közölt konverziós adatok alapján készültek.
ArcCos függvény
Szintax: ArcCos(szám:Real):Real; A függvény a szám ArcusCosinus-át
adja vissza.
ArcSin függvény
Szintax: ArcSin(szám:Real):Real; A szám arcusSinus-át adja vissza.
ArcCtg függvény
Szintax: ArcCtg(szám:Real):Real; A szám ArcusCoTangens-ét adja vissza.
Sec függvény
Szintax: Sec(szám:Real):Real; A szám Sekáns-át adja vissza.
CoSec függvény
Szintax: CoSec(szám:Real):Real; A szám CoSekáns-át adja vissza.