





                                V B F

                       Visual Basic Formatter

                       Verzia 98.05 (mj 1998)







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


                         Uvatesk manul











                  Pre priateov FREEWARE pripravil


                        Ing. Branislav tofko

                           Trebiovsk 21

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




              Copyright 1997-98 by B. tofko Bratislava
                         All Rights reserved


1.    v o d

     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.

     V  mojom  primrnom  programovacom  jazyku  som  si  zvykol psa
programy ledabolo, bez  ohadu na IF THEN ELSE a  dokonca mal a vek
psmen.  Toto  zrchuje  prcu,  lovek  sa  nezdruje pravou textu
a venuje sa plne programovaniu. Na  pravu textu programu potom raz za
as  odtartujem   formtovac  program,  ktor   to  sprav  za   ma
automaticky a  ja sa medzitm,  ako program pracuje  pozriem von oknom
ak je tam poasie.

     V programovacom  jazyku VISUAL BASIC existuje  tie zdrojov tvar
textu v jednom sbore, aj ke starie verzie VB Vm ukazuj jednotliv
funkcie a procedry ako samostatn asti. Nakoko vo VISUAL BASIC-u sa
dnes  robia  vek  projekty,  je  celkov  prehad  v zdrojovom texte
nevyhnutnm predpokladom spechu.  Aby som aj vo VB  mohol vone psa
text programu, vytvoril som program VBF, ktor Vm dvam do uvania.

     Pretoe  som u  bol v   minulosti obvinen,  e ni  neviem, len
opisujem od  inch, vyhlasujem, e  toto som opsal  z mjho vlastnho
programu  QBF.  Dfam,  e  t  o  ma  obviuj  z opisovania bud u
spokojn.

     Program tohto  typu ako presadzuje  u programtorov, ktorm  je
proti srsti, e nejak program a  to dokonca tak, ktor oni neurobili
im bude robi  poriadky v ich zdrojovch textoch.  Ale pozera sa, ako
sa snaia editorom zachovva odstupy pri kadom IF je zfal.

     Ja sa drm zsady, e

        PROGRAM NEMUS FUNGOVA, PROGRAM MUS PEKNE VYZERA.

     Toto privdza  niektorch do zfalstva,  lebo si myslia,  e moje
programy aj  tak funguj. Ale dosiahnu,  aby pekne vyzerajci program
fungoval  je ovea  jednoduchie ako  opane. A  ako potom  vyzeraj a
funguj moje programy, to vidte na priloenom zdrojku programu VBF.

2.   tart programu

    Program VBF sa ohlsi oznamom :

Visual Basic source file reformatter       FREEWARE B.Stofko

Syntax: VBF <filename> [options]

Options: /I:n  use increment of n blanks for indent, default = 3
Options: /S    generate comment lines before and after SUB or FUNCTION
Output:        the same filename !!!

     Ak chcete  preformtova program PREHLAD.BAS,  napte jednoducho
VBF PREHLAD.BAS . tandardne je  nastaven odstup riadkov  za prkazom
IF na tri znaky. To sa mne jav ako optimlne, nakoko riadok sa potom
nerozahuje prli doprava.
                                                          VBF 1 z 5

     Odstup  jednho tabultora  tj. osem  znakov povaujem  za prli
vek. Ale prosm, ak ho  chcete ma napte len VBF PREHLAD.BAS/I:8 a
je to !

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

Function GetDiskSpace (DriveNum As Integer) As Integer
 ' Returns the total and available disk space for the specified drive
 ' driveNum specifies which drive (0 = default, 1 = A, 2 = B, etc.)
 '
' 08-25-97 08:07am prva verzia
'
Dim AX_Flag As Integer
Dim BX_Free As Integer
Dim CX_Cluster As Integer
Dim DX_Total As Integer
Dim BytesPerCluster As Single
'
' Request drive allocation information from DOS services
  AX_Flag = BSGetDiskSize(DriveNum, BX_Free, CX_Cluster, DX_Total)
' Test for error condition
            If AX_Flag <> -1 Then
' Calculate free and total space
      BytesPerCluster = AX_Flag
   BytesPerCluster = BytesPerCluster * CX_Cluster
     TotalSpace = (DX_Total And &HFFFF&) * BytesPerCluster
   FreeSpace = (BX_Free And &HFFFF&) * BytesPerCluster
   '
   'Indicate success
                 GetDiskSpace = True
Else
'Indicate error
                   GetDiskSpace = False
   End If

           End Function

Tento text  je myselne napsan o  "najlampckejie" ako som vedel,
aby  ste mohli  vidie vsledok  innosti programu  VBF. Tento text je
v sbore VBF_TEST.OLD.  Prekoprujte, /nie premenujte/  tento sbor na
VBF_TEST.BAS a na om si vyskajte o s tm sprav VBF.EXE !

Po formtovan sa zmen text programu nasledovne :

'-----------------------------------------------------
Function GetDiskSpace (DriveNum As Integer) As Integer
'-----------------------------------------------------
' Returns the total and available disk space for the specified drive
' driveNum specifies which drive (0 = default, 1 = A, 2 = B, etc.)
'
' 08-25-97 08:07am prva verzia
'
Dim AX_Flag As Integer
Dim BX_Free As Integer
Dim CX_Cluster As Integer
Dim DX_Total As Integer
Dim BytesPerCluster As Single
                                                          VBF 2 z 5

'
' Request drive allocation information from DOS services
AX_Flag = BSGetDiskSize(DriveNum, BX_Free, CX_Cluster, DX_Total)
' Test for error condition
If AX_Flag <> -1 Then
   ' Calculate free and total space
   BytesPerCluster = AX_Flag
   BytesPerCluster = BytesPerCluster * CX_Cluster
   TotalSpace = (DX_Total And &HFFFF&) * BytesPerCluster
   FreeSpace = (BX_Free And &HFFFF&) * BytesPerCluster
   '
   'Indicate success
   GetDiskSpace = True
Else
   'Indicate error
   GetDiskSpace = False
End If

End Function

VBF  doke preformtova  aj sbor  s prponou  .FRM , kde je taktie
zdrojov  text  VISUAL  BASIC-u.  Dleite  je  ovem uklada zdrojov
sbory v  itatenom tvare tj.  ako ASCII sbory.  Pretoe VBF prepe
pvodn sbor, pouvajte  VBF 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 :


VBF    .PRG     8285   zdrojov text programu

VBF    .EXE     4893   program

VBF    .602    11958   dokumentcia v tvare pre T602

VBF    .TXT    11809   dokumentcia v kde Kamenick

VBF_TEST.OLD    1566   myselne zl prava sboru

VBF_ENG.TXT     8675   dokumentcia v anglitine

     Dtum   a  as   vetkch  sborov   je  nastaven   na  11.05.98
a 10:00:00  . V prpade ak nemte kompletn sadu, alebo bola poruen,
registrujte sa u autora, kde mete vdy zska neporuen sbory.

     V tejto  verzii bol odstranen  chyba spojen s

1. Public Sub

2. Do Until

                                                          VBF 3 z 5

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

BranoStofko@Mailexcite.com

            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.

     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.
                                                          VBF 4 z 5

     Okrem VBF.EXE  dvam k dispozcii  aj zdrojov text.  Tmto by sa
mohol tento produkt zaradi aj do PUBLIC DOMAIN, keby bol programovac
jazyk FORCE  veobecne rozren. Nikto  Vm vak nebrni  prepracova
program do PASCAL-u, C , QBASICu alebo dokonca do VISUAL BASIC-u. Vea
spechov !!!
     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.

                                * * *
                                                          VBF 5 z 5