Anasayfa > Kodlar > Visual Basic 6 ile ilginç saat ve tarih programı yapmak

Visual Basic 6 ile ilginç saat ve tarih programı yapmak


Yanıp sönen label kayan yazı saat tarih hepsi burda.

Merhaba ArKadaşlar Şimdi Size Değişik Bir Saat Programı Göstericem Kullanılan Araçlar
'5 tane Timer
'3 Tane Label
'1 tane Picure Box

'Yapılacaklar
'Labellerden  İki Tanesini tanesini Picturebox içine paste edin Birisini Sonuna Birisi Başına
'Sonra Aşağıdakilerin Aynısını Code Penceresine Paste Edin Dikkat: Code Penceresindeki Herşeyi Silin  Yok Program Çalışmaz
'Program Üzerinde Değişik Şeyler Bulursanız Gönderin,Paylaşalım

Private Sub Form_Load()
Label4.Caption = "Erdi Maden Mail:camel_lk@mynet.com"
Label1.Width = 0
Timer4.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 10
Timer3.Interval = 1000
Timer4.Interval = 1000
Timer5.Interval = 1000
Timer6.Interval = 1000
Label3.Caption = "1 Dakika Daha Bitti ...................."
Label1.BackColor = &H80FF&
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Private Sub Timer2_Timer()
Label1.Width = Label1.Width + 6
If Label1.Width >= Picture1.Width Then
Label1.Width = 0
End If
End Sub

Private Sub Timer3_Timer()
Label2.ForeColor = vbBlue
Timer3.Enabled = False
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
Label2.ForeColor = vbRed
Timer4.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer5_Timer()
Label1.ForeColor = vbBlue
Timer5.Enabled = False
Timer6.Enabled = True
End Sub

Private Sub Timer6_Timer()
Label1.ForeColor = vbRed
Timer6.Enabled = False
Timer5.Enabled = True
End Sub

Private Sub Timer7_Timer()
Label2.Caption = Now
End Sub


TD Software


  1. 25/11/2011, 18:14

    7 timer 4 tane label koymuşsun

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazı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: