Geçen/Kalan Zamanı Gösteren ProgressBar

İlerleme çubuğu

Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#1)  Murat OSMA » 12 Şub 2014 21:20

Arşivimdeki farklı bir ProgressBar örneğini ekliyorum.

Faydalı olması dileğiyle... --)(


Module kodları;
Kod: Tümünü seç
Sub ProgressBar_Calistir()
    Dim i As Long
    Dim Rky As New UserForm1
    Rky
.Configure "..::.. Evn ProgressBar ..::..", "Zaman israf değildir...", -5000, 5000
    Rky
.Show
    For i 
= -5000 To 5000
        Rky
.SetValue i
        Rky
.SetStatus "Zaman israf değildir... " & i
        If Rky
.cancelIsPressed Then Exit For
    Next i
    Rky
.Hide
End Sub

UserForm kodları;
Kod: Tümünü seç
Option Explicit
Dim iptal As Boolean
, showTime As Boolean, kalan As Boolean
Dim startTime As Long
Dim BarMin As Long
, BarMax As Long, BarVal As Long
Private Declare Function GetTickCount Lib 
"Kernel32" () As Long
Public Sub Configure
(ByVal baslik As String, ByVal durum As String, _
                     ByVal Min As Long
, ByVal Max As Long, _
                     Optional ByVal CancelButtonText As String 
= "İptal", _
                     Optional ByVal optShowTimeElapsed As Boolean 
= True, _
                     Optional ByVal optShowTimeRemaining As Boolean 
= True)
    Me.Caption = baslik
    lblStatus
.Caption = durum
    BarMin 
= Min
    BarMax 
= Max
    BarVal 
= Min
    CancelButton
.Visible = Not CancelButtonText = vbNullString
    CancelButton
.Caption = CancelButtonText
    startTime 
= GetTickCount
    showTime 
= optShowTimeElapsed
    kalan 
= optShowTimeRemaining
    lblRunTime
.Caption = ""
    lblRemainingTime.Caption = ""
    iptal = False
End Sub

Public Sub SetStatus
(ByVal durum As String)
    lblStatus.Caption = durum
    DoEvents
End Sub

Public Sub SetValue
(ByVal value As Long)
    If value < BarMin Then value = BarMin
    If value 
> BarMax Then value = BarMax
    Dim progress As Double
, runTime As Long
    BarVal 
= value
    progress 
= (BarVal - BarMin) / (BarMax - BarMin)
    ProgressBar.Width = 292 * progress
    lblPercent 
= Int(progress * 5000) / 100 & "%"
    runTime = GetRunTime()
    If showTime Then lblRunTime.Caption = "Geçen Zaman: " & GetRunTimeString(runTime, True)
    If kalan And progress > 0 Then _
        lblRemainingTime
.Caption = "Kalan Zaman : " & GetRunTimeString(runTime * (- progress) / progress, False)
    DoEvents
End Sub

Public Function GetRunTime
() As Long
    GetRunTime 
= GetTickCount - startTime
End Function

Public Function GetFormattedRunTime
() As String
    GetFormattedRunTime 
= GetRunTimeString(GetTickCount - startTime)
End Function

Private Function GetRunTimeString
(ByVal runTime As Long, Optional ByVal showMsecs As Boolean = True) As String
    Dim msecs
&, hrs&, mins&, secs#
    msecs = runTime
    hrs 
= Int(msecs / 3600000)
    mins = Int(msecs / 60000) - 60 * hrs
    secs 
= msecs / 1000 - 60 * (mins + 60 * hrs)
    GetRunTimeString = IIf(hrs > 0, hrs & " hours ", "") _
                     
& IIf(mins > 0, mins & " minutes ", "") _
                     
& IIf(secs > 0, IIf(showMsecs, secs, Int(secs + 0.5)) & " saniye", "")
End Function

Public Function GetValue
() As Long
    GetValue 
= BarVal
End Function

Public Function cancelIsPressed
() As Boolean
    cancelIsPressed 
= iptal
End Function

Private Sub CancelButton_Click
()
    iptal = True
    lblStatus
.Caption = "Kullanıcı İptal Etti. Lütfen Bekleyin."
End Sub


specialprogess.png
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#2)  Enes Recep BAĞ » 28 Şub 2015 02:30

[TESEKKÜR] --)(
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#3)  vardar07 » 28 Şub 2015 05:31

Merhaba Murat bey. Elinize sağlık. Dosyayı indirip Rar ile açarken "Bozuk üstbilgi bulundu" hatası veriyor. Bilginize.
Kullanıcı avatarı
vardar07
Siteye Alışmış
 
Adı Soyadı:mustafa vardar
Kayıt: 10 Eyl 2012 19:57
Konum: antalya
Meslek: emekli
Yaş: 57
İleti: 471
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#4)  Murat OSMA » 28 Şub 2015 14:04

... İlk mesajdaki dosya güncellenmiştir ...
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#5)  Tarkan VURAL » 28 Şub 2015 20:02

Güzel paylaşım. Daha önce görmemişim. Teşekkür ediyorum. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#6)  Murat OSMA » 01 Mar 2015 00:59

Rica ediyorum. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14314
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Geçen/Kalan Zamanı Gösteren ProgressBar

İleti#7)  kemal1960 » 02 Mar 2015 19:32

[TESEKKÜR] . Emeğinize sağlık.
Kullanıcı avatarı
kemal1960
 
Adı Soyadı:Kemal Fidan
Kayıt: 31 Oca 2012 18:51
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR/BAYRAKLI


Forum ProgressBar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe