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

هرکه پیش از آزمودنِ [کسی] تسلیم اطمینان شود، خود را در معرض هلاکت و عاقبت رنج آلود، قرار داده است. [امام جواد علیه السلام]

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

لودینگ

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

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

<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 صبح

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

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

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

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

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

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

کل بازدید :3099

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

اوقات شرعی

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