vb ile kar yağışı efekti

[aLayıNaiSyaN]

forma bir adet timer ekleyip timerin interval değerini 1000 yapın.Aşağıdaki kodları kod bölümüne yazın.Çalıştırın.

Kod:

Dim X(100), Y(100), pace(100), size(100) As Integer
Private Sub Form_Activate()
Randomize
For I = 1 To 100
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(I) = X1
Y(I) = Y1
pace(I) = pace1
size(I) = size1
Next
End Sub
Private Sub Form_Load()
Form1.ForeColor = &HFFFF80
Form1.FillColor = &HFFFF&
Form1.BackColor = 0&
End Sub
Private Sub Timer1_Timer()
For I = 1 To 100
Circle (X(I), Y(I)), size(I), BackColor
Y(I) = Y(I) + pace(I)
If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd)
Circle (X(I), Y(I)), size(I)
Next
End Sub

[YAKISIKLIM]

Hönk!..
Yukarda ne yazıo? sövmedin değil mi bize yss?

[Erdy||]

TeşekkürLer :)

[Pedigosa]

Peki bunu biraz daha genişletmek ve kullanıcıya özgü bir karşılama parametresi için ekranda çıkan kar yağışını seçme ve seçmeme tercihini kendilerine bırakmak istesek..

Alıntı: Private Sub karyagis() comboliste listeulke, "select distinct kar from karsilama order by efektim", "kar", cmbulke If cmbsnow.ListCount >= 1 Then cmbsnow.ListIndex = yefektim End Sub

satırımda neden türkçe karakter sorunu yaşarım? Case sensitive özelliği bu dediklerinizde işe yarar mı? yada

Alıntı: Dim myString As String ="hossohbet DeNeme"

kodu sorunu halleder mi?

Bilgilendirir misiniz ?

[Pedigosa]

Soruma hala bir cevap alamadım. Konuyu açan arkadaş madem yeterli bilgide değil, o zaman neden paylaşım yapıyor ki! :@

Alıntı: Pedigosa´isimli üyeden Alıntı Soruma hala bir cevap alamadım. Konuyu açan arkadaş madem yeterli bilgide değil, o zaman neden paylaşım yapıyor ki! :@

yetkili iken yapmisti ayrildi girmiyor artik..

[Pedigosa]

Bilgi için sağ ol