http://tw2.absba.org/teamwork21/MOH_...sm_Salam_1.gif

http://tw2.absba.org/teamwork21/MOH_...ba_Welcome.gif
http://tw2.absba.org/teamwork21/MOH_...Previews/1.png

اعضاء وزوار منتدانا الغالى المشاغب ..


كود جافا سكربت ساعة حائط ملونة



http://tw.absba.org/teamwork19/960533/50.png





طريقة التركيب

1- انسخ هذا الكود و ضعه في منطقة BODY




http://tw.absba.org/teamwork19/960533/50.png




كود:

Dim a
Dim min1
Dim hr1
Dim sec1

'Initializes clock and tells it how to behave, when to start animation, etc

Sub window_onload
a = time
min1 = minute(time)
hr1 = hour(time)
if hr1 > 12 then
hr1 = hr1 - 12
end if
sec1 = second(time)
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 seq("Time").Play
end Sub


'Sequencer initilization

Sub Seq_OnInit
Call seq("Time").at(0.000, "SecRot", -1, 1.000, 1)
Call seq("Time").at(60.000, "MinRot", -1, 60.000, 1)
Call seq("Time").at(0.000, "HourRot", -1, 1800.000, 1)
End Sub

'rotates second hand of clock

Sub SecRot
Call sgSecondHand.Rotate(0,0,6)
End Sub

' rotates minute hand of clock

Sub MinRot
Call sgMinuteHand.Rotate(0,0,6)
End Sub

' rotates hour hand of clock

Sub HourRot
Call sgHourHand.Rotate(0,0,15)
End Sub





























</p>













































































احذف الفراغات بين كلمة "j a v a s c r i p t"


http://tw.absba.org/teamwork19/960533/32.png

http://tw2.absba.org/teamwork23/576788/absba50.gif