حسين العربى قام بنشر يوليو 31 مشاركة قام بنشر يوليو 31 (معدل) السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اسعد الله صباحكم بكل خير وجزاكم الله خير الجزاء علي جهودكم اريد مساعده في برمجة برنامج لسنتر بلاي ستيشن مرفق لكم نسخة تجريبية بها توضيح لما اريد من عمل واريد افكاركم وجزاكم الله خيرا TEST_1.rar تم تعديل يوليو 31 بواسطه حسين العربى ادراج صورة رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر أغسطس 1 مشاركة قام بنشر أغسطس 1 (معدل) السلام عليكم مرجباً بك اخي حسين هذه مساهمة صغيرة مني لا تفي بالغرض ولكن خبراء المنتدي قادرون على تطويرها أو صنع أفضل منها بالتأكيد وشكرا جزيلا لك TEST_2.rar تم تعديل أغسطس 1 بواسطه ahmed draz 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 1 الكاتب مشاركة قام بنشر أغسطس 1 جزاك الله خيرا استاذي الفاضل ahmed draz عمل ممتاذ وشكرا جزيلا علي اهتمامك ممكن لو تكرمت عند عمل ايقاف يظهر لي اجمالي المبلغ المسحق في الحقل رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 1 الكاتب مشاركة قام بنشر أغسطس 1 UP رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 ولو امكن ممكن المستحق يزيد مع عداد الوقت اتوماتيك رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 3 ساعات مضت, حسين العربى said: ولو امكن ممكن المستحق يزيد مع عداد الوقت اتوماتيك مشاركة مع الأخ @ahmed draz ، استبدل كود النموذج كاملاً بالتالي :- Option Compare Database Option Explicit Dim counter As Double Private Sub cmdReset_Click() Me.cmdstart.Caption = "Start" Me.lblcounter.Caption = "00:00:00" counter = 0 Me.TimerInterval = 0 Me.TOTEL_1.Value = 0 End Sub Private Sub cmdstart_Click() If Me.cmdstart.Caption = "Start" Then Me.cmdstart.Caption = "Stop" Me.TimerInterval = 1000 counter = 0 Else Me.cmdstart.Caption = "Start" Me.TimerInterval = 0 End If End Sub Private Sub Form_Load() counter = 0 End Sub Private Sub Form_Timer() Dim totalSeconds As Long Dim hourlyRate As Double Dim totalCost As Double counter = counter + 1 Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss") hourlyRate = Me.STSATR_DATE.Value totalSeconds = counter totalCost = (hourlyRate / 3600) * totalSeconds Me.TOTEL_1.Value = Format(totalCost, "0.00") End Sub 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 (معدل) السلام عليكم ورحمة الله أخي الحبيب الفاضل المبجل بحر العلم المحترم Foksh وهذا أقل في الحقيقة من وصف قدرك جعلك الله خيرأ مما نظن دار في بالي أنه ان لن يجيب أحد على هذا الموضوع غيرك وكما ظننت ... كنت خير من يجيب فجزاك الله خيراً فالموضوع في اعتقدي مفيد جداً ولكنني توقفت حيث انتهى به علمي وعلمي قليل والحمد لله فشكراً جزيلاً لك هذا ما تم وفق توجيهاتك وباقي تكرار الاكواد لكل جهاز في القاعدة أو البحث عن طريقة للتكرار في نفس النموذج (ولي ملحوظة صغيرة) وهو عند عمل stop من نفس زار start لعمل وقت مستقطع ثم الغط مرة اخري على start فإن إجمالي المستحق يعود ليحسب من الصفر دون حساب الوقت الفائت TEST_2.rar تم تعديل أغسطس 2 بواسطه ahmed draz 1 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 شكراً لك أخي @ahmed draz على هذه الثقة ، وثق تماماً أنني ما زلت أتعلم من هذا المنتدى ومن الخبرات القوية التي تختفي تحت أسماء عظيمة في هذا القسم . هذا التعديل البسيط لما طلبت ، فتفضل :- Option Compare Database Option Explicit Dim counter As Double Dim isRunning As Boolean Dim isPaused As Boolean Dim pauseCounter As Double Private Sub Form_Load() counter = 0 isRunning = False isPaused = False pauseCounter = 0 Me.lblcounter.Caption = "00:00:00" Me.TOTEL_1.Value = 0 Me.TimerInterval = 1000 End Sub Private Sub cmdstart_Click() If Me.cmdstart.Caption = "Start" Then ' ÈÏÁ ÇáÚÏ Me.cmdstart.Caption = "Pause" Me.TimerInterval = 1000 counter = 0 isRunning = True isPaused = False pauseCounter = 0 ElseIf Me.cmdstart.Caption = "Pause" Then Me.cmdstart.Caption = "Resume" Me.TimerInterval = 0 isRunning = False isPaused = True pauseCounter = counter ElseIf Me.cmdstart.Caption = "Resume" Then Me.cmdstart.Caption = "Pause" Me.TimerInterval = 1000 counter = pauseCounter isRunning = True isPaused = False End If End Sub Private Sub cmdReset_Click() Me.cmdstart.Caption = "Start" Me.lblcounter.Caption = "00:00:00" counter = 0 Me.TimerInterval = 0 Me.TOTEL_1.Value = 0 isRunning = False isPaused = False pauseCounter = 0 End Sub Private Sub Form_Timer() Dim totalSeconds As Long Dim hourlyRate As Double Dim totalCost As Double If isRunning And Not isPaused Then counter = counter + 1 Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss") hourlyRate = Me.STSATR_DATE.Value totalSeconds = counter totalCost = (hourlyRate / 3600) * totalSeconds Me.TOTEL_1.Value = Format(totalCost, "0.00") End If End Sub 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 الاستاذ @Foksh تحياتى وتسلم ايدك تمام حلوه الحسابات وحلوة الدنيا مافيش كلام لكن اين الاساس ؟؟؟ اين جداول الحسابات التى توضح الربح اليومى وكيف نحصل على حسابات الربح الشهرى والسنوى واين جدول المدفوعات واين جدول المشتريات لادراة رأس المال بطريقة سليمة وامنة وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين واين واين .... واين واين واين واترككم لبنات افكاركم وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد تحياتى 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 جزاك الله خير الجزاء استاذي ومعلمي الفاضل Foksh وزادك الله من علملة علي هذا المجهود العظيم ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 23 دقائق مضت, ابو جودي said: الاستاذ @Foksh تحياتى وتسلم ايدك تمام حلوه الحسابات وحلوة الدنيا مافيش كلام لكن اين الاساس ؟؟؟ اين جداول الحسابات التى توضح الربح اليومى وكيف نحصل على حسابات الربح الشهرى والسنوى واين جدول المدفوعات واين جدول المشتريات لادراة رأس المال بطريقة سليمة وامنة وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين واين واين .... واين واين واين واترككم لبنات افكاركم وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد تحياتى إنت جيييييت ، تعال على جنب عاوزك في كلمتين ونص 🤣😂 الجداول دي مسؤولية صاحب الموضوع على حد علمي لما هو يريد ، ويمكن ما عندوش جرد ولا حسابات اذا كان السنتر 6 أجهزة مثلاً.. بالنسبة لموضوع فصل كل جهاز بعداد منفصل فدي حاجة بسيطة عليك طبعاً ، بس حظك الحلو إني خرجت لبيت أهلي ، وأول ما أرجع هنتقابل بالساحة ونفرد عضلاتنا وسط الناس 😁 وما تخافش ، أصلي حنين 🤣😂🤣😂 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 2 ساعات مضت, حسين العربى said: ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر بدون زعل لو الموضوع بالشكل ده بس حرام يتعمل لع قاعدة وتشغل له جهاز حاسب الى مخصوص كراسة وقلم وعيش حياتك اسهل اه والله زيمئولك كده بالنسبة لكل جهاز دى انسخ بس الاكواد ولصق لكل زر امر مع تغيير اسماء العناصر والحمد لله ان انا مش فاضى لان لو الموضوع كده بس انا كنت ممكن يجيلى شلل لان مبدئيا انا كنت اضع للقاعدة من 4 الى 6 جداول ووجع قلب وكتابة اكود المطلوب ده لعب عيال وتم تحقيقه خلاص 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 استاذي ومعلمي الفاضل ابو جودي انه لشرف كبير لي اهتمامك بس احب اقول لحضرتك اني لسه الجاي اتقل وهنعمل كل الي بتقول عليه بس همتك معانا نعمل البرنامج ده علي اكمل وجه وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 استاذ @Foksh ❤️🌹 كنت افكر بلبنات افكاري 😂 هو المفترض ان تكون الواجهة عامودين الى ثالث للاجهزة المحجوزة والمتوفرة والجنب شاشة الكوشير من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط اما IFF او IF تايمر عدى ساعات الحجز ينتقل السجل الى العامود الثاني ايقاف ListBox As Boolean عند تحقق الشرط ساعة ونص 😏 انتهاء \ اجل واستمرار عامود الثالث \ دفع استمرار البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة معاملات العمال اجارات وصولولات تقارير الى طباعة وفاتورة للزباين ارقام الزباين محتاج واتس اب خصومات وعروض مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام ارشفة مواعيد وحجز ما له داعي حساب فلس بالوقت اقل شي دينار ونص على الساعة ادفع وتفضل او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز لبنات المشاريع والافكار انا اترك لكم مجال الساحة بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹 واستاذ @Foksh❤️🌹 واستاذ @ahmed draz❤️🌹 ptrsafe ☕ مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له خذها بموضوع بزنس ثاني😇 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 3 دقائق مضت, hanan_ms said: استاذ @Foksh ❤️🌹 كنت افكر بلبنات افكاري 😂 هو المفترض ان تكون الواجهة عامودين الى ثالث للاجهزة المحجوزة والمتوفرة والجنب شاشة الكوشير من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط اما IFF او IF تايمر عدى ساعات الحجز ينتقل السجل الى العامود الثاني ايقاف ListBox As Boolean عند تحقق الشرط ساعة ونص 😏 انتهاء \ اجل واستمرار عامود الثالث \ دفع استمرار البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة معاملات العمال اجارات وصولولات تقارير الى طباعة وفاتورة للزباين ارقام الزباين محتاج واتس اب خصومات وعروض مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام ارشفة مواعيد وحجز ما له داعي حساب فلس بالوقت اقل شي دينار ونص على الساعة ادفع وتفضل او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز لبنات المشاريع والافكار انا اترك لكم مجال الساحة بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹 واستاذ @Foksh❤️🌹 واستاذ @ahmed draz❤️🌹 ptrsafe ☕ مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له خذها بموضوع بزنس ثاني😇 أخت @hanan_ms ، كلامك صحيح 😁 ولكن هنا التنفيذ كان حسب الطلب ، ولو جينا نتفرع وناشعب في الموضوع فسنجد أنفسنا موظفين في مركز وسنتر بلايستيشن 😂 إحنا على رأي الأخ @حسين العربى منذ ساعه, حسين العربى said: لسه الجاي اتقل رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 استاذي الفاضل Foksh ازاي اطبق الكود علي باقي الاجهزه لو تكرمت رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 طيب هو الموضوع عنوانه : تصميم برنامج لسنتر بلاي ستيشن يعنى لا يوجد اسئلة ينتظر وضع اجابات لها اذا لابد ومن الاولى ان نبدأ بالتحليل النظرى ثم التحليل المنطقى ثم وضع الية العمل والسيناريو وفقا للتحليل ثم بدأ البناء ليكون على اساس سليم وصحيح وبدء البناؤ يبدأ ببناؤ الجداول الصحيح اولا وليس بالحسابات والنماذج ثم الجداول رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 الان, حسين العربى said: استاذي الفاضل Foksh ازاي اطبق الكود علي باقي الاجهزه لو تكرمت إن شاء الله الأمر بسيط ، ولكني فعلاً الآن خارج المنزل وبعيد عن الكمبيوتر 😇 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 (معدل) السلام عليكم ورحمة الله السادة الخبراء والأعضاء الكرام بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع والمطاعم والكافيهات وصالات البلياردو. ولكم جزيل الشكر playstation 5.rar تم تعديل أغسطس 2 بواسطه ahmed draz 2 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 4 دقائق مضت, ahmed draz said: السلام عليكم ورحمة الله السادة الخبراء والأعضاء الكرام بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع ولكم جزيل الشكر playstation 5.rar 105.59 kB · 0 downloads فكرتك جميلة إلى حد ما أخي أحمد ، ولكنها تفتقر إلى لمستك الإبداعية بحيث عند النقر على زر اي جهاز ويفتح النموذج كما فعلت ، فلا بد من تمييز هذا الزر بلون للدلالة على ان الجهاز مشغول 😉 ولا رأيك إيه 😁 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 6 دقائق مضت, ahmed draz said: السلام عليكم ورحمة الله السادة الخبراء والأعضاء الكرام بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع ولكم جزيل الشكر playstation 5.rar 105.59 kB · 0 downloads عمل جميل جدا وفوق الممتاز جزاك الله خير علي جهودك وزادك الله من علمه 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 الخبير المبدع أخي الحبيب Foksh سأتعلم منك طوال العمر بارك الله فيك وجراك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 1 دقيقه مضت, ahmed draz said: الخبير المبدع أخي الحبيب Foksh سأتعلم منك طوال العمر بارك الله فيك وجراك الله خيراً استغفر الله العظيم اخي العزيز أحمد ،، كلنا نتعلم من بعضنا اخي الكريم ، وقد ترى انت شيء لم انتبه له ، وهذا يسعدني جداً 🥰 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر أغسطس 2 مشاركة قام بنشر أغسطس 2 وهذه فكرتي المتواضعة والقابلة للتطوير بشكل بسيط جداً ,, TEST_2.accdb 2 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر أغسطس 3 الكاتب مشاركة قام بنشر أغسطس 3 استاذي ومعلمي الفاضل Foksh بس حبيت اتأكد من شي في الكود للتأكيد فقط طبعا مش كل الاجهزه سعر واحد فانا لاحظت في الكود انه واخد السعر من حقل جهاز 1 فقط لكل الاجهزة hourlyRate = Me.Controls("STSATR_DATE1" & i).Value رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان