İMLECİ   DÖNDÜRMEK

Public Class Form1

    Dim sayac As Integer = 0

    Function ImleciDondur(ByVal asama As Byte)

        Select Case asama

            Case 0 : Return "|"

            Case 1 : Return "/"

            Case 2 : Return "-"

            Case 3 : Return "\"

        End Select

        Return asama

    End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

     Button1_Click(Nothing, Nothing) 'Butonunu OnClick Olayını İşlet

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Label1.Text = ImleciDondur(sayac) 'Fonksiyon Çağrılıyor

        sayac = sayac + 1

        If sayac > 3 Then sayac = 0

End Sub

End Class

Not : Bu Fonksiyon Murat Turan Yazılmış Olup Tarafımdan Vb.Net’e Çevrilmiştir.Ben Sadece Çevirdim.

Gerekli Nesneler:

1 Tane Timer

1Tane Button

1Tane label