[e-coder]

سلام عليكم

مصيبة عند تشغيل جميع التايمرات لاتعمل فما الحل؟

الاكواد

كود :

Dim timercount As Integer = 10
   Dim timercount2 As Integer = 11
   Dim timercount3 As Integer = 12
   Dim timercount4 As Integer = 13
   Dim timercount5 As Integer = 14
   Dim timercount6 As Integer = 15

PHP كود :

 Private Sub jo1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo1.Tick
        Dim Rm As Resources.ResourceManager
        Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
        Me.P1.Image = Rm.GetObject("www")
        T1.Text = timercount.ToString()
        If timercount = 0 Then
            jo1.Enabled = False
            timercount = 10
            T1.Text = ""
            Me.emad1.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza1, "'></presence>"}))
        Else
            timercount -= 1
        End If
    End Sub
    Private Sub jo2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo2.Tick
        Dim Rm As Resources.ResourceManager
        Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
        Me.P2.Image = Rm.GetObject("www")
        T2.Text = timercount2.ToString()
        If timercount2 = 0 Then
            jo2.Enabled = False
            timercount2 = 11
            T2.Text = ""
            Me.emad2.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza2, "'></presence>"}))
        Else
            timercount2 -= 1
        End If
    End Sub
    Private Sub jo3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo3.Tick
        Dim Rm As Resources.ResourceManager
        Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
        Me.P3.Image = Rm.GetObject("www")
        T3.Text = timercount3.ToString()
        If timercount3 = 0 Then
            jo3.Enabled = False
            timercount3 = 12
            T3.Text = ""
            Me.emad3.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza3, "'></presence>"}))
        Else
            timercount3 -= 1
        End If
    End Sub
    Private Sub jo4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo4.Tick
        Dim Rm As Resources.ResourceManager
        Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
        Me.P4.Image = Rm.GetObject("www")
        T4.Text = timercount4.ToString()
        If timercount4 = 0 Then
            jo1.Enabled = False
            timercount4 = 13
            T4.Text = ""
            Me.emad4.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza4, "'></presence>"}))
        Else
            timercount4 -= 1
        End If
    End Sub
    Private Sub jo5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo5.Tick
        Dim Rm As Resources.ResourceManager
        Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
        Me.P5.Image = Rm.GetObject("www")
        T5.Text = timercount5.ToString()
        If timercount5 = 0 Then
            jo5.Enabled = False
            timercount5 = 14
            T5.Text = ""
            Me.emad5.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza5, "'></presence>"}))
        Else
            timercount5 -= 1
        End If
    End Sub 


PHP كود :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        jo1.Enabled = True
        jo2.Enabled = True
        jo3.Enabled = True
        jo4.Enabled = True
        jo5.Enabled = True
        jo6.Enabled = True
    End Sub 


[e-coder]

(20-05-17, 01:22 PM)Amir_alzubidy كتب : ما الاجراء الذي تقوم به تلك التايمرات .
هل يمكنك ارفاق المشروع للتعديل ..

تم اضافة المشروع

[e-coder]

مش فاهم يرجي توضيح كلامك بالاكواد