Demo:

Quelltext:

<SCRIPT LANGUAGE="VBScript"> Dim a Dim min1 Dim hr1 Dim sec1 'Initialieren der Uhr und starte Animation Sub window_onload a = time theTimeDate.innerText = now sec1 = second(a) min1 = minute(a) hr1 = hour(a) if hr1 > 12 then hr1 = hr1 - 12 end if call sgSecondHand.Rotate(0,0,sec1*6 - 90) call sgMinuteHand.Rotate(0,0,min1*6 - 90) call sgHourHand.Rotate(0,0,hr1*360/12 - 90) call sgHourHand.Rotate(0,0,int(min1/2)) call seq("Time").Play end Sub 'Sequencer initilization Sub Seq_OnInit Call seq("Time").at(1.000, "SecRot", -1,1.000, 1) End Sub 'rotates second hand of clock Sub SecRot theTimeDate.innerText = now a = time sec1 = second(a) min1 = minute(a) hr1 = hour(a) if hr1 > 12 then hr1 = hr1 - 12 end if Call sgSecondHand.Rotate(0,0,6) if sec1 = 0 then Call sgMinuteHand.Rotate(0,0,6) if min1 mod 2 = 0 then call sgHourHand.Rotate(0,0,1) end if end if End Sub </SCRIPT> <DIV ID = "MASTERLAYOUT" STYLE="POSITION:relative;WIDTH:300; HEIGHT:260;TOP:0;LEFT:160; background:#f4f7fd"> <DIV STYLE="POSITION:ABSOLUTE; HEIGHT:60; WIDTH:200; TOP:230; left:90"> <P id=theTimeDate></P> </DIV> <DIV ID="divTimeText" STYLE="POSITION:ABSOLUTE; WIDTH:202; HEIGHT:202; TOP:0; LEFT:0;z-index:2"> <!-- Object displays the numbers on the clock face --> <p></p> <p></p> <p> <OBJECT ID="SgNumbers" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" STYLE= "POSITION:ABSOLUTE; WIDTH:200; HEIGHT:200; TOP:10; LEFT:50; Z-INDEX:5"> <PARAM NAME="Line0001" VALUE="SetLineColor(0, 0, 0)"> // hier den Farbcode des Zahlenrand angeben<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">// 1 = Zahlenrand ,0 = kein Zahlenrand<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">// 1 = voll ausgefüllt , 0 = Transparent(3d)<PARAM NAME="Line0004" VALUE="SetFillColor(255,0,0)">// hier den Farbcode des Zahlendexkblattes angeben<PARAM NAME="Line0005" VALUE="SetFont('ARIAL',24,650,0,0,0)">// Schriftart,größe,Neigung,Unterstrich,durchgestrichen<PARAM NAME="Line0006" VALUE="Text('.',40,-72,0">// Positionsangaben der Elemente(Punkte,Zahlen,Zeiger, BITTE nichts ändern<PARAM NAME="Line0007" VALUE="Text('.',70,-42,0"><PARAM NAME="Line0008" VALUE="Text('3',80,7,0"><PARAM NAME="Line0009" VALUE="Text('.',70,45,0"><PARAM NAME="Line0010" VALUE="Text('.',40,76,0"><PARAM NAME="Line0011" VALUE="Text('6',-8,90,0"><PARAM NAME="Line0012" VALUE="Text('.',-47,76,0"><PARAM NAME="Line0013" VALUE="Text('.',-77,45,0"><PARAM NAME="Line0014" VALUE="Text('9',-92,7,0"><PARAM NAME="Line0015" VALUE="Text('.',-77,-42,0"><PARAM NAME="Line0016" VALUE="Text('.',-47,-72,0"><PARAM NAME="Line0017" VALUE="Text('12',-14,-76,0"></OBJECT> </div> <!-- Creates the clock face , structured graphic--> <OBJECT ID="sgBackground" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" STYLE="POSITION:absolute; TOP:10; LEFT:50; WIDTH:200; HEIGHT:200"> <PARAM NAME="Line0001" VALUE="SetLineColor(0, 0, 0)"> // hier den Farbcode des uhrscheibenrandes angeben<PARAM NAME="Line0001" VALUE="SetLineStyle(1)">// 1 = rand ,0 = kein rand<PARAM NAME="Line0002" VALUE="SetFillStyle(1)">// 1 = voll ausgefüllt , 0 = Transparent<PARAM NAME="Line0003" VALUE="SetFillColor(255,255,255)">// hier den Farbcode der uhrscheibe angeben<PARAM NAME="Line0004" VALUE="SetGradientFill(0,0,-100,-100,0)"><PARAM NAME="Line0005" VALUE="Oval(-100,-100,199,199,0)">// Position der Scheibe,BITTE nicht ändern</OBJECT> <DIV ID="divClock" STYLE="POSITION:ABSOLUTE; WIDTH:200; HEIGHT:200; TOP:0; LEFT:0;"> <!-- Object creates second hand for clock, structured graphic --> <OBJECT ID="sgSecondHand" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" STYLE="POSITION:absolute; TOP:10; LEFT:50; WIDTH:200; HEIGHT:200; Z-INDEX:5"> <PARAM NAME="Line0001" VALUE="SetLineColor(0, 0, 0)"> // hier den Farbcode der sekundenzeiger angeben<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">// 1 = Sekundenzeiger anzeigen, 0 = Verbergen<PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">// hier den Farbcode der sekundenzeiger angeben<PARAM NAME="Line0004" VALUE="SetFillStyle(1)">// 1 = anzeige des rect, 0 = Transparent<PARAM NAME="Line0005" VALUE="Rect(0,0,95,0,0)">// Angabe zum Sekundenzeiger,BITTE nicht ändern</OBJECT> <!-- Object creates minute hand for clock, structured graphic--> <OBJECT ID="sgMinuteHand" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" STYLE="POSITION:absolute; TOP:10; LEFT:50; WIDTH:200; HEIGHT:200; Z-INDEX:5"> <PARAM NAME="Line0001" VALUE="SetLineColor(0, 0, 0)"> // hier den Farbcode der mintenzeiger angeben<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">// 1 = minutenzeiger anzeigen, 0 = Verbergen<PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">// hier den Farbcode der minutenzeiger angeben<PARAM NAME="Line0004" VALUE="SetFillStyle(1)">// 1 = anzeige des rect, 0 = Transparent<PARAM NAME="Line0005" VALUE="Rect(0,-1,85,1,0)">// Angabe zum minutenzeiger,BITTE nicht ändern</OBJECT> <!-- Object creates hour hand for clock, structured graphic --> <OBJECT ID="sgHourHand" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" STYLE="POSITION:ABSOLUTE; TOP:10; LEFT:50; WIDTH:200; HEIGHT:200; Z-INDEX:5"> <PARAM NAME="Line0001" VALUE="SetLineColor(0, 0, 0)"> // hier den Farbcode der stundenzeiger angeben<PARAM NAME="Line0002" VALUE="SetLineStyle(1)">// 1 = minutenzeiger anzeigen, 0 = Verbergen<PARAM NAME="Line0003" VALUE="SetFillColor(0,0,0)">// hier den Farbcode der stundenzeiger angeben<PARAM NAME="Line0004" VALUE="SetFillStyle(1)">// 1 = anzeige des rect, 0 = Transparent<PARAM NAME="Line0005" VALUE="Rect(0,-2,70,2,0)">// Angabe zum Stundenzeiger,BITTE nicht ändern</OBJECT> </DIV> </DIV> <!-- Sequencer, controls timing and continuation of clock motion --> <OBJECT ID="Seq" CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96"> </OBJECT> <script language="JavaScript"> <!-- if (navigator.appName == "Microsoft Internet Explorer") { document.write(''); }else{ document.write("<font face='Arial,Helvetica,MS Sans Serif'><center>Dieses Skript läuft nur mit dem MSIE!</center></font><br>"); } // --> </script> </div>