كيف يمكن الوصول الى مضعفات رقم معين

وعليكم السلام

مش فاهم قصدك ياريت تكتب النموذج اللى عايز تنفذه :(

عندي متغير الان واريد ان افحصه هل هو 20,40,60,80,100,120,140,160,180,200,220, الخ الخ ...........

والله اعلم أن السؤال أقرب لـ باقي القسمة .

شاهد المثال بالنصوص البرمجية. إذا كان باقي القسمة يساوي صفر نكتب الرقم.

Module Module1

	Sub Main()

		For i As Integer = 0 To 120
			If i Mod 2 = 0 Then
				Console.WriteLine(i)
			End If
		Next
		Console.Read()

	End Sub

End Module

جرّب يا أخي هذا الكود ، علماً بانّ i هو المتغيّر المقصود و b متغيّر من نوع Boolean

if i\20 = i/20 then b=True else b=False

يبدو ان الاخ يريد معرفة اذا كان العدد من بين الأعداد التي ذكر و حل الأخ الشهاب الحارق اذا كان المتغير مثلا يساوي 26 فسيرجع 0 و حل الأخ الكتاح صحيح و يمكن تعديله الى هذا الكود :

If MyVar Mod 20 = 0 Then Retrun True

اريد معرفة فقط ادا كان المتغير عندي هل يساوي 20- 40-60-80-100-120-140-160-180

يعني كل مرة زيادة 20 الى 200 مثلاً

هل تقصد إختبار إن العدد قابل للقسمة على 20 ؟

Function isDivBy20(ByVal Number As Integer) As Boolean
	If Number Mod 20 = 0 Then
		Return True
	Else
		Return False
	End If
End Function

انا احترت :(

جواب نهائي مع مساعدة الزملاء.

Module Module1

	Sub Main()

		For i As Integer = 0 To 200
			If i Mod 20 = 0 AndAlso i >= 20 AndAlso i <= 200 Then
				Console.WriteLine(i)
			End If
		Next
		Console.Read()

	End Sub

End Module

بالتوفيق.

المسألة ابسط من التعقيد ده كله

		If X Mod 20 = 0 Then
			MsgBox("True")
		Else
			MsgBox("False")
		End If

السلام عليكم و رحمة الله و بركاته

إخواني الكرام أظن أن هذا هو الحل فما رأيكم ؟

*****************************************

أولا عليك وضع زر و تاكست بوكس و لابل على الفورم ثم ضع الكود التالي

--------------------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

i = Val(TextBox1.Text)

For j = 20 To 200 Step 20

If i = j Then

Label1.Text = "TRUE"

Exit For

Else

Label1.Text = "FALSE"

End If

Next

End Sub

----------------------------------------------------------------------------------

أتمنى لكم التوفيق

اخي Ghader جزاك الله خير, لكن السائل لم تحاشا الرقم صفر كقيمة راجعة وبدء بالرقم 20 كأصغر رقم.

وبما أن السؤال في الحقيقة ناقص لذلك تجد حلول كثيرة وهذا نوهنا عليه من قبل والله المستعان.

اخي talweb2003 جزاك اللهُ خير, كما تلاحظ في السؤال ان الحلقة Loop statement ليست مشروطة هاهنا وانما فقط هي من باب

تطبيق الحل لا اكثر. لان السائل لم يشترط ذلك وربما تسند القيمة بدونها, وحلك يعتمد اعتماد كلي على الحلقة, اليس كذلك .

في الاخير شكراً لك و لكل من ساهم وحاول إيجاد الحل. السلام عليكم.

بسم لله الرحمن الرحيم

الاخ الشهاب الحارق شكرأ اخى للتعقيب

لكن ما رأى السائل فى الموضوع ؟

فما هو المطلوب تحديداً غير موضوع القسمة ؟

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله