[aftfm]

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

اخواني لدي مثال اتعامل به مع Timer
ولكن لكل ازرار احتاج تايمر هل من الممكن ان استخدم 1 Timer لكل الازارير
مثلا

في

PHP كود :

Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick

 End Sub 


في حالة الضغط على Button1
قم بتنفيذ الاجراء (*****)
وفي حالة الضغط على Button2
قم بتنفيذ الاجراء (*****)

مع ملاحظة ان لكل ازرار امره المختلف عن غيرة

[سعود]

طبعا ممكن وذلك بتعميم متغير يتم تخزين به قيمة على حسب الطلب يتم التحقق عنه عند عمل المؤقت مثلا
زر الامر رقم 1 نكتب
myval= sub1
الزر الثاني
myval=sub2

وفي المؤقت نكتب
if myval = sub1 .............
وهكذا

[aftfm]

اخي سعود انا لدي هذا الكود

PHP كود :

Private Sub lblg72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg72.Click
        Me.lblg72.Text = ""
        Me.lblg72.ForeColor = Color.Blue
        Timer15.Interval = 250
        Timer15.Start()
    End Sub

    Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick

        Static ptr As Integer = 0
        If ptr < Me.lbl72.Text.Length Then
            lblg72.Text = lblg72.Text & lbl72.Text.Substring(ptr, 1)
            ptr += 1
        Else
            Timer15.Stop()
            ptr = 0
        End If

        
    End Sub 


واريد ان اكرره عدة مرات

انا عامل الى ا لان عدد 16 تايمر

السابقة 15 وهذه 16

PHP كود :

Private Sub lblg73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg73.Click
        Me.lblg73.Text = ""
        Me.lblg73.ForeColor = Color.Blue
        Timer16.Interval = 250
        Timer16.Start()
    End Sub

    Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
        Static ptr As Integer = 0
        If ptr < Me.lbl73.Text.Length Then
            lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1)
            ptr += 1
        Else
            Timer16.Stop()
            ptr = 0
        End If
    End Sub 


كيف اعمل المتغير للكود

PHP كود :

Static ptr As Integer = 0
        If ptr < Me.lbl73.Text.Length Then
            lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1)
            ptr += 1
        Else
            Timer16.Stop()
            ptr = 0
        End If 


ام الى اي كود ممكن توضح على الكودين السابقين

[سعود]

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

[SaLoOoMX]

ارفق المثال لايكفي وجود الكود لان كودك مبهم

[aftfm]

تفضلو اخواني جزاكم الله خير

هذ مثال مصغر به عدد 2 Timer
اريد استخدم فقط واحد Timer

[SaLoOoMX]

استدعي السب Tcontrol1 + Tcontrol2

في تايمر واحد :o
جرب وشوف

[سعود]

http://vb4arb.com/vb/uploaded/34_01352621109.zip
تعديل سريع والباقي عليك

[aftfm]

الف شكر للجميع
وشكر خاص للأخ سعود