العضو المميز الموضوع المميز المشرف المميز
المنتدى متاح للتصفح فقط ولا يقبل المشاركات الجديدة ماشاء الله تبارك الله ماشاء الله لاقوة الا بالله المنتدى متاح للتصفح فقط ولا يقبل المشاركات الجديدة

آخر 10 مشاركات
كتب الرياضيات العربية (الكاتـب : - - الوقت: 07:41 PM - التاريخ: 05-03-2013)           »          أتيتكم ببشرى خاصه بتلميذتكم منتداي العزيز :) (الكاتـب : - آخر مشاركة : - - الوقت: 11:02 PM - التاريخ: 06-07-2012)           »          كيف نحسب بعد الأرض عن الشمس بالرياضيات (الكاتـب : - - الوقت: 05:50 AM - التاريخ: 25-06-2012)           »          تجريب اللاتيك LaTex (الكاتـب : - - الوقت: 02:37 AM - التاريخ: 22-06-2012)           »          أخلاق المسلمين (الكاتـب : - آخر مشاركة : - - الوقت: 11:57 AM - التاريخ: 20-05-2012)           »          مسألة محددات أرجو المساعدة في حلها (الكاتـب : - - الوقت: 07:52 PM - التاريخ: 16-05-2012)           »          طريقة جميله لإيجاد قيمة اللوغاريتم بدون حاسبة (الكاتـب : - آخر مشاركة : - - الوقت: 02:59 AM - التاريخ: 16-05-2012)           »          كتاب قيم عن مسابقات الأولمبياد (الكاتـب : - آخر مشاركة : - - الوقت: 01:33 AM - التاريخ: 04-12-2009)           »          س 6 : اتصال (الكاتـب : - آخر مشاركة : - - الوقت: 11:39 PM - التاريخ: 03-12-2009)           »          امتحانات + الحل للثانوية العامة - مصر - 2008 (الكاتـب : - آخر مشاركة : - - الوقت: 11:25 PM - التاريخ: 03-12-2009)


العودة   منتديات الرياضيات العربية سـاحـة المعلـومـاتية برمجيات الرياضيات
تحديث الصفحة بريمج ( 14ك.ب ).. يبين الأعداد الأولية
التعليمـــات قائمة الأعضاء التقويم Files Upload Center الراديو

البث الإذاعي الحي Join WebHost4Life.com موقع بلّغوا


 
صفحة 2 من 2 1 2
   
أدوات الموضوع انواع عرض الموضوع
قديم 02-09-2007, 08:01 PM   رقم المشاركة : 11
عضو مبدع
 
الصورة الرمزية Amel2005

من مواضيعه :
0 2009(امتحانات الشهادة الإعدادية - مصر)
0 تجربة شرح كيفية تكبير الصورة بمدرج الرموز
0 فلاش رائع لرسم الدوال
0 شرح : حساب المساحات باستخدام التكامل_1
0 فلاشات خاصة بعلم الأرض






Amel2005 غير متصل

Amel2005 is on a distinguished road

شكراً: 1,034
تم شكره 727 مرة في 375 مشاركة

افتراضي

السلام عليكم ورحمة الله وبركاته
جزاك ربى خير الجزاء أستاذى الكريم / الجبل
وزادك علما نافعا ... ونفعنا بك.

الكود فعلا بمنتهى الروعة

كود
Private Sub ****1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
d = Val(****1)
If Val(****1) < 1 Then
****1.**** = ""
****2.**** = "خطأ !!!  ( لا تكتب حروفا  .. أو رقما أقل من صفر  )"
GoTo pp:
End If

For o = 2 To (d \ 2) + 1
If d / o = d \ o Then nump = nump & o & " , "
Next o
If nump = "" Then
****2 = " هذا عدد أولي  "
Else
****2 = " يقبل القسمة على  " & "(" & "1 " & " , " & nump & d & " )"
End If
End If

pp:

End Sub

أعتقد أنك قمت باختبار نصف قيمة العدد وتجريب القسمة عليه لتقليل عملية البحث داخل البرنامج...

وقد حاولت فهم الكود قدر استطاعتى ... فلك شكرى واحترامى
أيضا ... الأجمل فى الكود هو استخدامك للـ " \ " ، " /" .

والتى أوضح الأستاذ خالد المستهيج الفرق بينهما على الرابط

جزاك الله خيرا أخى الكريم.
تقبل تحياتى.

 

 
 
صفحة 2 من 2 1 2

... صندوق محرر اللاتيك

« الموضوع السابق | الموضوع التالي »
( رَبَّنَا لاَ تُؤَاخِذْنَا إِن نَّسِينَا أَوْ أَخْطَأْنَا رَبَّنَا وَلاَ تَحْمِلْ عَلَيْنَا إِصْرًا كَمَا حَمَلْتَهُ عَلَى الَّذِينَ مِن قَبْلِنَا رَبَّنَا وَلاَ تُحَمِّلْنَا مَا لاَ طَاقَةَ لَنَا بِهِ وَاعْفُ عَنَّا وَاغْفِرْ لَنَا وَارْحَمْنَا أَنتَ مَوْلاَنَا فَانصُرْنَا عَلَى الْقَوْمِ الْكَافِرِينَ )


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة

الساعة الآن 02:58 AM.

الاتصال بنا - موقع ساحات الرياضيات - الأرشيف - تصميم - الأعلى

Powered by vBulletin® Version 3.8.2, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir
UaeMath,since January 2003@