كيف يمكن عرض الوقت والتحكم فيه؟

تحية طيبة

يمكنكى عرض الوقت الحالى عن طريق الكود

Label1.Caption=Time

اما بالنسبة لتشغيل صوت عند وقت معين فيمكنكى عمل مقارنة بين الوقت الحالى والوقت الذى تريدين

من البرنامج ان يصدر صوت عنده واصدار الصوت يكون بالدالة SndPlaySound

ولو فى اى مشاكل قوليها وباذن الله فى حل

فى حفظ الله :rolleyes:

كان عندي نفس المشكله وعم ghost2010 حلهالي جزاه الله كل خير ...

يمكنك ادراج أداة calender وضبط الخواص لتظهر الوقت ومن ثم يمكن التحكم به أسهل ...

ضعي timer والفترة 1000

والكود التالي في ال timer

label1.caption=time

if hour(now)=8 then

beep
end if

طبعا beep هو أسهل صوت ممكت وضعه ويمكن وضع صوت اخر عن طريق الدال sndplaysound كما ذكر أخي ghost

مصطفى زيداني

شكرا جزيلا للجميع على الرد

ولكن ما قصدته هو ليس فقط عرض للوقت الحالي ، فالامثلة السابقة عرضت الوقت الحالي مثلا 5:12:50 بطريقة متوقفة

بمعنى بعد مرور دقيقة او ساعة او ثانية لايتغير الوقت

اي انني اريد ان يتم عرض الوقت كالساعة ( تتغير الارقام بتغير الوقت تلقائيا)

ارجو ان اكون قد اوصلت المعنى

وشكرا

ضع اداة Label وأداة Time واجعل قيمة Interval للتايمر 1000

وفي حدث Timer للاداة Timer1 اكتب

Label1.Caption = Time

ألف شكر للجميع وجزيتم خيرا

Private Sub Timer1_Timer()
Label1.Caption = DateTime.Time
End Sub

تحياتي