كيفية اظهار الساعة ؟

[ابوالوفاء]

لدي نموذج ووضعت به الوقت ولكنه يعطيني الوقت عند فتح النموذج ولو فتح النموذج الساعة السابعة وجلس مفتوح حتى السابعة والنصف لن يتغير الزمن الموجود على النموذج 000ارجو الاجابة

[فنجان قهوه]

اخي تفضل هذا مثال على ما طلبت لعله يفيدك في طلبك

بسم الله الرحمن الرحيم

[التقني]

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

خطوات تصميم الساعة :

1-أضف الى النموذج مربع نص غير منضم بإسم TimeBox

2-في حدث (الفاصل الزمني لعداد الوقت) للنموذج ضع القيمة 1000

3- في حدث (عند عداد الوقت) للنموذج ضع الكود التالي :

[TimeBox] = Time()

بذلك سيكون لديك ساعة رقمية يتم تحديثها كل ثانية

تم تعديل يناير 20, 2006 بواسطه التقني

[ابوالوفاء]

اخي فنجان قهوة واخي التقني اشكركما على تكرمكما بالاجابة زادكما الله من الخير والعلم

[sas_kik]

اخي التقني

لقد حاولت عمل الساعة باتباع خطواتك ولكنني لم اتمكن حيث ظهر لي الاتي

مكان الساعة #Name?

صفحة الكود تظليل كلمة Time باللون الازرق

ظهور رسالة تقول Expected Varible Or Procdure , Not Project

ارجو المساعدة

[ظل السراب]

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

بعد اذن اخي الكريم التقني

اخي الكريم

ضع مربع نص وليكن اسمه T

ضع هذا الكود عند عداد الوقت

t.Caption = time()

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

والله الموفق

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

[sas_kik]

اشكر كرمك واهتمامك

ولكن ....

للاسف نفس النتيجة

ونفس التعليمات السابقة

[sas_kik]

الخطوات

فتح نموذج جديد وفي وضع التصميم

وضع مربع تسمية

الضغط بيمين الفأرة ودخول خصائص النموذج

تغيير الفاصل الزمني من 0 الى 1000

من عداد الوقت بيمين الفأرة ( منشيء البرامج ) لصق الكود مع الانتباه للاسم

ولا زالت نفس المشكلة ونفس الرسالة والتعليمات السابقة

ما العمل

[rudwan]

اذا كان مربع التسميه الذي أنشأته اسمه مثلا h

انشخ الكود التالي و الصقه كما هو في محرر أكواد النموذج

Private Sub Form_Timer()
Me.h.Caption = Now()


End Sub

[sas_kik]

اتقدم بجزيل الشكر لكل من ساهم بالرد واثمن له هذه المساعدة

اخي rudwan نحج التطبيق ولك الشكر والتقدير

هل من الممكن تعليل فشل المحاولات السابقة

لكم تحياتي

[rudwan]

لا أعلم السبب , و لكن لعلك أخطأت في مكان الكود , أو في اسم مربع العنوان , و المهم أنك نجحت أخيرا

[الشرقي]

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

كود اخوي التقني مضبوط 100 × 100 واشكره واشكر كل اخواني الاعزاء

[sas_kik]

اذ ما السبب في ظهور رسائل الخطأ عندى

افيدونا الله ينور عليكم

[التقني]

تم سحب ملف الأخ ( فنجان قهوه )

لكي تعم الفائدة

وينقل الى الأرشيف المختص

112.rar