السلام عليكم
ياشباب عندي استفسار أتمنى أن أجد إجابة عليه بهذا المنتدى

أريد عمل مؤقت زمني يظهر بالفورم يظهر العد تنازلي أي يبدأ بالعد من 3 ساعات تنازليا حتى يصل لقيمة صفر فيحصل حدث معين

كيف يمكن إظهار مثل هذا المؤقت
أرجو ممن لديه إجابة عن هذا الموضوع أن يساعدني ولم جزيل الشكر على كل حال.

الاخ الكريم
استخدم تريجر على مستوى الفورم اسمه WHEN-TIMER-EXPIRED
حيث تستطيع انشاء تايمر والعمليات التي تريدها استخدم WHEN-TIMER-EXPIRED

استخدم هذا الكود

على مستوى الفورم

WHEN-NEW-FORM-INSTANCE


DECLARE 
T TIMER;
BEGIN 
T:=CREATE_TIMER ('TI',1000,REPEAT);

END;

على مستوى الفورم لانهائة
WHEN-TIMER-EXPIRED
:CLOCK :=TO_CHAR(SYSDATE,' dd/mm/yyyy HH:MI:SS' 

تم تعديل 7 ديسمبر 200520 سنة بواسطة Admin05

أخي الكريم Admin05 أشكرك على مشاركتك وردك .. أنت دائما تكون من السباقين على توضيح وإجابة أسئلة المشاركين فبارك الله جهودك .. وأعانك على فعل الخير ..

لكن بالحقيقة أعتقد أنني لم أستطيع إيصال الفكرة بالوجه المطلوب .. أو أنني أسأت الشرح
فبالكود الذي كتبته أخ Admin05 يتم انشاء ساعة حقيقية وليس هذا ماأريد ..

الذي أريده أنني عند فتح فورم معينة أعطي المستخدم مدة زمنية 3 ساعات لفعل أمر معين وهذا المستخدم
يستطيع أن يرى الوقت أمامه طبعا من الشكل (hh,mm)يبدأ رقم العداد من 3 ساعات ويبدأ بالتناقص حتى إنتهاء الـ 3 ساعات يحصل أمر معين ... أو يبدأ العد من الصفر وصولا إلى الـ 3 ساعات

أرجو أن تكون وضحت الفكرة
وشكرا لك وللجميع ...

عفوا أقصد العداد من الشكل(hh:mi)

WHEN-NEW-FORM-INSTANCE


DECLARE
T TIMER;

BEGIN
T:=CREATE_TIMER ('TI',1000,REPEAT);
:GLOBAL.TH:=240000; --عبارة عن 3 ساعات
END;

على مستوى الفورم لانهائة
WHEN-TIMER-EXPIRED

:CLOCK :=:GLOBAL.TH-1000;
:GLOBAL.TH:=:CLOCK;
IF :GLOBAL.TH=0 THEN
MESSAGE('THE TIME FINSHED');
DELETE_TIMER('T1');
END;

جزاكم الله خيرا