Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > C# & ASP.NET
  Aktif Konular Aktif Konular RSS: Imleci Döndürmek
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Imleci Döndürmek

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Imleci Döndürmek
    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

Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,297 Saniyede Yüklendi. [power by : WebWiz]