VBScript tip: Jak udělat na stránce hodiny

I bez použití serverových skriptů nebo Java appletů můžete na stránce udělat efektní a občas dokonce i užitečné hodiny. Lze k tomu využít dynamického HTML a VBScriptu nebo JavaScriptu.
I bez použití serverových skriptů nebo Java appletů můžete na stránce udělat efektní a občas dokonce i užitečné hodiny. Lze k tomu využít dynamického HTML a VBScriptu nebo JavaScriptu.

DHTML umožňuje dynamicky měnit nejenom polohu, ale též obsah jednotlivých elementů – pomocí atributu InnerText. Toho využívá následující příklad, ve kterém je však skryto více užitečných triků. Níže uvedený kus HTML vložte do vaší stránky na místo, kde chcete mít hodiny.

<SCRIPT TYPE="text/vbscript" LANGUAGE=“VBScript“>
  <!--
   '--- Vypsat element s hodinami
   Document.Write "<SPAN ID=""span_Timer"">" & Now() & "</SPAN>"
  
   '--- Nastavit první timeout na vteřinu
   SetTimeout "UpdateTimer()", 1000
  
   '--- Funkce pro aktualizaci času v prvku span_Timer
   Function UpdateTimer()
   span_Timer.InnerText = Now()
   ' Znovu zavolat za jednu vteřinu
   SetTimeout "UpdateTimer()", 1000
   End Function
  -->
  </SCRIPT>
  

První část do dokumentu vloží HTML element <SPAN> a jako jeho obsah vloží aktuální datum a čas. Element je lépe vypsat skriptem, než ho psát „natvrdo“ do HTML, a to kvůli prohlížečům, které VBScript nepodporují. VBS nepodporující prohlížeč totiž nevypíše v tomto případě nic.

Druhá část příkladu vytvoří timer – řekne prohlížeči, že za 1000 milisekund (tedy jednu sekundu) má zavolat funkci UpdateTimer().

A konečně, třetí část skriptu je funkce UpdateTimer, která jednak jako obsah prvku span_Timer nastaví aktuální datum a čas a jednak znovu nastaví timer, který zavolá tutéž funkci za další vteřinu.

A jako bonus přidávám další skript – co dělá, to si ovšem musíte odvodit (nebo vyzkoušet :-) sami!

<SCRIPT TYPE="text/vbscript">
  <!--
   Dim TimeOut
  
   Document.Write "<H1 ID=""h1_Time"">10...</H1>"
   TimeOut = 10
   SetTimeout "Tick()", 1000
  
   Function Tick()
   TimeOut = TimeOut - 1
   If TimeOut = 0 Then
   h1_Time.InnerHtml = _
  "<A HREF=""http://zive.cpress.cz"">http://zive.cpress.cz</A>"
   Window.Location.Href = "http://zive.cpress.cz"
   Else
   h1_Time.InnerText = TimeOut & "..."
   SetTimeout "Tick()", 1000
   End If
   End Function
  -->
  </SCRIPT>

  
Váš názor Další článek: I hlavní produkt od Informixu je už portován pro Linux

Témata článku: Software, Programování, Timeout, Vteřina, 1000, Timer, Užitečná funkce, Element


Určitě si přečtěte

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

15 věcí, které umí Windows 10, ale možná o nich vůbec nevíte

** Systém Windows 10 umí spoustu užitečných drobností ** O mnoha praktických funkcích pravděpodobně ani nevíte ** Poznejte užitečné tipy, které se vám mohou hodit každý den

Vladislav Kluska | 36

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

Porno insider: Jak virtuální realita vstupuje do filmů pro dospělé

** Pornografie údajně představuje třetinu internetové obsahu a je technologický tahounem ** Do erotického obsahu postupně zasahuje i virtuální realita ** Kromě vizuálního vjemu se pracuje také na virtuálním uspokojení toho hmatového

Jan Dudek | 28

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

Budoucnost elektroniky: čeští vědci stojí za revolučním čipem, který nemá ve světě obdoby

** Čeští vědci pod vedením Tomáše Jungwirtha vyvíjí nový typ revolučního paměťového čipu ** Zatímco v současnosti elektronika pracuje s elektrony, v budoucnu to budou spiny elektronů ** Čipy budou moci být klidně i 1 000x rychlejší a úspornější

Karel Javůrek | 32

Alan Turing: Genius, který matematicky stvořil počítač

Alan Turing: Genius, který matematicky stvořil počítač

Řešením matematického problému se dostal k modelu teoretického stroje, který nese jeho jméno a je základem logiky univerzálních počítačů.

Pavel Tronner | 57


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji