





                                Q B F

                        Quick Basic Formatter

                      Verzia 97.04 (aprl 1997)







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


                         Uvatesk manul











                  Pre priateov SHAREWARE pripravil


                        Ing. Branislav tofko

                           Trebiovsk 21

                     821 01 B R A T I S L A V A




              Copyright 1996-97 by B. tofko Bratislava
                         All Rights reserved


1.    v o d

     Mojim primrnym  programovacm jazykom nie je  Quick Basic. Mono
Vs teda prekvap,  preo som sa pustil do  tohto programu. Poksim sa
preto strune popsa histriu vzniku programu.

     Ku Quick Basicu /alej len QB/ som sa dostal pri rieen riadenia
istiky  odpadovch  vd.  Vyhral  to  QB  lebo m jednoduch grafiku
/potreboval som  kresli ndre a  potrubia/ a spoluprca  s rozhranm
RS232  na  COM1  sa  ukzala  lepia  ako  v  PASCAL-e.  Pre  ma  ako
loveka,  ktor je  nauen kompilova,  linkova a  deli projekt  do
viacerch modulov sa javil QB ako t sprvna voba.

     Napriek mojej snahe  sa vak stalo, e hlavn  modul sa rozrstol
viac ako som oakval. V mojom primrnom programovacom jazyku o ktorom
sa  ete zmienim  som sa  nauil  psa  kd ledabolo.  Pri psan  sa
nestarm o psanie malch a vekch  psmen a odstupy riadkov pri IF a
ENDIF a  pod. Na to  pouvam program napsan  v PASCAL-e, ktor  som
zskal ako SHAREWARE a mierne upravil.

     Ke  som stl  pred problmom  ako zlepi  vzhad mjho  vekho
programu  v QB,  zavrhol som  metdu manulnu,  tj. pouitie  editora.
prava  mjho  formtovacieho  programu  v  PASCAL-e  sa  ukzala  by
zloitejia,  nakoko QB  pouva rezervovan  slovo THEN.  Siahol som
teda po  CD disku so SHAREWARE  a naiel som a  tri programy rieiace
problm  pravy zdrojovho  kdu v  QB resp.  BASIC-u veobecne.  Prv
nesploval moje  poiadavky, druh bez varovania  nevedel spracova do
seba viacnsobne vloen IF THEN ELSE /a o to mi vlastne ilo/.

     Posledn si vyadoval dokonca nastavi konfiguran sbor, kde sa
vyskytovali ako  parametre /switch/ skoro vetky  psmen abecedy. Ale
nadenie zskan  po spracovan mench  modulov sa vytratilo,  ke mi
pri spracovan mjho vekho modulu program oznmil, e spracovva len
maximlne 100  riadkov a ak  chcem viac, mm  autorovi programu posla
20 DM.

     Po  tejto  strate  asu  som  sa  rozhodol  nielen takto program
urobi, ale  da ho ako  FREEWARE za podstatne  men poplatok vetkm
programtorom. Viem,  e 20 DM  nie je v  niektorch krajinch a  tak
vea peaz.  Ja som si vak  sadol k potau a  za necel hodinu som
urobil program, ktor plne vyhovuje mojim poiadavkm.

     QBF je testovan plnohodnotn  produkt. QBF.EXE ktor ste zskali
s touto dokumentciou nie je  demoverzia, neexistuj iadne obmedzenia
pre pouvanie alebo koprovanie programu. Program pracuje v operanom
systme MSDOS.

     Editor vo vvojovom prostred QB m dve pekn vlastnosti :

a. je jedno i napete END IF, End  If, end if alebo Endif. QB si sm
   nastav  na  rezervovanch  slovch  vek  psmen.  Preto  nemus
   formtovac program tento problm riei.

b. vetky  premenn  automaticky  udruje  na  rovnakom  tvare. Ak ste
   doteraz  psali Motor.cerpadla  a len  raz napete Motor.Cerpadla,
   uprav  sa automaticky  kad  vskyt  tejto premennej  na posledn
   zapsan  tvar.  Preto  nemus  formtovac  program  tento problm
   riei.

     Ak   pracujete  s   modernmi  metdami   pri  programovan,   je
samozrejm, e  V program sa  sklad z viacerch  modulov. Pokia s
moduly  dostatone   mal  nie  je  obvykle   potrebn  robi  krov
referencie, o rob formtovacie programy zloit.

2.   tart programu

     Program QBF sa ohlsi oznamom :

Quick BASIC source file reformatter       FREEWARE B.Stofko

Syntax: QBF <filename> [options]

Options: /I:n use increment of n blanks for indent, default = 2

Options: /S   generate comment lines before and after SUB or FUNCTION

Output:       the same filename !!!

     Ak chcete  preformtova program PREHLAD.BAS,  napte jednoducho
QBF PREHLAD.BAS . tandardne je  nastaven odstup riadkov  za prkazom
IF na dva znaky. To sa mne jav ako optimlne, nakoko riadok sa potom
nerozahuje prli doprava.

     Odstup  jednho tabultora  tj. osem  znakov povaujem  za prli
vek. Ale prosm, ak ho  chcete ma napte len QBF PREHLAD.BAS/I:8 a
je to !

     Prepna /S spsob, e v programe sa dopln vhodn komentr pred
a za SUB a FUNCTION. Majme nasledovn text.

FUNCTION Novy.cas$ (Hod, Min, Sek)

Cas$    = TIME$
Hodiny  = VAL(MID$(Cas$, 1, 2))
Minuty  = VAL(MID$(Cas$, 4, 2))
Sekundy = VAL(MID$(Cas$, 7, 2))
END FUNCTION

SUB Uloz.timer (Ktory, Cas$)

OPEN "TIMER" + CHR$(Ktory + 48) + ".DAT" FOR OUTPUT AS #3
PRINT #3, Cas$
CLOSE #3
END SUB

Po formtovan sa zmen text programu nasledovne :

'---------------------------------
FUNCTION Novy.cas$ (Hod, Min, Sek)
'---------------------------------

Cas$    = TIME$
Hodiny  = VAL(MID$(Cas$, 1, 2))
Minuty  = VAL(MID$(Cas$, 4, 2))
Sekundy = VAL(MID$(Cas$, 7, 2))
END FUNCTION


'---------------------------
SUB Uloz.timer (Ktory, Cas$)
'---------------------------

OPEN "TIMER" + CHR$(Ktory + 48) + ".DAT" FOR OUTPUT AS #3
PRINT #3, Cas$
CLOSE #3
END SUB

Pretoe  QBF prepe  pvodn sbor,  pouvajte QBF  uvene. A  to je
vetko, vea spechov praje autor.

3.   Kompletn sada

     Ako prevencia proti vrusom a  neiadcim zsahom je v dokument-
cii na  tejto strnke uveden  sprvna vekos sborov  a dtum a  as
vytvorenia. Skontrolujte si vo vlastnom zujme neporuenos dodvky !

             Kompletn sada sa sklad z tchto sborov :


QBF    PRG     8502  14.04.97 22.00  zdrojov text programu

QBF    EXE     4304  14.04.97 22.00  program

QBF    602    11054  14.04.97 22.00  dokumentcia v tvare pre T602

QBF    TXT    10609  14.04.97 22.00  dokumentcia v kde Kamenicky


     V  prpade  ak  nemte   kompletn  sadu,  alebo  bola  poruen,
registrujte sa u autora, kde mete vdy zska neporuen sbory.

4.   Registrcia programu

     FREEWARE je  software, za ktor sa  neplat registran poplatok,
podobne ako u  PUBLIC DOMAIN, ale z ktorho  nie je vybran copyright.
To  znamen, e  si autor  stanovil podmienku,  e sce mete program
koprova a  pouva poda vlastnho uvenia,  program vak nesmiete
modifikova, napr. tak, e binrnym editorom prepete meno autora.

     Poplatok, ktor  platte nejakej firme za  dodvku tohto programu
typu  FREEWARE ,  pokrva vhradne  nklady na  rozmnoovanie, diskety
prpadne  CD ROM a  distribciu.  Tento  poplatok zostva  tejto firme
a mne  ako autorovi  z neho  nepripadne ani  halier. Toto  teda nie je
registran poplatok.

     Po vyskan  tohto programu sa  mete ale nemuste  registrova
u autora poslanm  pohadnice. V takom  prpade mi polite  pohadnicu
z mesta kde sa mj program pouva. Uvete prosm aj Vau adresu, moju
njdete v tejto  dokumentcii. Moja E-mail adresa je :

branostofko@rocketmail.com

alebo

stofi@pobox.sk


            Poslanie E-mailu nepovaujem za registrciu !

     Po  registrcii  mete  zska  alie  vhody. Vaa registrcia
podpor  moje zmery  vytvori lepiu  verziu programu  ako aj  alie
programy typu FREEWARE a SHAREWARE. Pripravujem na Internete pecilnu
Web strnku pre registrovanch uvateov.

     Tento  program  dvam  k  dispozcii  tak  ako je. Program mete
pouva v amatrskej ale aj zrobkovej  innosti, bez toho, e by ste
museli mne ako autorovi plati nejak alie poplatky.

     Prpadn pripomienky z praxe kde sa mj program pouva vtam. Ak
iadate psomn odpove, prilote do listu dostaton poet potovnch
znmok.  Od  priateov  z  eskej  republiky  akceptujem  esk znmky
v rovnakej  hodnote ako  zaplatte za  list Vy.  Ak mte E-mail adresu
znmky neposielajte.

     Registrovanm  uvateom odpovedm  prednostne na  ich dotazy za
horeuvedench  podmienok.  Pre  registrovanch  uvateov som ochotn
urobi len  tak modifikcie, o  ktorch sa domnievam,  e by prospeli
irokej  verejnosti. In  jazykov mutciu  programu, nie dokumentcie
som ochotn vytvori len na zklade dohody a za platu.

     Minule  sa na  ma telefonicky  obrtil jeden  z uvateov mjho
SHAREWARE programu BROWSER a chcel odo ma hne zdrojov text, lebo on
chce BROWSER  zlepi. BROWSER je moje  diea. Tak ako matka  ver, e
jej syn je nevinn aj ke ide  syn na popravisko, ja si myslm, e som
do BROWSER-a dal  vetko o viem a to  v mojom vonom ase. To  e Vm
dvam nejak  program prakticky zadarmo  ete neznamen, e  nemm ni
in na  prci ako riei  prpadn Vae problmy.  Samozrejme volajci
uvate si nedal ani t nmahu  aby sa u ma registroval. Vekorysos
mete oakva len ak budete sami vekorys.

     Tento produkt bol vytvoren pomocou programovacieho jazyka FORCE.
Je to  databzov kompiltor podobne  ako CLIPPER s  rozdielom, e vie
vytvori  s krtkeho  zdrojovho textu  aj krtky  EXE sbor. FORCE je
produktom americkej firmy :

                 Sophco, Inc.
                 P.O. Box 7430
                 Boulder, Colorado 80306-7430
                 (303) 444-1542

                         V y h l  s e n i e

     Nemm  iadne nmietky  proti tomu  aby ste  poskytli program  aj
svojim znmym, ale za podmienky,  e im dte kompletn zapakovan sadu
vrtane zdrojovho textu a tejto dokumentcie.


                                * * *