السلام عليكم :-
برنامج بسيط يطبع الاعداد الاولية بس فيه مشكلة بسيطة وهي ان الاعداد تظهر على الفورم الى الرقم 299 اي الاعداد التي بعد 299 لا تظهر الفورم
اريد الاعداد أن تنزل سطر جديد عندما تصل الى نهاية الفورم
وشكراً
Private Sub Form_Load()
Dim i, j, x, n As Integer
n = InputBox("enter number")
For i = 2 To n
x = 1
For j = 2 To i - 1
If (i Mod j = 0) Then
x = 0
End If
Next
If x = 1 Then
Print i;
End If
Next
End Sub
غير ممكن النزول او بحاجة الى عمل كثير لكن يمكنك استخدام listbox
فبدل جملة print ضع
list1.AddItem i
TareqVB كتب:غير ممكن النزول او بحاجة الى عمل كثير لكن يمكنك استخدام listboxفبدل جملة print ضع
list1.AddItem i
مشكور بارك الله فيك
يعني ما فيه امكانية للنزول عند الوصول الى نهاية الفورم؟
تحاتي اليك
هل اسمك رواية جديدة للعبقري أحمد خالد توفيق ؟
فيه امكانية اكيد .. بالاعتماد علي كلا من CurrentX و TextWidth ..
فقط استخدم الكود التالي :
If (Me.Width - TextWidth(Chr(32) & Chr(32) & Str(i - 1) & Str(i))) <= Me.CurrentX Then Print i Else Print i; End If
ليصبح الكود هكذا :
Private Sub Form_Load()
Dim i, j, x, n As Integer, pos As Long
n = InputBox("enter number")
For i = 2 To n
x = 1
For j = 2 To i - 1
If (i Mod j = 0) Then
x = 0
End If
Next
If x = 1 Then
If (Me.Width - TextWidth(Chr(32) & Chr(32) & Str(i - 1) & Str(i))) <= Me.CurrentX Then
Print i
Else
Print i;
End If
End If
Next
End Subتم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 7 يونيو 2007 في 20:24
لكن هذا الكود لا يعمل نزول للاسفل وانما عمل اعادة ترتيب
فجرب مثلا 31000 وستجد ان اعداد كثيرة لا تظهر اي بقيت نفس المشكلة
يبدو أنك لم تلاحظ ما أراده السائل أخي طارق من الكود الذي قام بإرفاقه ..
فهو أراد ترتيب أفقي .. ومن ثم عندما ينتهي السطر الأفقي .. ينزل سطر لتحت ليبدأ من جديد ..
للتغلب علي انتهاء حد الفورم Height .. يمكن وضع الكود في Resizer
تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 7 يونيو 2007 في 21:35
Nothing is impossible, the word impossible itself says that: I M - Possible
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…