mar7ba
i want a program that find the number that has been repeated in an array
the duplication of it!! any one can help
for example
99
22
66
55
44
34
56
34
75
55(duplication)
and to put in other text box when it find dublicatio **duplication** n
other wise, no duplication
thanx for lestining
السلام عليكم
افتقدناك في الفترة السابقة
انشئ كود به زر واضف الكود التالي لجميع الفورم
Dim x(9) As Integer
Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 9
p = InputBox("Enter the value number" & (i + 1), "HishamNasr")
x(i) = Val(p)
Next
For i = 0 To 9
For j = 0 To i - 1
If x(i) = x(j) Then Print x(i)
Next
Next
End Subملاحظة: افترضت ان عدد الاعداد 10 يمكنك تغيرها من الكود
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
شكرا يا هشام كتييييير
البرنامج حلو و ماشالله عليه
بس مش هو طلبي P:
اشرح اكتر.
بدي بمجرد اكبس زر البدء يطلع الرقم العشوائي, واذا ظهر رقم متكرر في الللست بوكس
يبين الرقم، ويعطيني مسج انه بهاي الحلة في تكرار، انا راح ابعتلك شو عملت بالبرنامج
وإن شاء الله تقدر تساعدني
و تعليق على غيابي
فهذا طبع القمر
ارجو ان يكون هذا البرنامج هو قصدك
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
:) انا اسفة كتير، غلبتك معي، بس انا في ورطة جهازي في البيت تعطل
و لم يعد في وسعي المحاولة اكثر ، لذا اتمنى ان القى المساعدة العاجلة
لمشكلتي، سوف ارفق ملف من تصميمي، وفقط اريد الكود الذي يبين لي الرقم الذي تكرر:
على سبيل المثال
43
24
55
67
89
55(duplication)
43(duplication)
يكون هذا باللست بوكس اذا وجد رقم مكرر لرقم سابق كما هو موضح
و في التكست بوكس كما صممته بالملف المرفق، يكتب duplication ايضا في حال وجود تكرار في هذه الحالة العشوائية، و no duplication
في حال عدم وجود تكرار.
ولا احتاج لتوقيت.
الرجائ أخذ الموضوع في عين الاعتبار اقصى وقت غدا
plsssssssssssssssssssss help me :( pls
الحمد لله حليتها
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
طلب اخير، ممكن تحلها على البرنامج الي ارفقته اخر مرة( الي من تصميمي)
واوكن جزريلة الشكر
:(
وبليز لا احتاج ال timer
ارجو الرد الان و جربي البرنامج
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
:( ممكن بطريقة تانية
انه
المتكرر الاخير هو الي تظهر جمبه ال DUPLICATION
وتكون بطريقة غير هاي
:( اسفة
بس انا انضغت
وضاق على الوقت
و انا بحاول ومو طالع بايدي شي
بصراحة كتير متوترة
بليز ساعدني ازا بتقدر على نفس خطواتي تكمل، راح ارفق اخر ملف انا عملته
يا ريت تكملي عليه
انه وين ما في غلط تصححه
لاني متاكدة انه هاي الطريقة، بس مش طالع معي شي
غيري جملة
list1.list(j)=list1.list(j) & "duplication"
من الحرف j الى I
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
اريد الحل على طريقة (myaray(i+1 ممكن
لاني لا افهم هذه الطريقة
ارجو الرد باسرع وقت
for i=1 to 20 for j=1 to i if i<>j and myaray(i)=myaray(j) then list1.list(i)=list1.list(i) & "duplication" next next
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
for i=1 to 20 for j=1 to i if i<>j and myaray(i)=myaray(j) then list1.list(i)=list1.list(i) & "duplication" next next
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
لاا يعمللللللللل :(
ما المشكلة بالبرنامج الاول الذي ارفقته لك
فهو يقرأ من اليمين خانتين ليقرأ القيمة المدخلة
right(list1.list(i),2)
تعني اذهب للعنصر رقم I في ال list و اقرأ حرفين من اليمين
غيرت هذا الكود لاستعمل myarray لكني نسيت ان اضيف ان تعريف ال مصفوفة يتم بهذه الطريقة
dim myarray (20) as integer
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
ارجع ابعتلي البرنامج بال كامل مع
with my array plsss
جربي الان
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
هذا الموضوع مغلق.