27-09-12, 04:24 PM
(آخر تعديل لهذه المشاركة : 27-09-12, 11:44 PM {2} بواسطة Nŏ Coммεητ.)
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
هذا هو أول موضوع اكتبه في هذا المنتدى الرائع و أتمنى من الله أن ينال إعجابكم
من العنوان الأمر واضح وهو كود لصناعة ساعة بالعقارب في أقل من خمس دقائق
نبدأ على بركة الله
أولاً نفتح مشروع جديد
ثم نضيف الأدوات التالية
1- picture box
2-label
3-timer[/center
[align=center]الأكواد
لقد قمت بارفاق ملف يحتوي على تفصيلات لمن لم يفهم من الشرح
و ارجوا من الله تعالى أن يكون الدرس قد نال إعجابكم و اعذروني ان كان هناك اي اخطاء
السلام عليكم و رحمة الله و بركاته
هذا هو أول موضوع اكتبه في هذا المنتدى الرائع و أتمنى من الله أن ينال إعجابكم
من العنوان الأمر واضح وهو كود لصناعة ساعة بالعقارب في أقل من خمس دقائق
نبدأ على بركة الله
أولاً نفتح مشروع جديد
ثم نضيف الأدوات التالية
1- picture box
2-label
3-timer[/center
[align=center]الأكواد
PHP كود :
Dim x, y, w, m
Private Sub Form_Load()
y = Picture1.Height / 2
x = Picture1.Width / 2
w = 850
Me.Top = 100
Me.Left = 12500
End Sub
PHP كود :
Private Sub Timer1_Timer()
Picture1.Cls
DrawWidth = 4: Picture1.Circle (x, y), w
DrawWidth = 4: Picture1.Line (x, y)-(x + (700 * Sin(Hour(Now) * 3.1415 / 6)), y - (700 * Cos(Hour(Now) * 3.1415 / 6))), vbBlack
DrawWidth = 3: Picture1.Line (x, y)-(x + (750 * Sin(Minute(Now) * 3.1415 / 30)), y - (750 * Cos(Minute(Now) * 3.1415 / 30))), vbvbblack
DrawWidth = 1: Picture1.Line (x, y)-(x + (800 * Sin(Second(Now) * 3.1415 / 30)), y - (800 * Cos(Second(Now) * 3.1415 / 30))), vbBlack
Label1.Caption = Date
End Sub
و ارجوا من الله تعالى أن يكون الدرس قد نال إعجابكم و اعذروني ان كان هناك اي اخطاء