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    131 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 04.07.2016, 13:00:18 #1
xonivion Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:217 Konu Sayısı:74 Üyelik 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:
  ProgressBar1.Increment(1)
        If  ProgressBar1.Value 100 Then
            writeIni
(Filesetxtomasusetxtomasu"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.



İmage
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: Çevrimiçi Yorum Sayısı:359 Konu Sayısı:77 Üyelik Tarihi:17.08.2015 Rep Puanı: 884

teşekkürler kardeşim

Kullanıcı İmzası
İmage









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

Konuyu görüntüleyenler:
1 Misafir