در خواست سورس ساعت روميزي براي ويندوز xp

[taha_nadri]

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

[SMNsoft]

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

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

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

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

2) ساعت دیجیتال

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

[taha_nadri]

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

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

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

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

2) ساعت دیجیتال

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

ممنون عزیزم از بابت راهنمایی دست گلت درد نکنه

[taha_nadri]

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

[taha_nadri]

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

[SMNsoft]

سلام:

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

[taha_nadri]

سلام:

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

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

[taha_nadri]

Help me help me

[ehsan_sabet62]

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

[ar.constantine]

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

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