در خواست سورس ساعت روميزي براي ويندوز xp [آرشيو] - P30World Forums

مشاهده نسخه کامل : در خواست سورس ساعت روميزي براي ويندوز xp

taha_nadri

09-03-2009, 15:46

با سلام خدمت دوستان خوبم در سايت پي سي ورلد
من هرجه تويانجمن سرچ كردم چيزي پيدا نكردم من دنبال سورس يه ساعت روميزي ميگردم
از اساتيد كسي چيزي سراغ داره براي ما هم لينكشو قرار بده
با سپاس فراوان

SMNsoft

09-03-2009, 20:55

من سورس دو نوع ساعت را دارم.

امیدوارم به دردت بخورد.

1) ساعت آنالوگ

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید2) ساعت دیجیتال

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

:6:

taha_nadri

10-03-2009, 19:07

taha_nadri

11-03-2009, 12:40

دوستان كسي سورس تقويم هم داره ؟

taha_nadri

13-03-2009, 01:20

دوستان و اساتید گرام
کســـــــــــــــــــی نبود ؟

SMNsoft

13-03-2009, 19:34

سلام:

منظورت از تقویم، تقویم شمسی است یا تقویم میلادی؟

taha_nadri

15-03-2009, 14:57

سلام:

منظورت از تقویم، تقویم شمسی است یا تقویم میلادی؟
تقویم شمسی عزیز
مثل تقویم شرکت طرفه نگار و برنامه sun calender فارسی

taha_nadri

02-04-2009, 01:16

Help me help me

ehsan_sabet62

09-04-2009, 14:30

سلام
میشه برای ساعت دیجیتال و آنالوگ یک لینک دیگه معرفی کنید چون دوتا لینک بالا اشکال داره
قبلا تشکر می کنم

ar.constantine

10-04-2009, 15:57

ببين من اين ساعت رو خودم نوشتم البته خيلي ساده است كه خودت ميتوني اون رو ويرايش كني!
البته اگر بلدي!!!!!
اين دستورات رو تو برنامه وارد كن :

Private Sub Form_Activate()
Form1.DrawWidth = 3
Circle (Line1.X1, Line1.Y1), a + 8
Line1.X2 = Line1.X1 + a * Sin((i * 3.1415) / 180)
Line1.Y2 = Line1.Y1 + a * Cos((i * 3.1415) / 180)
i = i - 1
If i = 0 Then i = 360

End Sub

Private Sub Form_Load()
i = 360
a = Sqr((Line1.X1 - Line1.X2) * (Line1.X1 - Line1.X2) + (Line1.Y1 - Line1.Y2) * (Line1.Y1 - Line1.Y2))
End Sub

Private Sub Timer1_Timer()
Circle (Line1.X1, Line1.Y1), a + 8
Line1.BorderWidth = 3
Line1.X2 = Line1.X1 + a * Sin((i * 3.1415) / 180)
Line1.Y2 = Line1.Y1 + a * Cos((i * 3.1415) / 180)
i = i - 1
If i = 0 Then i = 360
End Sub