سؤال فى اللوب - نسخة قابلة للطباعة

سؤال فى اللوب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال فى اللوب (/showthread.php?tid=7639)

سؤال فى اللوب - اسلام الكبابى - 14-02-13

النسبة للوب Do While كيف يكون الأمر بتكرار اللوب لحين الضغط على زر معين(الزرCommand2 مثلآ)
[HTML]

Do While.........

Loop
[/HTML]
ولكم ألف شكر

سؤال فى اللوب - the viper - 14-02-13

اخي الكريم انظر للموضوع هذا الذي شرحه ولد رائع وان شاء الله راح تستفيد

http://vb4arb.com/vb/showthread.php?3582-%E3%E3%DF%E4-%D4%D1%CD-%E1%E1%CF%E6%C7%E1-Mod-%E6-Do-Loop-%E6-while

سؤال فى اللوب - ناجي إبراهيم - 15-02-13

السلام عليكم...

1. قم بتعريف متغير في قسم التصريحات العام. مثلاً:

كود :

Private Continue As Boolean

2. كود الحلقة يكون كالتالي:

كود :

Continue = True

Do While Continue

    ' جملة برمجية

    ' جملة برمجية

    ' ... إلخ

    DoEvents

Loop

* جملة DoEvents مهمة جداً.

3. في زر الإيقاف، مثلاً Command2:

كود :

Continue = False

4. نرجو الاستفادة و السلام.

سؤال فى اللوب - اسلام الكبابى - 15-02-13

عاد الأستاذ الكبير/[SIZE=5]ناجى ابراهيم والحمد لله
بارك الله فيه[/SIZE]

سؤال فى اللوب - ولد رائع - 18-02-13

هذا مثال كامل ان شاء الله تستفيد منه

PHP كود :

Option Explicit

Dim lCounter As Boolean
Dim Stopped As Boolean


Private Sub Command1_Click()
Text1.Text = 0
Stopped = False


For lCounter = Val(Text1) To 32767
    Text1.Refresh

     Text1 = lCounter
    
  
    DoEvents
   If Stopped = True Then Exit For
   
Next
End Sub

Private Sub Command2_Click()
 Stopped = True
Text1 = 0

End Sub

Private Sub Command3_Click()
Stopped = True 