Hello

> Mindenki irja meg, hogy miben programoz!
Pascal
C/C++
C++ Builder
ASM (csak aprobb rutinok irasara)
Clipper
dBase / SQL

meg meg nehany, amit most tanulgatok (J/J++, Rebol)

Best regards,
      Vincuka
mailto: 

Hello

>CLIPPER-ből szeretnék nyomtatni, de nem tudom mi lenne a legegyszerűbb
>módja. Gondoltam arra, hogy előbb kiírom szövegfájlba az egész anyagot,
>majd azt nyomtatom ki. De vajon CLIPPER-ben hogyan oldható ez meg?
Clipper 5 -rol beszeljunk. Az elozoeket nem ismerem.

Szoval, a clippernek eleg gagyi a nyomtatokezelese. Pl: nem tudja
pontosan lekerdezni a nyomtatofej poziciojat. Vagyis a regebbi
nyomtatoknal meg semmi gond nem volt, de a maiaknal mar nem ok a
dolog.

Listafile:
Ez a legbiztonsagosabb modja (amirol tudok) a nyomtatasnak. Ha
pogrambol kezdesz el nyomtatni, es jon egy aramszunet, akkor van
szivas. Kezdheted elorol.
Erdemes listafilet kesziteni, amit pedig a dos copy parancsaval
elkuldeni a nyomtatora. A M$ -nak ugyan van egy print nevu kis
programja, de ez nem mond6o valami megbiz6onak.
A copy hatranya csak annyi, hogy nyomtatas kozben nem tudsz mit
csinalni. Akarom mondani, csak addig, amig a dos atmasolja a nyomtato
vinyojara/memoriajaba a filet. Ha nagy a memo/vinyo (nyomtatoe), akkor
nincs gond es egy pillanat az egesz, de ha egy regebbi tipus, ...

A lenyeg:
 ...
set printer on               // nyomtatas engedelyezese
set console off              // letiltjuk a kepernyore irast
// MOST JON A LENYEG

set printer to valami.tex
// a file <valami.tex> lesz az (elsodleges) output


/*
 fejlec eljaras, es maguk a kiiratasok
 a say utasitast most el kell felejteni, mert pozicionalni nem igazan
 lehet text fileban (igy)
 Szoval marad a jo oreg   ?   utasitas
 
*/

set printer off           // nyomtatas letiltasa
set printer to            // lezarja a listafilet
set console on            // az output (elsodleges) megint a kepernyo
                          // lesz
---------------------
Egy konkret pelda:
Az adatbazis:

Teszt.dbf
Nev  C 30,0
Szigsz C 8,0     // szemely igazolvany szam

Az adatbazis a nevre van indexelve, de ez most nem lenyeg, mert sehol
sem hasznaljuk.
Az adatbazisban mondjuk legyen 400 rekord.
Egy lapra 62 sornal tobbet nem illo nyomtatni. Vagyis egy lapra durvan
50 rekord fer fel.
Szamoljunk egy kicsit:  50 rekord     = 50 sor
                        datum         = 1 sor
                        lap           = 1 sor
                        fejlec, keret = 8 sor
                        egyeb         = x sor


De ezt lehet varialni.
Maga a kod:

-------------------------------


Procedure FoProgi

     Use teszt index teszt alias te
     Set date format to 'yyyy.mm.dd'
     set delete on
     set scoreboard off
     Cls
     ListaFile()
     
     Use
Return


Procedure Fejlec()
      Lap++
      ? Chr(12)       // egy lapdobas
      ?
      ? space(40-len('Nevek es igazolvanyszamok')/2)+'Nevek es 
igazolvanyszamok'
      ?
      ? 'Lap:'+TransForm(lap, '999')
      ? 'Datum:',date()
      ?
      ? 'Nev                              Ig.szam'
      ? '-----------------------------------------------'
      sor:=8          // ez minden lapra felkerul
                      // van 8 olyan sor, amit nem hasznalhatunk

Return

Procedure ListaFile()
     Private sor:=0, lap:=0
/* a sor az eppen aktualis sort szamolja
   a lap pedig, hogy eddig hany lapot nyomtattunk  */

   @ 0,0 say 'Listafile keszitese...' colo 'w+'
   set printer on
   set console off
   set printer to lista.lst
   Fejlec()
   
   Do While !eof()
      ? te->nev,'  ', te->szigsz
      sor++
      If sor=62
         Fejlec()
      endIf
      skip
   endDo
   
   set printer off
   set printer to     // lezarjuk a lista filet is
   set console on
   @0,0 say '                          '
   Alert('A listafile kesz')
Return

-------------------------------


Ennyi. Ezutan egy Run -nal meghivod a dos copy -t (parameterezve es
voila).

A set printer to alapertelmezesben mindig _felulirja_ a mar letezo
listafilet. Ha ez nem akarjuk, akkor hozza lehet irni. Ezt az
additive   parameterrel erhetjuk el.

Pl:   set printer to valami.txt additive

Hat ennyi.
Bovebben mar tenyleg maganban.

Bocsi, ha kicsit sokat irtam.  :)

>Ha valaki tud, segítsen (magánban).
Oda is ment, de nem tartom helyesnek, ha csak maganba mennek a
valaszok. Hatha mast is erdekel a dolog. Es ha mindenki csak maganba
kerne a valaszt, akkor meghalna a lista - csak kerdesek lennenek
rajta.

Best regards,
      Vincuka
mailto: 

Hi inet,"HIX CODER" >!

iC> Egy gepbe keves volt a 2 soros port ezert
iC> egy plusz IO kartyat tettunk bele.
iC> A kartyan hardveresen beallitottam a 9-es IRQ-t ( COM 4-en),
iC> de sajnos a W95 szoftveresen ezt nem engedi meg,
iC> pedig nem utkozne semmivel sem
iC> ( a 3-as es 4-es IRQ mar foglalt ! )
ize, szerintem nem feltetlenul kellene ragaszkodj az
irq9 hez... sza'l w9x nemtom mennyire kezeli korrektul
a comm portokat, de mas osek alatt nyugottan meg lehet
csinalni, hogy com1-irq4, com2-irq3, com3-irq4, com4-irq3,
es akar mind a 4 port is muxxod7 1idejuleg...

na tovabbi yo kodolast... Mc

T. Coder tagok!

Tudja-e valaki, hogy C-ben (Borland) iras+olvasasra megnyitott file-t 
hogyan lehet ugy lezarni, hogy a megnyitasi meretenel rovidebb legyen? 
Pl. adatbazisbol torolni valamit.

Hi coderek!

Van egy torpedos jatekom TP alatt es nem tudom, hogy miert fagy.
Progarmozas kozben tobbszor kiprobaltam es akkor is fagyott, akkor rajottem,
hogy a for ciklusokat osszegubancoltam.
Most, hogy mar kesz a program, a harmas es a negyes hajok generalasa utan
lefegy es nem akar tovabb menni a jatek.
Megneztem, hogy nem ugyanazt a hibat nem kovettem-e el megegyszer, de nem a
for ciklusok mindenhol le vannak zarva, egyik sem log bele a masikba.
Mas hibat meg nem talaltam sehol.
_Szerintetek mi lehet a hiba?_
A segitsegeket elore is koszonom!

Pálinkás András, a "programozó"!
E-mail: 
Web: www.nexus.hu/palinkas
          www.extra.hu/palinkas

Sziasztok.

Kicsit OFF TOPIC:
A velemenyetekre lennek kivancsi a kovetkezo temaban:

erdemes -e C/C++, objektum orientalt analizis tervezes temat tanitani
magantanarkent ?
Tegnap vetodott fel bennem a gondolat, de nem tudom elhatarozni, hogy 
belevagjak-e, hiszen az egyetemeken oktatnak programozast. 
(Igaz nyelveket is mint angol, megis vannak angol magantanarok).

Szoval mi a velemenyetek ?

-- 
Ridly Tamas
mailto:

>> 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

Multkor annyira belefeledkeztem ebbe a TImage-es dologba, hogy a
legfontosabbat elfelejettem leirni: ti., hogy a Form hatterenek
texturazasara a legszebb (es a legkorrektebb) megoldas a Form OnPaint()
esemenyeben torteno "csempezes" (egyszeruen a Form.Canvas-ra kell
rajzolgatni a betoltott Bitmap-bol) amely szerencses, ha a WMEraseBackground
esemeny elkapasaval (es abban a hatter torlesenek letiltasaval)
parhuzamosul, ugyanis ezzel elkerulheto a szurke hatterszinnel torteno
atrajzolasbol eredo villogas a form atmeretezeskor ill. mozgatasakor...
(A program megtalalhato a Delphi\Help\Examples\Bitmap konyvtarban - bar az
abban alkalmazott LoadBitmap()-os megoldas helyett -szerintem- celszerubb
letrehozni egy sajat komponenst, aminek adunk egy Bitmap property-t es
rajzolaskor azt hasznaljuk. Igy ugyanis pont olyan egyszeruen lehet
betolteni hozza a kepet, mint pl. a TImage-hez - egyetlen sor kod nelkul,
magaban a form designer-ben...)

Gabor

Hali !

Bele kellene ragnom magam egy kicsit a Visual Foxpro-ba, a Delphi utan.

VFP 5 illetve VFP 6  a kiszemelt aldozat. Nem tudom mennyire nagy az
elteres a ketto kozott.
A MS site eleg szemermes ebben a tekintetben.

Ajanljatok mar nekem valami jo konyvet ebben a temaban amivel lehet
valamit kezdeni, es nem 20k az ara.

A Kiskapunal neztem eddig, ott ketto tunt szimpatikusnak
a "Using visual Foxpro 5" - 8625Ft
illetve a Naday- Rezessy Visual Foxpro 6 cimu konyv. 2680Ft

Barmelyikrol ha volna valakinek akar negativ akar pozitiv velemenye,
legyen szives irja meg nekem. (gondolom privatba eleg, mert eleg
specifikus kerdes)

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

Basic :)
Pascal
C++
Clipper
Delphi,C++ Builder,Visual C++ - kicsiket
Java - meg kicsikebbet :)

Az elobbieket mostansag tanulom :)

   /HANKie/

Hi!
Hat Nekem van 1 csomo otletem....
Pl. csinald meg 1 kis vallalkozasnak a teljes koru szamitogepesitett
rendszeret...ha a konyveles resze nem megy azt hagyd...
Legyen benne pl. tagnyilvantartas, fizetes, hataridonaplo,dolgozoknak
kulon,kulon, pojectek, ugyfelek, megrendelesek....

Vagy csinalj 1 windowsos adatbaziskezelo programot ami pl, dbf, sql es xls
t ismer fel es feldolgozza azokat, illetve  egymasba konvertalhatok !!!!


Vagy Legyen egy fraktalrajzolo program, ami eloredefinialt adatbazisokbol
hozza letre a fraktalt de sajatot is szerkeszthetsz :))


Vagy csinalj web bongeszot...ezt az uj builderrel jo feladat lenne :)

Vagy mp3 lejatszot :)

Szoval tema az van, csak valogatnod kell :)

   /HANKie/

 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.
>
> En eppen nem regen butykoltem valamit, amihez atmanatileg kellett az
> LPT-t hasznalnom WinNT-n. Nem tudom milyen jellegu a feladat, tehat nem
> biztos, hogy megoldas a megoldas. Win9x alatt nem problema a portra
> iras, olvasas sem, tehat ott az I/O meg van oldva. WinNT alatt kulon
> driver nelkul a rendszer service-bol kell file-t csinalni a
> FileCreate-tel (LPT1 mondjuk). Ebbe aztan irhatsz mint a guzu. A nagyobb
> bibi a megszakitas. Gondolom. Erre pedig gyogyszer lehet ( ha nem
> kimondottam RealTime a feladat ) az hogy poll modban hasznalad, azaz
> irsz egy thread-et, ami allandoan megprobalja olvasni, es igy fogadod az
> inputot.
> Ha szorosabbak a kovetelmenyek, akkor tenyleg csak a sajat driver segit.

Mukodik nalunk egy speci DOS-os C fordito (8051-es mikrokontrollerre), ami
printerportos hardverkulcsot hasznal. DOS-hoz kepest NT 4 alatt nagyon lassu
(kb. 5-10x-es sebessegu) a forditas, gondolom az NT port virtualizalasa
miatt. Eleve csak akkor volt hajlando mukodni, ha az NT-bol az LPT1 portot
teljesen kitoroltem.
Az LPT port eleve 3 cimet foglal le: 378-379-37A. A fordito ezekre ir es
olvas a hardver kulcs ellenorzesekor. Ilyen port szintu irasra olvasasra nem
eleg a file megnyitogatas NT alatt.

Arra gondoltam ugyanis, hogy ha mar a DOS ablakban ugyis virtualis az LPT
port, le kellene szimulalni a kulcs mukodeset, es ezzel a bosszanto
lassusagot ki tudom kuszobolni.

Addig jutottam, hogy irtam egy VDD drivert (ezt meg user modban futtatja az
NT, es a Virtual DOS Machine inditasakor inditja el), ami az NT event
logjaba loggolja a port irasi es port olvasasi kiserleteket.

A kovetkezo lepesben szimplan a megfelelo 378-37A portokra tovabbitanam az
elkapott port hozzafereseket. Itt meg sajnos nem tartok. Ehhez NT drivert
kellene irnom, mert a portokhoz _itt_ kellene fizikailag hozzafernem. (Ez
mar igazi driver, mar nem user modban fut!). Igazabol ez a
kulcs-helyettesiteshez csak olyan szinten kellene, hogy megtudjam, mit ad
vissza a kutyu, amikor olvasnanak belole.

Az utolso harmadik lepes a kulcs-szimulator, meg messze van...

Udv: 

A kimenetet oda irqanyitod ahova te szeretned !

Set device to         <------ Screen       kepernyo
                              <------ Print         nyomtato
Ha filebe akarod
Set print to              <filenev>    
ezzel a nyomtatast file-be iranyitod .

Celszeru a konzolt letiltani nyomtatas elott,
hogy ne "rontsa el" a kepernyot:
Set console off
amit aztan nyomitas utan vissza kell kapcsolni .

pl :

Func nyomtat
    if.not. isprinter()
      ?'Printer nem OK'
           return  Hiba    
   endif 
set devi to print
set print to " teszt.txt"
set print on
set console off
    sele 1
    Do while .not. eof()
       ? tesztadat
   enddo
set print to      // lezarja a text filet
set devi to screen    //kimeneti eszkoz a kepernyo
set console on
return OK

Persze ezeket lehet cifrazni pl : set alter stb...
Kinek kinek izlese szerint


GAndlf

Ha van koztetek olyan, aki csinalt mar a targyban szereplo dolgot, es
valaszolna egy-ket kerdesemre, kerem irjon nekem. Ne ijjedjetek meg, nem
tanfolyamrol volna szo, tenyleg csak egy-ket kerdesrol, mert elakadtam.

Elore is koszonom.

Gyuri
)

Hi !

Kicsit lemaradtam, mert tegnap nem volt matav mail szerver ! :-((

Szoval az elso kerdesedre, a tetrisbe tegyel egy Timer komponenst, es
annak a timer eventjevel updatelheted a leesest. Igy egyfust alatt a
sebsseget is megoldottad. Persze laz meg mnit megoldani ezen kivul is !
:-)))
--
A form hattereb teheto kep TILE-zeserol mostanaban olvastam egy cikket
az UNDU magazinban (minden delphi progzonak erosen ajanlott elnezni
arrafele) a www.undu.com-on talalod meg. (valamelyik 960601 es 970101
kozotti szamban olvastam) Ja igen angolil egy picit tudni kell, de ha
TILE backroundra keresgelsz bennuk, akkor utan a forraskod mar magaert
beszel. Az Onpaint eventben butykoli a kep koordinatakat ha jol
emlekszem. [amde lehet hogy rosszul !]

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