VB - 27. lekce
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

VB - 27. lekceVB - 27. lekce

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Laser Game Ostrava

VB - 27. lekce

Google       Google       8. 9. 2005       14 413×

27.1 Členění do podprogramů
27.2 Předávání parametrů pomocí ByRef a ByVal
27.3 Nepovinné parametry
27.4 Volání nepovinných parametrů pomocí názvů
27.5 Funkce IsMissing pro nepovinné parametry
27.6 Předdefinovaná hodnota nepovinného parametru
27.7 Pole parametrů ParamArray
27.8 Domácí úkol
27.9 V další lekci

Reklama
Reklama

27.1 Členění do podprogramů

Proč vlastně soft členit do podprogramů? No především je to úspora práce. Také to způsobuje přehlednější kód. Urychluje to práci a to je také důležité. Dnes, kdy se vývoj žene kupředu až neuvěřitelnou rychlostí, je potřeba rychlost, ale nesmí to být na úkor kvality. Ne všichni se ale řídí tím, že by rychlost vývoje neměla být na úkor kvality. Podprogramy se většinou vytváří jako funkce nebo procedury. A ty potřebují (ne vždy, ale většinou) parametry a my je poskytujeme za názvem funkce či procedury. V parametrech se přenášejí údaje o tom, jak se má ona funkce vykonat nebo s jakými hodnotami se funkce bude zpracovávat. Tak si o oněch parametrech řekneme něco víc.

27.2 Předávání parametrů pomocí ByRef a ByVal

Parametr můžeme funkci předat dvojím způsobem, a to pomocí reference nebo pomocí hodnoty. Rozdíl v nich si ukážeme na následujícím zdrojovém kódu:


Dim a As Long
Dim b As Long

Private Sub Form_Click()
  a = 4
  b = 5
  Call N (a, b)
  Print a
  Print b
End Sub

Private Function N(ByVal x As Long, ByRef y As Long)
  x = 3
  y = 3
End Function

Proměnnou a v parametru x předáváme jako hodnotu, a i když se ve funkci změní, její hodnota v programu bude taková, jaká se vložila do funkce. Na rozdíl od proměnné b v parametru y, která je předaná pomocí reference. Pokud se tedy parametr y v těle funkce změní, změní se i hodnota proměnné b.

27.3 Nepovinné parametry

Převážná většina funkci používá parametr(y). Může ale existovat funkce, kde některý z parametrů někdy nebude používán, jindy ano. Proto musejí být ve funkci definovány všechny parametry, i když nemusí být při volání funkce zadány všechny. V kódu nepovinný parametr vypadá takto:


Private Function Info(Optional ByVal Meno As String _
                      Optional ByVal Primeni As String _
                      Optional ByVal cislo As Long)
  'tělo funkce
End Function

Značí se slovíčkem optional. Pokud funkce obsahuje povinné i nepovinné parametry, musí být uvedeny první ty povinné a až pak mohou následovat nepovinné parametry.


Nepovinné parametry se používají spíše výjimečně a musí se při práci s nimi dávat pozor a funkce musí být řádně ošetřená. Nešikovným použitím způsobíte pád programů.

27.4 Volání nepovinných parametrů pomocí názvů

Pokud chceme zadat některý z několik nepovinných parametrů, máme několik možností. První je standardně se dostat na místo pomocí čárek. A pak to druhé je zadání jména parametru.


Private Sub Form_Click()
  Info ,strPrimeni
  'nebo
  Info Primeni: strPrimeni
End Sub

Nic v tom není, jen se obávám, že to u vás nenajde mnoho použití. Ani já toho nevyužívám, ale je dobré vědět, že ta možnost tu je.

27.5 Funkce IsMissing pro nepovinné parametry

Je tu také funkce, která vám zjistí, zda byl parametr zadán nebo zda zůstal prázdný. Zdrojový kód pak může vypadat třeba takto:


Private Function x(a As Long, b As Long, Optional c As Variant)
  If IsMissing(c) Then
    Print a, b
  Else
    Print a, b, c
  End If
End Function

Někdy se to může hodit, ale výhodnější je použití následující možnosti…

27.6 Předefinovaná hodnota nepovinného parametru

Spíše než funkce IsMissing se používá definování defaultní hodnoty parametru, pokud není zadán, je tedy do parametru uložena tato hodnota.


Private Function x(a As Long, b As Long, Optional c As Long = 3)
  'Tělo funkce
End Function

Pokud tedy hodnotu vy nezadáte, je nahrazena hodnotou zadanou.

Tato možnost je mírně elegantnější, a když vezmu v potaz Visual Basic.NET, tak tam funkce IsMissing vůbec není. Tam se musí defaultní hodnota parametru definovat vždy.

27.7 Pole parametrů ParamArray

Za nejvhodnější příklad, jak použít pole parametrů, bych viděl asi funkci SUMA. Sečte nám prakticky libovolný počet čísel.


Private Sub Form_Click()
  Print Suma(4, 4, 5, 9, 3, 11, 569, 1, 2, 2)
End Sub

Private Function Suma(ParamArray Cisla() As Variant)
  For Each Var In Cisla
    Sum = Sum + Var
  Next Var
  Suma = Sum
End Function

Využíváme zde klíčového slova ParamArray. A potom pro práci s polem parametrů používáme cyklus ForEach. Ve kterém to vše sečteme.

27.8 Domácí úkol

Co třeba vytvořit si trochu lepší kalkulačku? Ne? Ale jo. Grafické zpracování by taky nebylo na škodu. A pokud znáte trochu lepší kalkulačky, mají třeba tlačítko shift nebo 2ndF. Případně když si troufnete na jednoduchou dvouřádkovou kalkulačku, tak by to nebylo špatné.

27.9 V další lekci

Příště si budeme povídat něco o proměnných.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Ericsson ConsumerLab Report: rozšířená realita je další úrovní gamingu

Ericsson ConsumerLab Report: rozšířená realita je další úrovní gamingu

Celkem 66 % uživatelů zajímá rozšířená realita v oblasti gamingu. Mezi nimi je i 35 % těch, kteří jinak hry nehrají.
Pro téměř 50 % respondentů by bylo zajímavé zapojení virtuální objektů do reálného světa. Objekty by zůstaly tam, kde je při hře „umístili“.
Až 43 % uživatelů láká využití rozšířené reality ve sportu

Reklama
Reklama
Obrázek ke článku Instalace nejnovější verze Apache 2.4, PHP 7.3, MariaDB 10.3 a Memcached na Windows 10

Instalace nejnovější verze Apache 2.4, PHP 7.3, MariaDB 10.3 a Memcached na Windows 10

Buďte při vývoji efektivní! Pomocí tohoto návodu během chvíle vytvoříte ze svého počítače lokální webový server. Vyzbrojíte jej vším, co budete při práci potřebovat: Apache 2.4, PHP 7.3, MariaDB 10.3 a Memcached. Je to plná polní pro webové vývojáře s Windows 10. Navíc poradíme, jak mít na localhostu více projektů pomocí VirtualHost.

Obrázek ke článku Do poskytovatele managed hostingových služeb vshosting~ vstupují zahraniční investoři

Do poskytovatele managed hostingových služeb vshosting~ vstupují zahraniční investoři

Po více než roce jednání do vshosting~ vstoupili 3 investiční skupiny z Německa: Pecunalta, BrainWeb Investment a Quines Capital. Jde o investiční skupiny, které mají účast na projektech jako PlusServer (největší managed provider v Německu a jeden z největších v Evropě), PLESK, cPanel, CloudLinux, GoDaddy (největší světový hostingový poskytovatel z USA), či Acronis, pomohou vshosting~ v jeho plánované mezinárodní expanzi na další zahraniční trhy. Ve vshosting~ nyní drží 75% podíl, zbylých 25 % zůstává zakladatelům vshosting~, kterými jsou Damir Špoljarič (CEO) a Jan Martinů (CTO).

Obrázek ke článku Posuňte své znalosti IT na výrazně vyšší úroveň

Posuňte své znalosti IT na výrazně vyšší úroveň

Zájem o IT odborníky je v současnosti v tuzemsku i v zahraničí enormní a vedení firem si moc dobře uvědomuje, jak těžké je získat ty správné. I přesto, že je odborníků na trhu dlouhodobý nedostatek, stále platí, že část z nich je - a bude - placena výrazně lépe než ti ostatní. Proč tedy nebýt mezi nimi?

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032019 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý