Datakent Forum : Imleci Döndürmek http://forum.datakent.com/ XML içerik linki; Datakent Forum : C# & ASP.NET : Imleci Döndürmek Sat, 04 Apr 2026 01:38:30 +0000 Mon, 12 Jan 2009 13:55:06 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=1652 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Imleci Döndürmek : İMLECİ DÖNDÜRMEK Public Class... http://forum.datakent.com/forum_posts.asp?TID=1652&PID=3564#3564 Yazar: turknetyazilim
Konu: 1652
Gönderim Zamanı: 12.Ocak.2009 Saat 13:55

İ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

]]> Mon, 12 Jan 2009 13:55:06 +0000 http://forum.datakent.com/forum_posts.asp?TID=1652&PID=3564#3564