Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
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>Aihe on jo aika vanha, joten et voi enää vastata siihen.