> Szuksegem lenne oroknaptar tablazatra es vagy algoritmusra.

http://www.interlog.com/~r937/doomsday.html

z2

Hi inet,"HIX CODER" >!

iC> Az lenne a kérdésem, hogy ha írok egy memóriarezidens programot TP7-ben,
iC> hogyan tudom azt később kitörölni onnan (pl. ha mégegyszer lefuttatom egy
iC> /u paraméterrel), és azt megoldani, hogy ha már egyszer benn van a
iC> memóriában, akkor ne induljon el újra (és figyelmeztessen)?
sza'l az install csekk igen 1xu... foxx valami sztringet a proggyba,
es az lesz az id-d... asztan asztan szepen vegignezed a psp elott
levo osszes szegmenst /a +felelo offszeten persze;)/ hogy vajon van-e
ott oyan id sztring... ha van, akkor mar be vagy toltve... ize...
vagy egy masik megoldas, hogy atveszel 1 +szakitast, es annak 1 bizonyos
bejovetelere lesz 1 bizonyos kimenetel.. vagy 1 adott interrupt rutin
utan mittomenhany bayttal van egy id... vagy stb.. sza'l erre 1543534523
fele moccer van... na... ha mar megtalaltad magad valamiyen uton modon,
akkor mar hozza tucc ferni a beltootott proggy adatajihoz... /mer'hogy
pont ott lesznek ahol az aktualisan futoje, csak eppen 1 masik szegmensbe..
na sza'l akko' yon az, hogy +nezed, hogy az atvett interruptokat nem vette-e
at valaki utanad is.. ha igen, akko' yon a 'baj van baj, gyenge a fu
huje a felhasznalo' [tcs utan szabadon] cimu hibauzenet...;))) ha nem
vette at utanad semmi, na akkor izibe megszakitasok visszaallit, es
egy 'dosos' freememet nyomsz a tsr proggy psp-jere... /esetleg az enviroment
szegmensre is..;)/ oszt akko' telleg siraj, mer' akko' amiko' kilepsz,
akko' fel fog szabadulni az a memorija, es akko' annyival tobb lesz..
stb...;)))

iC> Valamint más programokat is le lehet-e ölni egy adott programból?
iC> ASM betét is jó lesz. ( Nem hiszem, hogy simán pascalban könnyü lenne...)
igen, csak ez mar egy kicsit trukkosebb.... sza'l minden 1es proggy
inditasa elott elmented az aktulais megszakitastablat /0:0 cimen
256*4 byte;). es amikor megnyomjak a gombot, akkor eszt nagyon
ugyesen visszatoltod, es az aktualis proggy psp-jenek 0. bytejara
ugrasz... /mivelhogy ott egy int 20h van, amire biza a proggy
szepen abba fog fejezni minden faszkodast, es ugy ahogy van,
ki fog lepni... /meg arra se lesz ideje, hogy a kepernyot
valami emesztheto 'byebye' uzenettel teleszemetejje...;)))))))
persze a moccer nem bugtalan, mivel ha a proggy valami oyan
dologgal okoskodik, amivel nem kene /pl kitolt egy korabbi
tsr proggyt, vagy valami hasollok;)/ akkor persze fagyi lehet...
de csak ugy poyen kedveye' meg lehet csinalni, izgis yatek...;)))

na yo kodolast... maradok tisztelettel: Mc

Sziasztok

Ez nagyon egyszeru. Ket ponton atmeno egyenes egyenletet
felirod ketszer, ami igy szol:
(x-x1)*(y2-y1)=(y-y1)*(x2-x1)
Ezt felirod ket egyenesre. x1;y1 az egyik, x2;y2 a masik pont az egyenesen. 
Ez ugye ket egyenlet es ket ismeretlen. 
x es y, a metszespont koordinatai.

Udv: McMacee
Ha az iskola az eletre keszit fel, nem felek a halaltol...
If school prepares us for life, I don't afraid of death...

Hi !

Inkabb kerdes ez mint valasz, meg kezdonek is csak tulzassal mernem
magam nevezni SQL-ben. 

Szoval nekem mintha az remlene, hogy letezik a BLOB mezo az SQL-ben is.
Ez nem jo 1k meretu adat tarolasara ?

Ilyesmit biztos implementalnak minden epkezlab SQL kezeloben.

Udv:
-- 
Csiszar L.
http://www.stadium.hu/szt/

Hali!

>Visual Foxpro 5.0-ban egy ablak DataSession tulajdonságát private-ra
>állítva,mégsem ugy műkodik,ahogyan a programot duplán elindítva
>működne.

Ki mondta, hogy ugy kene mukodnie?

>Részben jó,mert a rekordmutató valóban függetlenül
>mozgatható,az egymás után elindított ablakokban de pl. az egyik
>ablakban Set filtert használva majd a másik ablakra visszalépve és
>egy másféle filtert megadva az előző ablak (listbox) vezérlései
>vidáman követik az újabb változást.

Vannak olyan SET.. utasitasok, melyeknek hatokore csak az aktiv DataSession
es vannak olyanok, melyeknek hatokore a tabla vagy alias. A SET FILTER ez
utobbiak koze tartozik. A helpben a SET DataSession Commandnal vannak
felsorolva azok a SET utasitasok amik csak az aktiv DataSessionra hatnak.

>Valamit rosszul csinálok,vagy a Datasession variálásával nem lehet
>tökéletesen  függetlenné tenni az ablakokat?

Nyisd meg kulonbozo alias nevekkel tobbszor ugyanazt a tabat, vagy ami ezzel
egyenerteku a kulonbozo formokon a cursor alias propertyjet allitsd
kulonbozore,  a filter csak az aktiv aliasra vonatkozik, a DataSessiont
hagyhatod default-on is vagy allithatod private-ra mind1.

Udv
-banjo-

>Szuksegem lenne oroknaptar tablazatra es vagy algoritmusra.

Itt egy:

function nap(N,H,E:integer):integer;
(* A dátumból a hét megfelelö napját adja vissza, 0=vasárnap, 1=hétfö,
   stb.
  Paramétertartomány: N:1..31, H:1..12, E:1901..2099   *)

  var v, index: integer;
  begin
    case H of
      2,6  :  v:=0;
      8    :  v:=4;
      10   :  v:=8;
      9,12 :  v:=12;
      3,11 :  v:=16;
      1,5  :  v:=20;
      4,7  :  v:=24;
    end; (* case *)
    index:=((E-21) mod 28) + v + ord(H>2);
    nap:=pred(((index + (index div 4)) mod 7) + N) mod 7;
  end; (* függvény *)

  Forrás: CHIP, Juni 1988, p. 187.

Itt egy masik...

unit Zeller;
{ Calendar functions }

interface

const
  { Day-of-week constants, returned by Date2DOW }
  dowSA = 0; dowSU = 1; dowMO = 2; dowTU = 3; dowWE = 4; dowTH = 5;
  dowFR = 6;
type
  TDate = record
    Y, M, D : word;
    end;

function ValidDate (Date : TDate) : Boolean;
{ Decides whether a date is valid or not                                   }

function Date2DOW (Date : TDate) : byte;
{ Converts a date into a day-of-week value (one of the dowXXX constants)   }
{ using Zeller's famous closed-formula algorithm                           }

function Date2Num (Date : TDate) : longint;
{ Converts a date into an ordinal value (days passed after 01/01/0001 AD)  }

procedure Num2Date (Ordinal : longint; var Date : TDate);
{ Converts an ordinal value (days passed after 01/01/0001 AD) into a date  }

implementation
const
  MonthLen : array [Boolean, 1..12] of word =
    ((31,28,31,30,31,30,31,31,30,31,30,31),
     (31,29,31,30,31,30,31,31,30,31,30,31));

function LeapYear (Y : word) : Boolean;
.

>geppel akarom megmondani egy datumrol (pl. 1999/08/27) milyen nap es
>hanyadik nap az evben (a munka het kiszamitas miat fontos (nemetek
>nagyon hasznaljak)) ja es persze hogy letezo datum (pl 1999/02/31)

Egyszeruen ellenorizd, hogy a honap (1..12) es a nap (1..31) lehetse-
ges-e. Bonyolithatod honap-fuggo utolso-nappal.

Veres Sandor

(Elnezest, jo hosszu lett...)

On 14 Jun 99 at 2:32,  wrote:

> Szuksegem lenne oroknaptar tablazatra es vagy algoritmusra.
> 
> geppel akarom megmondani egy datumrol (pl. 1999/08/27) milyen nap es
> hanyadik nap az evben (a munka het kiszamitas miat fontos (nemetek nagyon
> hasznaljak)) ja es persze hogy letezo datum (pl 1999/02/31)

Nem irtal reszleteket, ugyhogy feltetelezem, hogy C-ben kellene:

  char *hetnap[] = {"Vasarnap","Hetfo","Kedd", "Szerda",
                    "Csutortok","Pentek","Szombat"};
  struct tm datum;

  datum.tm_year = year - 1900;
  datum.tm_mon = month - 1;
  datum.tm_mday = day;
  datum.tm_hour=datum.tm_min=datum.tm_sec = 0;
  datum.tm_isdst = 0; /* DST ne kavarjon */

  if (-1 == (int) mktime(&datum) || datum.mday != day) {
    fprintf(stderr, "Rossz datum!\n");
    exit(1);
  }

  printf("%s, %d. nap\n", hetnap[datum.tm_wday], datum.tm_yday + 1);

A (datum.mday != day) ellenorzesre azert van szukseg, mert az mktime 
normalizalja a datumot, tehat pl. 1999 dec 32-bol 2000 jan 1-et 
csinal. (Ebbol is latszik, hogy Y2K kompatibilis! :) Ja, ez 1970-tol 
2036-ig vagy meddig jo 32 bites processzoron.

Ha viszont asm-ben kellene (mivel asm dolgokat szoktal kerdezni...) 
akkor hosszabb lesz. Szamold meg, hogy pl. 1900 jan 1-tol mennyi nap 
telt el a datumig, es modulo 7 adja a het napjat (hogy milyen nap 
volt akkor, az majd kijohet a vegen, amikor a mai napot ellenorzod 
vele). Annyit kell meg tudni, hogy a szokoevek azok a 4-gyel oszthato 
evek, amik nem oszthatok 100-zal, vagy oszthatok 400-zal is!
(Tehat 1900 nem szokoev, de 2000 igen.)

Az eltelt napok algoritmusa durvan mondjuk ilyesmi is lehet (C-ben az 
egyszeruseg kedveert.) :

  for (napok=0, i=1900; i<year, i++)
    napok += szokoev(i) ? 365 : 366;

  for (i=1; i<month; i++)
    napok += honapnapjai(year,i);

  if (honapnapjai(year,month) >= day)
    napok += day - 1;
  else
    ... hibajelzes

Lehetne ennel gyorsabbat is irni, de valoszinu, hogy nem a sebesseg a 
szempont. Hibaellenorzeseket is tobb helyen kell beletenni...

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --

On 14 Jun 99 at 10:49,  wrote:

>    // 2. ez szebb... (es memoria takarekosabb)
>    char (*ptr)[SLENGTH];
>    ptr=new char[ASIZE][SLENGTH];

Hat, a szepseg szubjektiv dolog, viszont hogy ez nem takarekosabb, az 
biztos: Ugyanugy allokalsz ASIZE*SLENGTH byte-ot, raadasul meg egy 
pointernek is allokalsz helyet, ami a sima tombnel nincs.

Lehet, hogy arra gondoltal a takarekossagnal, hogy mihelyt nincs ra 
szukseg, fel lehet szabaditani? Az elso valtozatodnal lokalis valtozo 
volt a tomb, az is felszabadul automatikusan, mihelyt kilepsz a 
szubrutinbol...

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --

haho!

2 kerdesem lenne.

a) szuksegem lenne egy olyan c/c++ libraryra, ami (akar filebol, akar
memoriabol) RTF file-t kinyomtat. (de ha van ilyen MFC class, csak nem
tudok rola, akkor lecci vilagositsatok fel)

b) (ez lehet hogy eleg lamer lesz :-) meg lehet-e windowsban csinalni
valahogy azt, hogy van egy file egy reszen shared lock-om, es azt
lecserelem exclusive lock-ra ugy, hogy kozben nem engedem el egy
pillanatra sem a lockot?

             :alvarez:
]:[http://www.adam.hu/alvarez]
 ... Az egyetlen eselyed az eletbenmaradasra, hogy... Ah, felejtsd el.

>Felado :  [Hungary]
>Temakor: Delphi kerdes ( 8 sor )
>
>Volna egy - lehet hogy lamer - kérdésem: hogyan lehet binárisan fájlt
>kezelni Delphi 4.0 alatt? Jelszót szeretnék eltárolni és visszaolvasni,
>ugyanis. Előre is köszönet:

Nezz korul a TFileStream kornyeken! De persze a regi Pascal-os file
fuggvenyek is mennek...

Gabor

>Felado :  [Hungary]
>Temakor: Delphi 3.0 adatbaziskezeles ( 10 sor )
>
>Kezdo vagyok a Delphiben, de szeretnek tobbet tudni az
>adatbaziskezeleserol. (A tobbi resze egyenlore nem erdekel) Jo lenne vagy
>egy csomo peldaprogram, vagy konyv, vagy CD. Dobjatok meg egy cimmel, mit
>erdemes megvenni ?

Eleg sok Delphi konyv letezik, de a legtobbjuk erosen hanyagolja az
adatbazis-kezelest... En talan a Baga Edit fele "Delphi maskepp" c. konyvet
ajanlanam, mert ez kiter az adatbazis-kezeles olyan reszleteire is amelyeket
mas konyvben meg csak nem is lattam (pl. multi-tier, quick-report, stb.)...
Ja, es mindenkeppen erdemes lesz megvenned Stolnicki Gyula "SQL kezikonyv"
nevu iromanyat ami - szerintem - a ma kaphato legjobb SQL referencia-konyv.
Bar szemlatomast alapvetoen inkabb UNIX-os kornyezetrol ir, de nekem nagy
segitsegemre volt Delphi eseten is...

Gabor

>Felado :  [Hungary]
>Temakor: Re: SQL (2) ( 18 sor )
>
>> Felado : Zachar Misi
>> ...
>> Tenyleg nem lehet 1k-s mezot definialni SQL-ben csak valamilyen kulso
>> adatbazis kezelo programmal?
>
>Nem külsö adatbázis kezelö, hanem implementáció.
>Amúgy a
>
>CHAR (1024)
>
>az végülis szintaktikailag helyes, csak éppen az implementációk nem
>szokták szeretni :-)
Nem akarok nagyon belebeszelni, de szerintem a BLOB "mezoket" pontosan ilyen
celokra talaltak ki, nem? Persze lehet, hogy az SQL92-ben nincs benne (ezt
nem tudom, mert nincs meg a spec), de az altalam ismert adatbaziskezelok
mindegyike tamogatja.

Gabor

On Mon, Jun 14, 1999 at 12:32:58AM +0000,  wrote:
> Szuksegem lenne oroknaptar tablazatra es vagy algoritmusra.
> 
> geppel akarom megmondani egy datumrol (pl. 1999/08/27) milyen nap es 
> hanyadik nap az evben (a munka het kiszamitas miat fontos (nemetek nagyon 
> hasznaljak)) ja es persze hogy letezo datum (pl 1999/02/31)

C-ben az mktime() es a localtime() fuggvenyek egesz jok, csak a
datum validitasat nem ellenorzik. ha kell, van egy regebben
eszkabalt programom (~8K), ami nagyon hasonlo funkciot lat el
(megkerdezi a user szuletesi datumat es annak alapjan ir ki
kulonbozo informaciokat)

_tgz
Premature optimization is the root of all evil - Knuth