Timer kullanılması hakkında

[Kemal Demir]

Arkadaşlar merhaba,

Timer kullanarak alt yazıları label'da göstermek istiyorum.
Şöyle söyleyeyım eğitim için hazırlanmıs bir videomuz var.Yazılarn ekrana geliş saniyesi ve kalıs saniyesi var.(Tek satırda yazılı ve ayrımı ---> bu şekilde) bu iki saniye arasında ilgili hucrelerden label'a veriler okutuluyor.

tek timer kullanarak kucuk bir çalışma yaptım ama daha profosyonelce nasıl bir kod yazılması gerekiyor yada bir öneriniz var mıdır?

Dosya ek'tedir.Bu konuda yardımcı olabilirmisiniz.

Teşekkurler iyi çalışmalar.

 

[Kemal Demir]

Konu hakkında alternatif fikri olan arkadşların önerilerinide bilmek isterim.

Teşekkurler.

 

[Ferhat Pazarçevirdi]

Kemal Bey, ieTimer Activex'i ben de olmadığından örnek dosyanızdaki makroları çalıştırmıyorum. Muhtemelen bazı üyelerimizde de aynı sorun vardır.

O nedenle; ne yapmak istediğinizi daha net anlatırsanız, uygun bir çözüm muhakkak bulunacaktır ... Bu çözümlerin içinde Timer kullanımı olmayabilir ...

 

[Kemal Demir]

İyi geceler arkadaşlar,

Ferhat bey,

Timer ocx dosyasını ekledım.

Yapmak istediğimi tekrar anlatmaya calisayim.

5. saniyeden 21.saniye kadar olan sürede label1 de "Deneme1" yazsın.
21,701(virgülden sonraki değer salisedir) saniyeden 34,300 saniye kadar gecen sürede label1 boş geçsin
34,300 saniyeden 37,367 saniye kadar geçen sürede label2 "deneme2" yazsın

.
.
.
bu dakilar boyunca hatta 2 saat gibi geçen süre de verilen eğitim'in çevirileri olacak.

Umarım anlatabilmişimdir.

Yarımdımcı olacak arkadaşlara teşekkurler.

1
00:00:05,033 --> 00:00:21,700
ÇEVİRİ: Deneme1

2
00:00:34,300 --> 00:00:37,367
Deneme2

3
00:00:37,400 --> 00:00:40,167
Deneme3

4
00:00:41,367 --> 00:00:44,200
Deneme4
Deneme4devam

5
00:00:55,167 --> 00:00:58,167
Deneme5
Deneme5devam

6
00:00:58,200 --> 00:00:59,467
Deneme6

7
00:00:59,500 --> 00:01:03,533
Deneme7
Deneme7devam

8
00:01:03,567 --> 00:01:05,800
Deneme8
Deneme8devam

 

[Kemal Demir]

Kemal Bey, ieTimer Activex'i ben de olmadığından örnek dosyanızdaki makroları çalıştırmıyorum. Muhtemelen bazı üyelerimizde de aynı sorun vardır.

O nedenle; ne yapmak istediğinizi daha net anlatırsanız, uygun bir çözüm muhakkak bulunacaktır ... Bu çözümlerin içinde Timer kullanımı olmayabilir ...

Ferhat hocam,

Tabiki herturlu cozume açıgım.
Teşekkurler

 

[modalı]

Sayın Kemal Demir,

Sorunuzu okurken aklıma bir şey geldi. Tabi bir düşünce olur mu bilmiyorum.

Alt yazıları Power Point de hazırlayıp (orada hazır zaman ayarlayıcı var.) bu Power Point dosyasını Excel e gömersek sonuç alabilir miyiz acaba?


İyi çalışmalar

 

[modalı]

Film formatınızı bilmiyorum ama aşağıdaki link işinize yararmı acaba?


http://www.online-tech-tips.com/computer-tips/how-to-add-subtitles-to-a-video/

İyi çalışmalar

 

[Kemal Demir]

Sn modalı,

Bunu Excel ile yapmayı planlıyorum.Excel ile yapılması (timer kullanılarak) zormudur.Yapılabileceği kanısındayım.Ama zannedersem çözüme nereden yaklasacagımı bilemiyorum.

Teşekkurler

NOT:evet ppt de yapılması mumkun ama ben kolları sıvarken "neden Excel olmasın" diye dusundum.Bunu excelde yapmayı planlıyorum.

Bunu if - End if lerler mümkün ama 1,5 saat sürecek eğitim için yaklasık 800 endif kullanmam gerekiyor.

 

[Ferhat Pazarçevirdi]

Kemal bey, Excel'de zaman aralıklarını yazdığınız kısımları bu şekilde mi kullanacaksınız yoksa değiştirme şansınız var mı?

Çünkü, bu zamanları okumak ve zamanlamak da problem ...

Kimi 3 satır aralıklı, kimi 4 satır aralıklı ...

Düzeniniz bu şekildeyse, yapacak birşey yok tabi ...

Ama eğer bir standardizasyon yaratırsanız, daha hızlı ilerleyebiliriz.

 

[Ferhat Pazarçevirdi]

Neyse, boşverin sonradan bir çözüm geldi aklıma ...

 

[Kemal Demir]

Ferhat hocam,

bu değerli vaktinizi benim için harcadıgınız için tekrar teşekkurler.Yaptıklarınızı paylasırsanız adım adım gitmemize nedersiniz?
Max yazı 2 satırdan olusmakta.
Cozumunuzu bekliyorum.

 

[Ferhat Pazarçevirdi]

Kemal bey,

Ekteki dosyayı inceleyiniz ...

Daha öncede söylediğim gibi, ayrıca bir ocx'e Timer'a gerek yoktur.

UF'nin kod modulüne aşağıdaki kodlar yazılmıştır.

Dim dBoo As Boolean
Private Sub UserForm_Activate()
    Dim i As Integer
    Dim rngBul As Range
    Dim col As New Collection
    Dim sSpl As Variant
    Dim iByt As Long
    Dim dBas As Double
    Dim dBit As Double
    
    Set rngBul = Columns(1).Find("-->")
    If Not rngBul Is Nothing Then
        sAdr = rngBul.Address
        DoEvents
        Do
            DoEvents
            For Each sSpl In Split(rngBul, "-->")
                x = x + 1
                If x = 1 Then
                    dBas = Right(Trim(sSpl), 6)
                Else
                    If IsNumeric(dBas) Then
                        dBit = Right(Trim(sSpl), 6)
                        x = 0
                    End If
                End If
            Next
                        
            Label1.Caption = rngBul.Offset(1, 0)
                       
            dtimer = Timer
            Do
            DoEvents
            Loop While Timer - dtimer <= dBit - dBas And dBoo = False
            
            Set rngBul = Columns(1).FindNext(rngBul)
        Loop While Not rngBul Is Nothing And sAdr <> rngBul.Address
    End If
    Set rngBul = Nothing
End Sub
'-------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    dBoo = True
End Sub

 

[Kemal Demir]

Ferhat hocam,

Oncelkle teşekkurler.Yalnız sürelere çok mu hızlı gidiyor.Tekrar bakabilirmisiniz? textlerden geçişlerde aradaki süreler kadar beklemesi ( yanı label'ın boş gelmesi )gerekiyor. Tekrar yazmak istiyorum.Süreler çok hızlı ilerliyor.

Tekrar tekrar teşekkurler.

 

[Ferhat Pazarçevirdi]

Kemal bey,

Zaten belirttiğiniz başlangıç ve bitiş zamanları arasında geçen süre 3-5 saniyeden ibaret ... Kodlar sadece sizin, belirlediğiniz başlangıç ve bitiş sürelerine göre etiket göstermektedir ...

Gerçi kodları tekrar revize ettim. Saniye göstergesi de ilave ettim. Dosyanızdaki verilerle, işlenen veri süreleri arasındaki ilişkiyi buradan takip edeip değerlendirebilirsiniz.

 

[Kemal Demir]

Ferhat Bey,

Evet siz yazdıgınızda çozumun mantıgını anladım.Tekrar Tekrar Teşekkurler emeğinize sağlık.