progress bar

binary dosyalama türü ile karakter karakter bir dosyayı bir yerden başka bir yere kopyalıyorum. ama işin içine progress bar girince kopyalama süresi artıyo. bu ilk progress bar örneğim olduğu için yanlışlarım olabilir. kodlar şöyle;

Private Sub kopyala_Click()
Dim kaynak, hedef As String, kr As Byte, i, a
kaynak = txtkaynak
hedef = txthedef
If kaynak <> hedef Then
Open kaynak For Binary Access Read As #1
Open hedef For Binary Access Write As #2
i = LOF(1)
a = LOF(1)
Bar1.Min = 0
Bar1.Max = i
While Not EOF(1)
Bar1.Value = a - i
Get #1, , kr
Put #2, , kr
a = a + 1
Wend
Close
End If
durum.Caption = "Kopyalama Tamamlandı!"
End Sub

tam değer değilde 100 de birini kullan

bide progress bar ın altına 5 dakika kaldı, 4dakika kaldı gibi sür e koycam. bunu api olmadan nasıl yapabilirim. timer la olabilir mi

geçen zaman ile kopyalanan bilgiyi ölçmen lazım. zaten microsoftun zeki(!) mühendisleri bile bunu api ile tam zamanlama yapamadığına göre apilerde bi dengesizlik var demektir.

timer ile örneğin 5 saniyede kopyalanan bilgiyi hesaplarsın. sonra toplam bilgiye göre bunu zamanla oranlarsın. eğer 5 sn içinde hiçbir bilgi kopyalanmamış ise zaman yazmak yerine "bekliyor" gibi birşey yazarsın. örnek: CD takılınca bilgisayar her işini bırakıp Cd yi bekler mesela. bu durumda senin hesaplama "işlemin bitmesine 1 ay kaldı" yazabilir.

aynen windows proses barlari gibi

kunth neden her mesaja cevap vermeye çalışıyorsun.

kısa cevaplar ve "+1" , "+50000" gibi yazılar ???

valla alakasiz bi cevap ama sanirim senin site içi chat yazmamanla ilgili olabilir

sende haklısın.

şu an vaktim yok.
ilk fırsatta yapacağım.