ساعت عقربه ای

[بهزادانلاین]

با سلام
من یه ساعت عقربه ای میخواستم تو وی بی درست کنم که ساعت سیستم را دریافت میکنه و توسط کاربر بشه تنظیم اش کرد
با تشکر اگه نمونه بزارین ممنون میشم.

[shahpari]

سلام

این تالار مربوط به مقالات ویبی هست سئوالتون رو توی این لینک مطرح کنید.
http://barnamenevis.org/forum/forumdisplay.php?f=43

موفق باشید

[shahpari]

این یه ساعت عقربه ای هست که ساعت جاری سیستم رو نمایش میده

[arkia]

منم یه ساعت آنالوگ (عقربه ای) نوشتم که براتون میزارم. البته شاید یه کم شلوغ پلوغ و ناقص باشه ولی دقیقا کار میکنه چون امتحانش کردم .


Sub clock()
Dim hh, h, m, s As Single
m = Minute(Time)
s = Second(Time)
h = Hour(Time)
If m = 0 Then hh = h
If m < 5 Then hh = h
If m >= 5 Then hh = h + (1 / 11 * 1)
If m >= 10 Then hh = h + (1 / 11 * 2)
If m >= 15 Then hh = h + (1 / 11 * 3)
If m >= 20 Then hh = h + (1 / 11 * 4)
If m >= 25 Then hh = h + (1 / 11 * 5)
If m >= 30 Then hh = h + (1 / 11 * 6)
If m >= 35 Then hh = h + (1 / 11 * 7)
If m >= 40 Then hh = h + (1 / 11 * 8)
If m >= 45 Then hh = h + (1 / 11 * 9)
If m >= 50 Then hh = h + (1 / 11 * 10)
If m >= 55 Then hh = h + (1 / 11 * 10)

' Saat
Line1.X2 = ghotr / 2 * (0.6) * Cos(Pi / 180 * (30 * hh - 90)) + ghotr / 2
Line1.Y2 = ghotr / 2 * (0.6) * Sin(Pi / 180 * (30 * hh - 90)) + ghotr / 2
' Daghigheh
Line2.X2 = ghotr / 2 * (0.8) * Cos(Pi / 180 * (6 * m - 90)) + ghotr / 2
Line2.Y2 = ghotr / 2 * (0.8) * Sin(Pi / 180 * (6 * m - 90)) + ghotr / 2
' Saniye
Line3.X2 = ghotr / 2 * (0.8) * Cos(Pi / 180 * (6 * s - 90)) + ghotr / 2
Line3.Y2 = ghotr / 2 * (0.8) * Sin(Pi / 180 * (6 * s - 90)) + ghotr / 2
End Sub


اگه خواستید برام ایمیل بزنید تا Application کاملشو براتون بفرستم

[adiban]

من در زمينه برنامه نويسي نا آشنا هستم و دوست دارم كه كار كنم .

با تشكر
اديبان

[bagherpour.arash]

[اين هم يك ساعت آنالوگ براي فرستادن سورسش بهم ايميل بزنيد

[roboticman]

آقایون با سلام .
اگه میشه بگین چطور میشه با vb.net یک ساعت انالوگ نوشت .
ممنون میشم .