ورود

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


taha_nadri
09-03-2009, 15:46
با سلام خدمت دوستان خوبم در سايت پي سي ورلد
من هرجه تويانجمن سرچ كردم چيزي پيدا نكردم من دنبال سورس يه ساعت روميزي ميگردم
از اساتيد كسي چيزي سراغ داره براي ما هم لينكشو قرار بده
با سپاس فراوان
SMNsoft
09-03-2009, 20:55
من سورس دو نوع ساعت را دارم.

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

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


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


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

:6:
taha_nadri
10-03-2009, 19:07
من سورس دو نوع ساعت را دارم.

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

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


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


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

ممنون عزیزم از بابت راهنمایی دست گلت درد نکنه
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