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

VB - 24. lekceVB - 24. lekce

 

VB - 24. lekce

Google       Google       23. 8. 2005       14 799×

24.1 Case select else
24.2 Case select
24.3 Case select je lepší :)
24.4 Logické operátory v rozhodovacích strukturách
24.5 Odmocniny
24.6 Domácí úkol
24.7 V další lekci

24.1 Case select else

V rozhodovací struktuře Case Select lze taktéž jako v If Else použít Else pro případ, že by se žádná z předchozích podmínek nesplnila celá, to potom může vypadat takto:


Private Sub Form_Load()
  prvniPromena = 9
  Select Case prvniPromena
    Case 1
      '...
    Case 2
      '...
    Case 3
      '...
    Case Else
      '...
  End Select
End Sub

24.2 Case select

Ještě pár ukázek práce s case select. Třeba s výčtem prvků:


Private Sub Form_Load()
  prvniPromena = 9
  Select Case prvniPromena
    Case 7, 8, 9
      Text1.Text = "True"
    Case Else
      Text1.Text = "False"
  End Select
End Sub

Nebo takto s intervalem:


Private Sub Form_Load()
  prvniPromena = 11
  Select Case prvniPromena
    Case 6 To 10
      Text1.Text = "True"
    Case Else
      Text1.Text = "False"
  End Select
End Sub

Samozřejmě lze použít i porovnávací operátory:


Private Sub Form_Load()
  prvniPromena = -3
  Select Case prvniPromena
    Case Is < 6
      Text1.Text = "True"
    Case Else
      Text1.Text = "False"
  End Select
End Sub

Tak to bychom měli a jdeme dále. >>>

24.3 Case select je lepší :)

Select case je výhodnější než psaní složitých If Else, protože je nejen přehlednější, ale i rychleji a efektivněji pracuje.

24.4 Logické operátory v rozhodovacích strukturách

Logické operátory hrají v rozhodovacích strukturách podstatnou roli. Často se totiž potřebujeme zeptat, zda-li je pravda to i to a pokud ano, tak udělat ono. Nebo zda je pravda to nebo to a pokud je pravda alespoň jedno, tak provést ono. Tak už nechám krkolomných vět a ukážu vám použití logických operátorů v rozhodovacích strukturách.

Operátor OR:


Dim prvniPromena As Boolean
Dim druhaPromena As Boolean

Private Sub Form_Load()
  prvniPromena = True
  druhaPromena = False
  Select Case prvniPromena Or druhaPromena
    Case True
      Text1.Text = "True"
    Case False
      Text1.Text = "False"
  End Select
End Sub

Operátor AND:


Dim prvniPromena As Boolean
Dim druhaPromena As Boolean

Private Sub Form_Load()
  prvniPromena = True
  druhaPromena = True
  Select Case prvniPromena And druhaPromena
    Case True
      Text1.Text = "True"
    Case False
      Text1.Text = "False"
  End Select
End Sub

Operátor IMP:


Dim prvniPromena As Boolean
Dim druhaPromena As Boolean

Private Sub Form_Load()
  prvniPromena = True
  druhaPromena = False
  Select Case prvniPromena Imp druhaPromena
    Case True
      Text1.Text = "True"
    Case False
      Text1.Text = "False"
  End Select
End Sub

Operátor EQV:


Dim prvniPromena As Boolean
Dim druhaPromena As Boolean

Private Sub Form_Load()
  prvniPromena = False
  druhaPromena = False
  Select Case prvniPromena Eqv druhaPromena
    Case True
      Text1.Text = "True"
    Case False
      Text1.Text = "False"
  End Select
End Sub

Operátor NOT:


Dim prvniPromena As Boolean

Private Sub Form_Load()
  prvniPromena = False
  Select Case Not prvniPromena
    Case True
      Text1.Text = "True"
    Case False
      Text1.Text = "False"
  End Select
End Sub

24.5 Odmocniny

Možná že ne, ale možná že jste řešili problém, jak vypočítat třetí odmocninu. Možná to pro vás nebude vůbec nic nového a přišli jste na to během pár vteřin. A možná jste nad tím bádali dlouhé hodiny, ale řeknu vám, je to jen čistá matematika:


Print 16 ^ (1 / 2) 'Druhá odmocnina z 16
Print 16 ^ (1 / 3) 'Třetí odmocnina z 16
Print 16 ^ (1 / 4) 'Čtvrtá odmocnina z 16
Print 16 ^ (1 / 5) 'Pátá odmocnina z 16

Print 16 ^ (2 / 3) 'Třetí odmocnina z 16 na druhou
Print 16 ^ (1 / 3) 'Třetí odmocnina z 16 na prvou

Nic víc se zde neskrývá a je potřebná snad je znalost matematiky z prvního ročníku střední školy (přibližně).

24.6 Domácí úkol

V programování už toho zvládáte dost a nevím, jestli je vhodné dávat vám každou lekci úkol. Myslím, že teď nechám, aby se nastřádalo pár lekcí a pak vám dám něco co, co bude stát za to a nad čím nebude stačit strávit deset minut, ale něco nad čím budete muset přemýšlet, něco, co pro vás bude výzva. Jen se těšte a už začněte přemýšlet, jak bude vypadat to jádro internetového prohlížeče. Muhehe :).

24.7 V další lekci

Vlastní datové a výčtové typy.

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

Tagy:
vb
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 Stavebnice umělé inteligence 1

Stavebnice umělé inteligence 1

Článek popisuje první část stavebnice umělé inteligence. Obsahuje lineární a plošnou optimalizaci.  Demo verzi je možné použít pro výuku i zájmovou činnost. Profesionální verze je určena pro vývojáře, kteří chtějí integrovat popsané moduly do svých systémů.

Obrázek ke článku Hybridní inteligentní systémy 2

Hybridní inteligentní systémy 2

V technické praxi využíváme často kombinaci různých disciplín umělé inteligence a klasických výpočtů. Takovým systémům říkáme hybridní systémy. V tomto článku se zmíním o určitém typu hybridního systému, který je užitečný ve velmi složitých výrobních procesech.

Obrázek ke článku Jak vést kvalitně tým v IT oboru: Naprogramujte si ty správné manažerské kvality

Jak vést kvalitně tým v IT oboru: Naprogramujte si ty správné manažerské kvality

Vedení týmu v oboru informačních technologií se nijak zvlášť neliší od jiných oborů. Přesto však IT manažeři čelí výzvě v podobě velmi rychlého rozvoje a tím i rostoucími nároky na své lidi. Udržet pozornost, motivaci a efektivitu týmu vyžaduje opravdu pevné manažerské základy a zároveň otevřenost a flexibilitu pro stále nové výzvy.

Obrázek ke článku Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Síla týmů se na home office může vytrácet. Odborníci radí, jak z pracovních omezení vytěžit maximum

Za poslední rok se podoba práce zaměstnanců změnila k nepoznání. Především plošné zavedení home office, které mělo být zpočátku jen dočasným opatřením, je pro mnohé už více než rok každodenní realitou. Co ale dělat, když se při práci z domova ztrácí motivace, zaměstnanci přestávají komunikovat a dříve fungující tým se rozpadá na skupinu solitérů? Odborníci na personalistiku dali dohromady několik rad, jak udržet tým v chodu, i když pracovní podmínky nejsou ideální.

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