VB.NET Renklerin Dansı


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: GardenWall    0 Yorum    64 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 30.07.2016, 22:51:47 #1
GardenWall EFSANE
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:200 Konu Sayısı:60 Üyelik Tarihi:17.11.2015 Rep Puanı: 43

Gerekenler;

1 adet timer, 1 adet label

Kod:
form load kısmı;

Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub

timer cod kısmı;


Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
Label1.Top = y
Label1.Left = x
Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
Label1 = i
End Sub









Konuyu görüntüleyenler:
1 Misafir