Anasayfa > Kodlar > Aşagıdan yukarı kayan yazı

Aşagıdan yukarı kayan yazı


Bu Örnek İle yukardan Aşagı Kayan yazi nasıl yapılır onu görecegiz.

Öncelikle Formunuza 15 Adet Label Birleseni Koyun ve Sırasıyla Yukardan Assagıya Sıralayın Adlanınıda Sırasıyla e1,e2...e15 verin
Label Height ve Fontunu 16 yapın ve istediniz weight Degerlerini verin
Ondan sonra Formunuza bir Timer yerleştirin ve adını T Verin Bu Örnegi About Form tasarımında kullanabilirsiniz umarım begenirsiniz.
Saygılarımla Kemal Gülol Delphi Expert Programmer


' Programmed by Kemal GÜLOL
' Ankara / Turkey
' email : Gulolkml@hotmail.com
' Allright Reserved.

Option Explicit

Private Msg(26) As String
Private C As Integer
Private MsgC As Integer

Private Sub Form_Activate()

Msg(0) = "Samir Bilisim A.S"
Msg(1) = "SICAK SATIS PROGRAMI"
Msg(2) = "Version 1.5 Beta"
Msg(3) = ""
Msg(4) = "Tüm Haklari Saklidir."
Msg(5) = "Copyright © 1999 - 2002"
Msg(6) = "Windows Ce ©"
Msg(7) = ""
Msg(8) = ""
Msg(9) = ""
Msg(10) = "Tel (+90 312 417 62 78 )"
Msg(11) = "    (+90 312 417 24 51 )"
Msg(12) = "    (+90 312 417 57 62 )"
Msg(13) = "Fax (+90 312 417 62 79 )"
Msg(14) = ""
Msg(15) = ""
Msg(16) = "Selanik Cd. 62/2 P.K. 06640"
Msg(17) = "Kizilay - Ankara / Turkey"
Msg(18) = ""
Msg(19) = "Programlayan Kemal GÜLOL"
Msg(20) = "email: gulolkml@hotmail.com"
Msg(21) = ""
Msg(22) = ""
Msg(23) = ""
Msg(24) = ""
Msg(25) = ""
Msg(26) = ""

C = -1
MsgC = 26
T.Interval = 400
T.Enabled = True
End Sub

Private Sub T_Timer()
' FrmAboutSAMRUT.Refresh
C = C + 1
If Not C = MsgC Then
e1.Caption = Msg(C)
If C + 1 <= MsgC Then
e2.Caption = Msg(C + 1)
Else:
e2.Caption = Msg(C + 1 - MsgC)
End If
If C + 2 <= MsgC Then
e3.Caption = Msg(C + 2)
Else:
e3.Caption = Msg(C + 2 - MsgC)
End If
If C + 3 <= MsgC Then
e4.Caption = Msg(C + 3)
Else:
e4.Caption = Msg(C + 3 - MsgC)
End If
If C + 4 <= MsgC Then
e5.Caption = Msg(C + 4)
Else:
e5.Caption = Msg(C + 4 - MsgC)
End If
If C + 5 <= MsgC Then
e6.Caption = Msg(C + 5)
Else:
e6.Caption = Msg(C + 5 - MsgC)
End If
If C + 6 <= MsgC Then
e7.Caption = Msg(C + 6)
Else:
e7.Caption = Msg(C + 6 - MsgC)
End If
If C + 7 <= MsgC Then
e8.Caption = Msg(C + 7)
Else:
e8.Caption = Msg(C + 7 - MsgC)
End If
If C + 8 <= MsgC Then
e9.Caption = Msg(C + 8)
Else:
e9.Caption = Msg(C + 8 - MsgC)
End If
If C + 9 <= MsgC Then
e10.Caption = Msg(C + 9)
Else:
e10.Caption = Msg(C + 9 - MsgC)
End If
If C + 10 <= MsgC Then
e11.Caption = Msg(C + 10)
Else:
e11.Caption = Msg(C + 10 - MsgC)
End If
If C + 11 <= MsgC Then
e12.Caption = Msg(C + 11)
Else:
e12.Caption = Msg(C + 11 - MsgC)
End If
If C + 12 <= MsgC Then
e13.Caption = Msg(C + 12)
Else:
e13.Caption = Msg(C + 12 - MsgC)
End If
If C + 13 <= MsgC Then
e14.Caption = Msg(C + 13)
Else:
e14.Caption = Msg(C + 13 - MsgC)
End If
If C + 14 <= MsgC Then
e15.Caption = Msg(C + 14)
Else:
e15.Caption = Msg((C + 14) - MsgC)
End If
Else
C = -1
T_Timer
End If
End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: