احترت معcheckbox

أخي الكريم عليك إستخدام حدث الـ Click للشيك بوكس

----------------------------------------------------

Private sub ChkMain_Click()
 TmrMain.Enabled = True
end Sub

Private Sub TmrMain_Timer()
 Beep
End Sub

وعليك في البدء جعل التايمر غير ممكن من خاصية Enabled وعند الضغط على الشك بوكس يتفعل

يمكنك أيضاَ جعل التايمر يتوقف أيضاَ مع تغيير الحلية بتغيير True إلى ChkMain.value

وبهذا يكون تمكين التايمر مربوط بقيمة الشك بوكس

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

تحياتي~........................

فؤاد يعد

للاسف خطا

التايمر ما زال يعمل وبعدين يعمل خطا

انا عاوز كود اول ما ادوس على شيك التايمر ينفز الكود الي بداخله

تحياتي.........................

فؤاد سعد

السلام عليكم :

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

مثال :

if chechbox1.value=1 the
timer1.enable=true
else
timer1n.enable=false
end if

طيب ليه ما تستخدم

TmrMain.enabled = cbool(ChkMain.Value)

"لاحظ أن أسماء التايمر والشك متغيره"

سواني هجرب وارد عليكو

if chechbox1.value=1 the

يوجد خطا في هذا الكود

للاسف ولا كود نفع يريت مثال لذلك بالسورس

مرحباً أخي الكريم:

قد تكون لم تضبط الخاصة Interval للتايمر, على كل حال ,اجعل الخاصية Enabled = false في التايمر و لا تنسى ضبط الخاصية interval,وجرب الكود التالي:

Private Sub Check1_Click()

If Check1.Value = 0 Then

Timer1.Enabled = False

Else

Timer1.Enabled = True

End If

End Sub

تفضل أخي كود :

Private Sub Check1_Click()
If Timer1.Interval = 0 Then
Timer1.Interval = 10
Else
Timer1.Interval = 0
End If
End Sub

ضعة في check .

الكود الثاني ضعة في التايمر :

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 25
End Sub

هنا في هذا المثال تحتاج label + check + timer

بالتوفيق ان شاء الله

اوك هجرب

شكككككككككككككككككككككرا لكم نجت العمليه اخر كودين الاتنين شغالين وشكرا لكم

تحياتي.....................

فؤاد سعد

السلام عليكم

انا عملت مثال صغير .بس مش عارف هادى طلبك

Timer.zip

Timer.rar

شكككككككككككككككككككرا اخي سلمان مجهود جميل منك يا اخي والله

تحياتي...................

فؤاد سعد

الخطأ الذي يحصل معك أخي الكريم يحصل بسبب أسماء الأدوات التي تكتب بالكود والتي تقوم أنت بإنشائها :yes:

*-----------------------------

والحمد لله أنك قد وفقك لما تريد