با سلام دوستان عزیز:     تا حالا حتما توي وبلاگ ها يا سايت ها مختلف نوشته هاي متحرك رو مشاهده كرديد . توي اين پست مي خوام آموزش كامل متحرك سازي نوشته ها رو براتون ياد بدم تا خودتون هر جوري كه دوست دارين از اون استفاده كنيد .

نمونه :

كدهاي متحرك سازي در اول خود به سه نوع تقسيم مي شوند :

1.  كد متحرك سازي از راست به چپ
2.  كد متحرك سازي از چپ به راست
3.  كد متحرك سازي از بالا به پايين ...

با سلام به دوستان عزيز:    لودينگي كه امروز بهتون معرفی میکنم به اين شيوه كار ميكنه كه هنگامي که آدرس صفحه رو ميزنيد يه مستطيل مثل زير در بالاي صفحه مياد و هي پر ميكنه تا صفحه كاملا لود شه و بعد از لود شدن کاملا از روی صفحه محو میشه .براي دريافت كد و آموزش به ادامه مطلب برويد...

 با سلام به دوستان عزیز:     اين پست يك كد ديگر كه نوعي لودينگ هست و در استاتوس بار نمايش داده ميشه رو براتون معرفي كنم .این کد بصورت درصد میباشد و تا هنگام با گذاری کامل قالب شما با خط چین نمایش داده میشود..نظر یادتون نره.

اين كد توسط ويژوال بيسيك كدنويسي شده :

<!-- Start --- http://www.bmfd.tk --> <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> <!-- End --- http://www.bmfd.tk -->

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

<!-- Start --- http://www.bmfd.tk --> <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> <!-- End --- http://www.bmfd.tk -->

براي استفاده از اين كد بهتره اين رو در اول قالبتون و قبل از تگ و قرار دهيد .

براي ديدن راهنماي وبلاگ كليك كنيد.