+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : صنع ساعة بعقاربها (/showthread.php?tid=4519)
صنع ساعة بعقاربها - AGASHE - 27-09-12
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
هذا هو أول موضوع اكتبه في هذا المنتدى الرائع و أتمنى من الله أن ينال إعجابكم
من العنوان الأمر واضح وهو كود لصناعة ساعة بالعقارب في أقل من خمس دقائق
نبدأ على بركة الله
أولاً نفتح مشروع جديد
ثم نضيف الأدوات التالية
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
و ارجوا من الله تعالى أن يكون الدرس قد نال إعجابكم و اعذروني ان كان هناك اي اخطاء
صنع ساعة بعقاربها - kkaylani - 29-09-12
مشكور أخي لكن هل يمكن تكبير حجم العقارب وإضافة الألوان اليها؟؟
صنع ساعة بعقاربها - AGASHE - 30-09-12
طبعاً أخي هذا سهل جداً
لتغيير حجم الخط اكتب
picture1.DrawWidth=num
حيث num هو حجم الخط
لتغيير طول الخط بدل الارقام700و750و800
بالارقام التي تريدها
و أخيراً لتغيير لون الخط بدل vbBlack
باللن الذي ترغب فيه
vbRed, vbBlue,vbGreen,.....
او استعمل RGB
و اتمنى لك التوفيق
صنع ساعة بعقاربها - المتطور الجديد - 08-03-13
ممممممممممممممممممممممششششششششششششششكور على الجهد
صنع ساعة بعقاربها - المبتدئ - 08-03-13
الف شكر على الجهد