+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] شفرة التحقق من عدد اذا كان ينتمي للسلسلة العددية (/showthread.php?tid=36249)
شفرة التحقق من عدد اذا كان ينتمي للسلسلة العددية - بوعيسى - 29-08-20
السَلآْم عَلْيُكّمٌ وٍرٍحَمُةّ الله وٍبُرٍكآتُهْ
ممكن كود للتحقق من عدد معين مثلا 1142 اذا كان ينتمي للسلسلة التي تبدأ بالعدد 2 وكل عدد يزيد عن الذي قبله بمقدار ثلاثة.
وشكراً.
RE: شفرة التحقق من عدد اذا كان ينتمي للسلسلة العددية - Anas Mahmoud - 29-08-20
اذا كان العد يبدأ من 2 ويزيد بمقدار 3
فببساطة اذا طرحنا ال 2 من العدد يجب ان نحصل على عدد يقبل القسمة على 3
يعني باقي قسمة ( الرقم - 2 ) على 3 يجب ان يساوي صفر
كود :
If ((1142- 2) Mod 3) = 0 Then
MsgBox("ينتمي")
Else
MsgBox("لا ينتمي")
End Ifللتعميم يمكنك استخدام
كود :
Dim CurrentNumber As Integer
Dim startNumber As Integer ' = 2
Dim stepNumber As Integer ' = 3
CurrentNumber = 1142
startNumber = 2
stepNumber = 3
If ((CurrentNumber - startNumber) Mod stepNumber) = 0 Then
MsgBox ("ينتمي")
Else
MsgBox ("لا ينتمي")
End Ifالكود كتبته ب vb.net واعتقد انه يعمل في vb6 ايضا ولكن المهم المنطق خلفه
RE: شفرة التحقق من عدد اذا كان ينتمي للسلسلة العددية - بوعيسى - 29-08-20
شكراً على الكود المختصر