On Sun, 27 Jun 1999 15:41:41 EDT,   wrote:

>>Van egy kis problamam. Win95, Win98,WinNT ala kellene irnom egy driver,
>>ami direcben tudja irni, olvasni a printerportot. Ez egy regebbi
>>fejlesztesu eszkoz illesztoje lesz. Dos alatt termeszetesen evek ota
>>rendesen mukodik.

szerintem nem kell hozza driver, a portok kezelesehez a win32 api eleg
rendes tamogatast ad. visual meg borlandc-hez van egy Win32
Programmer's Reference nevu help file, abban erdemes elolvasni a
Communications cimu fejezetet.

             :alvarez:
]:[http://www.adam.hu/alvarez]
 ... Az anyu kiserteti stadiumban van?

Csasz mindenki!

    Ismet Delphi porblem.

   Tetris jellegu jatekot szeretnek irni, de nem tudom,
hogy hol van a proginak az a resze, ami allandoan fut.
(szerintem nincs ilyen...). De akkor hova tegyem az
eppen leeso elem frissiteset? Ez ugyanis user fuggetlenul
is esik lefele, es a FORM egyik Eventje sem tunik megfelelonek.

   Ti hogy oldanatok meg???

--
Üdv: Gilbert atya
       (Gilby/MKSZTSZ)
        

Hali Mindenki!

    Most kezdtem Delphivel foglalkozni, es az a porblemam,
hogy a FORM hatteret texturazni akartam, es ez 8 db
image berakasaval sikerult. Mind a 8 ugyanazt a BMP-t
tartalmazza, de a program nyolcszor rakja bele a
beforditott unit-ba es az .EXE-be is. Meg lehet ezt
oldani, hogy ne rakja be 8x, vagy valahogy meg
lehet-e adni, hogy TILE-zze ki egy keppel az adott
image teruletet? (Stretch-cselni tud, de az nem jo!)
Ja amugy Borland Delphi 3, mert ez volt meg az
ismeroseimnek...

--
Üdv: Gilbert atya
       (Gilby/MKSZTSZ)
        

Hali.

 wrote:
> jo lenne megtudnom, hogy milyen algoritmussal nyerhetnem ki belole
> a valos erteket. Az filet kezelo program, es annak tipusa ismeretlen.
> 
> A mezo 8 byte minden rekordban hexa 40-el lezarva.
> (ez a rekord utolso 8 byte-ja, nem biztos, hogy egy egyseg).
> tehat pl:
> 00 00 00 00 00 b9 b2 40  ---> egy regi lista alapjan ez lehet, hogy 4.793
> 00 00 00 00 00 57 b4 40  ---> ez pedig allitolag 5.207
Az elso 4 db 0 byte nem tudom micsoda. IMHO nincs koze a szamhoz.
A kovetkezo 4 byte egy lebegopontos szamot alkot, ugy hogy az
also helyiertekrol indulva:
  20 bit - alap (mantissza)
  10 bit - kitevo (karakterisztika)
  1 bit - kitevo elojele
  1 bit - alap elojele

A rutin pascalban ami konvertalja:

function hex2real(hex:longint):double;
const alapbit=20;
const kitevobit=30-alapbit;
var alap,kitevo:longint;
;

Megj.: A pow2(i) fuggveny 2-nek az i-edik hatvanyat adja vissza
(i lehet negativ is, de mindig egesz)

ha pl. a 00 57 b4 40 ertekere vagyunk kivancsiak:
szam:=hex2real($40b45700);

Hogy hogy jottem ra? Leirom, mert tanulsagos lehet.
1. kertem a kerdezotol meg szamokat, kuldott 12 hex-valos szampart.
2. rendeztem a listat a valos szam szerint, es erdekes modon a
   hex ertekek is rendezve lettek -> motonon fv. kapcsolat van koztuk ->
   99% hogy linearis lekepzes vagy lebegopontos szamabrazolas.
3. kiprobaltam linearis regresszioval, de ugy nem muxott.
   -> linearis lekepzes kizarva.
4. abrazoltam grafikusan a szamparokat -> egy ponton (a 8.0 ertek
   korul) megtort egyenes vonalat kaptam, a tores meredeksege ranezesre
   2-szeres. -> feltetelezhetjuk hogy lebegopontos!
   Megj.: a lista ertekek 4.7xx-9.xxx terjedtek, tehat csak a 8.000-nal
   van kitevo valtozas.
5. irtam kis pascal progit ami szetbontja a hex erteket alapra es
   kitevore, megadott bitszam mellett. Egy domain-en belul (ahol a
   kitevo ugyanaz) linearis kell legyen, tehat a valos szamok aranya
   meg kell egyezzen az alap-ok aranyaval -> ki lehet kiserletezni
   az alap-ot alkoto bitek szamat. Vigyazat! egy plusz 1-es bitet
   ele kell kepzelni az alapnak (errol eloszor en is elfeledkeztem)
6. megirtam a fenti rutint, es lon csoda - mukodik! :)
7. megirtam ezt a levelet
8. elkuldtem :)

Ami erdekes, hogy egyik "szabvanyos" (float,real,double,extended)
szamformatummal sem egyezik.

na tovabbi yo kodolast!
ja es koszi a unix getch() kerdesemre erkezett rengeteg valaszt!!!

 A'rpi                             member of Astral and ESP-team
> -----------------------------------------------------------------
 mailto:        http://banki1.banki.hu/~arpi
  A computer without Windows is like a fish without a bicycle.

Sziasztok, 

Ezuton szeretnem mindenkinek megkoszonni, aki a Clipper 
parancssori ertelmezesben hasznos informaciokal kisegitett.

Udvozlettel:
            Istvan
            

Veres Sandor wrote
  >Parameter X
  >If Empty(X)
  >  ?'Nincs parameter'
  >  Quit
  >EndIf
  Erzesem szerint ez 'nem definialt valtozo' hibauzenetet okoz
  az if... sorban, ha nem adsz meg parametert.

5.x ben mar nem, csak a S87 ben okoz(hat) hibat. 5.x-ben ez teljesen
korrekt.
Amugy tokeletesen hasznalhato, csak arra kell filgyelni, hogy minden
atvett parameter Character lesz, nem lesz numeric tipusu!

-- 
          Potyos               Hering Laszlo       Bodnar Aikido Dojo
  mailto:  Laszlo HERING       Budapest,  HUNGARY

Koszonom mindenkinek a valaszokat, 
(elsosorban Tamas Rudnai es Gereoffy Arpad) tovabbitottam
a problema felvetojenek, azt hiszem hasznalhato lesz szamara.
udv:
Kovacs Karoly.