تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
صنع ساعة بعقاربها
#1
بسم الله الرحمن الرحيم


السلام عليكم و رحمة الله و بركاته


هذا هو أول موضوع اكتبه في هذا المنتدى الرائع و أتمنى من الله أن ينال إعجابكم


من العنوان الأمر واضح وهو كود لصناعة ساعة بالعقارب في أقل من خمس دقائق


نبدأ على بركة الله


أولاً نفتح مشروع جديد


ثم نضيف الأدوات التالية


1- picture box


2-label


3-timer[/center
[align=center]الأكواد

PHP كود :
Dim xywm
Private Sub Form_Load()
Picture1.Height 2
Picture1.Width 2
850

Me
.Top 100
Me
.Left 12500
End Sub 


PHP كود :
Private Sub Timer1_Timer()
Picture1.Cls
DrawWidth 
4Picture1.Circle (xy), w
DrawWidth 
4Picture1.Line (xy)-(+ (700 Sin(Hour(Now) * 3.1415 6)), - (700 Cos(Hour(Now) * 3.1415 6))), vbBlack
DrawWidth 
3Picture1.Line (xy)-(+ (750 Sin(Minute(Now) * 3.1415 30)), - (750 Cos(Minute(Now) * 3.1415 30))), vbvbblack
DrawWidth 
1Picture1.Line (xy)-(+ (800 Sin(Second(Now) * 3.1415 30)), - (800 Cos(Second(Now) * 3.1415 30))), vbBlack

Label1
.Caption Date

End Sub 
لقد قمت بارفاق ملف يحتوي على تفصيلات لمن لم يفهم من الشرح
و ارجوا من الله تعالى أن يكون الدرس قد نال إعجابكم و اعذروني ان كان هناك اي اخطاء


الملفات المرفقة
.rar   كتاب الساعة بعق&#1.rar (الحجم : 413.93 ك ب / التحميلات : 166)
الرد }}}
تم الشكر بواسطة:
#2
مشكور أخي لكن هل يمكن تكبير حجم العقارب وإضافة الألوان اليها؟؟
الرد }}}
تم الشكر بواسطة:
#3
طبعاً أخي هذا سهل جداً

لتغيير حجم الخط اكتب
picture1.DrawWidth=num
حيث num هو حجم الخط

لتغيير طول الخط بدل الارقام700و750و800
بالارقام التي تريدها

و أخيراً لتغيير لون الخط بدل vbBlack
باللن الذي ترغب فيه
vbRed, vbBlue,vbGreen,.....
او استعمل RGB

و اتمنى لك التوفيق
الرد }}}
تم الشكر بواسطة:
#4
ممممممممممممممممممممممششششششششششششششكور على الجهد
الرد }}}
تم الشكر بواسطة:
#5
الف شكر على الجهد
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم