الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن مساعدة فى التايمر

بدأه fankey في 7 مارس 2008 · 2 رد · 615 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ممكن مساعدة

أريد أن أنفذ امر

مثلا

عندما يكتب الوقت المراد فى text1.text وهو الساعات

و text2.text وهو الدقائق

وtext3.text وهو الثوانى

اريد عند كتابة البيانات text1 و text2 و text3

يظهر فى label1 الوقت المتبقى لمطابقة الساعة ل text1 و text2 و text3

ياريت حد يفدنى أنا مستنى الرد

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

#2
dim strTime As String 
Dim datTime As Date

strTime = Val(Text1.Text) & ":" & Val(Text2.Text) & ":" & Val(Text3.Text)
datTime = IIF(IsDate(strTime) = True,strTime,Time)

If(Time = datTime)Then
   Lable1.Caption = Time - datTime
End If

بالتوفيق

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3

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

اتمني ان هذا المثال يفيدك

وشكرا

countdown_timer__v1.2.rar

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

مواضيع مشابهة