───────────────────────────────────────────────────────────────────────────────────────────
Visual Basic'te Yenı Bır Proje Acıktıktan Sonra
Visual Basic'te Yenı Bır Proje Acıktıktan Sonra
Gerekenler:
l+l 1 Tane Label
l+l 1 Tane Tımer
───────────────────────────────────────────────────────────────────────────────────────────
1) Label 1'ın Adını Istegınıze Gore Degiştirin
l+l 1 Tane Label
l+l 1 Tane Tımer
───────────────────────────────────────────────────────────────────────────────────────────
1) Label 1'ın Adını Istegınıze Gore Degiştirin
───────────────────────────────────────────────────────────────────────────────────────────
Kodlama Bölümü:
Tımer'a 2 kere Tıklayarak Kod Bolumunu Acınız
───────────────────────────────────────────────────────────────────────────────────────────
l+l Tımer'ın Uzerıne Gelecek Kod
Tımer'a 2 kere Tıklayarak Kod Bolumunu Acınız
───────────────────────────────────────────────────────────────────────────────────────────
l+l Tımer'ın Uzerıne Gelecek Kod
Kod:
Dim r, g, b As Integer
Kod:
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
Kod:
Timer1.Enabled = True
Timer1.Interval = 100
Kodlanma Bolumu Assagıdakı Gıbıdır =)
Label'ın Saniye Başı Renk Degiştirmesini Saglar =)