Kayan Yazı Animasyon Örnekleri

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Kayan Yazı Animasyon Örnekleri

İleti#1)  Tarkan VURAL » 06 Kas 2013 23:20

Form üzerindeki Caption kısmında, CommandButton üzerinde, Label üzerinde, TextBox içinde vs.. timer apisi kullanılarak hazırladığım kayan yazı örnekleri. Umarım faydalı olur. --)(

Module içine ;
Kod: Tümünü seç

Public Declare Function SetTimer Lib 
"user32" ( _
                        ByVal hwnd As Long
, _
                        ByVal nIDEvent As Long
, _
                        ByVal uElapse As Long
, _
                        ByVal lpTimerFunc As Long
) As Long
Public Declare Function KillTimer Lib 
"user32" ( _
            ByVal hwnd As Long
, ByVal nIDEvent As Long) As Long
Public Declare Function FindWindow Lib 
"user32" Alias "FindWindowA" ( _
                        ByVal lpClassName As String
, _
                        ByVal lpWindowName As String
) As Long
Public hwnd As Long
, Cl As Integer, at As Integer

Public Sub Timer
(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
UserForm1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
UserForm1.CommandButton1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
UserForm1.Label1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
UserForm1.TextBox1.Text = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
UserForm1.OptionButton1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
End Sub

Public Function Animasyon
(str As String, eff As Integer) As String
Dim lop
Cl 
= Len(str) + 1
at 
= at + 1
If at 
>= Cl Then
at 
= 1
End If
Select Case eff
    Case 0          
'Sağ
        Animasyon = Mid(str, at) + Left(str, at)
    Case 1          '
Sol
         Animasyon 
= Mid(str, (Cl - at)) + Left(str, (Cl - at))
    Case 2          'Orta
         Animasyon = Mid(str, (Cl - at)) + Left(str, (Cl - at)) + Mid(str, at) + Left(str, at)
    Case 3          '
Sağ Sol
         Animasyon 
= Mid(str, at) + Left(str, at) + Mid(str, (Cl - at)) + Left(str, (Cl - at))
End Select
End Function
 


UserForm kod sayfasına ;
Kod: Tümünü seç

Private Sub UserForm_Activate
()
hwnd = FindWindow(vbNullString, Me.Caption)
SetTimer hwnd, 0, 200, AddressOf Timer
End Sub

Private Sub UserForm_QueryClose
(Cancel As Integer, CloseMode As Integer)
KillTimer hwnd, 0
End Sub


Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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 ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27413
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#2)  Erhan Yavuz » 07 Kas 2013 10:30

Çok güzel bir çalışma, teşekkürler dostum.. şkşk [gulumse] şkşk [music]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 61
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#3)  Uygaroz » 02 Oca 2015 16:58

Tarkan Bey
Hayırlı Kandiller. Eklemiş olduğunuz dosya (Rar Dosyası) açılırken hata veriyor.
Rica etsem tekrar yükleyebilir misiniz?
Uygar
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#4)  Tarkan VURAL » 02 Oca 2015 17:09

Sizlere de hayırlı kandiller. Arşivime almamışım. Yeniden oluşturdum ve ilk mesaja ekledim.
Bilginize...
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 ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27413
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#5)  Uygaroz » 04 Oca 2015 19:11

Zahmet oldu.
Çok teşekkürler.
Uygar
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#6)  acemi85 » 05 Şub 2018 15:47

Sayın Tarkan Hocam Emeğinize Sağlık güzel Çalışma olmuş.
Ben kendi bilgisayarımda hata almıyorum,Fakat arkadaşların bilgisayarlarında 64bit Hatası alıyorum fonksiyonlarda bu sorunu nasıl aşabilirim.
Şimdiden teşekkür ederim.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#7)  acemi85 » 05 Şub 2018 16:53

Modulde Bunu;
Kod: Tümünü seç
#If Win64 Then
Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
#Else
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
#End If
#If Win64 Then
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#Else
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
#If Win64 Then
Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#End If
Public hwnd As LongPtr, Cl As Integer, at As Integer

Public Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
'UserForm1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
'UserForm1.CommandButton1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
UserForm1.Label6.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
'UserForm1.TextBox1.Text = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
'UserForm1.OptionButton1.Caption = Animasyon("Www.ExcelVBA.Net         Kod Yazmak Bizim İşimiz           ", 3)
End Sub

Public Function Animasyon(str As String, eff As Integer) As String
Dim lop
Cl = Len(str) + 1
at = at + 1
If at >= Cl Then
at = 1
End If
Select Case eff
    Case 0          'Sağ
        Animasyon = Mid(str, at) + Left(str, at)
    Case 1          'Sol
         Animasyon = Mid(str, (Cl - at)) + Left(str, (Cl - at))
    Case 2          'Orta
         Animasyon = Mid(str, (Cl - at)) + Left(str, (Cl - at)) + Mid(str, at) + Left(str, at)
    Case 3          'Sağ Sol
         Animasyon = Mid(str, at) + Left(str, at) + Mid(str, (Cl - at)) + Left(str, (Cl - at))
End Select
End Function


Ama başaramadım Yardımlarınızı bekliyorum ustalarım..
Hayırlı akşamlar.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#8)  Tarkan VURAL » 05 Şub 2018 17:08

Hata açıklaması nedir ?
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 ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27413
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#9)  acemi85 » 05 Şub 2018 18:39

compile error:
the code in this project must be uptated for use on 64-bit systems. Please review and uptadate Declare statemennts and then mark them with the PtrSafe attribute.

Tarkan bey bir bu hatayi veriyor.
Bir de fonksiyonla ilgili bir hata veriyor userformdaki settimer ve killtimer da.
Onun açıklamasını yarın işe gidince yazarim kusura bakmayin mesajinizi gec gördüm.
İyi aksamlar.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#10)  acemi85 » 06 Şub 2018 08:37

Günaydın..
Tarkan Ustam Bahsettiğim fonksiyon hatası;
Compile error:
sub Function not defined.
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#11)  Tarkan VURAL » 06 Şub 2018 08:43

Bendeki işletim sistemi de x64. İlk mesajdaki dosyayı indirdim, denedim. Sorun yaşamadan çalıştığını gördüm. İçerisine 64bit api dönüşümü de henüz yazmadım. Arkadaşınızın bilgisayarındaki Office programından kaynaklanıyor olabilir, bilemedim. Sürümünü ve özelliklerini kontrol ediniz.
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 ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27413
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#12)  acemi85 » 06 Şub 2018 09:09

excel 2010 versiyonu ustam çözemiyecek miyiz yoksa :(
Kullanıcı avatarı
acemi85
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:33
Meslek: memur
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#13)  FENER1907 » 09 Oca 2021 23:56

Tarkan hocam süper ötesi bir animasyon olmuş. --)(
Kullanıcı avatarı
FENER1907
 
Kayıt: 19 Arl 2014 20:44
Meslek: işçi
Yaş: 52
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

Cevap: Kayan Yazı Animasyon Örnekleri

İleti#14)  Tarkan VURAL » 10 Oca 2021 01:02

Merhaba, hoş geldiniz. Beğenmenize sevindim. ;)
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 ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27413
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Örnek Dosyalar

Online Kullanıcılar

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

Bumerang - Yazarkafe