MOHAMED
03-25-2010, 03:48 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أخوانى الأعزاء فى منتدى رياض الجنة أقدم لكم شرح كيفية عمل ساعة بسيطة بالفيجوال بيسك 2005
وأعتذر عن عدم توفر الصور :
أولاً :- نقوم بإدراج مشروع جديد
ثم نقوم بإدراج الأدوات التالية
Label1,Label2,Label3,Timer1
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــ
نقوم بترتيب الأدوات على الفورم مثال
Lab1 : Lab2 : Lab3
و Lab اختصار لكلمة Label
وإيضاً يمكننا أن نضيف Label4,Label5,Label6 ونقوق بوضع النص Text داخلهم ليصبح : نقطين فوق بعض لنفصل
بين أرقام الساعة ..
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــ
تسمية الأدوات الرجاء اتباع الأسماء بدون إخطاء
Label1 = hour
Label2 = Minute
Label3 = Second
Timer1=Clock1
ومش لازم تسمية بقية الأدوات
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــ
الآن وضع الكود وقبل ما أنسي صحيح
أذهب لخصائص Timer1 الذى أصبح Clock1 ثم عد خاصية Enabled لتصبح True
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــ
والآن مرحلة البرمجة وضع الكود
نضغط ضغطتين مزدوجتين على Timer1 الذى أصبح Clock1 نضع الكود التالى :
Me.Hour.Text=My.Computer.Clock.GMTclock.Hour.ToStr ing
Me.Minute.Text=My.Computer.Clock.GMTclock.Minute.T oString
Me.Second.Text=My.Computer.Clock.GMTclock.Second.T oString
ثم قم بعدها بضغط F5 وألف مبروك عليك الساعة ممكن تلسبها عادى حتى يا راجل شكلها شيك على بياض
ههههههههههه :36_1_1[1]:
أرجو أن أكون وفقت فى الشرح وإن كان هناك خطأ فمنى ومن الشيطان وشكراً لكم جميعاً
:36_1_39[1]::36_1_39[1]::36_1_39[1]:
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
أخوانى الأعزاء فى منتدى رياض الجنة أقدم لكم شرح كيفية عمل ساعة بسيطة بالفيجوال بيسك 2005
وأعتذر عن عدم توفر الصور :
أولاً :- نقوم بإدراج مشروع جديد
ثم نقوم بإدراج الأدوات التالية
Label1,Label2,Label3,Timer1
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــ
نقوم بترتيب الأدوات على الفورم مثال
Lab1 : Lab2 : Lab3
و Lab اختصار لكلمة Label
وإيضاً يمكننا أن نضيف Label4,Label5,Label6 ونقوق بوضع النص Text داخلهم ليصبح : نقطين فوق بعض لنفصل
بين أرقام الساعة ..
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــ
تسمية الأدوات الرجاء اتباع الأسماء بدون إخطاء
Label1 = hour
Label2 = Minute
Label3 = Second
Timer1=Clock1
ومش لازم تسمية بقية الأدوات
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــ
الآن وضع الكود وقبل ما أنسي صحيح
أذهب لخصائص Timer1 الذى أصبح Clock1 ثم عد خاصية Enabled لتصبح True
ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــ
والآن مرحلة البرمجة وضع الكود
نضغط ضغطتين مزدوجتين على Timer1 الذى أصبح Clock1 نضع الكود التالى :
Me.Hour.Text=My.Computer.Clock.GMTclock.Hour.ToStr ing
Me.Minute.Text=My.Computer.Clock.GMTclock.Minute.T oString
Me.Second.Text=My.Computer.Clock.GMTclock.Second.T oString
ثم قم بعدها بضغط F5 وألف مبروك عليك الساعة ممكن تلسبها عادى حتى يا راجل شكلها شيك على بياض
ههههههههههه :36_1_1[1]:
أرجو أن أكون وفقت فى الشرح وإن كان هناك خطأ فمنى ومن الشيطان وشكراً لكم جميعاً
:36_1_39[1]::36_1_39[1]::36_1_39[1]:
والسلام عليكم ورحمة الله وبركاته