Donatur utama

Minggu, 02 November 2008

Animasi Loading

Nah yang satu ini merupakan animasi Loading dimana yang beranimasi adalah kat loding itu sendiri, mau programnya Tik aja, atau kode lengkapnya klik Tik kemudian silahkan ganti namanya menjadi module1.vb atau Tik
Module Module1
Sub Main()
Dim x, posisi, I
x = 28
Console.CursorLeft = x
Console.CursorTop = 15
Dim TEKS = "L O A D I N G..."
posisi = 1
Console.ForegroundColor = ConsoleColor.Yellow
Console.Write(TEKS)
Do
Console.CursorTop = 15
Console.CursorLeft = x
For I = 1 To Len(TEKS)
If posisi = I Then
Console.ForegroundColor = ConsoleColor.Cyan
Else
Console.ForegroundColor = ConsoleColor.Yellow
End If
Console.Write(Mid(TEKS, I, 1))
Next
If posisi < Len(TEKS) Then
posisi = posisi + 1
Else
posisi = 1
End If
System.Threading.Thread.Sleep(200)
Loop Until (Console.KeyAvailable)
Console.ReadKey()
End Sub
End Module

0 komentar:

 

Berlangganan

Enter your email address:

Delivered by FeedBurner

Belajar Tik


Pengikut

Komentar Terbaru

Belajar Tik
Tempatnya Belajar Teknologi Informasi dan Komunikasi

Administrator By : 3eta