المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كود جافا سكربت ساعة حائط ملونة , 2018,2017


Eng_Badr
13-09-2017, 06:49 AM
2018,2017 كود جافا سكربت ساعة حائط ملونة
2018,2017 كود جافا سكربت ساعة حائط ملونة
تحميل,تنزيل,2017,2018,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
<div>[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]

[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]

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


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



[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]





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

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




[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]




كود:

Dim a
Dim min1
Dim hr1
Dim sec1

'Initializes clock and tells it how to behave, when to start *********, 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"


[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]

[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات]





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