اذهب الي المحتوي
أوفيسنا

تصميم برنامج لسنتر بلاي ستيشن


إذهب إلى أفضل إجابة Solved by Foksh,

الردود الموصى بها

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

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

وجزاكم الله خيرا

 

333.jpg.e9e254697597a3150dc3a3756e483ad8.jpg

TEST_1.rar

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

السلام عليكم

مرجباً بك اخي حسين

هذه مساهمة صغيرة مني لا تفي بالغرض ولكن خبراء المنتدي قادرون على تطويرها أو صنع أفضل منها بالتأكيد

 وشكرا جزيلا لك:fff:

 

 

5.gif.81e6966bd2beb4a0027ca2b8407d31dd.gif

 

 

TEST_2.rar

تم تعديل بواسطه ahmed draz
  • Like 1
رابط هذا التعليق
شارك

جزاك الله خيرا استاذي الفاضل  ahmed draz عمل ممتاذ وشكرا جزيلا علي اهتمامك 

ممكن لو تكرمت عند عمل ايقاف يظهر لي  اجمالي المبلغ المسحق في الحقل

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الحبيب الفاضل المبجل بحر العلم المحترم

:fff:Foksh:fff:

وهذا أقل في الحقيقة من وصف قدرك جعلك الله خيرأ مما نظن

دار في بالي أنه ان لن يجيب أحد على هذا الموضوع غيرك 

وكما ظننت ... كنت خير من يجيب فجزاك الله خيراً

فالموضوع في اعتقدي مفيد جداً ولكنني توقفت حيث انتهى به علمي وعلمي قليل والحمد لله

 :fff:فشكراً جزيلاً لك:fff:

هذا ما تم  وفق توجيهاتك وباقي تكرار الاكواد لكل جهاز في القاعدة أو البحث عن طريقة للتكرار في نفس النموذج

(ولي ملحوظة صغيرة)

وهو عند عمل stop من نفس زار start لعمل وقت مستقطع ثم الغط مرة اخري على start فإن إجمالي المستحق يعود ليحسب من الصفر دون حساب الوقت الفائت 

70.gif.8e364569b759119748e5e101dc5cf00b.gif

TEST_2.rar

تم تعديل بواسطه ahmed draz
  • Thanks 1
  • Haha 1
رابط هذا التعليق
شارك

شكراً لك أخي @ahmed draz على هذه الثقة ، وثق تماماً أنني ما زلت أتعلم من هذا المنتدى ومن الخبرات القوية التي تختفي تحت أسماء عظيمة في هذا القسم :smile: .

 

هذا التعديل البسيط لما طلبت ، فتفضل :-

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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

 الاستاذ @Foksh تحياتى وتسلم ايدك :clapping::fff: 

تمام حلوه الحسابات وحلوة الدنيا مافيش كلام 

لكن اين الاساس ؟؟؟

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


وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين  واين واين ....

واين واين واين واترككم لبنات افكاركم  :biggrin2:

وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد 

 

تحياتى

  • Haha 1
رابط هذا التعليق
شارك

جزاك الله خير الجزاء استاذي ومعلمي الفاضل Foksh وزادك الله من علملة علي هذا المجهود العظيم 

ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر

  • Like 1
رابط هذا التعليق
شارك

23 دقائق مضت, ابو جودي said:

 الاستاذ @Foksh تحياتى وتسلم ايدك :clapping::fff: 

تمام حلوه الحسابات وحلوة الدنيا مافيش كلام 

لكن اين الاساس ؟؟؟

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


وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين  واين واين ....

واين واين واين واترككم لبنات افكاركم  :biggrin2:

وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد 

 

تحياتى

إنت جيييييت ، تعال على جنب عاوزك في كلمتين ونص 🤣😂

 

الجداول دي مسؤولية صاحب الموضوع على حد علمي لما هو يريد ، ويمكن ما عندوش جرد ولا حسابات اذا كان السنتر 6 أجهزة مثلاً..

 

بالنسبة لموضوع فصل كل جهاز بعداد منفصل فدي حاجة بسيطة عليك طبعاً ، بس حظك الحلو إني خرجت لبيت أهلي ، وأول ما أرجع هنتقابل بالساحة ونفرد عضلاتنا وسط الناس 😁

 

وما تخافش ، أصلي حنين 🤣😂🤣😂

  • Haha 1
رابط هذا التعليق
شارك

2 ساعات مضت, حسين العربى said:

ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر

بدون زعل لو الموضوع بالشكل ده بس 

حرام يتعمل لع قاعدة وتشغل له جهاز حاسب الى مخصوص كراسة وقلم وعيش حياتك اسهل اه والله زيمئولك كده :biggrin2:

بالنسبة لكل جهاز دى انسخ بس الاكواد ولصق لكل زر امر مع تغيير اسماء العناصر 

 

والحمد لله ان انا مش فاضى لان لو الموضوع كده بس انا كنت ممكن يجيلى شلل لان مبدئيا انا كنت اضع للقاعدة من 4 الى 6 جداول ووجع قلب وكتابة اكود

المطلوب ده لعب عيال وتم تحقيقه خلاص

  • Haha 1
رابط هذا التعليق
شارك

استاذي ومعلمي الفاضل  ابو جودي  انه لشرف كبير لي اهتمامك  بس احب اقول لحضرتك اني لسه الجاي اتقل 

وهنعمل كل الي بتقول عليه بس همتك معانا نعمل البرنامج ده علي اكمل وجه  وجزاك الله خيرا 

رابط هذا التعليق
شارك

استاذ @Foksh ❤️🌹

كنت افكر بلبنات افكاري 😂

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

 من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط

اما IFF 

او IF تايمر 

عدى ساعات الحجز

ينتقل السجل الى العامود الثاني ايقاف

ListBox

 As Boolean

عند تحقق الشرط ساعة ونص 😏

انتهاء \ اجل واستمرار  عامود الثالث \ دفع استمرار

 

البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة 

 معاملات العمال اجارات وصولولات 

 

 تقارير الى طباعة وفاتورة للزباين 

ارقام الزباين محتاج واتس اب

خصومات وعروض 

 

:wink2:مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام

ارشفة مواعيد وحجز 

 

ما له داعي حساب فلس بالوقت

 اقل شي دينار ونص على الساعة ادفع وتفضل 

او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز 

 

لبنات المشاريع والافكار انا اترك لكم مجال الساحة 

  :yes:

بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹

واستاذ @Foksh❤️🌹

واستاذ @ahmed draz❤️🌹

ptrsafe 

 

مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له 

خذها بموضوع بزنس ثاني😇

  • Thanks 1
رابط هذا التعليق
شارك

3 دقائق مضت, hanan_ms said:

استاذ @Foksh ❤️🌹

كنت افكر بلبنات افكاري 😂

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

 من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط

اما IFF 

او IF تايمر 

عدى ساعات الحجز

ينتقل السجل الى العامود الثاني ايقاف

ListBox

 As Boolean

عند تحقق الشرط ساعة ونص 😏

انتهاء \ اجل واستمرار  عامود الثالث \ دفع استمرار

 

البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة 

 معاملات العمال اجارات وصولولات 

 

 تقارير الى طباعة وفاتورة للزباين 

ارقام الزباين محتاج واتس اب

خصومات وعروض 

 

:wink2:مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام

ارشفة مواعيد وحجز 

 

ما له داعي حساب فلس بالوقت

 اقل شي دينار ونص على الساعة ادفع وتفضل 

او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز 

 

لبنات المشاريع والافكار انا اترك لكم مجال الساحة 

  :yes:

بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹

واستاذ @Foksh❤️🌹

واستاذ @ahmed draz❤️🌹

ptrsafe 

 

مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له 

خذها بموضوع بزنس ثاني😇

أخت @hanan_ms ، كلامك صحيح 😁

 

ولكن هنا التنفيذ كان حسب الطلب ، ولو جينا نتفرع وناشعب في الموضوع فسنجد أنفسنا موظفين في مركز وسنتر بلايستيشن 😂

 

إحنا على رأي الأخ @حسين العربى 

منذ ساعه, حسين العربى said:

لسه الجاي اتقل

 

رابط هذا التعليق
شارك

طيب هو الموضوع  عنوانه : تصميم برنامج لسنتر بلاي ستيشن

يعنى لا يوجد اسئلة ينتظر وضع اجابات لها 

اذا لابد ومن الاولى ان نبدأ بالتحليل النظرى ثم التحليل المنطقى

ثم وضع الية العمل والسيناريو وفقا للتحليل ثم بدأ البناء ليكون على اساس سليم وصحيح 

وبدء البناؤ يبدأ ببناؤ الجداول الصحيح اولا وليس بالحسابات والنماذج ثم الجداول 

رابط هذا التعليق
شارك

الان, حسين العربى said:

استاذي الفاضل  Foksh  ازاي اطبق الكود علي باقي الاجهزه لو تكرمت

إن شاء الله الأمر بسيط ، ولكني فعلاً الآن خارج المنزل وبعيد عن الكمبيوتر 😇

  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله 

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

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

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

:fff:ولكم جزيل الشكر:fff:

100.thumb.gif.5fc9d60bb59f5cbac012c38d744eca56.gif

 

playstation 5.rar

تم تعديل بواسطه ahmed draz
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

4 دقائق مضت, ahmed draz said:

السلام عليكم ورحمة الله 

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

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

وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع 

:fff:ولكم جزيل الشكر:fff:

100.thumb.gif.5fc9d60bb59f5cbac012c38d744eca56.gif

 

playstation 5.rar 105.59 kB · 0 downloads

فكرتك جميلة إلى حد ما أخي أحمد ، ولكنها تفتقر إلى لمستك الإبداعية بحيث عند النقر على زر اي جهاز ويفتح النموذج كما فعلت ، فلا بد من تمييز هذا الزر بلون للدلالة على ان الجهاز مشغول 😉

 

ولا رأيك إيه 😁

  • Like 1
رابط هذا التعليق
شارك

6 دقائق مضت, ahmed draz said:

السلام عليكم ورحمة الله 

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

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

وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع 

:fff:ولكم جزيل الشكر:fff:

100.thumb.gif.5fc9d60bb59f5cbac012c38d744eca56.gif

 

playstation 5.rar 105.59 kB · 0 downloads

عمل جميل جدا وفوق الممتاز جزاك الله خير علي جهودك وزادك الله من علمه

  • Like 1
رابط هذا التعليق
شارك

1 دقيقه مضت, ahmed draz said:

الخبير المبدع أخي الحبيب Foksh

سأتعلم منك طوال العمر بارك الله فيك

وجراك الله خيراً

استغفر الله العظيم اخي العزيز أحمد ،،

 

كلنا نتعلم من بعضنا اخي الكريم ، وقد ترى انت شيء لم انتبه له ، وهذا يسعدني جداً 🥰

  • Like 1
رابط هذا التعليق
شارك

استاذي ومعلمي الفاضل Foksh بس حبيت اتأكد من شي في الكود  للتأكيد فقط

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

 

 hourlyRate = Me.Controls("STSATR_DATE1" & i).Value

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information