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