تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت
#11
إقتباس :ولكنى أريد مثالآ عامآ[size=3] لأى رقمين[/size]

ان مثالك لم يفعل أكثر مما فعل مثالى
[size=3][b][size=3]هوكود يس[size=3]رد لنا طرق الاختيار [/size]اذا كان لينا 8 أشياء نريد اختيار 4منهم مثلآ 8ق4[/size][/b][/size]

ولكنى أريد مثالآ عامآ لأى رقمين غير معلومين


لاأريد [size=3]a = 8 ولا n = 4[/size] ولكن أريد المستخدم هو الذى يعطى بنفسه قيمة كل منهما
الرد }}}
تم الشكر بواسطة:
#12
السلام عليكم

- ياأخي العزيز ، قيمة ال A وال N متغيره غيرها للأرقام التي تريد ، أو ضع inputbox وضع قيمتة في المتغير N و inputbox آخر للمتغير A . فكر قليلا .

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#13
إقتباس :- ياأخي العزيز ، قيمة ال A وال N متغيره غيرها للأرقام التي تريد ، أو ضع inputbox وضع قيمتة في المتغير N و inputbox آخر للمتغير A . فكر قليلا

- ياأخي العزيز ، غيرها أنت ان استطعت بأى طريقة تعرفها وارسل الكود كاملا . فكر قليلا
إقتباس :[h=1](عدد مرات التكرار متغير غير ثابت)[/h]
الرد }}}
تم الشكر بواسطة:
#14

الأستاذ الكبير/ناجى ابراهيم قال فى رده (إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل)
ولكنه لم برد علينا حتى الآن
الرد }}}
تم الشكر بواسطة:
#15
كود :
Private Sub Command1_Click()

Dim iFrom() As Integer
Dim iTo() As Integer
Dim A1 As String
Dim N1 As String
Dim A As Integer
Dim N As Integer
Dim I, Z As Integer

A1 = InputBox("أدخل عدد الأشياء", "الكبابي", "")
N1 = InputBox("أدخل عدد العوامل", "الكبابي", "")

If IsNumeric(Trim$(A1)) = False Then
   MsgBox "يجب أن يكون عدد الأشياء رقماً", vbOKOnly + vbExclamation, "الكبابي"
   Exit Sub
End If

If IsNumeric(Trim$(N1)) = False Then
   MsgBox "يجب أن يكون عدد العوامل رقماً", vbOKOnly + vbExclamation, "الكبابي"
   Exit Sub
End If

If Val(Trim$(A1)) <= 0 Or Val(Trim$(N1)) <= 0 Then
   MsgBox "يجب أن يكون عدد الأشياء وعدد العوامل أكبر من الصفر", vbOKOnly + vbExclamation, "الكبابي"
   Exit Sub
End If

If Val(Trim$(A1)) < Val(Trim$(N1)) Then
   MsgBox "يجب أن يكون عدد الأشياء أكبر من عدد العوامل", vbOKOnly + vbExclamation, "الكبابي"
   Exit Sub
End If

'عدد الأشياء
A = Val(Trim$(A1))
'عدد العوامل
N = Val(Trim$(N1))

Command1.Enabled = False

List1.Clear

ReDim Preserve iFrom(1 To N) As Integer
ReDim Preserve iTo(1 To N) As Integer

For I = 1 To N
    iFrom(I) = I
    iTo(I) = A - (N - I)
Next

Do

   If iFrom(N) < iTo(N) Then
  
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      iFrom(N) = iFrom(N) + 1
      
   Else
  
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      
      For I = N To 1 Step -1
      
          If iFrom(I) < iTo(I) Then
            
             iFrom(I) = iFrom(I) + 1
             For Z = I + 1 To N
                 iFrom(Z) = iFrom(Z - 1) + 1
             Next
             Exit For
            
          Else
          
             If I = 1 Then Exit Do
          
          End If
          
      Next
  
   End If
  
   DoEvents

Loop

MsgBox "تم الإنتهاء بنجاح", vbOKOnly + vbInformation, "VB_Coder"

Command1.Enabled = True

End Sub
الرد }}}
تم الشكر بواسطة:
#16
كدة تبقى بتفكر صح . مش تقوللى غيرها للأرقام التي تريد ، أو ضع inputbox
[SIZE=3]وانا من بداية سؤالى وانا موضح أن المشكلة عندى فى أن عدد مرات التكرار متغير غير ثابت[/SIZE]
إقتباس :علمآ بأن عدد مرات التكرار متغير غير ثابت
الرد }}}
تم الشكر بواسطة:
#17
الأستاذ الكبير/ناجى ابراهيم قال فى رده (إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل)
ولكنه لم برد علينا حتى الآن





مازلنا فى انتظار رده بحل أسهل من هذا الحل الصعب الطويل
كود :
[align=left]
Private Sub Command1_Click()

Dim iFrom() As Integer
Dim iTo() As Integer
Dim A As Integer
Dim N As Integer
Dim I, Z As Integer

A = InputBox("الكبابى", "أدخل عدد الأشياء", "")
N = InputBox("الكبابى", "أدخل عدد العوامل", "")

List1.Clear

ReDim Preserve iFrom(1 To N) As Integer
ReDim Preserve iTo(1 To N) As Integer

For I = 1 To N
    iFrom(I) = I
    iTo(I) = A - (N - I)
Next

Do

   If iFrom(N) < iTo(N) Then
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      iFrom(N) = iFrom(N) + 1
   Else
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      For I = N To 1 Step -1
          If iFrom(I) < iTo(I) Then
             iFrom(I) = iFrom(I) + 1
             For Z = I + 1 To N
                 iFrom(Z) = iFrom(Z - 1) + 1
             Next
             Exit For
          Else
             If I = 1 Then Exit Do
          End If
      Next
   End If
   DoEvents

Loop

End Sub
[/align]

ولكم ألف شكر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح الكود البسيط هذا بالتفصيل the viper 3 2,754 10-07-22, 07:48 AM
آخر رد: سعود
  سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ حسن الغزي 9 3,785 22-08-18, 10:48 PM
آخر رد: elgokr
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 8 4,609 14-01-18, 07:41 PM
آخر رد: awidan76
  [vb6.0] كيف يمكن تعديل الكود لجلب احصائيات awidan76 7 2,517 10-01-18, 01:52 PM
آخر رد: awidan76
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 5,317 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 3,070 01-11-16, 09:50 AM
آخر رد: amer2000
  الغاء التكرار m-kaylani 6 2,819 07-08-16, 03:54 PM
آخر رد: Ahmed_Mansoor
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 2,616 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  الرجاء المساعدة فى تصحيح الكود king2512010 1 1,845 25-10-14, 11:49 PM
آخر رد: تركي الحلواني
  عندي مشكله في الكود جمعه عريفه 4 2,932 21-05-14, 09:00 PM
آخر رد: جمعه عريفه

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم