با سلام خدمت دوستان خوبم در سايت پي سي ورلد
من هرجه تويانجمن سرچ كردم چيزي پيدا نكردم من دنبال سورس يه ساعت روميزي ميگردم
از اساتيد كسي چيزي سراغ داره براي ما هم لينكشو قرار بده
با سپاس فراوان
Printable View
با سلام خدمت دوستان خوبم در سايت پي سي ورلد
من هرجه تويانجمن سرچ كردم چيزي پيدا نكردم من دنبال سورس يه ساعت روميزي ميگردم
از اساتيد كسي چيزي سراغ داره براي ما هم لينكشو قرار بده
با سپاس فراوان
من سورس دو نوع ساعت را دارم.:6:
امیدوارم به دردت بخورد.
1) ساعت آنالوگ
2) ساعت دیجیتالکد:http://smn-soft.persiangig.com/VB6/Analog%20Clock.zip
کد:http://smn-soft.persiangig.com/VB6/LCD%20Clock.zip
ممنون عزیزم از بابت راهنمایی دست گلت درد نکنهنقل قول:
دوستان كسي سورس تقويم هم داره ؟
دوستان و اساتید گرام
کســـــــــــــــــــی نبود ؟
سلام:
منظورت از تقویم، تقویم شمسی است یا تقویم میلادی؟
تقویم شمسی عزیزنقل قول:
مثل تقویم شرکت طرفه نگار و برنامه sun calender فارسی
Help me help me
سلام
میشه برای ساعت دیجیتال و آنالوگ یک لینک دیگه معرفی کنید چون دوتا لینک بالا اشکال داره
قبلا تشکر می کنم
ببين من اين ساعت رو خودم نوشتم البته خيلي ساده است كه خودت ميتوني اون رو ويرايش كني!
البته اگر بلدي!!!!!
اين دستورات رو تو برنامه وارد كن :
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