[VB .NET] كود يوقف التنفيذ لمدة دقيقة

[youssef13]

انا دلوقتي حاطط في الـ 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
لو فيه طريقة تانية يبقي كويس
معلش طلباتي كتير

[Midget1337]

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

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

[smsm20062009]

بالنسبة لكود الإنتظار فزي ما 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 أو ليه علاقة بيه وبالمختصر ملوش أي لازمة في البرمجة

[youssef13]

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

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

[smsm20062009]

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

[youssef13]

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

[mohsen857]

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