Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: Kello VBScriptillä

Sami M [22.02.2004 22:59:46]

#

Tämä on nyt tälläinen yksinkertainen kello, joka ohjelmoidaan VBScriptillä.

<TITLE>Kello VBScriptillä</TITLE>
<SCRIPT LANGUAGE = "VBSCRIPT">
<!--
timerID = null
kelloKay = false

Sub Init
   LopetaKello
   KaynnistaKello
End Sub

-->
</SCRIPT>
</HEAD>
<BODY onLoad="Init()" onUnload="LopetaKello()">
<CENTER><P>
<b><Font Color="Red>Tänä kello on tuotettu
VBSctiptillä.</i></Font Color>
<CENTER><P>
<FORM Name = "Testi">
   <INPUT Type="Text" Name="Kello" Size=10>
</FORM>
</BODY>
</HTML>
<SCRIPT LANGUAGE ="VBScript">
<!--
Sub KaynnistaKello
   Testaa.Kello.Value = Time()
   TimerID = setTimeout("KaynnistaKello",1000,"VBScript")
   kelloKay = true
End Sub

Sub LopetaKello
   If kelloKay then
        clearTimeout timerID
        kellokay = false
   End if
End Sub
-->
</SCRIPT>

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta