الـجـروب الـرسـمى لـلـمـنـتـدى FaceBook | Official Group

**youssef13** · 01-03-2014, 03:07 AM

انا دلوقتي حاطط في الـ 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** · 01-03-2014, 04:05 AM

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

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

**smsm20062009** · 01-03-2014, 05:33 AM

بالنسبة لكود الإنتظار فزي ما 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** · 01-03-2014, 05:02 PM

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

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

**smsm20062009** · 02-03-2014, 01:15 AM

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

**youssef13** · 02-03-2014, 04:15 AM

اللي اتعلمته في المدرسة بقي

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

**mohsen857** · 04-03-2014, 12:55 AM

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

يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)

	حفظ بياناتي ؟

شـريـط الاهـداءات