geri sayım saati

[b_m_k]

Merhabalar herkese,

Yapmak istediğim aslında bir geri sayım sayacı sayfada aradım ama daha önceki konulardan açıkçası bir şey çıkartamadım. Yapmak istediğim belli bir başlangıç saatim olacak örneğin 08:30:00 birde bitiş saatim olacak 11:00:00 gibi bu saatler arasında bir sayım sayacı yapmak istiyorum ama bir türlü başaramadım yardımcı olabilirseniz çok sevinirim.

Herkese çok teşekkürler.

 

[b_m_k]

Herkese merhabalar,

Arkadaşlar aranızda bunu nasıl yapacağımı bileniniz yok mu gerçekten??

 

[b_m_k]

(( hala bu geri sayımın nasıl yapılabileceği konusunda bilgisi olan yok mu??

 

[birol_mumcu]

ekli dosyalara ya bir göz atın

 

[b_m_k]

Sn. Birol Bey,

Öncelikle yardımınız için çok teşekkür ederim.Geçmiş kolularda aradım fakat istediğim yardımı tekrar çok teşekkür ederim; ama ben bu geri sayım saatimi nasıl yapabileceğimi öğrenmek istiyorum, bu konuda yardımınız olabilirse inanın çok mutlu olacağım.


b_m_k

 

[kombo]

Sn anemos 'un bir kronometre çalışması.

http://www.excel.web.tr/showthread.php?p=105665#post105665

Arşivimde geri sayım saati var ama nasıl durduracağımı bilmiyorum. Devamlı çalışıyor.

 

[birol_mumcu]

Sn. Birol Bey,

Öncelikle yardımınız için çok teşekkür ederim.Geçmiş kolularda aradım fakat istediğim yardımı tekrar çok teşekkür ederim; ama ben bu geri sayım saatimi nasıl yapabileceğimi öğrenmek istiyorum, bu konuda yardımınız olabilirse inanın çok mutlu olacağım.


b_m_k

syn b_m_k ;
bu işlem makro ile yapılmış bir işlem dir.
yolladığım örnek çalışma sayfasını açın ve alt +f11 yaparak kodları görüntüleyin.
sayfada butonları ve rakamları çalıştıran kodlar bunlar.
bu işlemi yapmak istediğiniz çalışmanızın bir örneğini buraya eklerseniz (yapmak istediğinizi de açıkça yazarak) daha kolay yardımcı oluruz.

bu konuda sitemiz içinde arama yaparken "timer" veya "zaman" olarak arama yapın. bulduğunuz örnekleri, örnelerde yapılan eleştiri ve açıklamaları da dikkatle okursanız eminim benden daha çok bilgi edineceksiniz

 

[birol_mumcu]

Sn anemos 'un bir kronometre çalışması.

http://www.excel.web.tr/showthread.php?p=105665#post105665

Arşivimde geri sayım saati var ama nasıl durduracağımı bilmiyorum. Devamlı çalışıyor.

syn kombo;
sayım sonunda bir bomba varmı :mrgreen:

şakaydı

makroları devre dışı bırakarak dosyayı açın. ilgili kodu yollayın bakalım.

 

[kombo]

Ekteki dosyada Geri Sayım Kronometresi var. GERİ SAY ile güzelce çalışmaya başlıyor, Sıfırlamayı yapıyor ama Durdurma işlemini bir türlü başaramadım.

Kodlar alıntıdır.

 

[Levent Menteşoğlu]

Sn kombo

Öncelikle tebrik ederim. Durdurma için kodları aşağıdaki gibi düzenleyin.

Public sny As Byte, dak As Byte, saat As Byte
[B][COLOR=blue]Dim say As Integer[/COLOR][/B]
 
Sub GeriSay()
sny = sny + 1
If dak = Empty Then dak = 0
If sny = 60 Then
dak = dak + 1
sny = 0
End If
If saat = Empty Then saat = 0
If dak = 60 Then
saat = saat + 1
sny = 0
dak = 0
End If
[B][COLOR=blue]If say = 1 Then Exit Sub[/COLOR][/B]
[A2] = Format([A1] - TimeValue(saat & ":" & dak & ":" & sny), "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "GeriSay"
End Sub
 
Sub Sıfırla()
[COLOR=blue][B]say = 0[/B][/COLOR]
sny = 0
dak = 0
saat = 0
End Sub
 
Sub dur()
[COLOR=blue][B]say = 1[/B][/COLOR]
End Sub

 

[kombo]

Sn leventm
İlginiz için teşekkür ederim.
Şimdi duruyor ama durduktan sonra sıfırlamayı yapmıyor. Durdurduktan sonra GeriSay butonuda çalışmaz oldu.
Durdurduktan sonra tekrar çalıştırmak için sıralama şöyle oldu
Dur/Sıfırla/GeriSay

Yine de bu haliyle kullanılabilir nitelikte.

 

[Levent Menteşoğlu]

Sıfırlayı devreden çıkarmak için aşağıdaki gibi deneyin.

Public sny As Byte, dak As Byte, saat As Byte
[B][COLOR=blue]Dim say As Integer
[/COLOR][/B] 
Sub GeriSay()
sny = sny + 1
If dak = Empty Then dak = 0
If sny = 60 Then
dak = dak + 1
sny = 0
End If
If saat = Empty Then saat = 0
If dak = 60 Then
saat = saat + 1
sny = 0
dak = 0
End If
[A2] = Format([A1] - TimeValue(saat & ":" & dak & ":" & sny), "hh:mm:ss")
[COLOR=blue][B]If say = 0 Then[/B][/COLOR] Application.OnTime Now + TimeValue("00:00:01"), "GeriSay"
[B][COLOR=blue]say = 0[/COLOR][/B]
End Sub
 
Sub Sıfırla()
sny = 0
dak = 0
saat = 0
End Sub
 
Sub dur()
[B][COLOR=blue]say = 1[/COLOR][/B]
End Sub

 

[kombo]

Öbür hali ile daha kullanışlı oldu gibi. Bu şekli daha sorunlu oldu.

İlginiz için tekrar teşekkür ederim.

 

[birol_mumcu]

dur butonuna makro ekledim ama durmuyor. sadece butona basılıtutunca duruyor. butonu bırakırsam devam ediyor.

 

[birol_mumcu]

ben cevap yazana kadar cevap gelmiş

 

[baydeniro]

Paylaşım için teşekkürler.

 

[chevmet]

teşekkürler

 

[dileknurhan]

Sn anemos 'un bir kronometre çalışması.

http://www.excel.web.tr/showthread.p...665#post105665
gerçekten çok iyi bir çalışma. ama bana tam tersi yani bunu çalışan geriye sayanı lazım. yardımcı olursanız sevinirim

 

[abdi]

Levent bey in kodları gayet güzel çalışıyor
çok Teşekkürler
dur koduna [A2]="" ilave ettiğimizde gayet güzel çalışıyor
Saygılar sevgiler

Sub dur()
    say = 1
 [A2] = ""
End Sub