برنامج كاشف الأعداد الأولية

[amawi]

يا جماعة انا داخل دورة v.b6
وسويت هالبرنامج الي انطلب مني
وهو كاشف الأعداد الأولية
اراكم بتهمني لا تحرموني منها
هي البرنامج

[Argonaut]

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

[amawi]

طيب ليش أنا على كل حال رح أرد انزله
واذا ما زبط بحط الكود تبعه

[Argonaut]

اسف البرنامج لا يعمل " نصيحة احذف كل ما يتعلق ب
on error resume next
on error goto err: وما شابه ذلك
وارفق المرفق يعني exe
وشكرا

[amawi]

طيب أخوي بس أمهلني يوم أو اثنين لأني مشغول الأن
وان شاء الله بكتب المود
وحاب أحكي اشي انو المنتدي لا يدعم صيغة exe
وشكرا على متابعتك
ومؤازرتك لي

[amawi]

أولا يلزمك 2 تيكست بوكس و 1 كوماند و2 ليبل
رتب الفورم كالأتي
text1 و lebel 1 جنب بعض
ونفس الشيء على الثاني
سمي ليبل 1 الرقم
وليبل2 النتيجة
امحي الي بداخل التيكست بوكس
من الكابشن سمي الكوماند 1 بحث
دبل كليك على الكوماند 1 لكي تدخل على الكود
انقل التالي على الكود
dim num,i as integer
dim flag as boolean
flag=fals
num=val(text1.text)
if num=1 or num =2 then
flag=true
else if (num mod 2)=0 then
flag =fals
else
flage=true
endif
for i= 3 to num-1 step2
if(num mod i)=0 then
flag=fals
exit for
end if
if flag then
text2.text=" أولي"
else
text2.text="غير أولي"
endif
end sub
أرجو من المشرف/المشرفين تصحيح الأخطاء المطبعية ان وجدت
وأهم شيء تحكولي انطباعكم

[Argonaut]

البرنامج شكله ذاهب الى " غير اولي"
و
next وين ذهبت
والمشروع ضعيف سامحني
وجزاك الله خيرا

[amawi]

والله اني اسف يمكن انسيتها
next i ها بتيجي بعد الايند اف
بس ممكن اعرف ايش الضعيف ببرنامجي
وعلى فكرة انا جربت على كثير أعداد ودائما كان صح
وعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم

[amawi]

وكمان شغلة
انا اسف اذا في غلط بالكود او بالطباعة لاني كتبته وانا مستعجل وما راجعته وعلى كل حال برد اتأكد واذا في أغلاط كثيرة بزبطه

[bachir1988]

انا اشكرك عل برنامج ولكن اريد من برنامج الي يحصي الارقام من 1الى 49 وكل شطر يكون فيه 6 ارقام ولكن بدون تكرار

[Argonaut]

وعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم

الله يخليك انحى بدونكم والله ولاشي سامحني وبصراحة احنى انتهى زمنى والان اتى زمنكم من يدري ربما في المستقبل انت مراقب ان شاء الله امين
وشكرا

[amawi]

لا أخوي ولا يهمك انا كنت بمزح وهي التزبيط تبع الكود
أولا يلزمك 2 تيكست بوكس و 1 كوماند و2 ليبل
رتب الفورم كالأتي
text1 و lebel 1 جنب بعض
ونفس الشيء على الثاني
سمي ليبل 1 الرقم
وليبل2 النتيجة
امحي الي بداخل التيكست بوكس
من الكابشن سمي الكوماند 1 بحث
دبل كليك على الكوماند 1 لكي تدخل على الكود
انقل التالي على الكود
dim num,i as integer
dim flag as boolean
flag=false
(num=val(text1.text
if num=1 or num =2 then
flag=true
else if (num mod 2)=0 then
flag =false
else
flage=true
endif
for i= 3 to num-1 step2
if(num mod i)=0 then
flag=false
exit for
end if
next i
if flag then
text2.text=" أولي"
else
text2.text="غير أولي"
endif
end sub
هيك أنا متأكد من الكود والعلم عند الله ان شاء الله أكون أفدت وأرجو انكم تجربو البرنامج وتعطوني رأيكم
وبالنسبة للأخ بشير 1988
بس ممكن توضح السؤال لأني ما فهمت

[Argonaut]

لا ادري لماذا لا يعمل انسخ الكود وجربه بنفسك او ارفق المشورع.
وشكرا

[amawi]

خلص هي أحسن حل أنا هل اليومين بنزل المشروع

[amawi]

مرحبا جميعا وبالأخص أخي المشرف العزيز
هي المشروع وأرجو انو يشتغل وأرجو انك تعلق لأنو دائما تعليقك في محلو ودائما يهدف الى مصلحة الاخرين
ما بدي أطول هي البرنامج