Kodların tamamı bana aittir. Pek bir şey yok ama alın teri yani alıntı-calıntı değil
Gerekenler;
3 adet lineshape. İsimleri saat saniye ve dakika. renklerini değiştirebilirsiniz.
1 Adet timer. Bu kodları timer'ın icine yazabilirsiniz.
Bir adet te carpan olarak tanımlanan integer. 10 iyi bir rakam.
PHP Code:
saniye.X2 = Math.Cos(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.X1
saniye.Y2 = Math.Sin(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.Y1
dakika.X2 = Math.Cos(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.X1
dakika.Y2 = Math.Sin(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.Y1
saat.X2 = Math.Cos(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.X1
saat.Y2 = Math.Sin(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.Y1
carpanı aktif olarak ayarlamak icin Bir adet Track bar ekleyin ve icine;
PHP Code:
carpan = TrackBar1.Value
saniye.X2 = Math.Cos(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.X1
saniye.Y2 = Math.Sin(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.Y1
dakika.X2 = Math.Cos(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.X1
dakika.Y2 = Math.Sin(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.Y1
saat.X2 = Math.Cos(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.X1
saat.Y2 = Math.Sin(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.Y1
Ekleyin.
Son olarak Merkezleri ayarlayalim. Form Load'a;
PHP Code:
saat.X1 = 100
saat.Y1 = 100
saniye.X1 = 100
saniye.Y1 = 100
dakika.X1 = 100
dakika.Y1 = 100
Kodlarımızın son hali;
PHP Code:
Public Class Form1
Dim carpan As Integer = 10
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
saniye.X2 = Math.Cos(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.X1
saniye.Y2 = Math.Sin(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.Y1
dakika.X2 = Math.Cos(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.X1
dakika.Y2 = Math.Sin(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.Y1
saat.X2 = Math.Cos(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.X1
saat.Y2 = Math.Sin(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.Y1
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
carpan = TrackBar1.Value
saniye.X2 = Math.Cos(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.X1
saniye.Y2 = Math.Sin(Math.PI * (TimeOfDay.Second - 15) * 6 / 180) * 5 * carpan + saniye.Y1
dakika.X2 = Math.Cos(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.X1
dakika.Y2 = Math.Sin(Math.PI * (TimeOfDay.Minute - 15) * 6 / 180) * 4.5 * carpan + dakika.Y1
saat.X2 = Math.Cos(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.X1
saat.Y2 = Math.Sin(Math.PI * (TimeOfDay.Hour - 3) * 360 / (180 * 12)) * 3 * carpan + saat.Y1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
saat.X1 = 100
saat.Y1 = 100
saniye.X1 = 100
saniye.Y1 = 100
dakika.X1 = 100
dakika.Y1 = 100
End Sub
End Class
__________________