النتائج 1 إلى 3 من 3

الموضوع: مرة اخرى رسالة لخبراء الفيجوال بيسيك.......

  1. #1


    السلام عليكم لقد اولا شكرا للاخ M-006 و الاخ Vampire على الاجابة على سؤال LOOP ولكن المشكلة أني اريد ان راى الوب أي التكرار يحدث امامي في البرنامج……………مثال
    Dim i As Integer (this in general)

    Private Sub Command1_Click()
    For i = 1 To 7
    Text1.Text = i & vbNewLine
    Next i

    Label1.Caption = i

    End Sub

    اما الذي يظهر في label هو الرقم 8 وفي text هو الرقم 7 فقط……..
    وانا اريد في text
    1
    2
    3
    4
    5
    6
    7
    هكذا فماذا افعل وشكرا…………….







    العين كينج غير متواجد حالياً


  2. #2
    عضو نشيط
    تاريخ التسجيل
    Jan 2000
    المشاركات
    43


    لماذا لا تستعمل اداة Timer ؟

    ------------------
    المعرفة قوة





    M-006 غير متواجد حالياً

  3. #3
    عضو نشيط جدا
    تاريخ التسجيل
    Dec 1999
    المشاركات
    437


    سلام ..
    مضبوط .. لأنه في ال For
    عندما تتعدى القيمه العدد ... ينتهي التكرار ..وتضل القيمه أكبر من الرقم ..
    يمكن رأي M-006 أفضل .. لكن إن كنت مصرا علي ال Loop
    إستخدم ال DO
    أو أضف بعد next
    i=i-1

    بال DO

    i=0
    DO
    i=i+1
    ,,,
    ,,,
    loop until i=7
    ,,,

    وهنا سيتوقف ال loop عند 7 .. بعد سبعة تكرارات ... وستظل القيمه النهائيه أيضا 7 ....
    طبعا المفروض .. إنت جرب .

    تحياتي لكم






    T_zone غير متواجد حالياً





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

أضف موقعك هنا| اخبار السيارات | حراج | شقق للايجار في الكويت | بيوت للبيع في الكويت | دليل الكويت العقاري | مقروء | شركة كشف تسربات المياه | شركة عزل اسطح بالرياض | عزل فوم بالرياض| عزل اسطح بالرياض | كشف تسربات المياة بالرياض | شركة عزل اسطح بالرياض