الموقع العربي الاول للعبة Silkroad Online - [VB .NET] كود يوقف التنفيذ لمدة دقيقة

- - [VB .NET] كود يوقف التنفيذ لمدة دقيقة (https://silkroad4arab.com/vb/showthread.php?t=550156)

كود يوقف التنفيذ لمدة دقيقة

انا دلوقتي حاطط في الـ Form_Load الكود دة

كود:

If Auto1.Checked = True Then

            Login1.PerformClick()

        End If

        If Auto2.Checked = True Then

            Login2.PerformClick()

        End If

        If Auto3.Checked = True Then

            Login3.PerformClick()

        End If

        If Auto4.Checked = True Then

            Login4.PerformClick()

        End If

دلوقتي انا عايزه يستني دقيقة قبل ما يدخل علي الـ If التانية
يعني عايز منظر الكود يبقي كدة

كود:

 If Auto1.Checked = True Then

            Login1.PerformClick()

        End If

        'حاجة هنا توقف تنفيذ لمدة ديقيقة

        If Auto2.Checked = True Then

            Login2.PerformClick()

        End If

        'حاجة هنا توقف تنفيذ لمدة ديقيقة

        If Auto3.Checked = True Then

            Login3.PerformClick()

        End If

        'حاجة هنا توقف تنفيذ لمدة ديقيقة

        If Auto4.Checked = True Then

            Login4.PerformClick()

        End If

        'حاجة هنا توقف تنفيذ لمدة ديقيقة

( مش عايز Timer )
انا شفت الكود مرة ع النت بيتحط مكان ما انت عايز توقف التنفيذ بس مش فاكره

طلب كمان :.:.:
عايز طريقة أصغير بيها الكود دة :
If SamePass.Checked = True Then

كود:

            PW_1.Text = SamePassVal.Text

            PW_2.Text = SamePassVal.Text

            PW_3.Text = SamePassVal.Text

            PW_4.Text = SamePassVal.Text

            PW_5.Text = SamePassVal.Text

            PW_6.Text = SamePassVal.Text

            PW_7.Text = SamePassVal.Text

            PW_8.Text = SamePassVal.Text

            PW1PT2.Text = SamePassVal.Text

            PW2PT2.Text = SamePassVal.Text

            PW3PT2.Text = SamePassVal.Text

            PW4PT2.Text = SamePassVal.Text

            PW5PT2.Text = SamePassVal.Text

            PW6PT2.Text = SamePassVal.Text

            PW7PT2.Text = SamePassVal.Text

            PW8PT2.Text = SamePassVal.Text

            PW_1.Enabled = False

            PW_2.Enabled = False

            PW_3.Enabled = False

            PW_4.Enabled = False

            PW_5.Enabled = False

            PW_6.Enabled = False

            PW_7.Enabled = False

            PW_8.Enabled = False

            PW1PT2.Enabled = False

            PW2PT2.Enabled = False

            PW3PT2.Enabled = False

            PW4PT2.Enabled = False

            PW5PT2.Enabled = False

            PW6PT2.Enabled = False

            PW7PT2.Enabled = False

            PW8PT2.Enabled = False

        End If

        If SamePass.Checked = False Then

            PW_1.Enabled = True

            PW_2.Enabled = True

            PW_3.Enabled = True

            PW_4.Enabled = True

            PW_5.Enabled = True

            PW_6.Enabled = True

            PW_7.Enabled = True

            PW_8.Enabled = True

            PW1PT2.Enabled = True

            PW2PT2.Enabled = True

            PW3PT2.Enabled = True

            PW4PT2.Enabled = True

            PW5PT2.Enabled = True

            PW6PT2.Enabled = True

            PW7PT2.Enabled = True

            PW8PT2.Enabled = True

        End If

لو ينفع مثلًا أعمل حاجة زي اسم مشترك للأدوات
حاولت بالـ Tag معرفتش
لو ينفع بيها ياريت تقولولي ازاي
ولو مينفعش
يبقي ايه فايد الـ Tag
لو فيه طريقة تانية يبقي كويس
معلش طلباتي كتير

System.Threading.Thread.Sleep(40) //sleeps for 40millisecond

غير الرقم بس دا بالمللي..يعني ثانية = 1000

بالنسبة لكود الإنتظار فزي ما Midget قالك ولو عايزه ما يهنجش الفورم أستخدم ده

كود:

Public Sub Sleep(ByVal millisecondsTimeout As Integer)

    For i As Integer = 0 To millisecondsTimeout / 10

        Application.DoEvents()

        Threading.Thread.Sleep(10)

    Next

End Sub

ملحوظة : بدل ماتحطه في الـForm_Load ويستنى 8 دقايق قبل ما الفروم يظهر حطه في الـForm_Shown

أما بالنسبة لإختصار الكود فالكود مختصر اهو

كود:

Dim Fields() As TextBox =

{

PW_1, PW_2, PW_3, PW_4, PW_5, PW_6, PW_7, PW_8,

PW1PT2, PW2PT2, PW3PT2, PW4PT2, PW5PT2, PW6PT2, PW7PT2, PW8PT2

}



If SamePass.Checked = True Then

    For Each Field As TextBox In Fields

        Field.Text = SamePassVal.Text

        Field.Enabled = False

    Next

ElseIf SamePass.Checked = False Then

    For Each Field As TextBox In Fields

        Field.Enabled = True

    Next

End If

ملحوظة : الـTag ده بيتحط فيه كلام بيوصف الـControl أو ليه علاقة بيه وبالمختصر ملوش أي لازمة في البرمجة

تمام ،،،
بس الفورم بيهنج برضه بالطريقتين :unsure:

واختصار الكود تمام التمام

انت بتستعمل vb.net ليه ؟ ده رخم اوي و اكواده كتييييييييييير

اللي اتعلمته في المدرسة بقي :bounce:
لو ممكن تعمل دورة #C من البداية خـــــــالص انا معاكـ :mushy:

دورات السي شارب على افا من يشيل على اليوتيوب وفي دورة لسا بادئة يوم الثلاثاء اللي فات ومبتدي من الاول لو عايز قولي وابعتلك الرابط