الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال مهم جدا فى الوقت

مغلق
بدأه tatatab في 10 يوليو 2007 · 3 رد · 636 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندى قاعدة بيانات تحتوى على الاتى :

Timer

Price

Total

حيث Time الوقت المستغرق فى اللعب , Price ثمن الساعة , Total التكلفة وهى تساوى :Time*Price وذلك على كل جهاز حيث انه يوجد لدى 8 اجهزة لعب سؤالى هو فى المرة الاولى فى اللعب ممكن ان تكون التكلفة 20 جنيه مثلا وعند اللعب مرة اخرى على نفس الجهاز لمستخدم اخر ممكن ان تكون التكلفة 30 جنيها مثلا سؤالى كيف لى ان اجمع التكلفة فى كل مرة بحيث يظهر لى خانه بها مجموع الفلوس التى قد استخدمها الجهاز الاول مثلا المجموع هنا هو 50 كيف اظهر ال50 يعنى كيف اقوم بعمليه جمع على Total فى كل مرة كما ارد زرار فى النموذج يتيح للمستخدم تغيير قيمة الساعة دون فتح التصميم للنموذج وشكرا

#2

السلام عليكم يا أخى

الكلام غير واضح وغير مفهوم

ياريت تعيد كلامك ومطلوبك بتفصيل أكثرأو بأسلوب أوضح

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#3

اخى

Total=A*B

A: قيمة متغيرة دائما

B: قيمة ثابته دائما

اذا فى كل مرة اقوم فيها بهذه العمليه الحسابية تختلف فيمة Total

كيف لى ان اجمع كل قيمة تظهر فى Total فى كل مرة يعنى على سبيل المثال اذا كانت قيمة Total فى المرة الاولى 20 ثم فى العملية القادمة 70 اذا الى الان مجموع Total عندى 90 كيف اظهر ال90

#4

أخى العزيز

اذا كانت قاعدة البيانات تحتوى على الحقل TOTAL فهذا هو الكود الذى يحسب لك المجموع SUMM

SUMM = 0

N = Data1.Recordset.RecordCount

Data1.Recordset.MoveFirst

For I = 1 To N

[TOTAL = Data1.Recordset![TOTAL

SUMM = SUMM + TOTAL

Data1.Recordset.MoveNext

Next I

Print " SUMM="; SUMM

End Sub

---------------------------------------------------------------------------------------------------

---------------------------------------------------------------------------------------------------

واذا كانت قاعدة البيانات لا تحتوى الا على الحقلين AAA,BBB فهذا هو الكود

SUMM = 0

N = Data1.Recordset.RecordCount

Data1.Recordset.MoveFirst

For I = 1 To N

[A = Data1.Recordset![AAA

[b = Data1.Recordset![bBB

TOTAL = A * B

SUMM = SUMM + TOTAL

Data1.Recordset.MoveNext

Next I

Print " SUMM="; SUMM

End Sub

---------------------------------------------------------

ملحوظة:-

فى هذه الحالة الثانية اذا كانت قيمة الحقل BBB قيمة ثابتة فمن الأفضل نقل جملة حساب B خارج

ال LOOP (أى قبل الجملة For I = 1 To N ) هكذا

SUMM = 0

N = Data1.Recordset.RecordCount

Data1.Recordset.MoveFirst

[b = Data1.Recordset![bBB

For I = 1 To N

[A = Data1.Recordset![AAA

TOTAL = A * B

SUMM = SUMM + TOTAL

Data1.Recordset.MoveNext

Next I

Print " SUMM="; SUMM

End Sub

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

هذا الموضوع مغلق.

مواضيع مشابهة