VB.NET Loader Yapımı

Yer6mafyasi321' Alıntı:

Merhabalar!

Sizlere loader yapımından bahsedicem.

Ekli dosyayı görüntüle 35348

Öncelikle yeni bir proje oluşturuyoruz.

Ekli dosyayı görüntüle 35349


Ekli dosyayı görüntüle 35350

İlk adım olarak, timer ekliyoruz.
Ekli dosyayı görüntüle 35351

Ve, timer'ın davranışını aktif olarak değiştiriyoruz.

Ekli dosyayı görüntüle 35352


Ve label ekliyoruz.

Ekli dosyayı görüntüle 35353


Label'in özelliklerini ayarlıyoruz.

Ekli dosyayı görüntüle 35354


Ve bir tane daha label ekliyoruz.

Ekli dosyayı görüntüle 35355


Ve ismini, "Durum %100" koyuyoruz.

Şimdi ProgressBar ekliyoruz.

Ekli dosyayı görüntüle 35356

Ardından yeni bir form oluşturuyoruz.

Ekli dosyayı görüntüle 35358


Ve artık kodlamaya geçebiliriz.

Tasarım kısmından, timer'a 2 kez tıklıyoruz.

Ekli dosyayı görüntüle 35357

Önce değişken tanıtıyoruz. "unqown" yerine herhangi bir şey yazabilirsiniz.


Kodlar,

Ekli dosyayı görüntüle 35360

VB.Net:

Public Class Form1
    Dim unqown As String
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        unqown = unqown + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            MsgBox("Başarılı, aktarılıyorsunuz.")
            Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
        Else
            ProgressBar1.Value = unqown
            Label2.Text = "Durum: %" + unqown
        End If
    End Sub
End Class

Ve artık başlatabiliriz. F5 tuşuna basıyoruz.

Ekli dosyayı görüntüle 35361


Ekli dosyayı görüntüle 35362,
Ekli dosyayı görüntüle 35363
%100 olduğu zaman 1. ekranın kapanmasını istiyorsanız, kodlara şunu yazınız.

Ekli dosyayı görüntüle 35365

VB.Net:

Public Class Form1
    Dim unqown As String
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        unqown = unqown + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            MsgBox("Başarılı, aktarılıyorsunuz.")
            Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
        Else
            ProgressBar1.Value = unqown
            Label2.Text = "Durum: %" + unqown
        End If
    End Sub
End Class

Konuya yorum yapmayı ve like atmayı unutmayın.

Genişletmek için tıklayın ...

Yer6mafyasi321' Alıntı:

Merhabalar!

Sizlere loader yapımından bahsedicem.

Ekli dosyayı görüntüle 35348

Öncelikle yeni bir proje oluşturuyoruz.

Ekli dosyayı görüntüle 35349


Ekli dosyayı görüntüle 35350

İlk adım olarak, timer ekliyoruz.
Ekli dosyayı görüntüle 35351

Ve, timer'ın davranışını aktif olarak değiştiriyoruz.

Ekli dosyayı görüntüle 35352


Ve label ekliyoruz.

Ekli dosyayı görüntüle 35353


Label'in özelliklerini ayarlıyoruz.

Ekli dosyayı görüntüle 35354


Ve bir tane daha label ekliyoruz.

Ekli dosyayı görüntüle 35355


Ve ismini, "Durum %100" koyuyoruz.

Şimdi ProgressBar ekliyoruz.

Ekli dosyayı görüntüle 35356

Ardından yeni bir form oluşturuyoruz.

Ekli dosyayı görüntüle 35358


Ve artık kodlamaya geçebiliriz.

Tasarım kısmından, timer'a 2 kez tıklıyoruz.

Ekli dosyayı görüntüle 35357

Önce değişken tanıtıyoruz. "unqown" yerine herhangi bir şey yazabilirsiniz.


Kodlar,

Ekli dosyayı görüntüle 35360

VB.Net:

Public Class Form1
    Dim unqown As String
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        unqown = unqown + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            MsgBox("Başarılı, aktarılıyorsunuz.")
            Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
        Else
            ProgressBar1.Value = unqown
            Label2.Text = "Durum: %" + unqown
        End If
    End Sub
End Class

Ve artık başlatabiliriz. F5 tuşuna basıyoruz.

Ekli dosyayı görüntüle 35361


Ekli dosyayı görüntüle 35362,
Ekli dosyayı görüntüle 35363
%100 olduğu zaman 1. ekranın kapanmasını istiyorsanız, kodlara şunu yazınız.

Ekli dosyayı görüntüle 35365

VB.Net:

Public Class Form1
    Dim unqown As String
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        unqown = unqown + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            MsgBox("Başarılı, aktarılıyorsunuz.")
            Form2.Show()
Me.Close() 'Eğer kapanmasını istiyorsak, close gizli kalmasını istiyorsak, Me.Hide yazınız
        Else
            ProgressBar1.Value = unqown
            Label2.Text = "Durum: %" + unqown
        End If
    End Sub
End Class

Konuya yorum yapmayı ve like atmayı unutmayın.

Genişletmek için tıklayın ...