اتمنى من الاخوة تزويدي بالطريقة المناسبة لادخال الوقت بالساعات والدقائق والثواني بحيث تكون الثواني تعمل حال استخدام القاعدة وتكون ظاهرة في حركتها حيث ان البرنامج يعطي الثواني ثابتة ولا تتغير الا عند الخروج والدخول .
فهل هناك طريقة ؟
ادخال الوقت
مغلق
ضع مربع تسمية على النموذج ونسميه مثلاً .. ساعة
ضع هذا الكود في حدث عند الفتح ...
Me!ساعة.Caption = Time$
وفي حدث عند عداد الوقت ضع هذا الكود
Me!ساعة.Caption = Time$
واضبط عداد الوقت على 1000 أي ثانية حتى يتغير الوقت كل ثانية
وإن كنت غير قادر على فهم الشرح فإن قد أرفقت لك مثالا لتفهمه
جزاك الله خير .
اخي عملت ما طلبت مني ولكن لم يظهر شي .
اريد ان يظهر الوقت على نموذج الواجهة الرئيسة متحرك يعني مؤشر الثواني يتحرك .
ولك الشكر مرة اخرى .
أخي الكريم/ دحوم
السلام عليكم ورحمة الله وبركاته
مع أن الموضوع سبق وأن تم الإجابة عليه في عدة مناسبات بالإضافة إلى كثير من الأمثلة التي نشرت في المنتدى .
وعلى كل حال إليك الشرح بطريقة أخرى :
1- انشىء "مربع نص" على النموذج وسميه Text1
2- في حدث (عند عداد الوقت) للنموذج الذي عليه مربع النص أكتب الكود الأتي :
text1 = Time ()
3- في حدث (الفاصل الزمني لعداد الوقت) أكتب 1000
مرفق مثال عليه.
والله الموفق.
هذا الموضوع مغلق.