*فورم* وضع الساعه على النموذج

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

قم بوضع مربع نص في النموذج

في خصائص مربع النص ضع مصدر البيانات له ما يلي :

time()

وقبلها ضع يساوي ( = )

وتستطيع أن تغير في الشكل من خاصية تنسيق لمربع النص الذي وضعنا فيه الساعة ...

في خصائص النموذج وفي حدث الفاصل الزمني لعدد الوقت ضع القيمة 1000 وهي تساوي ثانية واحدة ، وفي حدث عداد الوقت ضع الكود التالي :

Me.Text1=Time

Text1 هو اسم مربع النص الذي سيحتوي على الوقت .

بارك الله فيكم سوف اعمل ذلك واوافيكم بالنتيجه

مع اني كلي ثقه بأن ما ذكر فيه الخير والفائدة

ولكم جزيل الشكر

صبحكم الله بالخير او مساكم الله بالخير بكل صراحه عملت ماقاله الاخ العزيز فتى الوادي وتمام لكن الساعه تثبت عند وقت بدء تشغيل البرنامج

يعني ما يتحرك الوقت ابداً

اما بالنسبه ما قاله الاخ العزيز عبدالله سليمان تمام ولكن نفس ما حدث الساعه ثابته بدون تقدم

هل المشكله عندي ام ماذا افيدونا افادكم الله

وشكراً للجميع

أخي العزيز عند عداد الوقت ضع التالي :

$Me![aa].Caption = Time

حيث aa إسم مربع النص وإن شاء الله تضبط معاك .

1- إنشء مربع تسمية وسمه text1 على النموذج

2- عند عداد الوقت ضع الكود التالي :

Me.text1.Caption = Time$

3- الفاصل الزمني لعداد الوقت ضع فيه 1000

أشرف خليل

والله ياجماعه كل ما ذكرتموه على عيني وراسي

لكن كلها مانفعت ( جربتها كلها بدون فائده )

اشكركم جميعاً على ردودكم وارجو الافاده

أخي العزيز

أكتب تسمية لمربع النص الخاص بالساعة في الخصائص التالي :

lblclockview

ثم أكتبعداد الوقت للنموذج مايلي :

$Me![lblclockview].Caption = Time

والفاصل الزمني مثلاً ضعه

400

وأن شاء الله تضبط . وهذه ليست من عندي بل قليل من الكثير الذي أستفدته من هذا المنتدى الرائع ...

أخي العزيز

أكتب تسمية لمربع النص الخاص بالساعة في الخصائص التالي :

lblclockview

ثم أكتبعداد الوقت للنموذج مايلي :

$Me![lblclockview].Caption = Time

والفاصل الزمني مثلاً ضعه

400

وإن شاء الله تضبط . وهذه ليست من عندي بل قليل من الكثير الذي أستفدته من هذا المنتدى الرائع ...

السلام عليكم

ياشباب ياريت تضعون مثال ..حيث انى ارى ان الامثلة افضل وسيلة للتعلم ...وهى وسيلة سريعة جدا للتعلم ..

تحياتى.........

http://mypage.ayna.com/ashrafk/abc.mdb

أشرف خليل

100% اشرف.....

تحياتى.......

أنا عندي نفس المشكلة مع الساعة رغم أني عملت كل هذا ولكن لم تعمل أنا لا أريد المثال الجهاز أنا أريد حل لمشكلتي هل يحتاج (مراجع) لكي يعمل أم ماذا

وللجميع تحياتي(f) (f)

هذا لا يحتاج لمراجع

فقط حدث ال Timer

و الفاصل الزمني

Private Sub Form_Timer()
Me.text1.Caption = Time$
End Sub

و الفاصل الزمني 1000

و تأكد ان text1 نوعه "Label" و ليس مريع نص

و لا أذكر اسمها بالعربية ( ربما يكون تسمية )

عموما هي رمزها فى صندوق الادوات Aa

فعلاً هذه هي المشكلة فقد كنت استخدمه مع (مربع نص) وليس مع (تسمية) لقد نجحت هذه الطريقة فشكراً جزيلاً لك يا أخ محمد طاهر

الأخ سعودي31

ليس مشكلة بأن تظهر الساعة على مربع نص0

إليك هذا المثال وقد وضعت الساعة على مربعات نصوص حمل البرنامج وفك ضغطه وضع الملف في القرص سي (C ) لأن ضمن البرنامج ملف صوتي إذا وصلت الثواني 59

ولو وضعت المجلد في غير القرص سي سوف تظهر رسالة خطأ لأن البرنامج سيبحث عن مسار الصوت وإذا لم يجده ستظهر رسالة الخطأ ولتلافي ذلك ضع المجلد على القرص c

المثال:

http://mypage.ayna.com/mrsalnet/Timre2002.zip

شكرا اخ مصلح عمل ممتاز

تحياتى.....

مشكور أخوي مصلح

مثال راااااااااااااااااائع ماشاء الله عليك