يا جماعة انا داخل دورة v.b6
وسويت هالبرنامج الي انطلب مني
وهو كاشف الأعداد الأولية
اراكم بتهمني لا تحرموني منها
هي البرنامج
يا جماعة انا داخل دورة v.b6
وسويت هالبرنامج الي انطلب مني
وهو كاشف الأعداد الأولية
اراكم بتهمني لا تحرموني منها
هي البرنامج
التعديل الأخير تم بواسطة Argonaut ; 21-07-2005 الساعة 10:37 PM سبب آخر: تم العثور على فايروس PE_ClH.1003
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
بسم الله الرحمن الرحيم
السلام عليك ورحمة الله وبركاته
البرنامج لا يعمل
وشكرا
طيب ليش أنا على كل حال رح أرد انزله
واذا ما زبط بحط الكود تبعه
التعديل الأخير تم بواسطة Argonaut ; 21-07-2005 الساعة 10:35 PM
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
اسف البرنامج لا يعمل " نصيحة احذف كل ما يتعلق ب
on error resume next
on error goto err: وما شابه ذلك
وارفق المرفق يعني exe
وشكرا
طيب أخوي بس أمهلني يوم أو اثنين لأني مشغول الأن
وان شاء الله بكتب المود
وحاب أحكي اشي انو المنتدي لا يدعم صيغة exe
وشكرا على متابعتك
ومؤازرتك لي
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
أولا يلزمك 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
أرجو من المشرف/المشرفين تصحيح الأخطاء المطبعية ان وجدت
وأهم شيء تحكولي انطباعكم
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
البرنامج شكله ذاهب الى " غير اولي"
و
next وين ذهبت
والمشروع ضعيف سامحني
وجزاك الله خيرا
والله اني اسف يمكن انسيتها
next i ها بتيجي بعد الايند اف
بس ممكن اعرف ايش الضعيف ببرنامجي
وعلى فكرة انا جربت على كثير أعداد ودائما كان صح
وعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
وكمان شغلة
انا اسف اذا في غلط بالكود او بالطباعة لاني كتبته وانا مستعجل وما راجعته وعلى كل حال برد اتأكد واذا في أغلاط كثيرة بزبطه
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
انا اشكرك عل برنامج ولكن اريد من برنامج الي يحصي الارقام من 1الى 49 وكل شطر يكون فيه 6 ارقام ولكن بدون تكرار
الله يخليك انحى بدونكم والله ولاشي سامحني وبصراحة احنى انتهى زمنى والان اتى زمنكم من يدري ربما في المستقبل انت مراقب ان شاء الله امينوعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم
وشكرا
لا أخوي ولا يهمك انا كنت بمزح وهي التزبيط تبع الكود
أولا يلزمك 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
بس ممكن توضح السؤال لأني ما فهمت
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
لا ادري لماذا لا يعمل انسخ الكود وجربه بنفسك او ارفق المشورع.
وشكرا
خلص هي أحسن حل أنا هل اليومين بنزل المشروع
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
مرحبا جميعا وبالأخص أخي المشرف العزيز
هي المشروع وأرجو انو يشتغل وأرجو انك تعلق لأنو دائما تعليقك في محلو ودائما يهدف الى مصلحة الاخرين
ما بدي أطول هي البرنامج
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com