لودینگ - رایانه و اینترنت

کسى از شما نگوید خدایا از فتنه به تو پناه مى‏برم چه هیچ کس نیست جز که در فتنه‏اى است ، لیکن آن که پناه خواهد از فتنه‏هاى گمراه کننده پناهد که خداى سبحان فرماید : « بدانید که مال و فرزندان شما فتنه است » ، و معنى آن این است که خدا آنان را به مالها و فرزندان مى‏آزماید تا ناخشنود از روزى وى ، و خشنود از آنرا آشکار نماید ، و هر چند خدا داناتر از آنهاست بدانها ، لیکن براى آنکه کارهایى که مستحق ثواب است از آنچه مستحق عقاب است پدید آید ، چه بعضى پسران را دوست دارند و دختران را ناپسند مى‏شمارند ، و بعضى افزایش مال را پسندند و از کاهش آن ناخرسندند . [ و این از تفسیرهاى شگفت است که از او شنیده شده . ] [نهج البلاغه]

رایانه و اینترنت

لودینگ

توی این پست می خوام یک کد دیگر که نوعی لودینگ هست و در استاتوس بار نمایش داده میشه رو براتون معرفی کنم .

این کد توسط ویژوال بیسیک کدنویسی شده :

<Script Language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 2 Function Window_onLoad() Bar = 0 sP = 1000 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "www.iroweb.com ==> Please Wait To Load Site : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </Script>

من خودم این کد رو یکسری تغییرات دادم و به یک شکل دیگه در آوردم که فقط در استاتوس بار درصد لود ذکر میشه . اینم کدش :

<Script Language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 2 Function Window_onLoad() Bar = 0 sP = 1000 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = " " & Bar & "%" setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </Script>

برای استفاده از این کد بهتره این رو در اول قالبتون و قبل از تگ <body> و <head> قرار دهید .

بوستانچی ::: چهارشنبه 85/7/26::: ساعت 5:9 صبح

نظرات دیگران: نظر

لیست کل یادداشت های این وبلاگ

لودینگ
منوی کاربری

>> بازدیدهای وبلاگ <<

بازدید امروز: 4

بازدید دیروز: 0

کل بازدید :3096

>>اوقات شرعی <<

اوقات شرعی

>> درباره خودم<<