Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte funkciu shell . Funkcie zapuzdruje kód . Nižšie je uvedený príklad funkcie, ktorá kontroluje chyby .
Súkromné večierky CheckMyErrors ( ) As BooleanEnd Funkcia
" Súkromná" kľúčové slovo obmedzuje viditeľnosť a kontrolu funkcie v rámci aktuálneho triedy . " As Boolean " kód na konci znamená , že hodnota vrátená z funkcie je boolovská premenná .
2
Pridať hodnotu odovzdať . Táto funkcia musí mať premennú pre kontrolu , takže pridaná premenná v zátvorkách je odovzdaný z kódu . Táto funkcia je zmenený na nasledovné :
Private Function CheckMyErrors ( MyString As String ) Ako BooleanEnd Funkcia
3
Vracia hodnotu . Táto funkcia musí mať boolean hodnota vrátená . Vo vyhlásení Funkcia je a " End Function " , nasledujúci kód sa používa pre kontrolu hodnoty reťazca a vráti logickú hodnotu na " true " , ak je reťazec prázdny .
Ak myString = " " ThenCheckMyErrors = TrueElseCheckMyErrors = FalseEnd Ak
4
Volanie funkcie . Vytvorenie funkcie je kompletný , takže teraz to môže byť volaná v rámci kódu. V tomto príklade reťazec je odovzdaný do funkcie a dostane vrátené boolean .
Dim IsEmpty Ako BooleanIsEmpty = IsEmpty ( " Ahoj, tento reťazec nie je prázdny " ) ' vracia False