أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > منتدى البرمجة العام > لغات البرمجة


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


02-04-2009, 08:06 AM
love whisper007 غير متصل
عضو فعال
رقم العضوية: 148075
تاريخ التسجيل: Aug 2008
الإقامة: Alex
المشاركات: 54
إعجاب: 11
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 2 موضوع
    #1  

مشكلة فى عمل برنامج بالفيجوال بيسك(كود واحد يوجد به مشكلة)ارجووا المساعدة


بسم الله الرحمن الرحيم
مشكلة برنامج بالفيجوال بيسك(كود واحد
انا عندى مشكلة فى كود واحد فقط ولو اتخل يبقى خلصت البرنامج
فارجوا من اهل الخبرة والمعرفة حل مشكلتى
عشان البرنامج مطلوب منى عشان انجح فيه واخد درجته فارجو مساعدتى فى كتابة هذا الكود

وهو ايجاد الحاصلين على مجموع محصور بين رقمين

والكود عبارة عن استدعاء الطلاب الناجحين فى المجموع 3 مواد المحصورين بين الرقمين (الذى سوف يتم الأستدعاءعن طريقهم)
مثال للتوضيح
انا عايز استدعى مثلاً الطلاب الناجين فى المجموع المحصور بين 200 و 100

والبرنامج ارفقته لكم
فارجووو من يستطيع حل المشكلة لايبخل عليها وجزاكم الله كل خير

البرنامج اهو التحميل من


هنا



http://www.mediafire.com/?ie1xjxqml53

وشكراً






المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
للمبتدئين: شرح عمل برنامج يقرا النصوص بالفيجوال بيسك.‎ LOYOUR لغات البرمجة 2 02-02-2016 12:20 AM
كيف أعمل برنامج متعدد اللغات بالفيجوال بيزك mido511911 لغات البرمجة 3 25-04-2015 10:11 PM
طلب مثال بالصور لتصميم برنامج بالفيجوال بيسك 6 وكيفية حفظه بصيغة exe ايمن الليثى لغات البرمجة 5 10-05-2009 06:34 PM
مشكلة واحد واخد تأجيل موقت قبل كده....رجاء المساعدة ممن لديه خبرة ahmed_rose مُسْتَشارُكَ القّانُونيْ 14 21-10-2008 12:38 PM
برنامج محاسبة التخليص الجمركى Nile1 بالفيجوال بيسك 2008 hanyessmat أرشيف المواضيع المخالفة والمحذوفات 6 16-09-2008 02:10 PM
02-04-2009, 01:14 PM
khaled helal غير متصل
عضوية الشرف
رقم العضوية: 58049
تاريخ التسجيل: Nov 2006
الإقامة: alex
المشاركات: 9,202
إعجاب: 5,170
تلقى 3,126 إعجاب على 531 مشاركة
تلقى دعوات الى: 1857 موضوع
    #2  
تفضل اخى الحبيب
 

Dim a As Double
Dim b As Double
 
a = Val(InputBox("أدخل الرقم الاول  "))
 If Trim(a) = "" Then Exit Sub
b = Val(InputBox("أدخل الرقم الثانى "))
If Trim(b) = "" Then Exit Sub
 
Data1.RecordSource = " select * from school where school!X + school!Y + school!Z BETWEEN " & a & " AND " & b




لا تحـــــــزن على دمعـــــــة سقطـــــت من عينـــــك

فقـــــد ســقــــــط معهــــــا ...

شخـــــص لا يسـتحـــــــــقـك







02-04-2009, 06:39 PM
love whisper007 غير متصل
عضو فعال
رقم العضوية: 148075
تاريخ التسجيل: Aug 2008
الإقامة: Alex
المشاركات: 54
إعجاب: 11
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 2 موضوع
    #3  
مشكوووووووووور وجزاااااااااااااااااااااك الله كل خير ومش عارف اقولك ايه بصراحة انت انقذتنى من المشكلة الى انا فيها بااااااااااااااااااااااارك الله فيك ويرزقك بزرية صالحة



 


مشكلة فى عمل برنامج بالفيجوال بيسك(كود واحد يوجد به مشكلة)ارجووا المساعدة



English

Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.