كيف أعمل عداد يبدأ من الصفر الى وقت ما

اخى الكريم اليك الكود حسب مافهمت من السؤال

ضع فورم يحتوى على Text و Timer واضبط الخاصية Interval على 1000

ثم اضف الكود التالى :

Dim N As Date

Private Sub Timer1_Timer()
	If N >= "00:10:21" Then Exit Sub
	Me.Text1 = Format(N, "hh:mm:ss")
	N = N + 1 / 86400
End Sub

شكراً جزيل الشكر لك أخي عبد الفتاح حسن لقد عرفتني بمعلومة جديدة وبكود جديد لقد أفادني هذا الكود

ولكنه بعد أن ينفذ الأمر (EXIT SUB) يوقف العد ويعود ليكون ساعة أو اذا وضعت أمر آخر مثلاً(TEXT1.TEXT="رائع") ينفذ الأمر ولكنه يكمل العد

أريد أن يتوقف عن العد.

*** أنا أريد أن أصمم منبه ***

مثال: يقوم المستخدم للبرنامج بادخال في مربعين للنص text مربع للساعات والآخر للدقائق يدخل مثلاً بعد 1:30 (ساعة ونصف) يقوم بالضغط على زر على الفورم

يبدأ العداد بالعد من الصفر في داخل مربع نص حتى 1:30 فتظهر اشارة ما قد وضعتها أنا لتنبيه المستخدم.

كما في الساعات الرقمية ولكن هنا المستخدم يحدد الزمن الذي عنده يتوقف العد.

أما بالنسبة لمعرفتي بما سأقوم به فليس لدي كل هذه الخبرة والمعرفة في البرمجة ولكن مجرد أني نظرت الى الكود التالي:

dim x as single

x=timer

do:doevents:loop until timer>x+1

نكتب الأكواد هنا

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

اذا كان لأحد أدنى فكرة فاليبلغني بها أرجوكم :(

السلام عليكم ورحمة الله وبركاته أرجوا أن تؤاخذني أخي عبد الفتاح لأني لم أفكر جيداً في الكود الذي كتبته لي -_-

فقد استخرجت منه عدة أفكار

وصنعت موقت ولكن لم أنتهي تماماً فأنا أريد عدة موقتات في نفس الوقت وأمور أخرى متداخلة ولكنك بهذا الكود ساعدتني كثيراً

شكراً لك قد تواجهني صعوبات أخرى أنا متأكد وسوف أسأل عنها اذا لم أستطيع حلها :)

ولكن ماذا يعني الرقم 86400

اقتباس

*** أنا أريد أن أصمم منبه ***

معذرة أخى الكريم لسوء فهمى للموضوع

اليك مثال بسيط وهو فكرة لمنبه

ارجو ان يفى بالغرض

____.rar

شكراً أخي أنا الذي لم أستطيع أن أفهم أحد هذا الموضوع و البرنامج الذي أرسلت ما اشتغل عندي أتوقع لأني لم أفهم ما هي (DTPicker)!

أنا اسمعت فيها وسأبحث عنها.

انت افهمت ما أنا أريد والبرنامج يحتوي على ما أريده ولكن ما اشتغل.

يا اخواني أنا ما بقي في رأسي عقل شو بد أقول : منبه ....عداد ينبه....ينبه عداد....أنو ينبه مين....جلطات...والله ما داري شو بد أقول :wacko:

كل ما أشوف كود يا شباب بحول بضرب وبخربط وبستخرج منه مئة ألف كود مشان أعمل برنامج طلع براسي(ما داري منوان طلع) وببني كل البرنامج على هالكود

و ابتطلع الأخطاء الخرابيط................. و الكيبورد بتصير شقفتين والشاشة بتصير شقف :(

بعدين بلق كود ثاني اسهل اشوي فبخبص بي زي الأول

وبطلع منه مئة مليون كود وبتصير الفلاغيش والخرابيش تطلع بالبرنامج وبصير زي ما صار بالكود الثاني الله يرحمه ويحسن اليه

و بعدين كود ثالث ورابع ......الخ

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

عموماً :

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

وهاي هي قصة حياتي بالمختصر المفيد وإلي عليكم غيرها

****طولت حكي بدون فائدة مثل العادي ! :s **** :huh:

أما بالنسبة لموضوعي هو الذي أغلقه hnhn (شكراً على اغلاقة)(فضائح) وهي الفكرة الأولى (تحدثت عنها في الأعلى) ولا أريد أن أفكر الا فيها.

وهي: أريد أن لا يتوقف هذا الكود أي أريده كل خمس ثواني ينفذ الأمر الذي أدخلته أنا :

dim x as single

x=timer

do:doevents:loop until timer >x=5

نكتب الأكواد هنا

ساعدوني :angry:

متى ستصل المساعدة

أريد أن لا يتوقف هذا الكود أي أريده كل خمس ثواني ينفذ الأمر الذي أدخلته أنا :

dim x as single

x=timer

do:doevents:loop until timer >x=5

نكتب الأكواد هنا

هذا الكود يتوقف بعد خمس ثواني

اخ همام النسر

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

فأذا كنت انت متلخبط فما ذنبنا نحن على العموم ضع هذا الكود في تايمر (Timer) وحدد المدة الى 5000 كما يلي

Private Sub Timer1_Timer()
Dim x As Single
x = Timer
Do: DoEvents: Loop Until Timer > x + 1
Text1.Text = x
End Sub

interval.rar

حسناً يا أخ HNHN ساعدني في هذا الكود

X = Val(Text2.Text)
A = Val(Text3.Text)
Q = Val(Text4.Text)

If N >= "00:00:00" Then
PRINT"GOOD
Timer1.Enabled = False
N = "00:00:00
End If
Text1 = Format(N, "HH:MM:SS)
N = N + 1 / 86400
End Sub

شايف X , A ,Q أريد أن تكون X =HH ,A=MM,Q=SS

H=الساعات و M= الدقائق و S=الثواني

أي أن يقوم المستخدم بادخال الوقت الذي سيستغرقه حتى تطبع على الفورم "GOOD" في TEXT2,3,4

:::هل هناك فكرة::::

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

ام ماذا بالضبط

نعم أكمل

ولكني لم أطلب هذا في البداية

انظر لهذا المثال ... -_- هل يقرب لك ما تريد مع بعض التلاعب على حسب ما ترغب وبالتوفيق

Timer.rar

أخي هذا البرنامج لم أرى علاقة بينه وبين ما أريد

هذا البرنامج يقوم بايجاد الفرق بين الوقت الذي تطبعه في TEXT1 والوقت الحالي

وان كان كلامي خطئ أين الكلمة أو الحدث الذي سيقوم بتنبيهك عند انتهاء الوقت

(لا أعرف برنامج الطابعة ) أما برنامجي(يقوم المستخدم بتحديد الوقت اللازم لتنفيذ عملية ما مثل طباعة "GOOD" على الفورم بعد نصف ساعة)

(مع أن يكون العد التصاعدي ظاهر على الفورم)

اقتباس

م أرى علاقة بينه وبين ما أريد

وما ادراني ما تريد

اقتباس

وان كان كلامي خطئ أين الكلمة أو الحدث الذي سيقوم بتنبيهك عند انتهاء الوقت

لم تذكر ذلك من قبل

اقتباس

(لا أعرف برنامج الطابعة )

ما اني سألتك من قبل وانت رديت هكذا

اقتباس

نعم أكمل

وكأنك .. تتأمرفي الحقيقة حاولت ان اقدم لك المساعدة ولكنك لا تقدم اي بيانات صحيح .. على الاقل كان حاولت تقديم مثال يوضح ما تريد ونحن نحاول معك

فأنا عملت المثال بناء على الكلام هذا

اقتباس

أي أن يقوم المستخدم بادخال الوقت الذي سيستغرقه حتى تطبع على الفورم

اقتباس

أما برنامجي(يقوم المستخدم بتحديد الوقت اللازم لتنفيذ عملية ما مثل طباعة "GOOD"

هذا موجود في المثال المرفق .. هناك وقت سيظهر في التيكس .. قم بالتعديل عليه وليس

والعد موجود ايضا ... على الاقل مددتك بمثال وليس بكلام

سلام

أخواني هذه هي فكرة العداد بالضبط

طبعاً سيقوم المستخدم للبرنامج بادخال الوقت الذي سيستغرق حتى تظهر علامة الانذار

نضع text1 , text2,text3 على الفورم واجعل كل منها صغيرة الحجم تسع لرقمين

وقربهما من بعض

الآن ضع text4 على الفورم سيكون العداد فيها

ضع command على الفورم

الآن أدخل الكود التالي:

متغير عام										   dim n as date
								  Private Sub Timer1_Timer()
If n >= Val(text1.Text) & ":" & Val(text2.Text) & ":" & Val(text3.Text) Then
print "goon"								 تستطيع ادخال أمر آخر لتنبيه ولكن هذا لتوضيح
Timer1.Enabled = False				  بدونه سيتمر العداد بالعد بدون توقف وسيقوم بتنفيذ الأمر السابق كل ثانية بعد الوقت المدخل
n = "00:00:00"							  حتى يستطيع المستخدم أن يعيد استخدام العداد
End If
Text4 = Format(n, "hh:mm:ss")
n = n + 1 / 86400
End Sub

Private Sub Command2_Click()				 عند الضغط على الزر سيقوم بتشغيل التايمر (يجب أن تكون القيمة enable لتايمر false)
Timer1.Enabled = True
End Sub

قمت بوضع ثلاثة text السبب في ذلك أنك اذا وضعت تكست واحدة سيكون صعب على المستخدم ادخال الوقت

n>=text1.text
أكمل الكود كما في السابق

:rolleyes: أرجوا أن أكون وصلت معلومة