Hareketli label ve buton basım kaydet

[XLS-Men]

Sevgili hocalarım ve dostlarım;

Siteye yeni üye oldum ve hemen bu sosyal ve hararetli aktiviteye katılıp takıldığım bir kaç soruyu sormak istiyorum.

1. Bir form oluşturup içine 10 adet label koydum. Bunları Karaşimşek' in ışığı gibi soldan sağa, sağdan sola kırmızı renkte hareket ettirebilir miyiz ? Hızını ayarlayarak ?
( Yaptığım bir programın başlangıç ve sonuna koyacağım...)

2. Son sorum. Buton basımlarını kaydedip sonrada tekrar oynatabilir miyiz ? Yani kaydet butonuna bastıktan sonra; tekrar basana kadar ki o zaman zarfı içinde herhangi butonlara basımları ( zamanları da dahil ) kaydedecek.

Teşekkürler...

 

[Ali]

İlk sorunuz için.
Modüle aşağıdaki kodları ekleyin. Properties ForeColor'dan Labellerin yazı rengini değiştirebilirsiniz

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
                        ByVal nIDEvent As Long, _
                        ByVal uElapse As Long, _
                        ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
                        ByVal nIDEvent As Long) As Long
Public ID As Long
Const yazilar As String = "Excel'e hoşgeldiniz"
Sub StartIt()
    ID = SetTimer(0, 0, 200, AddressOf RunMe)
End Sub
Sub Stopit()
    RetVal = KillTimer(0, ID)
End Sub
Private Function RunMe(ByVal hwnd As Long, ByVal uMsg As Long, _
                       ByVal idEvent As Long, _
                       ByVal dwTime As Long) As Long
    On Error Resume Next
    With UserForm1.Label1
        .Caption = yazilar
        .Left = .Left - 5
            If .Left = 20 Then
                .Caption = Empty
                .Left = 150
            End If
    End With
End Function

Userforma aşağıdaki kodları ekleyin.

Private Sub UserForm_Initialize()
    Label1.Caption = yazilar
    Label1.Left = 150
     Call StartIt
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Call Stopit
End Sub

 

[XLS-Men]

Sevgili fructose;

Bu da güzel bir çalışma. Ama galiba yanlış anlattım derdimi.

Yan yana 10 adet label var. Bunların üzerlerinde isim olmayacak. Sadece içi renkli kutucuk olacak. Bu renkleri, örneğin kırmızı, soldan sağa ve sağdan sola teker teker yakıp söndürmek istiyorum. Bu şekilde bir şey...

1. label yanıp sönecek sonra 2. label yanıp sönecek, bu şekilde gidecek...

 

[excellium]

flash animasyonu koyarsanız çok daha kolay olur. teklifimi değerlendirirseniz size bir örnek yapabilirim

 

[Ali]

Bunun yerine progresbar yapmak daha uygun gibi bununla ilgili bir çalışma var.Bir inceleyin.

http://www.andypope.info/vba/pmeter.htm

 

[XLS-Men]

Cevap için teşekkürler fructose;

Şimdi XP bar kısmı üzerinde çalışıyorum. İleri gidiyor, bir de geri giden kısmını da olunca daha güzel olacak..

Sayın excellium sizin öneriniz de güzel olabilir. Mümkünse bekliyorum.

Çünkü hep aynı programı görmekten sıkılıyor insan. Excel' de yapmış olduğum takip programı var ve bunun girişine ve çıkışına ekleyeceğim.

Teşekkürler...

 

[excellium]

macro ile yaparsak sanırım başka işlemler yapamıyoruz formda.

ekteki flash'ı zip ten çıkarıp excel dosyasıyla beraber c:\ 'nin altına kopyalayıp incelermisiniz?

 

[XLS-Men]

Sayın excellium güzel flash dosyası.

Ama Vba kısmına giremiyorum. Excel' den çıkıyor. Excel versiyonlarında farklılık olabilir mi ?

 

[excellium]

referanslar veya hmmm..

başka bir arkadaş da denerse belki bişiler bulabliriz, çünkü bende çalışıyor

 

[Levent Menteşoğlu]

Bende bir örnek hazırladım ekte inceleyin.

Not: Sn excellium'un dosyasıda gayet güzel çalışıyor bunuda belirteyim.

 

[XLS-Men]

Özür dilerim. Emeğe saygısızlık etmişim. Dosya çalışıyor. Programdan kaynaklanmış.

Leventm hocam istediğim gibi olmuş. Teşekkürler.

Sevgili excellium tekrar söylüyorum. Flash dosyası süper.

2. sorumun yapılabilmesi mümkün mü ?

 

[Levent Menteşoğlu]

İkinci sorunuzu biraz daha açarmısınız.

 

[XLS-Men]

Sayın Leventm hocam sorum şöyle;

Forma bir adet kayıt butonu koyalım. Bu butona bastıktan sonra basılış süreleri dahil olacak şekilde diğer butonlara basılışları kayıt edecek, daha sonra kayıt butonuna bastıktan sonra daha önce yapılan buton basım işlemlerini sırasıyla bana göstersin. Örneğin command1 butonuna bastı 1 dk. bekledi, sonra command2 butonuna bastı 30 sn. bekledi togglebutona bastı 2 sn. bekledi vb. gibi.

Hani ekranda yapılanları kayıt eden programlar var. Onun gibi bir şey. Devamlı ekranda olması gereken bir programım var. Buna başka kişi girip tuşlarıyla oynayıp oynamadığını kontrol etmek için alternatif bir şey oluşturmak istiyorum.

 

[Levent Menteşoğlu]

Bu istediğiniz yapılabilir ama bence userformu şifre ile korumaya almak daha mantıklı.

 

[XLS-Men]

Leventm hocam ;

Şifresi var. Ben sadece alternatif olabilir mi ve excel' de yapılabilir mi diye düşünmüştüm.

Hocam ayrıca sitenin makro kısmında butonlarla ilgili bir arkadaş birşeyler yapmaya çalışıyordu. (kbekler)
İşte orada butonlara basıp diğer butonla kaydettikten sonra tekrar oynatması güzel olurdu.