تسجيل الدخول

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


amawi
15-07-2005, 12:12 AM
يا جماعة انا داخل دورة v.b6
وسويت هالبرنامج الي انطلب مني
وهو كاشف الأعداد الأولية
اراكم بتهمني لا تحرموني منها
هي البرنامج
Argonaut
15-07-2005, 12:38 AM
بسم الله الرحمن الرحيم
السلام عليك ورحمة الله وبركاته
:jap001: البرنامج لا يعمل
وشكرا
amawi
15-07-2005, 11:33 AM
طيب ليش أنا على كل حال رح أرد انزله
واذا ما زبط بحط الكود تبعه
Argonaut
15-07-2005, 04:00 PM
اسف البرنامج لا يعمل " نصيحة احذف كل ما يتعلق ب
on error resume next
on error goto err: وما شابه ذلك
وارفق المرفق يعني exe
وشكرا
amawi
16-07-2005, 03:00 PM
طيب أخوي بس أمهلني يوم أو اثنين لأني مشغول الأن
وان شاء الله بكتب المود
وحاب أحكي اشي انو المنتدي لا يدعم صيغة exe
وشكرا على متابعتك
ومؤازرتك لي
amawi
17-07-2005, 02:44 PM
أولا يلزمك 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
17-07-2005, 11:20 PM
البرنامج شكله ذاهب الى " غير اولي"
و
next وين ذهبت
والمشروع ضعيف سامحني :jap003:
وجزاك الله خيرا
amawi
17-07-2005, 11:49 PM
والله اني اسف يمكن انسيتها
next i ها بتيجي بعد الايند اف
بس ممكن اعرف ايش الضعيف ببرنامجي
وعلى فكرة انا جربت على كثير أعداد ودائما كان صح
وعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم
amawi
17-07-2005, 11:52 PM
وكمان شغلة
انا اسف اذا في غلط بالكود او بالطباعة لاني كتبته وانا مستعجل وما راجعته وعلى كل حال برد اتأكد واذا في أغلاط كثيرة بزبطه
bachir1988
17-07-2005, 11:57 PM
انا اشكرك عل برنامج ولكن اريد من برنامج الي يحصي الارقام من 1الى 49 وكل شطر يكون فيه 6 ارقام ولكن بدون تكرار
Argonaut
18-07-2005, 12:10 AM
وعلى كل حال انتو القدوة واحنا ولا شيء يعني بعدنا بنتعلم
الله يخليك انحى بدونكم والله ولاشي سامحني وبصراحة احنى انتهى زمنى والان اتى زمنكم من يدري ربما في المستقبل انت مراقب ان شاء الله امين
وشكرا
amawi
18-07-2005, 09:21 PM
لا أخوي ولا يهمك انا كنت بمزح وهي التزبيط تبع الكود
أولا يلزمك 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
18-07-2005, 11:35 PM
لا ادري لماذا لا يعمل انسخ الكود وجربه بنفسك او ارفق المشورع.
وشكرا
amawi
19-07-2005, 03:13 PM
خلص هي أحسن حل أنا هل اليومين بنزل المشروع
amawi
19-07-2005, 09:21 PM
مرحبا جميعا وبالأخص أخي المشرف العزيز
هي المشروع وأرجو انو يشتغل وأرجو انك تعلق لأنو دائما تعليقك في محلو ودائما يهدف الى مصلحة الاخرين
ما بدي أطول هي البرنامج
amawi
19-07-2005, 10:12 PM
أرجو من مشرفنا العزيز حذف البرنامج الأول لأني غلطت بحرف بس
وهي جايبلكم البرنامج الصح
على فكرة البرنامج الأول رح يشتغل ورح يظل يعطي غير أولي
هي البرنامج الي زابط
Argonaut
21-07-2005, 10:15 AM
مبارك يااخونا العزيز لقد عمل البرنامج ............ وانا اشك بالملف exe
وجزاك الله خيرا
وشكرا
amawi
21-07-2005, 02:27 PM
i'm very very sorry
but my computer have a virus
ples delet this program now
)in arabic( LEE aoda
what me 1 week
your brither amawi
Argonaut
21-07-2005, 10:17 PM
سوف يتم حذف جميع مرفقاتك "فقط هذا الموضوع"وسوف يتم وضع المرفق الصالح وذلك خدمة للصالح العام

والفايروس هو من نوع السباي وير
اسمه = PE_ClH.1003
والشرح الوافي عنه =
http://www.trendmicro.com/vinfo/virusencyclo/default5.asp?VName=PE_CIH.1003

للذين يودون المشروع بتاع زميلنا هذا هو المرفق الخالي من الفايروس
وشكرا
amawi
23-07-2005, 02:55 PM
يا اخواني أنا أسف بس والله اني ما كنت أ‘رف اني في فايروس بجهازي
مشرفنا العزيز بقية الأعضاء الأكارم سامحوني
والله اني ما عرفت انو في بكمبيوتري فايروس الا من اخوانا في منتدى البرامج وفعلا هجم الفايروس مرة وحدة مما اطرني للفورمات وبعد هيك بالموت حتى استطعت اني أركب وندوز وأول شيء ركبته مع الوندوز هو الانتي فايروس
تقبلو اعتذاري وأنا اسف
Argonaut
23-07-2005, 11:11 PM
العفو نعرف ماكنت تقصد وهذا هو المرفق
وشكرا
amawi
23-07-2005, 11:27 PM
أخوي بدي احكيلك على اشي وأرجو اني أجد عندك الاجابة
انا كنت اشتغل على وندوز 98
فرمته بعد الفايروس وركبت اكس بي سيرفيس باك 2
المهم اجيت أركب الفجيول ستيديو كالعادة وصل للمرحلة الي برستر الكمبيوتر رستر ورد وقف عند النقطة الي وصلت عندها رد حكالي انو الكمبيوتر بدو يعمل رستارت وكمل على هل الحال
ممكن تحكيلي طريقة أو اشي يساعدني
Argonaut
23-07-2005, 11:51 PM
الفورمات كان full او لا وهل واجهتك اخطاء اثناء تثبيته .... الفايروس لم يكن من النوع الخطير بمجرد الفرمته يلغى عمله على ان يكون او تكون الفرمتة كاملة للهارد
وشكرا
amawi
24-07-2005, 05:57 PM
بصراحة انا اجيت أعمل full فورمات وسويت ديسك ستارت اب وديسك فورمات وحطيتهم بالفلةبي ديك ورسترت الكمبيوتر وما قراء منهم وحاولت مثير
حتى تعبت فحطيت سيدي وندوز 98 ودخلت من خلاله على الدوس وكتبت فورمات دي
وفرمت
أعتقد انو مش فول فورمات صح
بس انا ركبت انتي فايروس ومحيته طلع منتشر بالسي والدي والي
أخوي ممكن تساعدني
Argonaut
26-07-2005, 04:40 PM
اسف على التأخير هو انت عملت فرومات اي ينحذفن كل الملفات للذي عملت حذف له بس هذا الفايروس ليس بخطير فقط عملية مسح لاي مكافح له يقتله نهائيا انا قتلته ب
Trend Micro Internet Security 11
وانتهى امره
وشكرا