Toto jsou stránky správných chlapů,kteří chtějí mít přehled o všem novém rádi se přiučí a pobaví.


Dim=deklarace proměnné
Určitě se Vám stane, že budete potřebovat použít proměnnou. Proměnná je vlastně takový text, který obsahuje hodnotu, jako by to byla proměnná v rovnici. Malý příklad:
Do proměnné A si přiřadíme hodnotu 5.
Do proměnné B si přiřadíme hodnotu A+2.
Proměnná B bude mít nyní hodnotu 7.
Tak a jak to teď skutečně vytvořit? Nejprve bychom měli proměnnou tzv. deklarovat, tedy říci, že něco takového bude. Proměnné deklarovat nemusíte, ale kdo se v tom pak má vyznat. Je dobré psát kód tak, abychom museli proměnnou deklarovat. Více o povinné deklaraci se dozvíte u použití příkazu Option Explicit. Potom jednotlivým proměnným přiřadíme hodnoty a nakonec si je necháme zobrazit:

<SCRIPT language="VBScript">
<!--
Dim a, b 'Tak jsme je nadeklarovali
a = 5 'a má hodnotu 5
b = a + 2 'b má hodnotu a+2, tedy 7
MsgBox b, vbExclamation 'vytiskneme b, tedy 7
-->
</SCRIPT>

Kdybychom si ale řekli, že nevíme co to 7 znamená a že chceme vysvětlení, můžeme to udělat jinak. Vždy se naskytuje hned několik způsobů, jak to vyřešit. Ukážu dva:

<SCRIPT language="VBScript">
<!--
Dim a, b, kecy 'Tak jsme je nadeklarovali
a = 5 'a má hodnotu 5
b = a + 2 'b má hodnotu a+2, tedy 7
kecy = "a, to je 5 plus 2 je "
MsgBox kecy & b, vbExclamation 'vytiskneme b, tedy 7
-->
</SCRIPT>

No a ten druhý způsob:

<SCRIPT language="VBScript">
<!--
Dim a, b 'Tak jsme je nadeklarovali
a = 5 'a má hodnotu 5
b = a + 2 'b má hodnotu a+2, tedy 7
MsgBox "a, to je 5 plus 2 je " & b, vbExclamation 'vytiskneme b, tedy 7
-->
</SCRIPT>

Samozřejmě, že bychm mohli použít MsgBox 5+2, ale mělo by to jednu obrovskou nevýhodu: nenaučili bychom se pracovat s proměnnými :)


Option Explicit=povinná deklarace proměnných
Kdyby se Vám třeba stávalo, že se překlepnete, a místo proměnné textik napíšete teytik, VBScript vezme teytik jako novou (sice nedeklarovanou) proměnnou a použije jí. Vy jako programátor pak budete ve skriptu dlouhé hodiny hledat chybu, ale samozřejmě nic nenajdete. Když však na začátek skriptu napíšete Option Explicit, "překlepnuté" proměnné (např. teytik) budou hlásit chybu, neboť neexistují - nejsou nadeklarované. Vy tedy zjistíte chybu na řádce např. 17, "Variable not defined", a hned víte, kde je škodná.

Const=deklarace konstanty
Konstanta, jak již název napovídá, je proměnná s konstantí hodnotou, tedy hodnotou, která po celý běh skriptu zůstává a nejde měnit. Její přední výhodou je, že nazabírá (narozdíl od proměnné) žádné místo v paměti RAM.

<SCRIPT language="VBScript">
<!--
Option Explicit 'Všechny proměnné se budou muset deklarovat
Const pi = 3.1415926536 'konstanta pi bude mít asi 3,14
Dim obvod, polomer
polomer = InputBox("Jaký je poloměr žádané kružnice?")
REM ------Pokud funkce vrací hodnotu, použijeme u ní závorky
obvod = 2 * pi * polomer
MsgBox "Kružnice s poloměrem " & polomer & " má obvod cca " & obvod & "."
-->
</SCRIPT>


Rnd=funkce vracející náhodné číslo
<SCRIPT language="VBScript">
<!--
Option Explicit
Dim nahoda1, nahoda2
nahoda1 = Rnd(23) 'Vylosuj mi náhodné číslo od 0 do 23
nahoda2 = Rnd(22) + 1 'Vylosuj náhodné číslo od 1 do 23
MsgBox "Náhodné číslo mezi 0 a 23 je " & nahoda1 & "," & _
"mezi 1 a 23 je " & nahoda2 & "."  ' Příkaz & [podtržítko] znamená "pokračuji na dalším řádku"
-->
</SCRIPT>

Pokud by se Vám zdálo, že čísla nejsou náhodná, máte pravdu. Aby byla čísla opravdu náhodná, musíte použít funkci Randomize:

<SCRIPT language="VBScript">
<!--
Option Explicit
Dim nahoda1, nahoda2
Randomize
nahoda1 = Rnd(23) 'Vylosuj mi náhodné číslo od 0 do 23
nahoda2 = Rnd(22) + 1 'Vylosuj náhodné číslo od 1 do 23
MsgBox "Náhodné číslo mezi 0 a 23 je " & nahoda1 & "," & _
"mezi 1 a 23 je " & nahoda2 & "."  ' Příkaz & [podtržítko] znamená "pokračuji na dalším řádku"
-->
</SCRIPT>