• 0
includer

[برنامج كاشف الأرقام الاولية] أول برنامج لي في ال Vb.net

سؤال

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

قبل كل شيء أرجو أن تقبلوني كعضو معكم

و هذا اعتبروه هدية مني لانضمامي بكم

يوفر لكم البرنامج طريقتين في التجريب

الأولى هي تجريب عدد واحد

و الثانية هي تجريب عدة أعداد

بعد تحديد البداية و التهاية طبعا

الموضوع مفتووح للانتقادات و الاقتراحات

بدون إطالة البرنامج + السورس في المرفقات

تحياتي

لا تنسوني من دعاء عن ظهر غيب لي و لوالدي

سلاآم

ملاحظة مهمة : باسوورد فك الضغط

algeria

____________________.rar

Source.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

انا سعيد اني اكون اول واحد يرد علييك :lol:

وعموما مشكوور على البرنامج وجاري التجربة :clapping:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

منور الموضوع بمرورك

على الأقل أنت رديت ليس كالآخرين

يمرون مرور الكرام

تحياتي

سلاآم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور اخى

بارك الله فيك

وننتظر منك المزيد ان شاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اسف اخى فية مشكلة عند فك الضغط

الرقم السرى صحيح ما فى مشلة المشكلة فى التحميل ما هو كامل

ممكن اخى تحمل الملفات تانى او على موقع اخر

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

المفروض ان يكون هذا الاجراء فقط لفحص ان كان العدد اوليا ام لا فقط ومن غير الصحيح اسناد قيم من داخله لمربع نص او قائمة بالتالي الاجراء من الافضل ان يكون كما يلي

انسخ الكود
  1.  
  2. [color= #0600FF;]Function[/color] IsPrim[color= #000000;]([/color][color= #FF8000;]ByVal[/color] number [color= #FF8000;]As[/color] [color= #FF0000;]Integer[/color][color= #000000;])[/color] [color= #FF8000;]As[/color] [color= #FF0000;]Boolean[/color]
  3. [color= #0600FF;]Dim[/color] i [color= #FF8000;]As[/color] [color= #FF0000;]Integer[/color]
  4. i [color= #008000;]=[/color] [color= #FF0000;]2[/color]
  5. [color= #0600FF;]If[/color] number [color= #008000;]=[/color] [color= #FF0000;]2[/color] [color= #FF8000;]Then[/color]
  6. [color= #FF8000;]Return[/color] [color= #0600FF;]True[/color]
  7. [color= #FF8000;]ElseIf[/color] number [color= #804040;]Mod[/color] i <> [color= #FF0000;]0[/color] [color= #FF8000;]Then[/color]
  8. [color= #0600FF;]Dim[/color] UpperLimit [color= #FF8000;]As[/color] [color= #FF0000;]Integer[/color] [color= #008000;]=[/color] Math.[color= #0600FF;]Sqrt[/color][color= #000000;]([/color]number[color= #000000;])[/color] [color= #008080; font-style: italic;]'نظرية في الرياضيات[/color]
  9. i [color= #008000;]+=[/color] [color= #FF0000;]1[/color]
  10. [color= #0600FF;]Do[/color] [color= #0600FF;]While[/color] [color= #000000;]([/color]i <[color= #008000;]=[/color] UpperLimit[color= #000000;])[/color] [color= #FF8000;]AndAlso[/color] [color= #000000;]([/color]number [color= #804040;]Mod[/color] i <> [color= #FF0000;]0[/color][color= #000000;])[/color]
  11. i [color= #008000;]=[/color] i [color= #008000;]+[/color] [color= #FF0000;]2[/color] [color= #008080; font-style: italic;]'لايلزم الفسمة على الاعداد الزوجية[/color]
  12. [color= #0600FF;]Loop[/color]
  13.  
  14. [color= #FF8000;]Return[/color] [color= #0600FF;]CBool[/color][color= #000000;]([/color]i > UpperLimit[color= #000000;])[/color]
  15.  
  16. [color= #FF8000;]Else[/color]
  17. [color= #FF8000;]Return[/color] [color= #0600FF;]False[/color]
  18. [color= #0600FF;]End[/color] [color= #0600FF;]If[/color]
  19.  
  20. [color= #0600FF;]End[/color] [color= #0600FF;]Function[/color]
  21.  

وبعد ذلك يمكن فحص الرقم كما يلي

if isprime(TxtNum.Text) then

label1.text="PRime"

else

'not prime

end if

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .