مساعدة في التعامل مع الوقت في الفجول بيسك 6

series-one كتب:

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

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

series-one كتب:

اخوكم مبتدي في الفجول بيسك فهل من مساعد !!

يا أهلا و مرحبا :)

series-one كتب:

هل توجد دالة للتعامل مع الوقت بمعني اريد تنفيد تطبيق بالفجول بيسك بوقت محدد او مفتوح متلا ساعة او ساعة ونصف لتنفيد امر تم يقف وقت تنفيد البرنامج بعد ان ينتهي الوقت المحدد.

أستعمل Timer مع دالة If

series-one كتب:

وكيفية الاعلان عن المتغير لاستخدامه في كامل التطبيق او في كامل الفورم ,

لأستخدامة على مستوى الـ Form يبقى فى جزء الـ General ( اعلى نافذة الكود )

لأستخدامه على مستوى المشروع ككل , أنشئ Module ( او بأى Module بالمشروع ) و ضع فيه التعريف لكن بواسطة Public كـ :

Public strName As String

اولا يتم الحصول على الوقت بطريقيتن

عن طريق الداله now

او تسخدم دالة api gettimesystem

اوسهل لك دالة now

dim k

k=now

now تعرض الوقت الحالي لساعه الجهاز

غير ال interval حق التايمر ل 1000

الان نضع شرط عند وصول وقت معين يحدث امر ما

dim n

n=timevalue(10;05;00 pm)

هنا حددت الوقت بالساعه 10 وخمس مساءا

if k = n then

form2.show

end if

عندما يصبح الوقت الحالي 10وخمس مساءا اعرض فورم2

اتمنى اني افدت

Now تستخدم للحصول على الوقت و التاريخ معا.

Date للتاريخ فقط.

Time للوقت فقط

Dim strTD As String
strTD = "Time : " & Time$ & " (" & Time & ")" & _
	vbNewLine & "Date : " & Date$ & vbNewLine & _
	"Now : " & Now

MsgBox strTD

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

أسف علي الرد المتأخر لمشكلة في الخط الهاتفي

مشكوريين يا اخوان بارك الله فيكم

سأحول مع هده الحلول ......

واخبركم بالتطورات

سلام

هل من الممكن عمل عداد زمني ؟

عداد بالتواني والدقائق والساعات ! 00:00:00 الي 11:59:59

وهل يمكن عمل عمليات حسابية علي الوقت متل الجمع والطرح ؟

لكم جزيل الشكر

طبعا اخي الكريم

اذا احتجت اي شيء انا موجود

في اداة اسمها timer يتنفذ بها الوقت كل فترة محددة يمكنك استخدامها لعرض الوقت و الساعة

ضع هذا الكود في form_load

timer1.interval=500 ' كل نصف ثانية يتم التحديث

وبعد ذلك ضع الحدث

Private Sub Timer1_Timer()
Text1 = Now
End Sub

السلام عليكم

الصراحة لم اوفق في هذا وساررفق البرنامج لكم مع صورة لتوضيح الغموض....

البرنامج المرفق عبارة عن برنامج للتعامل مع منفد ال LPT لللتحكم بجهاز لفترة معينة حسب الاختيار ودلك بوضع الوقت حسب الاختيار ادا كان وقت مفتوح يبقي كدلك حتي الاطفاء اليدوي .

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

الصورة للبرنامج

vb6.zip

في اداة موجودة اسمها timer يمكنك وضعها على الفورم وفي خاصية لها وهي interval تقاس بالميلي ثانية ومقدار هذا الزمن يتنفذ حدث في هذه الاداة من خلال هذا الحدث يمكنك فحص الوقت اذا كان اكبر من قيمة معينة او اقل وعلى هذا الاساس تستطيع الايقاف والتشغيل.

في بعض الدوال قد تفيدك في هذا الامر منها dateadd اي اضافة وقت

لاضافة ساعتين على الزمن الحالي نستخدم

dateadd("h",2,now)

ايضا لو بحثت عن هذه الدالة ستجد مشاركات كثيرة لكيفية التعامل معها

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

بارك الله فيك علي الرد الطيب

وهو المطلوب اخي