Yaptığınız programların .ini/.txt kayıtları için progressbar kullanmak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: xonivion    1 Yorum    172 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 04.07.2016, 13:00:18 #1
xonivion Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:217 Konuları:74 Kayıt Tarihi:03.07.2016

Her yeni yazı için progressbar value + 5 veya kafanıza gere seçtiğiniz değeri koyabilirsiniz ancak ben Increment kullandım.

örnek vermek gerekirse
Bunları imports'a ekliyoruz

PHP Kod:
Imports System
Imports System.IO 
Imports System.Text


Bir timer veya bir button fark etmez
Tmer veya button fark etmiyor eventine ekliyoruz.


PHP Kod:
MetroProgressBar1.Increment(1) ' Progressbar1 yerine 2,3,4 yazılabilir bu projenize bağlı.


If/else döngüsünü kullanıyoruz, eğer progressbar değeri 100 değil ise döngü sonraki hedefi gerçekleştiriyor;

PHP Kod:
If ProgressBar1.Value = 100 Then ' Progressbar1 yerine 2,3,4 yazılabilir bu projenize bağlı.


Burada elseif kullanıp Progressbar değerimiz 7 ise ilk hedefimiz olan dosya oluşturmayı yapıyoruz.


PHP Kod:
ElseIf ProgressBar1.Value = 7 Then
Dim DosyaYolu as string = "C:\deneme.txt" ' Dosyamızın oluşturulacağı yer.
File.Create(DosyaYolu )


bu şekilde arttırarak yapılabilir benim yine geçen sene yaptığım bir projeden örnek verecek olursak;


PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
  ProgressBar1.Increment(1)
        If  ProgressBar1.Value = 100 Then
            writeIni(File, setxtomasu, setxtomasu, "0")
             textbox3.Text = "[END]"
            omasu.Slp(2000)
            Application.Exit()
        ElseIf  ProgressBar1.Value = 7 Then
             textbox3.Text += "Saving the System Settings.." & vbCrLf
        ElseIf  ProgressBar1.Value = 8 Then
             textbox3.Text += "Saving the System Settings..." & vbCrLf
        ElseIf  ProgressBar1.Value = 15 Then
             textbox3.Text += "Saving the System Settings." & vbCrLf
        ElseIf  ProgressBar1.Value = 20 Then
             textbox3.Text += "Saving the System Settings.." & vbCrLf
        ElseIf  ProgressBar1.Value = 27 Then
             TextBox3.Text += "Saving the System Settings [Completed]" & vbCrLf
             TextBox3.Text = ""
        ElseIf  ProgressBar1.Value = 30 Then
             textbox3.Text += "Creating theme.." & vbCrLf
        ElseIf  ProgressBar1.Value = 36 Then
             textbox3.Text += "Checking Colour.." & vbCrLf
        ElseIf  ProgressBar1.Value = 47 Then
             textbox3.Text += "Creating Theme [Completed]" & vbCrLf
        ElseIf  ProgressBar1.Value = 53 Then
             textbox3.Text += "Information [Completed]" & vbCrLf
        ElseIf  ProgressBar1.Value = 55 Then
             TextBox3.Text += "Name Setting [Completed]" & vbCrLf
             TextBox3.Text = ""
        ElseIf  ProgressBar1.Value = 58 Then
             textbox3.Text += "Adress Setting [Completed]" & vbCrLf
        ElseIf  ProgressBar1.Value = 65 Then
             textbox3.Text += "Value Setting [Completed]" & vbCrLf
        ElseIf  ProgressBar1.Value = 75 Then
             textbox3.Text += "xOmasu.dll Setting [Completed]" & vbCrLf
        ElseIf  ProgressBar1.Value = 95 Then
             textbox3.Text += "[Everything Completed]" & vbCrLf
        End If


Dosya işlemlerini sildim, belki başka bir konuda kullanırım.
Geçen seneki projemden bir görüntü, benzer şekilde yapabilirsiniz.



Resim http://i.epvpimg.com/ycJYg.gif

Son Düzenleme: 04.07.2016, 13:00:43, Düzenleyen: xonivion.

Paylaşım Tarihi: 04.07.2016, 13:51:24 #2
*Mstkmlnr Fortune's Fool
Co-Admin
Status: Çevrimdışı Yorumları:419 Konuları:77 Kayıt Tarihi:17.08.2015 Rep Puanı: 890

teşekkürler kardeşim

Kullanıcı İmzası
Resim https://media.giphy.com/media/lRUVoM9JEd80E/giphy.gif










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi